按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 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 =