Question

我有两个组合框。每个组合框都会产生一个变量。我想将这两个变量（wc1和wc2）传递给另一个子我的代码不起作用。

Public Sub ComboBox1_Change()
      wc1 = Sheets("Book1").Cells(1, 3).Address()
End Sub
Public Sub ComboBox2_Change()
      wc2 = Sheets("Book1").Cells(2, 3).Address()
End Sub
Public Sub thirdf()
 Dim tval As String
   Set lola = Sheets("Book1").Range(wc1 & ":" & wc2)
     For Each cel In lola
       tval = tval & cel.Value
         Next
           Cells(1, 7).Value = tval

 End Sub

Answer 1

根据javad的评论，删除地址方法并使用范围（wc1，wc2）。

Answer 2

Public Sub ComboBox1_Change()
  thirdf Sheets("Book1").Cells(1, 3).Address,Sheets("Book1").Cells(2, 3).Address
End Sub

Public Sub ComboBox2_Change()
  thirdf Sheets("Book1").Cells(1, 3).Address,Sheets("Book1").Cells(2, 3).Address
End Sub

Public Sub thirdf(c00,c01)
  For Each cl Sheets("Book1").Range(c00 &":" & c01)
   tval = tval & cl.Value
  Next
  sheets("Book1").Cells(1, 7).Value = tval
End Sub

如何将两个变量从两个组合框传递给一个子组？

2 个答案: