Excel word ppt office使用技巧大全(DOC格式)-第66部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
可以＇复制＇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
