如何写excel宏代码（excel宏代码怎么写）
大家好,飞飞今天来为大家解答以下的问题，关于如何写excel宏代码，excel宏代码怎么写这个很多人还不知道,那么下面让我带着大家一起来看看吧！
新建一工作表。
2、在sheet1中插入一个艺术字（艺术字将成为按钮）。
3、右击艺术字→指定宏→新建。
4、复制以下代码，就会在sheet1的A列中出现结果。
（若要随机可插入Rnd函数）。
Sub 艺术字1_单击()step_a: a = InputBox("A的比例（请输入数字）：") If Not (IsNumeric(a)) Then MsgBox "输入不是数字，程序终止。
" Exit Sub End If a1 = a / 100 * 350 If a1 <> Int(a1) Then MsgBox "A的个数=350*" & a & "%=" & a1 & "个，数量不是整数，请重新输入。
" GoTo step_a End If step_b: b = InputBox("B的比例（请输入整数）：") If Not (IsNumeric(b)) Then MsgBox "输入不是数字，程序终止。
" Exit Sub End If b1 = b / 100 * 350 If b1 <> Int(b1) Then MsgBox "B的个数=350*" & b & "%=" & b1 & "个，数量不是整数，请重新输入。
" GoTo step_b End IfMsgBox "C的比例=1-A的比例-B的比例=" & 100 - a - b & "%"Sheet1.Cells(1, 2) = "A的数量= " & a1 & "个"Sheet1.Cells(2, 2) = "B的数量= " & b1 & "个"Sheet1.Cells(3, 2) = "C的数量= " & 350 - a1 - b1 & "个"For i = 1 To a1 Sheet1.Cells(i, 1) = "A"Next iFor i = i To a + b1 Sheet1.Cells(i, 1) = "B"Next iFor i = i To 350 Sheet1.Cells(i, 1) = "C"Next iEnd Sub。
本文分享完毕，希望对大家有所帮助哦。
版权声明：本文由用户上传，如有侵权请联系删除！