按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
中全表—复制— （在原位置）选择性粘贴—数值。请问用 VBA 语句如何编写？
388
…………………………………………………………Page 389……………………………………………………………
解答：請參考
With Cells
。Copy
。PasteSpecial Paste：=xlPastevalues
。Cells（1； 1）。Select
Application。CutCopyMode = False
End With
2、For Each x in 所有公式单元格
If Not x。Formula = 〃〃 Then
数值 = x。value
x。Formula = 〃〃
x。value = 数值
End If
Next
工作薄打开后个一分钟自动保存关闭，怎么写代码
1、 在 thiswork 中写入代码：
Private Sub Workbook_Open（）
Me。RefreshAll
Application。OnTime Now ＋ Timevalue （〃00：01：00〃）； 〃Close_Me〃
End Sub
添加模块并写入代码：
Sub Close_Me（）
ThisWorkbook。Save
ThisWorkbook。Close
End Sub
389
…………………………………………………………Page 390……………………………………………………………
我想把一个 sheet 拷贝后选择性粘贴为一个新的 sheet；怎么做
答：添加模块：
Sub test（）
ThisWorkbook。Save
Sheet1。Move
With ActiveWorkbook。ActiveSheet。Cells
。Copy
。PasteSpecial Paste：=xlPasteValues
。Cells（1； 1）。Select
Application。CutCopyMode = False
End With
ThisWorkbook。Saved = True
ThisWorkbook。Close
End Sub
如何利用列标自动求和
当光标指在F1 时；能否利用 COLUMN（）求 A1…E1 和，当光标指在 G1 时；能否利用 COLUMN（）
求 A1…F1 和；而不用改变公式，比如：SUM（A1：？）；就是说写个式子代替？；利用 COLUMN（） 自动算
出最后列
1、=SUM（A1：INDIRECT（ADDRESS（ROW（）；COLUMN（）…1；4）））
应该为：=SUM（INDIRECT（〃R1C1：R1C〃&COLUMN（）…1；0））
2 、 用 VB
新建一个工作表，在 sheet1 的代码窗口中录入如下代码：
Private Sub Worksheet_SelectionChange（ByVal Target As Range）
Dim iRow； iCol； iCol_rn As Integer
Dim Str1 As String
iRow = Target。Row
iCol = Target。Column
Range（〃M1〃）。ClearContents
iCol_rn = ＇A1＇。End（xlToRight）。Column
Str1 = Range（Cells（1； iCol_rn）。Address）。Address
If Target。Rows。Count 》= 2 Then GoTo Err
If iRow = 1 And iCol 》= 2 And iCol 2 And Row 《 21 Then
a = Target。Value
Target。Value = a * 10。22 * 20
End If
End Sub
解答：Private Sub Worksheet_Change（ByVal Target As Range）
Application。EnableEvents = False
If Target。Column = 6 And Target。Row 》 2 And Row 《 21 Then
a = Target。Value
Target。Value = a * 10。22 * 20
End If
Application。EnableEvents = True
End Sub
自动输入 ‘要点’两个字
工作表中有 500 行数据、F3 中包含红色的字符、F7 中包含红色的字符、。。。。。
想要达成的目的：如果 F 列的单元格中包含红色的字符，则在其同一行的 G 列中自动输入〃要
点〃两个字。请高手赐教！！
解答：有一個取巧的方法；請參考
On Error Resume Next
For i = 1 To 500
Color_Index = Cells（i； 〃F〃）。Font。ColorIndex
If IsNull（Color_Index） Then
Cells（i； 〃G〃） = 〃要點〃
End If
Next i
表格更新
是这样的，比如我已经有了一个原始表格 A，这时有人通知我A 表有错误，须加以修改，并给
391
…………………………………………………………Page 392……………………………………………………………
我一个表 B，表B 列出了须修改的参数（注意 B 的列数少于A 的列数，因A 的其它列无需修改）。
现在问题是如何根据表 B 中的新值，在表A 中找到相应位置，并加以修改。比如表B 中列出了
10002 的JOHN 的身高和体重等值需要修改，如何在A 中找到 10002 的相应位置（身高体重），
并加以修改。
解答：建议将表 B 复制至表 A 的 SHEET2，然后执行下列的宏即可
Sub change（）
Dim dd As Range
Sheets（2）。Select
lastcell = Range（〃a65536〃）。End（xlUp）。Row
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