怎么用VBA窗体给其他的窗体作快速录入啊？

古月舟亢

我通过VBA设置建立了  领取  补充  归还三个窗体，里面都需要输入药品名称和领取的部门，想通过弹出一个新的窗体来实现简单快速的录入

目前已经再EXCEL里面录入了药品名称和领取部门

并建立了  选择药品，选择部门 两个新窗体

那领取中输入部门来举例

我将领取窗体（userform1）中  显示部门的label设置了单击事件，部门的输入框是textbox1，代码是

1. UserForm_changebm.Label1.Caption = UserForm1.Name
   
2. UserForm_changebm.Label2.Caption = TextBox1.Name
   
3. 
   
4. UserForm_changebm.Show

复制代码

在选择部门窗体（userform_changebm）中，添加了两个label，一个combobox，一个CommandButton，其中combobox通过代码将excel中录入的部门名称赋值好

1. r = Worksheets(2).[a65530].End(xlUp).Row
   
2. list = "数据库!a2:a" & r
   
3. ComboBox1.RowSource = list

复制代码

然后再设置单击按钮事件

1. Dim a, b
   
2. a = Label1.Caption
   
3. b = Label2.Caption
   
4. Set c = UserForms(a)
   
5. Set d = c.TextBoxs(b)
   
6. d.Text = ComboBox1.T
   

复制代码

目前就做到这一步

提示的是类型匹配，我已经试着弄了好多次了，完全没有头绪，求大神门帮帮忙！！！！

古月舟亢

朱荣兴 发表于 2019-2-14 09:22
没有附件支持的求助，说再多也没用的

附件添加上来了   麻烦请教一下！！！亲（YoY）

一指禅62

如果是实际应用，则建议：
       将UserForm2 的药品名称、部门两个文本框直接换成 复合框，UserForm3同样。

如果是学习数据在窗体间传递则另当别论

一指禅62

比如  将 UserForm_changename 的数据传递到 UserForm2 的 TextBox1 ：

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     UserForm2.TextBox1.Text = ComboBox1.Text
   
4.     Unload Me
   
5. End Sub
   

复制代码

古月舟亢

一指禅62 发表于 2019-2-15 08:47
比如  将 UserForm_changename 的数据传递到 UserForm2 的 TextBox1 ：

是再学习窗体之间的数据传递

大大 你这个法子只能一个窗体指定对应一处的控件的数据传递

我是想用有没有法子将控件的位置先传递到 赋值用的窗体上，然后再根据这个位置判断来动态反向的传递数据

最开始我还是想再选择用的窗体上动态生成按钮控件，并添加代码来执行动态反向数据传递来着，但是添加的代码没有效果（运行后单击按钮没有相应），而且我也不会关闭窗体的时候自动删除这些代码，所以后面改用的下拉菜单控件

一指禅62

古月舟亢 发表于 2019-2-15 09:21
是再学习窗体之间的数据传递

大大 你这个法子只能一个窗体指定对应一处的控件的数据传递

模拟一个，供参考：

窗体间数据传递.zip (13.27 KB, 下载次数: 333)

2019-2-15 09:46 上传

点击文件名下载附件

当然，实现这类需求的最好办法是类化。

古月舟亢

一指禅62 发表于 2019-2-15 09:48
模拟一个，供参考：

大大  下载下来没法执行~~而且没看懂  <窗体.控件.属性=>为什么窗体(userform)的位置用的是ME代替，用ME不是会默认为当前打开的窗体么

一指禅62

类模块代码

1. Option Explicit
   
2. Private WithEvents iTextBox As MSForms.TextBox
   
3. Private WithEvents iUfm As MSForms.UserForm
   
4. 
   
5. Public Sub Attach(f As MSForms.UserForm, c As MSForms.TextBox)
   
6.     Set iUfm = f
   
7.     Set iTextBox = c
   
8. End Sub
   
9. 
   
10. 
    
11. Private Sub iTextBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
12.     Cancel = True
    
13.     Set Ufm = iUfm
    
14.     txt = iTextBox.Name
    
15.     UserIN.Show
    
16. End Sub
    

复制代码

模块代码

1. Option Explicit
   
2. Public Ufm As UserForm
   
3. Public txt As String
   
4. Dim cls() As New 类1
   
5. 
   
6. 
   
7. Sub 控件初始化(f As UserForm)
   
8.     Dim ctl As Control, n%
   
9.     For Each ctl In f.Controls
   
10.         If TypeName(ctl) = "TextBox" Then
    
11.             n = n + 1: ReDim Preserve cls(1 To n)
    
12.             cls(n).Attach f, ctl
    
13.         End If
    
14.     Next
    
15. End Sub

复制代码

一指禅62

窗体间数据传递_类化.zip (16.11 KB, 下载次数: 420)

2019-2-15 10:12 上传

点击文件名下载附件

窗体中的文本框任意添加，不用增加或修改代码。