友情提示:如果本网页打开太慢或显示不完整,请尝试鼠标右键“刷新”本网页!
Excel word ppt office使用技巧大全(DOC格式)-第13部分
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 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中,就使用了数组常数进行计算。 常数数组可以是一维的也可以是二维的。
一维数组可以是垂直的也可以是水平的。在一维水平数组中的元素用逗号分开。下面是一个一
维数组的例子。例如数组:{10;20;30;40;50}。在一维垂直数组中的元素用分号分开。在下面
的例子是一个6×1的数组,{100;200;300;400;500;600}。
对于二维数组,用逗号将一行内的元素分开,用分号将各行分开。下一个例子是―4 ×4‖ 的数
组(由4行4列组成):{100;200;300;400;110; 〃 〃 ;130;230;330;440}。 注意:不可以在
数组公式中使用列出常数的方法列出单元引用、名称或公式。例如: {2*3;3*3;4*3}因为列出
了多个公式,是不可用的。{A1;B1;C1}因为列出多个引用,也是不可用的。不过可以使用一个
区域,例如{A1:C1}。 对于数组常量的内容,可由下列规则构成: 数组常量可以是数字、文
字、逻辑值或错误值。 数组常量中的数字,也可以使用整数、小数或科学记数格式。
CXXXIII
…………………………………………………………Page 134……………………………………………………………
Excel_word_ppt_使用技巧大全(完全版)
文字必须以双引号括住。 同一个数组常量中可以含有不同类型的值。 数组常量中的值必须是
常量,不可以是公式。 数组常量不能含有货币符号、括号或百分比符号。 所输入的数组常量
不得含有不同长度的行或列。 7。12。3 数组的编辑 数组包含数个单元格,这些单元格形成一
个整体,所以,数组里的某一单元格不能单独编辑。在编辑数组前,必须先选取整个数组。 选
取数组的步骤为: (1) 选取数组中的任一单元格。 (2) 在―编辑‖菜单中选择―定位‖命令或者
按下'F5'键,出现一个―定位‖对话框。按下―定位条件‖按钮,出现一个定位条件对话框,如图
7…40所示。 选择―当前数组‖选项,最后按下―确定‖按钮,就可以看到数组被选定了。 编辑数
组的步骤为: 选定要编辑的数组,移到数据编辑栏上按'F2'键或单击左键,使代表数组的括号
消失,之后就可以编辑公式了。编辑完成后,按下'Shift' +'Ctrl' + 'Enter'键。 若要删除
数组,其步骤为:选定要删除的数组,按'Ctrl'+'Delete'或选择编辑菜单中的―清除‖命令。
7。12。4 数组的扩充 在公式或函数中使用数组常量时,其它运算对象或参数应该和第一个数组
具有相同的维数。必要时,Microsoft Excel 会将运算对象扩展,以符合操作需要的维数。每
一个运算对象的行数必须和含有最多行的运算对象的行数一样,而列数也必须和含有最多列数
对象的列数一样。 例如: = SUM({1;2;3}+{4;5;6})内的第一个数组为1×3;得到的结果为1+4、
2+5和3+6的和;也就是21。如果将公式写成 = SUM({1;2;3}+4});则第二个数据并不是数组,
而是一个数值,为了要和第一个数组相加,Excel 会自动将数值扩充成1 ×3 的数组。使用
=SUM({1;2;3}+{4;4;4})做计算,得到的结果为1+4、2+4和3+4的和; 即18。
CXXXIV
…………………………………………………………Page 135……………………………………………………………
Excel_word_ppt_使用技巧大全(完全版)
将数组公式输入单元格区域中时,所使用的维数应和这个公式计算所得数组维数相同。这样,
Microsoft Excel 才能把计算所得的数组中的每一个数值放入数组区域的一个单元格内。 如
果数组公式计算所得的数组比选定的数组区域还小,则 Microsoft Excel会将这个数组扩展,
以 便 将 它 填 入 整 个 数 组 区 域 内 。 例 如 : ={1;2;3;4}*2 扩 充 后 的 公 式 就 会 变 为
={1;2;3;4}*{2;2;2;2},则相应的计算结果为―2;4;6;8‖ 。再如:输入公式={1;2;3;4}*{2;3}
扩充后的公式就会变为={1;2;3;4}*{2;3;2;3} ,则相应的计算结果为―2;6;6;12‖ 。 如果
Microsoft Excel 将一个数组扩展到可以填入比该数组公式大的区域内,而没有扩大值可用的
单元格内,这样就会出现#N/A错误值。例如:={1;2;3;4}={1;2;3} 扩充后的公式就会变为
={1;2;#N/A;3;4;#N/A}*{1;2;#/A;1。2。#N/A} ,而相应的计算结果为―2;4;#N/A;4;6;#N/A‖ 。
如果数组公式计算所得的数组比选定的数组区域还要大,则超过的值不会出现在工作表上。
EXCEL中的自动宏 如果想作一个在EXCEL工作薄打开时就自动执行的宏; 请将此宏的名称;取
为auot_open; 如果在打开excel工作薄时不执行自动宏; 只须按信SHIFT键就可以了
为什么不用Workbook_Open呢?
'分享'如何将多个工作表一次设置成同样的页眉和页脚?如何才能一次打印多个工作表? 如
果在一个Excel文件中含有多个工作表,如何将多个工作表一次设置成同样的页眉和页脚?如
何才能一次打印多个工作表? 把鼠标移到工作表的名称处(若你没有特别设置的话,Excel
自动设置的名称是―sheet1、sheet2、sheet3。。。。。。。‖ ),然后点右键,在弹出的菜单中选择―选
择全部工作表‖ 的菜单项,这时你的所有操作都是针对全部工作表了,不管是设置页眉和页脚
还是打印你工作表。 当然,如果只选择其中几个工作表,你可用ctrl或shift与鼠标结合选择
如何在EXCEL中加入自定义函数 我是OFFICE菜鸟;请问各位大侠; 如何在EXCEL中把定义好的
宏加入自定义函数中
要在一般模块中定义好了自然就是自定义函数〃例如 Function abc () Msgbox ―Hi!‖ End
function 就有一个自定义函数abc啰
'分享'避开Excel的误差 微软的Excel软件在财务应用领域使用得非常广泛、被许多单位用来
处理财务数据。笔者就是用Excel来为单位做工资表的,不过笔者在使用过程中发现,当用Excel
进行复杂算术运算时,其计算出来的结果有时会与电子计算器的结果有些微小的差别,特别是
在进行多项除法运算而留有余数的情况下,算术―误差‖很容易产生,究其原因,就是Excel在
除不尽的情况下,不会自动对数值进行四舍五入的操作。这在要求严格的财务报表上当然是不
允许的,避开这种―误差‖ 的途径有两种:
CXXXV
…………………………………………………………Page 136……………………………………………………………
Excel_word_ppt_使用技巧大全(完全版)
1. 利用Round函数对中间值四舍五入 Excel中Round函数的格式为:Round(数值,保留的小数
位数),它的作用就是对指定�
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部!
温馨提示: 温看小说的同时发表评论,说出自己的看法和其它小伙伴们分享也不错哦!发表书评还可以获得积分和经验奖励,认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦!