复制文本框内容到宏代码

朔方

文件中vba有两个模块，执行模块2的宏，把sheet1中的textbox1的内容，复制到模块1的宏中，敬请解决，不胜感激！

网海遨游

仅供你参考......

朔方

网海遨游 发表于 2020-3-2 11:18
仅供你参考......

你好，十分感激你的回复，这还是我的原贴啊，没有改动。

网海遨游

你点击按钮了吗?模块1不是获取模块2中的数据了吗?

网海遨游

你这个,可利用公共变量,将数据传递过去.

网海遨游

'模块1中代码---------
Sub aaa()
  MsgBox dm
End Sub

'模块2中代码
Public dm As String '声明公共变量
Sub test()
     dm = Sheet1.TextBox1.Text
     Call aaa '调用模块1代码
End Sub

朔方

网海遨游 发表于 2020-3-2 11:27
你点击按钮了吗?模块1不是获取模块2中的数据了吗?

你好，回复的文件中没有按钮，是我的源文件，我的目的是把textbox1中的内容复制到模块1的代码中，    Sub mydm()
1222225552221
End Sub

是这样

朔方

网海遨游 发表于 2020-3-2 11:27
你点击按钮了吗?模块1不是获取模块2中的数据了吗?

你好，回复的文件中没有按钮，是我的源文件，我的目的是把textbox1中的内容复制到模块1的代码中，    Sub mydm()
1222225552221
End Sub

网海遨游

朔方 发表于 2020-3-2 11:36
你好，回复的文件中没有按钮，是我的源文件，我的目的是把textbox1中的内容复制到模块1的代码中，    Sub ...

Sub mydm()'模块1中代码
call test'调用模块2
  msgbox dm'将数据显示出来
End Sub

'模块2中代码
Public dm '声明公共变量
Sub test()
dm = Sheets("sheet1").TextBox1.Text '获取文字框中数据
End Sub

朔方

谢谢，我研究下