excel宏代码表格excel宏代码怎么写

大家好，今日小数来聊聊一篇关于excel宏代码大全表格，excel宏代码怎么写的文章，现在让我们往下看看吧！

1、新建一工作表。

2、2、在sheet1中插入一个艺术字（艺术字将成为按钮）。

3、3、右击艺术字→指定宏→新建。

4、4、复制以下代码，就会在sheet1的A列中出现结果。

5、（若要随机可插入Rnd函数）。

6、Sub 艺术字1_单击()step_a: a = InputBox("A的比例（请输入数字）：") If Not (IsNumeric(a)) Then MsgBox "输入不是数字，程序终止。

7、" Exit Sub End If a1 = a / 100 * 350 If a1 Int(a1) Then MsgBox "A的个数=350*" & a & "%=" & a1 & "个，数量不是整数，请重新输入。

8、" GoTo step_a End If step_b: b = InputBox("B的比例（请输入整数）：") If Not (IsNumeric(b)) Then MsgBox "输入不是数字，程序终止。

9、" Exit Sub End If b1 = b / 100 * 350 If b1 Int(b1) Then MsgBox "B的个数=350*" & b & "%=" & b1 & "个，数量不是整数，请重新输入。

10、" 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。

本文到此分享完毕，希望对大家有所帮助。

这篇好文章是转载于：知行礼动