Excel word ppt office使用技巧大全(DOC格式)-第44部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！





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



工作表中　A　列数据是原始数据，而　B　列是另一些数据，现在要比较两列的情况，然后将　A　列　

中包含B　列的数据删除　　

Sub　wswx0041（）　　

Dim　i&；　j&　　

On　Error　Resume　Next　　

For　j　=　Range（〃B65536〃）。End（xlUp）。Row　To　1　Step　…1　　

For　i　=　Range（〃A65536〃）。End（xlUp）。Row　To　1　Step　…1　　

If　Cells（i；　1）　Like　〃*〃　&　Cells（j；　2）　&　〃*〃　And　Not　IsEmpty（Cells（j；　2））　Then　Cells（i；　　

1）。Delete　shift：=xlUp　　

Next　i　　

Next　j　　

End　Sub　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　357　　


…………………………………………………………Page　358……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　



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



我的问题是：　　1、当有新月份的数据出现的时候，图表无法包含新数据；2　、但REGION　选择　

不是全部，比如　CD；　图表中没有数据。怎样实现图表随数据透视表的更新而更新呢？　　

解答：DATA=Data！A1：G129、固定的范围；不值钱、　

DATA=OFFSET（Data！A1；；；COUNTA（Data！A　：A）；6）　　

动态范围、按数据透视表＇！＇按钮；更新数据　　　

Sales　Date；改用年月日三个字段；目的是当＇索引＇；让条件容易下；　

DATA=OFFSET（Data！A1；；；COUNTA（Data！A：A）；8）。　　

直接由＇数据透视表＇工具；＇图表精灵＇出；＇图表＇　　

如此就是完美的三层式结构，分工完成工作，只不过是接条龙，很简单吧！　　　

又问：每次刷新数据，列宽等格式就需要重调，有没有办法将格式固定住？　　

答：工具》》选项》》一般》》标准字型》》大小》》确定。设定好以后；开新档案；列宽行高自动会调整。　

但这不是重点　　　

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

双击总计字段下之单元格；此功能是用来列出该笔合并数据所有明细；所以＇自动筛选＇＇进阶　

筛选＇就用不着了；也不必去写复杂之＇数组公式＇；需要甚么数据；直接找＇数据透视表＇要；操　

作非常简单　　

DATA　可以转到　mbd　檔；ACCESS　可以汇入　Excel　数据；用精灵操作；汇入以后　xls　档即可删除　　

Excel》》数据》》取得外部数据》》新增外部数据查询》》》》》》转入＇数据透视表＇；此物即为　

Microsoft　Query　　

第一次使用会要求放入光盘片；安装　ODBC　驱动程序　　

改用年月日三个字段；是有道理的。别嫌麻烦　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　循环引用问题　　



vba　中输入公式，我想用变量代替　RC　　　　　　　　　　　　　　　地址，以便循环操作，如何做到？比如：在　

Range（〃am6〃）。FormulaR1C1　=　〃=SUM（R＇…5＇C：R＇…5＇C＇10＇）〃中，如何才能用变量x　来代替其中的　

10　或…5　等数字？　　　　

解答：=〃=SUM（R＇〃　&　x　&　〃＇C＇〃　&　y　&　〃＇：R＇〃　&　xx　&　〃＇C＇〃　&　yy　&　〃＇）〃　　　



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



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

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（A18）＋1》SUM（（A2：A7=B16）*（B2：B7=C16））；〃〃；TEXT（SMAL　

L（IF（IF（A2：A7=B16；B2：B7；〃〃）=C16；C2：C7；〃〃）；ROW（A1））；〃m　月　d　　日〃））｝　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel　基本功　　



1。引用同一工作薄中另外一工作表的单元格　　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　358　　


…………………………………………………………Page　359……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　



=　Worksheets（〃工作表名称〃）。Cells（1；　1）　　　　

……………………………………………………………………………………………………………………………………………………………　　　

如当前工作表为　sheet1，想引用　sheet2　中的B2；则=sheet2！B2　　　　

2。如何使　0　值不显示　　　　

方法　1：if　（A1〃〃；　A。；　〃〃）　　　　

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

方法　3　：用自定义数字格式，其中〃#〃和〃？〃有屏蔽　0　　值的效果。比如：〃G/通用格式；G/通用格　

式；#〃，〃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（〃A1：Z1〃）。Select　　　　

Selection。Copy　　　　

Range（aaa）。Select　　　　

ActiveSheet。Paste　　　　

Range（〃A1：B15〃）。Select　　　　

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　函数　　　　

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



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　359　　


…………………………………………………………Page　360……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　



……………………………………………………………………………………………………………………………………………………………　　　

在某一单元格输入公式“INDEX（reference；COLUMN（A1）；ROW（A1））　”　　　　

然后向下向右拖放。　　　　

5。EXCEL2000　中视面管理器如何具体运用呀？　　　　

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

……………………………………………………………………………………………………………………………………………………………　　　

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

一张照片记录一个场景，选择一张照片就把运动“拖”到照片上的时点。　　　　

不同的是只是场景回复，而值和格式不回复。　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　解除　officeXP　　50　　次限制　　



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

2　、　　　　　BMV8D…G272X…MHMXW…4DY9G…M8YTQ　　　　

3、　　　　　　2　、安装后，启动新建一个Word　文档，程序会提示你激活，不管它！关闭　Word　。　　　　

4　、　　　　　3、打开注册表编辑器REGEDIT。exe　，进入到下面的子键里面：　　　　

5、　　　　　　＇HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionInstallerP　

　　　roducts4080820900063D11C8EF00054038389CAlways　Installed＇　　　　

6、　　　　　　4　、把右边的这个DWORD　类型的键删除：〃Usage〃=dword：2adb0001　　　　

7、　　　　　　5　、在右边新建这样一个字符串型的键：Usage　，将其值改为　AlwaysInstalled　　　即：　　

　　　Usage=〃AlwaysInstalled〃　　　　

8、　　　　　　6、最后使用法国人写的字节数为　12；800　的Crack。exe　来破解　Office　XP　后，即大功告　

　　　成！　　　　

9、　　　　　　我破解后，打开　Word　70　次，打开　Excel　60　次后，还是能够新建文档、表格，而且可　

　　　　以顺利保存。　　　　

10、　　　　　无论　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；　〃＇DBnum2＇〃）　　

NumberLen　=　Len（NumberStr）　　

DotLoc1　=　InStr（1；　NumberStr；　〃。〃；　vbTextpare）　　

DotLoc2　=　NumberLen　DotLoc1　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　360　　


…………………………………………………………Page　361……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　



If　DotLoc1　=　0　Then　　

NumberStr　=　NumberStr　&　〃元整〃　　

Else　　

NumberStr　=　Replace（NumberStr；　〃。〃；　〃元〃）　　

If　DotLoc2　=　2　Then　　

NumberStr　=　NumberStr　&　〃分〃　　

If　Mid（NumberStr；　DotLoc1　＋　1；　1）　　〃零〃　Then　　

NumberStr1　=　Mid（NumberStr；　1；　DotLoc1　＋　1）　&　〃角〃　　

NumberStr2　=　Right（NumberStr；　2）　　

NumberStr　=　NumberStr1　&　NumberStr2　　

End　If　　

Else　　

NumberStr　=　NumberStr　&　〃角整〃　　

End　If　　

End　If　　

On　Error　Resume　Next　　

UNumber　=　Replace（NumberStr；　〃零元〃；　〃〃）　　

End　Function　　

方法　2、　　

=IF（TRUNC（H16）=H　16；TEXT（H16；〃＇DBNum2＇G/通用格式〃）&〃元整　

〃；TEXT（TRUNC（H16）；〃＇DBNum2＇G/通用格式〃&〃元　

〃））&IF（AND（TRUNC（H16）H16；RIGHT（TRUNC（H16*10））〃0〃）；TEXT（TRUNC（MOD（H16*1　

0；10））；〃＇DBNum2＇G/通用格式〃）&〃角　

〃；〃〃）&IF（AND（RIGHT（TRUNC（H16*10））=〃0〃；TRUNC（H16）H16）；〃零　

〃；〃〃）&IF（TRUNC（H16*10）H16；TRUNC（H16*10）=H16*10）；　〃整〃；〃〃）　　

方法　3、　　

=IF（F10=0；〃〃；CONCATENATE（IF（INT（F10）=0；〃〃；TEXT（INT（F10）；〃＇DBNum2＇G/通用格式元　

〃））；IF（INT（MID（RIGHT（FIXED（F10；2；1）；2）；1；1））=0；IF（INT（MID（RIGHT（FIXED（F10；2；1）；1）；1；1））　

=0；〃〃；IF（INT（F10）=0；〃〃；〃零〃））；TEXT（INT（MID（RIGHT（FIXED（F10；2；1）；2）；1；1））；〃＇DBNum2＇G/通　

用格式角〃））；IF（INT（MID（RIGHT（FIXED（F10；2；1）；1）；1；1））=0；〃整　

〃；TEXT（INT（MID（RIGHT（FIXED（F10；2；1）；1）；1；1））；〃＇DBNum2＇G/通用格式分〃））））　　

方法　4　、　　

人民币大写的函数公式，可正负，最多两位小数。　　

=IF（A1