URL: http://crck.passwd.ws/e.htm ? ExcelRecovery v3.0 - 11 Kb

URL: http://cracks.allseek.info/crc/?p=E5 ? 1255. ExcelRecovery 3.0 by SirCrack [ 11 Kb ]

显示隐藏的工作表

有个朋友给了我一个EXCEL程序，里面只有2个SHEET，但是我见到其中一个SHEET还引用了本文件另外一个工作表的内容，我用ALT+F11打开VB编辑器又可以看到那个隐藏了的工作表， 请问怎么能看到那工作表呢？

答：Sheets(\isible = True

这样一列如何筛选出含201的

县一高2014555 /便民201号 /县城301号/201414441/301745555/20145122 /柏良201 /柏良301

答：假设你的资料在B列，且起始行为第四行，即B4起始单元格，终止与11行处，即B11，则在A列输入公式IF(ISERROR(FIND(\然后在D列输入顺序数字，比如1到10，在E列输入公式vlookup(d4,$a$4:$b$11,2,1>2)。注意A3为0。或：自动筛选->单击下拉列表->custom(自定义)->在条件中选\包含\在右边的文字框输入\

两个日期相差的月份数

使用Datedif(日期1，日期2，\函数。

用函数实现连续相加

我有一公式是这样的：=sum(B1+B2+B5+B8+B11+B14+B17+B20)

也就是前两个是连续相加，后边的是每隔3个相加，不知有没有简单的公式。 答：{=SUM((MOD(ROW(B1:B20),3)=2)*B1:B20)+B1}

把计算结果为负值的显示为红色取整并在数字后面加上“仟元“

把单元格格式改为#,##0\仟元\红色]-#,##0\仟元\如果不要负号可以写成#,##0\仟元\红色]#,##0\仟元\

比较A、B两列数据并在A列中包含B列的数据删除

工作表中A列数据是原始数据，而B列是另一些数据，现在要比较两列的情况，然后将A列中包含B列的数据删除 Sub wswx0041() Dim i&, j&

On Error Resume Next

For j = Range(\For i = Range(\

If Cells(i, 1) Like \shift:=xlUp Next i

41

Next j End Sub

怎样让我的图表随着数据透视表的更新

我的问题是： 1、当有新月份的数据出现的时候，图表无法包含新数据；2、但REGION选择不是全部，比如CD,图表中没有数据。怎样实现图表随数据透视表的更新而更新呢？

解答：DATA=Data!$A$1:$G$129、固定的范围,不值钱、DATA=OFFSET(Data!$A$1,,,COUNTA(Data!$A:$A),6) 动态范围、按数据透视表[!]按钮,更新数据

Sales Date；改用年月日三个字段；目的是当[索引],让条件容易下；DATA=OFFSET(Data!$A$1,,,COUNTA(Data!$A:$A),8)。 直接由[数据透视表]工具,[图表精灵]出,[图表]

如此就是完美的三层式结构，分工完成工作，只不过是接条龙，很简单吧! 又问：每次刷新数据，列宽等格式就需要重调，有没有办法将格式固定住？

答：工具>>选项>>一般>>标准字型>>大小>>确定。设定好以后,开新档案,列宽行高自动会调整。但这不是重点

[数据透视表]；鼠标右键>>分页显示。此功能是用来打印整本活页簿,出报表用

双击总计字段下之单元格；此功能是用来列出该笔合并数据所有明细；所以[自动筛选][进阶筛选]就用不着了,也不必去写复杂之[数组公式]；需要甚么数据,直接找[数据透视表]要；操作非常简单 DATA可以转到mbd檔；ACCESS可以汇入Excel数据,用精灵操作；汇入以后xls档即可删除

Excel>>数据>>取得外部数据>>新增外部数据查询>>>>>>转入[数据透视表]；此物即为Microsoft Query 第一次使用会要求放入光盘片,安装ODBC驱动程序 改用年月日三个字段；是有道理的。别嫌麻烦

循环引用问题

vba中输入公式，我想用变量代替RC地址，以便循环操作，如何做到？比如：在Range(\= \中，如何才能用变量x来代替其中的10或-5等数字？ 解答：=\

如何才能有条件的引用某一区的内容

请教各位，怎样才能引用符合条件的某一区域的内容。如下： A B C

9-1 1 9-15 /9-2 2 9-16 /9-2 2 9-17 /9-2 1 9-18 /9-4 2 9-18 请问，用什么方法才能在另外的单元格中引用同时符合A列中“9-2”和B列中“2”的C列的内容。 解答：先判断个数，再列出符合的数据：

{=IF(ROW()-ROW($A$18)+1>SUM(($A$2:$A$7=$B$16)*($B$2:$B$7=$C$16)),\MALL(IF(IF($A$2:$A$7=$B$16,$B$2:$B$7,\月d日\

Excel基本功

1.引用同一工作薄中另外一工作表的单元格 = Worksheets(\工作表名称\ ------------------------------------------------------------

如当前工作表为sheet1，想引用sheet2中的B2,则=sheet2!B2 2.如何使0值不显示

42

方法1：if (A1<>\

方法2：对于整个工作表中的0值全不显示，[工具]-[选项]-[视图]，清除0值选项。

方法3：用自定义数字格式，其中\和\有屏蔽0值的效果。比如：\通用格式;G/通用格式;#\，\通用格式;G/通用格式;?\。 3.如何定义格式和Copy格式?

在EXCEL中,可不可以把某一范围定义成一种格式,而其中某些数据又不是.并且又如把这种格式COPY到同一张sheet1中?如:

大制程 标准工时 状况 2002/1/24 2002/1/25

二次 13 /焊接 20 .而其它空格就不包括在格式中.被填写了的这张表格的格式又能重新COPY.如何做呢? 解答：新建一个只有一个工作表的工作簿 ,在这个工作表中设计你的格式另存为模板（*.xlt）。以后插入新工作表时，选择刚才建的模板。

又问：但是假如我只有一张工作表,我如何在同一张工作表中COPY呢?如我的固定格式在sheet1的A1:Z15范围内,我要把这种格式copy到A17:Z24,而其中的数据又不COPY进来.怎么办?

解答：假设你要复制格式的范围为A1:Z1和A1:B15两个区域，则用下面的宏能实现你的复制要求。 你只要选定新区域左上角的单元格，然后执行宏即可。 Sub 宏1()

aaa = ActiveWindow.RangeSelection.Address Range(\ Selection.Copy Range(aaa).Select ActiveSheet.Paste Range(\

Application.CutCopyMode = False Selection.Copy Range(aaa).Select ActiveSheet.Paste

Application.CutCopyMode = False Range(aaa).Select End Sub

------------------------------------------------------------ 如果A1:Z15中的数据全部都要清除，

可以[复制]A1:Z15，[选择性粘贴]到A17，粘贴栏中选中\格式\。 ------------------------------------------------------------ 选定范围后直接使用格式刷就可以了 4.如何实行列互换？ 解答：Transpose函数

或选中一行或一列，复制，选择性粘贴－＞转置。 ------------------------------------------------------------

在某一单元格输入公式“INDEX(reference,COLUMN(A1),ROW(A1))” 然后向下向右拖放。

5.EXCEL2000中视面管理器如何具体运用呀？ 请问高手EXCEL2000中视面管理器如何具体运用呀？ ------------------------------------------------------------

其实很简单呀，你把它想象成运动场上的一串照片（记录不同时点的场景），

43

一张照片记录一个场景，选择一张照片就把运动“拖”到照片上的时点。 不同的是只是场景回复，而值和格式不回复。

解除officeXP 50 次限制

1、 首先使用下面这个序号来安装Office XP。

BMV8D-G272X-MHMXW-4DY9G-M8YTQ

2、安装后，启动新建一个Word文档，程序会提示你激活，不管它！关闭Word。 3、打开注册表编辑器REGEDIT.exe，进入到下面的子键里面：

[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Installer\\Products\\4080820900063D11C8EF00054038389C\\Always Installed]

4、把右边的这个DWORD类型的键删除：\

5、在右边新建这样一个字符串型的键：Usage，将其值改为AlwaysInstalled 即： Usage=\ 6、最后使用法国人写的字节数为12,800的Crack.exe来破解Office XP后，即大功告成！

我破解后，打开Word 70次，打开Excel 60次后，还是能够新建文档、表格，而且可以顺利保存。 无论Win98或Win2000操作系统我都成功了,且已运行了200次以上!

小写数字转换成人民币大写

方法1、

Function UNumber(LNumber As Double) Dim NumberStr$ Dim NumberLen% Dim DotLoc1% Dim DotLoc2% Dim NumberStr1$ Dim NumberStr2$ If LNumber = 0 Then UNumber = \零元整\Exit Function End If

NumberStr = Application.WorksheetFunction.Text(LNumber, \NumberLen = Len(NumberStr)

DotLoc1 = InStr(1, NumberStr, \DotLoc2 = NumberLen - DotLoc1 If DotLoc1 = 0 Then

NumberStr = NumberStr & \元整\Else

NumberStr = Replace(NumberStr, \元\If DotLoc2 = 2 Then

NumberStr = NumberStr & \分\

If Mid(NumberStr, DotLoc1 + 1, 1) <> \零\NumberStr1 = Mid(NumberStr, 1, DotLoc1 + 1) & \角\NumberStr2 = Right(NumberStr, 2) NumberStr = NumberStr1 & NumberStr2 End If

44