Excel - VBA: Sub'dan Userform'a geçişi değiştir

Question

Benzer konularda bulduğum bir çözüm okudum ve uygulamam ancak durumumda hiçbir işe yaramadı.

Modülümün bir alt biriminden bir kullanıcı formuna bir değişkeni geçmek istiyorum. "ProvinceSugg" adlı bir dizedir. Benim userform kodunda sonra

Public provinceSugg As String 

Sub probaCity() 
[...] 
If province = "" And city <> "" Then 
provinceSugg = sCurrent.Cells(p, db_column).Offset(0, 1).Value 
UserForm2.Label1 = "Do you mean " & city & " in " & provinceSugg & " ?" 
UserForm2.Label1.TextAlign = fmTextAlignCenter 
UserForm2.Show 
Else 
End If 

End Sub 

Ve: İşte

ilgili benim kod parçasıdır

Private Sub userformBtn1_Click() 

MsgBox provinceSugg 
sMain.Range("J6").Value = provinceSugg 

End Sub 

benim programı çalıştırdığınızda:

1/ MsgBox'ta altımdan arandığımda gösterilen ildeSugg içeriğine sahibim (bu yüzden bir ilSugg var, boş bir değişken değil).
2/ Kullanıcı formundan çağrılan MsgBox boş (bu nedenle değeri başarısız oldu) ve "sMain.Range (" J6 ") çalışırken programım çöküyor. Value = provinceSugg" gibi bir şeyle "Error 424 Object Required" (böylece değişken kullanıcı formuna geçemedi).

Forumda bulduğum tüm öğeleri denedim (burada, bir başka değişkeni belirtmek için farklı bir yol var.

Yardımlarınız için şimdiden teşekkür ederiz!

Answer 1

Modül tarafından ayarlanabilecek Userform içinde genel değişkenler oluşturabilirsiniz.

Bu değişkenlere yalnızca Userform yüklenirken erişilebilir.

Userform içinde, her iki nesne için genel değişkenleri bildirin.

Public sMain As Worksheet 
Public provinceSugg as string 

Private Sub userformBtn1_Click() 

MsgBox provinceSugg 
sMain.Range("J6").Value = provinceSugg 

End Sub 

Modül içinde, her iki değişkeni de değerlendirebilirsiniz.

Sub probaCity() 
[...] 
If province = "" And city <> "" Then 

    provinceSugg = sCurrent.Cells(p, db_column).Offset(0, 1).Value 

    With UserForm2 
     .provinceSugg = provinceSugg 
     Set .sMain = sMain 
     .Label1 = "Do you mean " & city & " in " & provinceSugg & " ?" 
     .Label1.TextAlign = fmTextAlignCenter 
     .Show 
    End With 

End If 

End Sub 

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Dim selectColumn 
selectColumn= Split(Target.Address(1, 0), "$")(0) 

Call UserFormStart(selectColumn) 
End Sub 

İçinde Ana Modül

Public columnSelection As String 
... 
Public Sub UserFormStart(ByVal columnRef As String) 
    'MsgBox "Debug columnRef=" & columnRef 
    columnSelection = columnRef 
    UserForm1.Show 
End Sub 

İçinde UserForm

Private Sub UserForm_Initialize() 

'MsgBox "Debug UserForm_Initialize =" & columnSelection 
... 

End Sub 

Worksheet_SelectionChange columnSelection UserForm kamu ve vize nerede olarak bildirilmiş modülünde bir alt çağırır. UserForm'un Modüle eriştiği yer olduğunu göstermek için Sütun Referansı için üç farklı değişken kullandım. Yukarıdaki tüm çalışmalar ve bu nedenle teslim ve bulmak için yaş aldı. Mutlu avcı milleti