私はしかし、私はこれを行うにはトラブルと思い、様々なコンボボックスを移入するための関数を使用して、私のコードは、より汎用的にするためにしようとしている...ユーザーフォームで
:
Private Sub UserForm_Initialize()
Call Lista_Vendedores
ComboBox1.List = Lista_Vendedores
End Sub
でモジュール:
Public Function Lista_Vendedores() As Variant
Dim Lista As New Collection
Dim Cont_Vendedores As Integer
Cont_Vendedores = Plan1.Cells(1, 8).Value
Sheets("Plan1").Select
For i = 3 To Cont
Lista (Row.Cells(i, 8))
MsgBox Lista
Next i
Set Lista_Vendedores = Lista
Set Lista = Nothing
End Function
コードを実行しようとすると、何も起こりませんが、エラーは表示されません。
をご支援いただきありがとうございます! –
FWIW - OPの使用のために、ライン(ComboBox1.List = ThisWorkbook.Worksheets( "Plan1"))を使用する必要があります(範囲は "H3:H"&ThisWorkbook.Worksheets "Plan1")。範囲( "H1")。値) '。 (元の質問を正しく解釈したと仮定すると、常に危険な前提です。) – YowE3K