新建一工作表。

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。