想学第一个VBA程序

roych

Sub Test()
Msgbox"这是一个最简单的程序"
End Sub

Sub Test2()
Dim i As Long
i = 1
Do Until i > 5
MsgBox "我打算弹5次"
i = i + 1
Loop
End Sub
实际上，应当先了解VB语法，熟悉后程序写起来就方便多了。

roych

可以新建模块放进去再调用。——别忘了加上Sub 函数名()噢。
也可以在写入按钮的单击事件里。
最好在前面定义Dim i As Long，否则很容易因为变量类型未定义而出错。
此外，当然需要把相应的变量改回你的表名称和字段名称。

roych

要把变量分离开来写。
Sub REN_A()
For i = 1 To 10
cnn.Execute "Insert into 表1 (字段1) VALUES('" & i & "')"
Next
End Sub

roych

哦，不好意思，之前复制你的代码时没仔细看。你没有定义数据连接对象。
Sub REN_A()
Dim cnn As New ADODB.Connection
For i = 1 To 10
cnn.Execute "Insert into 表1 (字段1) VALUES('" & i & "')"
Next
End Sub

roych

噢。大概是没有执行命令的缘故吧。此外，你的附件中序号为数值型，因此需要在原先的基础上去掉单引号。

1. Sub REN_A()
   
2. '定义数据连接
   
3. Dim cnn As ADODB.Connection
   
4. '定义ADO命令
   
5. Dim cmd As New ADODB.Command
   
6. Dim i As Long
   
7. '设置为当前工程连接
   
8. Set cnn = CurrentProject.Connection
   
9. For i = 1 To 10
   
10. '设置命令文本并执行之。
    
11. cmd.CommandText = "Insert into 表1 (序号) VALUES(" & i & ")"
    
12. cnn.Execute cmd.CommandText
    
13. Next
    
14. End Sub

复制代码

用Docmd.RunSQL会更简洁些，以下代码供参考。

1. Sub REN_A()
   
2. DoCmd.SetWarnings False
   
3. For i = 1 To 10
   
4. DoCmd.RunSQL "Insert into 表1 (序号) VALUES(" & i & ")"
   
5. Next
   
6. End Sub

复制代码

roych

Excel里的部分统计函数，在Access里都有相应的SQL聚合函数，例如标准方差是：StDev ()或者StDevP，详细请在做查询时，右击窗格，点击生成器\函数\内置函数。具体用法则参考帮助文件，在这里不一一列出了。

roych

不是在条件里设置的。是在字段的窗格上输入以下内容：
标准差之方差:StDev([编号])

roych

表的设计不合理。
首先，Access不是Excel，聚合函数是不能对多个字段进行数据处理的。因此，应当设置为：
编号   组别     数据
1       组别1    1
2       组别1    2
3       组别1    3
4       组别1    4
5       组别1    5
6       组别1    6
7       组别2    2
8       组别2    3
9       组别2    4
10     组别2    5
11     组别2    6
12     组别2    7
…………………………
然后按组别分组，对数据进行标准方差计算。

roych

大体做了一个，详见附件的测试查询。请留意表2和表1的区别。

roych

如果可以访问单位的网络，那么把它存放在共享位置，再建立链接数据库（单击文件\外部数据\链接）即可。