找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 849|回复: 2

[求助]:初学vba的困惑(2)

[复制链接]
发表于 2002-7-3 07:37:40 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
经过朋友的帮助,我的第一个vba程序可以运作起来了,但还是有点问题,程序如下,以及我的一些困惑和求教内容:

模块main:
Public Sub 辅助设计()
UserForm3.show
Dim a As Double, b As Double, c As Double
End Sub

窗体3:
Private Sub CommandButton1_Click()
UserForm3.Hide
UserForm4.show
End Sub
Private Sub CommandButton2_Click()
a = CDbl(TextBox1.Text)
Label2.Caption = "数值" & a
b = a + 5
MsgBox "数值" & b
End Sub
Private Sub CommandButton3_Click()
If OptionButton1.Value = True Then
  d = 0
  MsgBox "单位kw"
End If
If OptionButton2.Value = True Then
  d = 1
  MsgBox "单位hp"
End If                   ——以上的a、b、d参数我要在窗体中使用应该是定义为public,但是这些定义语句应该写在哪里?(请标注出来,让我自行思考)
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub OptionButton1_Click()
End Sub
Private Sub OptionButton2_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub                  ——像这些没有具体功能定义的语句是否可以消除?

窗体4:
Private Sub CommandButton2_Click()
If d = 0 Then lable1.Caption = "d=0,单位kw"
If d = 0 Then lable1.Caption = "d=2,单位hp"
Dim i, k As Integer
For i = 1 To 10
k = i + 5
MsgBox "数值" & k
Next i
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub                 ——private sub userform_click()表示什么意思?是否就是这个窗体自身的“主体程序”位置呢?vb中的form_load在vba中是否可以使用?还有一个form-in***的是否也可以使用呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2002-7-3 12:19:59 | 显示全部楼层
1。public变量定义在另外的模块里

2。Private Sub UserForm_Click()可以删除

3。userform_click是UesrForm的事件触发程序,VBA的每个SUB都可以单独作为程序起点,此点与VB不同。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2002-7-3 17:13:40 | 显示全部楼层
首先表示感谢!您的回答我一定好好体会,有感觉后与您继续讨论。谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 05:31 , Processed in 0.396572 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表