带你入门VBA（2004第一期）

兰色幻想

以下是引用rongjun在2004-10-26 17:00:00的发言：

159楼和162楼的代码是一样的吗？我怎么没看出有什么差别？除了162楼的窗体多了个“录入”外。

还有，能不能输入A数据后回车，光标自动移到B，依次下去，当输完数据D后回车，则数据录入相应单元格，同时光标移到A

HON9tP3Q.rar (10.11 KB, 下载次数: 598)

2004-10-26 21:54 上传

点击文件名下载附件
带你入门VBA（今天限一名）

rongjun

多谢兰色幻想兄，能不能解释一下以下几段代码的意思？还有一个问题：输入数字怎么都变成了文本格式？

Option Explicit

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then

TextBox1.SetFocus

兰色幻想

以下是引用rongjun在2004-10-27 13:06:00的发言：

多谢兰色幻想兄，能不能解释一下以下几段代码的意思？还有一个问题：输入数字怎么都变成了文本格式？

Option Explicit

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then

TextBox1.SetFocus

在TextBox1后加.Value输入的就是数字格式了

Cells(a, 1) = TextBox1.Value Cells(a, 2) = TextBox2.Value Cells(a, 3) = TextBox3.Value Cells(a, 4) = TextBox4.Value

TextBox4_KeyDown 是文本框的一个事件，当有按键按下时运行程序中的代码，KeyCode = 13 其中13是ENTER键的代码，所以这句的意思是：如果按下的是回车键就运行。。。。

兰色幻想

按键代码可以通过对象浏览器进行查询：

透明玻璃

不好意思，我好像是一窍不通哦！[em04]

liweili

如何用电子表格发送多对多的电子邮件

apolloh

以下是引用兰色幻想在2004-10-3 17:02:00的发言：

如果刚才的明白，再加一句，是如何在A21计算出A1：A20的和

Sub 矩形1_单击() Dim i As Integer For i = 1 To 20 Sheets("sheet1").Cells(i, 1) = i Next Range("a21").Value = Application.WorksheetFunction.Sum(Range("a1:a20")) End Sub

在VBA不直接支持在EXCEL工作表中的一些函数，如果要调用就必须加上Application.WorksheetFunction

SUM求和语法和工作表中的一样，但表示不能直接SUM（A1：A20）,要用VBA的表示方法

SUM(Range("a1:a20"))

来系统的学习一下

是不是可以有一种表示方法:sheet1.[A1]=100

兰色幻想

以下是引用apolloh在2004-10-28 8:51:00的发言：

来系统的学习一下

是不是可以有一种表示方法:sheet1.[A1]=100

关于Sheet1、sheets(1)、sheets(“Sheet1”)、range("a1")、[A1]在第五讲中有说明

http://club.excelhome.net/viewthread.php?tid=67109

apolloh

以下是引用啊一在2004-10-13 15:29:00的发言：

真的很不好意思我来晚了。我要在B1：B15输入101：115的时候怎么也不能成功，后来按上面的方法却在B101：B115输入了。请各位老师帮帮我，谢谢了！

Private Sub CommandButton1_Click() Dim i As Integer For i = 101 To 115 Dim x As Integer For x = 1 To 15 Sheets("sheet1").cell(x, 2) = i Next Next End Sub

Private Sub CommandButton1_Click() Dim i As Integer For i = 101 To 115 Dim x As Integer For x = 1 To 15 Sheets("sheet1").cell(x, 2) = i Next x '这里可不能省略了 Next i '这里可不能省略了 End Sub

'对于多重嵌套的循环 Next 后面的变量不能省略！不过这句用两个循环达不到效果，因为结果都是115

apolloh

以下是引用兰色幻想在2004-10-13 17:18:00的发言：

Private 的中文意思是私有的，Private Sub中的程序只能在本程序内部运行而不能被其他程序调用，而SUB语句则可以

如：

SUB BB（）

END SUB

SUB AA（）

BB

END SUB

本模块

[此贴子已经被作者于2004-10-28 10:28:22编辑过]