作者：乔山办公网日期：
返回目录：excel表格制作
用按钮抄调用vba代码的方式：
1、vba编辑器中编写代码（假设代码的名称袭叫做“宏1”）；
2、在百度EXCEL中插入按钮；
3、在excel中插入的按钮上，单击右键—指定宏知，选择“宏1”；
4、点击按钮，“宏1”将运道行。
删掉重新建复一个按钮
“指定宏”
=================我的是EXCEL2003 改了一下代制码正常运行============
Sub 我的股票()
'
' 宏3 宏
'
'
Sheets("ALLDATA").Select
ip = Range("b6000").End(xlUp).Row
Data = Range("A5:Ak" & ip)
Sheets("BLOCK").Select
ii = Range("b6000").End(xlUp).Row
COL = Range("IV1").End(xlToLeft).Column
============这里末行的 Range("IZ1") 改成了zhidao Range("IV1") ===================
你可以先录制个宏（随便操作一下，例如：点击个单元格等），然后将这个按钮指向这个宏，然后将宏内的代码改成你所需要的内容。再运行该按钮即可。
Sub 按钮1_Click() '顺便精简了一下e799bee5baa6e58685e5aeb9335
Dim c As Integer, d As Integer, a As Integer, b As Integer, i As Integer, y As Integer
Static x as Integer
Dim rg As Range
x = x + 1 '增加一个静态变量，静态变量会保持原来的值，每点击一次自增1
y = x + 204 '局部变量y从205开始，每点击一次+1
For i = 2 To y
c = Sheets("sheet1").Range("F" & i).Value
d = Sheets("sheet1").Range("G" & i).Value
a = c Mod 2
b = d Mod 2
Set rg=Sheets("sheet1").Range("H" & i)
If a And b Then
rg.Value = "单合单跨"
rg.Font.Color = RGB(0, 0, 139)
ElseIf a = 0 And b = 0 Then
rg.Value = "双合双跨"
rg.Font.Color = RGB(139, 69, 0)
ElseIf a And b = 0 Then
rg.Value = "单合双跨"
rg.Font.Color = RGB(80, 52, 45)
Else
rg.Value = "双合单跨"
rg.Font.Color = RGB(110, 123, 139)
End If
Next i
End Sub