代码求助

朔方

Sub 输入()     ‘代码1
    Dim str1 As String
    str1 = InputBox("请输入", "", "a1+a2")   '输入的字符添加到模块2代码aaa中，输入的字符不确定
                '输入的字符添加到模块2中
Call aaa
              '再删除模块2中添加的这行代码
     End Sub

Sub aaa()     ‘代码2
x = a1 + a2      '（str）模块1中输入   str中输入的字符
End Sub

petergaod

不能传参吗

liulang0808

楼主的需求，不是太明白，看看是否可行吧
Sub 输入()
    Dim str1 As String
    str1 = InputBox("请输入", "", "a1+a2")   '输入的字符添加到模块2代码aaa中，输入的字符不确定
                '输入的字符添加到模块2中
Call aaa(str1)
              '再删除模块2中添加的这行代码
     End Sub

Sub aaa(str1)
x = tr1     '（str）模块1中输入   str中输入的字符
End Sub

朔方

petergaod 发表于 2024-7-1 13:57
不能传参吗

参数本身就是随意的，不固定

朔方

liulang0808 发表于 2024-7-1 14:01
楼主的需求，不是太明白，看看是否可行吧
Sub 输入()
    Dim str1 As String

十分感谢，我测试下啊

朔方

liulang0808 发表于 2024-7-1 14:01
楼主的需求，不是太明白，看看是否可行吧
Sub 输入()
    Dim str1 As String

Sub 在B模块中的第3行插入一行代码()

       With ThisWorkbook.VBProject.VBComponents("模块2").CodeModule

         .InsertLines 3, 'sheets(1).Select'

       End With

     End Sub
请教版主，这个代码，在Excel模块中能行，已到Word模块中则不行       With ThisWorkbook.VBProject.VBComponents("模块2").CodeModule 这句要求对象？

朔方

Sub 计算()


Dim str1 As String
   
    str1 = InputBox("请输入", "计算公式", "a1+a2")   '输入的字符添加到模块2中，输入的字符不确定
  
   
   With ThisWorkbook.VBProject.VBComponents("模块2").CodeModule
       .InsertLines 1, "" & str1 & ""
   End With
  End Sub

   With ThisWorkbook.VBProject.VBComponents("模块2").CodeModule，在Excel代码中这句能行，移到Word代码中，则显示要求对象？   请各位高手解答下