2016-03-24 10 views
0

Siteye yeni ancak yazılara bakarak çok zaman harcadık. Özellikle kullanıcı formları olan VBA'yı kullanmakta oldukça yeni ve bir sorunla karşılaşıyorum.
İşte istediğim: Kullanıcı formunun gönder düğmesine bağlı bir mesaj kutusu ekle. Eğer ortak evet cevabını verirse, vermiş olduğu bilgileri formda gönderin. Kod biraz çözülmüş ama msgbox satırında "beklenen ifade" hatasını almaya devam ediyorum. Bunun ne olduğu hakkında bir fikrin var mı? Herkese teşekkürlerVBA'da "Ekspresyon İfadesi" Hatası

+1

'Msgbox sahip' "Burada bir şeyler yazmak zorunda" Burada biraz ifade vermek için. Örneğin. Eğer 'i = 3' ise' Msgbox i' 3’ün değeriyle açılır. [Bkz.] (https://msdn.microsoft.com/en-us/library/139z2azd (v = vs.90)) .aspx) bilgi için. – newguy

+0

evet, geri dönerken paranteze ihtiyacınız olacak, yani msgbox ("message") = vbyes ise ... else .... Ayrıca düğmeleri belirtebilirsiniz, böylece msgbox ("message", vbYesNo gibi) + vbApplicationModal + vbExclamation, "Hata") –

cevap

0

değilim emin messagebox aramak istediğiniz, ancak buradaki fikir :) olduğu idi

Private Sub CB_Submitted_Click() 

Range("A1") = "Hello pgw215" 

'or 
'Range("A1") = TextBox1 

End Sub 

Private Sub UserForm_Initialize() 

Dim Question As String 
Dim Answer As Byte 


Question = "Is your name pgw215?" 

Answer = MsgBox(Question, vbYesNo) 


    If Answer = 6 Then 'Yes 

     Call CB_Submitted_Click 

    ElseIf Answer = 7 Then 'No 


    ElseIf Answer = 5 Then 'Ignore 


    End If 

End Sub