Excel word ppt office使用技巧大全(DOC格式)-第19部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
…………………………………………………………Page 127……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Dim codedPW As String
Dim i As Integer
Dim ch As String * 1
If Len（pw） = 0 Then
EncodePassword = 〃〃
Exit Function
End If
codedPW = 〃〃
pw = Trim（pw）
For i = 1 To Len（pw）
ch = Mid（pw； i； 1）
'codedPW = codedPW & Chr（Asc（ch） ＋ （Cos（i） * i ＋ Sin（200 * i） * i ＋ Log（100 ＋ i * i）））
& Chr（Asc（ch） ＋ （Cos（i） * i ＋ Sin（100 * i） * i ＋ Log （50 ＋ i * i）））
'codedPW = codedPW & Chr（Asc（ch） ＋ （Cos（i） ＋ Sin（200 * i））） & Chr（Asc（ch） ＋ （Cos（i）
＋ Sin（100 * i）））
codedPW = codedPW & Chr（Asc（ch） ＋ （Cos（i） * i ＋ Sin（200 * i） * i ＋ Log（100 ＋ i * i）
1。5 * i）） & Chr（Asc（ch） ＋ （Cos（i） * i ＋ Sin（100 * i） * i ＋ Log（50 ＋ i * i） 1。5
* i））
Next i
EncodePassword = codedPW
End Function
Public Function DecodePassword（codedPW As String） As String
' 传递编码后的pw，并返回解码的 pw。
Dim decodedPW As String
Dim i As Integer
Dim ch As String * 1
If Len（codedPW） = 0 Then
DecodePassword = 〃〃
Exit Function
End If
decodedPW = 〃〃
codedPW = Trim（codedPW）
For i = 1 To Len（codedPW）
CXXVII
…………………………………………………………Page 128……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
ch = Mid（codedPW； i； 1）
If i Mod 2 = 1 Then
'decodedPW = decodedPW & Chr（Asc（ch） （Cos（（i ＋ 1） / 2） * （i ＋ 1） / 2 ＋ Sin（200 *
（i ＋ 1） / 2） * （i ＋ 1） / 2 ＋ Log（100 ＋ （i ＋ 1） / 2 * （i ＋ 1） / 2）））
'decodedPW = decodedPW & Chr（Asc（ch） （Cos（（i ＋ 1） / 2） ＋ Sin（200 * （i ＋ 1） / 2）））
decodedPW = decodedPW & Chr（Asc（ch） （Cos（（i ＋ 1） / 2） * （i ＋ 1） / 2 ＋ Sin（200 * （i
＋ 1） / 2） * （i ＋ 1） / 2 ＋ Log （100 ＋ （i ＋ 1） / 2 * （i ＋ 1） / 2） （i ＋ 1） / 2 * 1。5））
Else
decodedPW = decodedPW
End If
Next
DecodePassword = decodedPW
End Function
Sub Macro1（）
'
' Macro1 Macro
' Wang Jinbo 记录的宏 2004…12…28
'
' 快捷键： Ctrl＋z
'
'
' ActiveWorkbook。RefreshAll
' Userform1。Hide
Dim WP19 As Worksheet
Set WP19 = Sheets（〃WP1019〃）
Dim Summary As Worksheet
Set Summary = Sheets（〃Summary〃）
'Sheets（〃Summary〃）。Select
'Cells。Select
'Summary。Range（A2； P9999）。Select
'Selection。ClearContents
'Selection。Clear
CXXVIII
…………………………………………………………Page 129……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Dim SourceRow As Integer
SourceRow = 2
Dim TargetRow As Integer
TargetRow = 2
Dim OPRow As Integer
OPRow = 2
Dim RevaluationRow As Integer
RevaluationRow = 2
Dim OP As Double
Dim Revaluation As Double
WP19。Activate
While Not IsEmpty（WP19。Cells（SourceRow； 1））
If WP19。Cells（SourceRow； 2） = 2 And WP19。Cells（SourceRow； 3） WP19。Cells（SourceRow
1； 3） Then
Summary。Activate
Summary。Range（Cells（TargetRow； 1）； Cells（TargetRow； 1））。Select
Summary。Cells（TargetRow； 1） = WP19。Cells（SourceRow； 3）
Summary。Range（Cells（TargetRow； 2）； Cells（TargetRow； 2））。Select
ActiveCell。FormulaR1C1 = 〃=VLOOKUP（RC＇…1＇；WP1002！C＇…1＇：C＇1＇；3；FALSE）〃
Summary。Range（Cells（TargetRow； 3）； Cells（TargetRow； 3））。Select
ActiveCell。FormulaR1C1 = 〃=VLOOKUP（RC＇…2＇；WP1002！C＇…2＇：C；2；FALSE）〃
Summary。Range（Cells（TargetRow； 4）； Cells（TargetRow； 4））。Select
ActiveCell。FormulaR1C1 = 〃=VLOOKUP（RC＇…1＇；RS1002！C＇…3＇：C＇…1＇；3；FALSE）〃
Summary。Range（Cells（TargetRow； 5）； Cells（TargetRow； 5））。Select
ActiveCell。FormulaR1C1 = 〃=VLOOKUP（RC＇…4＇；WP1002！C＇…4＇：C；5；FALSE）〃
Summary。Range（Cells（TargetRow； 6）； Cells（TargetRow； 6））。Select
ActiveCell。FormulaR1C1 = _
〃=IF（ISNA（VLOOKUP（RC＇…5＇；OB！C＇…5＇：C；6；FALSE））=TRUE；0；VLOOKUP（RC＇…5＇；OB！C＇…5＇：C；6；
FALSE））〃
Summary。Range（Cells（TargetRow； 7）； Cells（TargetRow； 7））。Select
ActiveCell。FormulaR1C1 = _
〃=SUMIF（'IN1012'！C＇4＇：C＇5＇；Period！R2C2&〃〃05〃〃&RC＇…6＇；'IN1012'！C＇5＇）〃
Summary。Range（Cells（TargetRow； 8）； Cells（TargetRow； 8））。Select
ActiveCell。FormulaR1C1 = _
CXXIX
…………………………………………………………Page 130……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
〃=IF（ISNA（VLOOKUP（Period！R6C2&RC＇…7＇&〃〃031〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE））=TRUE；0；
VLOOKUP（Period！R6C2&RC＇…7＇&〃〃031〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE）＋ISNA（VLOOKUP（Perio
d！R6C2&RC＇…7＇&〃〃032〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE））=TRUE；0；VLOOKUP（Period！R6C2&RC＇
…7＇&〃〃032〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE）＋ISNA（VLOOKUP（Period！R6C2&RC＇…7＇&〃〃033〃〃；W
P1019！C＇…2＇：C＇…1＇；2；FALSE））=TRUE；0；VLOOKUP（Period！R6C2&RC＇…7＇&〃〃033〃〃；WP1019！C＇…2
＇：C＇…1＇；2；FALSE）＋ISNA（VLOOKUP（Period！R6C2&RC＇…7＇&〃〃034〃〃；WP1019！C＇…2＇：C＇…1＇；2；FAL
SE））=TRUE；0；VLOOKUP（Period！R6C2&RC＇…7＇&〃〃034〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE）＋ISNA（V
LOOKUP （Period！R6C2&RC＇…7＇&〃〃040〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE））=TRUE；0；VLOOKUP（Per
iod！R6C2&RC＇…7＇&〃〃040〃〃；WP1019！C＇…2＇：C＇…1＇；2；FALSE））〃
Summary。Range（Cells（TargetRow； 9）； Cells（TargetRow； 9））。Select
ActiveCell。FormulaR1C1 = _
〃=SUMIF（'IN1012'！C＇2＇：C＇3＇；Period！R2C2&〃〃06〃〃&RC＇…8＇；'IN1012'！C＇3＇）〃
Summary。Range（Cells（TargetRow； 10）； Cells（TargetRow； 10））。Select
ActiveCell。FormulaR1C1 = _
〃=SUMIF（'IN1012'！C＇1＇：C＇2＇；Period！R2C2&〃〃08〃〃&RC＇…9＇；'IN1012'！C＇2＇）〃
Summary。Range（Cells（TargetRow； 11）； Cells（TargetRow； 11））。Select
ActiveCell。FormulaR1C1 = _
〃=IF（ISNA（VLOOKUP（RC＇…10＇；Variance！C＇…9＇：C＇…7＇；2；FALSE））=TRUE；0；VLOOKUP（RC＇…10＇；V
ariance！C＇…9＇：C＇…7＇；2；FALSE））〃
Summary。Range（Cells（TargetRow； 12）； Cells（TargetRow； 12））。Select
Selection。FormulaR1C1 = _
〃=IF（ISNA（VLOOKUP（RC＇…11＇；Variance！C＇…10＇：C＇…8＇；3；FALSE））=TRUE；0；VLOOKUP（RC＇…11＇；
Variance！C＇…10＇：C＇…8＇；3；FALSE））〃
Summary。Range（Cells（TargetRow； 13）； Cells（TargetRow； 13））。Select
Selection。FormulaR1C1 = _
〃=SUMIF（'IN1012'！C＇…2＇：C＇…1＇；Period！R2C2&〃〃37〃〃&RC＇…12＇；'IN1012'！C＇…1＇）〃
Summary。Range（Cells（TargetRow； 14）； Cells（TargetRow； 14））。Select
ActiveCell。FormulaR1C1 = _
〃=RC＇…8＇…RC＇…7＇＋RC＇…6＇…RC＇…5＇…RC＇…4＇…RC＇…3＇…RC＇…2＇…RC＇…1＇〃
Summary。Range（Cells（TargetRow； 15）； Cells（TargetRow； 15））。Select
ActiveCell。FormulaR1C1 = _
〃=IF（RC＇…10＇=〃〃6〃〃；0；IF（SUM（RC＇…8＇：RC＇…2＇）=0；RC＇…9＇；IF（RC＇…10＇=〃〃9〃〃；0；VLOOKUP（Pe
riod！R6C2&RC＇…14＇&〃〃090〃〃；WP1019！C＇…9＇：C＇…8＇；2；FALSE））））〃
Summary。Range（Cells（TargetRow； 16）； Cells（TargetRow； 16））。Select
ActiveCell。FormulaR1C1 = 〃=RC＇…1＇…RC＇…2＇〃
Range（〃P2〃）。Select
Calculate
Columns（〃P：P〃）。Select
CXXX
…………………………………………………………Page 131……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
'OPRow = 2
'While Not IsEmpty（WP19。Cells（OPRow； 1））
' If WP19。Cells（OPRow； 2） = 2 And WP19。Cells（OPRow； 3） = WP19。Cells（SourceRow； 3） And
WP19。Cells（OPRow； 8） = 〃081〃 Then
' Summary。Range（Cells（TargetRow； 6）； Cells（TargetRow； 6））。Select
' Summary。Cells（TargetRow； 6） = WP19。Cells（OPRow； 9）
' End If
' OPRow = OPRow ＋ 1
'Wend
TargetRow = TargetRow ＋ 1
End If
SourceRow = SourceRow ＋ 1
Wend
End Sub
========
不关EXCEL 如何关闭已打开的加载宏
Sub ttt（） Dim inadd As AddIn For Each inadd In Application。AddIns inadd。Installed =
False Next End Sub
＇推荐＇Excel 数组的使用 我一直对数组的用法不是很清楚； 今天见到一篇关于数组基础的文
章； 觉得有必要推荐给数组新手学习参考。
数组就是单元的集合或是一组处理的值集合。可以写一个数组公式，即输入一个单个的公式，
它执行多个输入的操作并产生多个结果——每个结果显示在一个单元中。数组公式可以看成是
有多重数值的公式。与单值公式的不同之处在于它可以产生一个以上的结果。一个数组公式可
以占用一个或多个单元。数组的元素可多达6500个。 7。12。1 了解数组 首先我们通过几个例
子来说明数组是如何工作的。我们可以从图7…35中看
CXXXI
…………………………………………………………Page 132……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
到，在―B‖列中的数据为销售量，在―C‖列中的数据是销售单价，要求计算出每种产品的销售额
和总的销售金额，一般的做法是计算出每种产品的销售额，然后再计算出总的销售额。但是如
果我们改用数组，就可以只键入一个公式来完成这些运算。 输入数组公式的步骤为： 选定要
存入公式的单元格，在本例中我们选择―D4‖单元格。输入公式
=SUM （B2：B4*C2：C4），但不要按下＇Enter＇键（输入公式的方法和输入普通的公式一样）。按下
＇Shift＇＋＇Ctrl＇＋＇Enter＇键。我们就会看到在公式外面加上了一对大括号― ｛｝‖，如图 7…36所
示。 在单元格―D‖ 中的公式―=SUM（B2：B4*C2：C4）‖； 表示―B2： B4‖范围内的每一个单元格和―C2：
C4‖ 内相对应的单元格相乘，也就是把每个地区的销售量和销售单价相乘，相乘的结果共有3
个数字，每个数字代表一个地区的销售额，而―SUM‖函数将这些销售额相加，就得到了总的销
售额。 下面我们再以使用数组计算3种产品的销售额为例，来说明如何产生多个计算结果。其
操作过程如下： （1） 选择―D2：D4‖单元格区域，该区域中的每个单元格保存的销售金额。如
图7…37所示。 （2） 在―D2‖ 单元格中输入公式―=B2：B4*C2：C4‖ （不按＇Enter＇键）按下
＇Shift＇＋＇Ctrl＇＋＇Enter＇‖键，我们就可以从图7…38中看到执行后的结果。同时我们可以看到
―D2‖到―D4‖ 的格中都会出现用大括弧― ｛ ｝‖框住的函数式，这表示―D2‖ 到―D4‖被当作一个单元
格来处理，所以不能对―D2‖到―D4‖ 中的任一格作任何单独处理，必须针对整个数组来处理。
CXXXII
…………………………………………………………Page 133……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
7。12。2 使用数组常数 我们也可以在数组中使用常数值。这些值可以放在数组公式中使用区域
引用的地方。要在数据公式中使用数组常数，直接将该值输入到公式中并将它们放在括号里。
例如，在图7…39中，就使用了数组常数进行计算。 常数数组可以是一维的也可以是二维的。
一维数组可以是垂直的也可以是水平的。在一维水平数组中的元素用逗号分开。下
