按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
For Each dd In Range（Cells（2； 1）； Cells（lastcell； 1））
If dd = 〃〃 Then Exit Sub
ff = dd。value
Set c = Sheets（1）。Columns（1）。Find（ff； lookat：=xlWhole）
If Not c Is Nothing Then
c。Offset（0； 2） = dd。Offset（0； 2）
c。Offset（0； 3） = dd。Offset（0； 3）
c。Offset（0； 5） = dd。Offset（0； 4）
End If
Next
End Sub
公式的自动填充
一张表中某几个不连续的列有公式，我不想一次全复制下去，最好是让它自动填充上一行的公
式，这样用多少就自动填下去，不知道有没有办法。
解答：Dim Mrow； Xrow； i As Integer
Mrow = Range（〃a65536〃）。End（xlUp）。Row
Xrow = Range（〃d65536〃）。End（xlUp）。Row ＋ 1
Application。ScreenUpdating = False
For i = Xrow To Mrow
If Cells（i； 1） 〃〃 Then
Cells（i； 4） = Cells（i 1； 4） ＋ Cells（i； 2） Cells（i； 3）
Cells （i； 6） = Cells（i； 2） * Cells（i； 5）
Cells（i； 8） = Cells（i 1； 8） Cells（i； 7） ＋ Cells（i； 6）
Cells（i； 7） = Cells（i； 5） * Cells（i； 3）
End If
Next i
Application。ScreenUpdating = True
先输入其它列数据；最后再输入日期。
我想 A1 的值=A1＋B1；其中B1 为变量，A1 为累计值
解答 1：用VBA 实现。
For i=1 to n
392
…………………………………………………………Page 393……………………………………………………………
A1=sheet1。cells（1；1）
A1=A1＋B1
sheet1。cells（1；1）=A1
next n
解答 2：好象不用那么麻烦。选择B1 单元格，复制，选择 A1 单元格，选择性粘贴 （数值，加）
即可。
让〃工资总计〃等于几个打开的各个工作薄的最后一个工作表中的〃工资〃和
解答：把几个〃工资〃单元格定义为名称〃工资〃（方法：插入/名称/定义；在引用位置中选中几个
要相加的单元格；把这些区域定义为〃工资〃）；在〃工资总计〃中输入公式 =sum（工资） 即可！或：
先打开宏记录器，然后你手工做一遍，最后停止纪录，在 vba 编辑其中编辑相应的代码即可！
如果只是想用公式解决，可以用 sum 函数，利用三维引用可以解决此问题
方法 3：Sub DD（）
For i = 1 To Workbooks。Count
'bookname = Workbooks（i）。Name
'If bookname 〃name〃 Then '可自行判断名称〃主控 Workbook〃不列入加总
last = Workbooks（i）。Sheets。Count '最后一页（亦可用 SHEETS 名称判断加总）
sum1 = sum1 ＋ Workbooks（i）。Sheets（last）。Range（〃a1〃） 'A1：工资
'End If
Next i
＇B1＇ = sum1
End Sub
有两个表，表 1、表 2，其中的数据有相同的，如何比较出两个表中的相同的数据
解答：For i=1 to a（行数）
For j=1 to b（列数）
Da（i；j）=sheets（1）。cells（i；j）
Db（i；j）=sheets（2）。cells（i；j）
Next j
Next i
For i=1 to a（行数）
For j=1 to b（列数）
For m=1 to a（行数）
For n=1 to b（列数）
If Da（i；j）= Db（m；n） then
K=k＋1
sheets（3）。cells（k；1）= Da（i；j）
end if
Next n
Next m
Next j
Next i
或：用函数 vlookup 寻找即可。
393
…………………………………………………………Page 394……………………………………………………………
请问如何在窗体中播放动画
解答：Sub 动画 （）
'先作个快取图案
ActiveSheet。Shapes（〃AutoShape 1〃）。Select
For x = 1 To 800 Step 0。5
Selection。Left = x
Next
Selection。Left = 1
End Sub
在 Excel 中；如何用程控某一单元格不可编辑修改
解答：在 XP 中：
Private Sub Workbook_Open（）
ProtectSpecialRange （〃A1〃）
End Sub
Sub ProtectSpecialRange（RangeAddress As String）
On Error Resume Next
With Sheet1
。Cells。Locked = False
。Range（RangeAddress）。Locked = True
。Protection。AllowEditRanges。Add Title：=〃区域 1〃； Range：=Range（RangeAddress） _
； Password：=〃pass〃
。Protect DrawingObjects：=True； Contents：=True； Scenarios：=True
End With
End Sub
mandBars 的OnUpdate 事件
解答：'这类事件可预置：
'1。插入类模块；并将其命名为 MyEventClass；键入：
Public WithEvents mandBars As mandBars
Private Sub mandBars_OnUpdate（）
'建议该用事件来处理自定义的 mandBars 的变更；还要用在其它地方
If Sheet1。＇a2＇ = 0 Then End '设置退出开关；以免不停地〃OnUpdate〃
Sheet1。＇a1＇ = Now
End Sub
'2。在 Sheet1 中键入：
Dim myClassModule As New MyEventClass
Private Sub Worksheet_SelectionChange（ByVal Target As Range）
＇a1＇。NumberFormatLocal = 〃h：mm：ss；@〃'设定 A1 时间显示格式
Set myClassModule。mandBars = Application。mandBars
End Sub
394
…………………………………………………………Page 395……………………………………………………………
多张工作表如何排序和查找
如果在一个文件 book 中有很多工作表，比如 150 个，每个都有自己 的名称，如果我想很快的
找到我想要找的工作表，有没有什么方法？可以将工作表排序或查找吗？我们单位在做基本养
老保险的工作，一个人一张表，要找到某个人很麻烦，希望高手帮忙，excel 有这方面的功能
吗？
解答：做个索引表，插入超级链接来链接各表
或用宏：Sub 宏 1（）
Dim myIndexSheet As Worksheet； Sht As Worksheet； a As Long
Set myIndexSheet = Worksheets。Add
a = 1
For Each Sht In Worksheets
a = a ＋ 1
myIndexSheet。Cells（a； 〃A〃）。Value = Sht。Name
Sht。Hyperlinks。Add myIndexSheet。Cells（a； 〃A〃）； 〃〃〃〃 & Sht。Name & 〃！A1〃〃〃〃〃
End With
Next Sht
End Sub （不行）
将表格的外框线和框内线条设置永久有效的方法
将表格的外框线和框内线条设置为不同格式，但在打印时却无法将每一页的底部外框线自动设
为和其它三条边线一致，每次都必须手工设置（那可是几十页哦！），而且如果换一台打印机的
话就会前功尽弃，怎么能够做到一劳永逸？
解答：打印文件前试试运行以下的代码。打印后关闭文件时不要存盘，否则下次要把格式改回
来就痛苦了。（当然你也可以另写代码来恢复原来的格式）：
Sub detectbreak（）
mycolumn = Range（〃A1〃）。CurrentRegion。Columns。Count
Set myrange = Range（〃A1〃）。CurrentRegion
For Each mycell In myrange