作者：乔山办公网日期：
返回目录：excel表格制作
Sub danjia()
Dim i%
r = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To r
Select Case Cells(i, 2)
Case Is < 500
Cells(i, 3) = 500 * 0.95
Case Is < 600
Cells(i, 3) = 500 * 0.95
Case Is < 1000
Cells(i, 3) = 500 * 0.8
Case Is < 5000
Cells(i, 3) = 500 * 0.7
Case Is >= 5000
Cells(i, 3) = 500 * 0.6
End Select
Next
End Sub
首先，需要在excel中添加加载项--数据分析库，然后就可以进行数据自动生成了，以zd专业的术语叫做“随机数发生器”。依次点击：excel选项-加载项-转到，进行分析工具库的添加工作。
分析工具库添加完成之后，在excel的“数据”选项卡上，最右侧会多出一个“分析”的菜单栏，点击“数据分析”。
选择“数据分析”下的“随机数发生器”。
弹出的界面上，为随机数发生器的参数设置界面。其中，变量个数=生成数据列数、随机数个数=生成数据行数，专比如，设置：变量个数=5、随机数个数=10，那么，就会生成一个5列、10行的数据。
接下来，属选择随机数据的分布类型，以“正态分布”为例，设定：平均值=50、标准差=5。
选定数据的输出位置，可以选定区域、新建工作表、新建工作簿，本例中以选定区域为例来说情况，如下图，选择将数据输出到：A1：E10区域中。
数据输出成功，如下图所示。
举例：
在建立企事业单位员工Excel表格过程中，员工的身份证号、所属省份、性别等百信息都是必须要输入的。如果单位员工众多的话，相关个人信息的输入工作量无疑是相当大度的。那么，能不能让繁琐的个人信息输入过程变得更轻松以提高自己的工作效率呢，当然是肯定的。因为只须利用一个Excel加载宏，就可以很方便地达到上述知目的。
方法：
1.将下载好的“根据身份证求道省市xla”解压到硬盘的任意位置。
2.接着运行“Excel 2007”(其他版本操作类似)并单击其左上角的圆形按钮，选择“Excel选项”，打开“Excel选项”对话框的“加载回项”分支；
3.再单击该分支下的“转答到”按钮，以打开“加载宏”对话框；
4.最后加载完勾选，A处新出现的“根据身份证求省市”复选框并单击“确定”按钮即可。
Sub test()
Set oExcel = GetObject(, "Excel.Application")
Set oWb = oExcel.Workbooks.Open("D:\test.xls") '写你自己的Excel路径
MsgBox oWb.Sheets("Sheet1").Range("C5") '取"Sheet1"工作表C5单元格的zhidao值
oExcel.Quit '退出Excel
End Sub
按 Alt+F11 打开VBE窗口，通过菜单选择“插入”-“模块”回，输入以上代码。
这里采用的是后置绑定方法，无需事先加载Excel对象引用库。
如果在答此过程中希望Excel窗口不可见，可在调用open方法打开Excel之前设置visible属性：
oExcel.Visible = False