EXCEL VBA的问题？ EXCEL VBA的问题？

Excel vba\u7684\u95ee\u9898

\u4e00\u3001\u5b9e\u73b0\u529f\u80fd\u8981\u6c42\uff1a\u6c42\u603b\u5206\u3002

1\u3001\u5728Excel\u754c\u9762\u4e2d\uff0c\u521d\u59cb\u6570\u636e\u5982\u4e0b\uff1a

2/7
2\u3001\u8fdb\u5165VBE\u754c\u9762\u4e2d\uff0c\u7f16\u5199\u5982\u4e0b\u4ee3\u7801\uff1a

Sub OnErrorResume()

Dim i%

For i = 2 To 6:

Sheet4.Range("d" & i) = Sheet4.Range("b" & i) + Sheet4.Range("c" & i)

Next

End Sub

3\u3001\u8fd0\u884c\u4ee3\u7801\uff0c\u5219\u62a5\u4e00\u4e0b\u9519\u8bef\uff1b\u9519\u8bef\u539f\u56e0\u4e3a\uff1a\u5305\u542b\u5b57\u7b26\u4e32\u7c7b\u578b\uff1b

3/7
\u63a5\u4e0b\u6765\uff0c\u5c06\u5bf9\u6b64\u9519\u8bef\u8fdb\u884c\u5904\u7406\uff1b

4\u3001\u4fee\u6539\u4ee3\u7801\u4e3a\uff1a

Sub OnErrorResume()

Dim i%

On Error Resume Next '\u9519\u8bef\u65f6\u5219\u6062\u590d\uff1b

For i = 2 To 6:

Sheet4.Range("d" & i) = Sheet4.Range("b" & i) + Sheet4.Range("c" & i)

Next

End Sub

4/7
5\u3001\u70b9\u51fb\u63d2\u5165--\u5f62\u72b6\uff0c\u9009\u62e9\u4e00\u4e2a\u5f62\u72b6\uff1b

6\u3001\u9009\u62e9\u5f62\u72b6\uff0c\u53f3\u952e\u6307\u5b9a\u5b8f\uff0c\u9009\u62e9\u521a\u521a\u5b9a\u4e49\u7684\u5b8fOnErrorResume\uff1b

\u67e5\u770b\u5269\u4f591\u5f20\u56fe
5/7
7\u3001\u8fd0\u884c\u5b8f\uff1b\u5219\u5728\u6709\u5b57\u7b26\u4e32\u7684\u884c\u4e2d\uff0c\u5c06\u4e0d\u6267\u884c\uff0c\u7ee7\u7eed\u6267\u884c\u540e\u9762\u7684\u8bed\u53e5\uff1b

6/7
8\u3001\u5f53\u51fa\u73b0\u67d0\u4e2a\u9519\u8bef\u65f6\uff0c\u76f4\u63a5\u8f93\u51fa\u9519\u8bef\u4f4d\u7f6e\uff1b

Sub onErrorGoTo88()

Dim i%

On Error GoTo 100 '\u51fa\u73b0\u9519\u8bef\u65f6\uff0c\u6267\u884c\u67d0\u6bb5\u8bed\u53e5\uff1b

For i = 2 To 6:

Sheet1.Range("d" & i) = Sheet1.Range("b" & i) + Sheet1.Range("c" & i)

Nexti

Exit Sub

100:

MsgBox ("´\u00edÎ\u00f3³öÏÖÔÚ" & i & "ÐÐ")

Return

End Sub

7/7
\u7efc\u4e0a\u6240\u8ff0\uff0c\u672c\u6587\u63d0\u4f9b\u4e24\u79cd\u65b9\u6cd5\uff1a

1\u3001On Error Resume Next:\u5ffd\u7565\u9519\u8bef\uff1b

2\u3001On Error GoTo line:\u9519\u8bef\u65f6\u8df3\u8f6c\u5230\u5176\u4ed6\u6267\u884c\u8bed\u53e5\uff1b

\u6765\u5bf9\u9519\u8bef\u8bed\u53e5\u8fdb\u884c\u5904\u7406\u3002

Sub mN()
Dim i%, r%
r = Range("o65536").End(xlUp).Row
For i = 1 To r
If InStr(Cells(i, 15).Text, "\u5176\u4ed6") Then
Range(Cells(i, 15), Cells(i, 1)).NumberFormat = "h:m"
End If
Next
End Sub

在编辑状态下，右击这个 按钮，选择“属性”选项。

然后把它的 名称 从 CommandButton1 手动更改成 CommandButton100。回车后即可：

更改前

更改后

‍看不太懂你说的意思。看看是否是我理解的意思
1、开发工具，插入ActiveX按钮。
2、修改俺就名称为 commandbutton100
3、右单机按钮点查看代码，增加代码就行了。

扩展阅读：vba编程必背50个程序 ... 快学excel vba入门教程 ... vba编程代码对照表 ... 初学vba编程100个代码 ... 表格vba编程怎样使用 ... excel中如何开启vba ... excel vba实例详解 ... 教你vba编程快速入门 ... excel里的vba功能怎么使用 ...