您的位置:首页 >房产频道 > 要闻动态 >

excel的宏怎么写(excel宏代码怎么写)

导读 大家好,今天小六子来为大家解答以下的问题,关于excel的宏怎么写,excel宏代码怎么写这个很多人还不知道,现在让我们一起来看看吧!1、新建

大家好,今天小六子来为大家解答以下的问题,关于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。

本文分享完毕,希望对你有所帮助。

免责声明:本文由用户上传,如有侵权请联系删除!