Questione : Excel 2010 - Coppie delle domande della finestra di messaggio

Sto facendo funzionare il seguente scritto nel mio progetto sempre crescente della lista di prezzi. Sono quasi là e juts che mettono un certo smalto su esso. Come faccio il tasto di difetto per il primo delle finestre di messaggio stabilizzare “a no„.

Also, come ottengo un'icona del punto interrogativo nell'angolo del

Private Workbook_Open ()/>MB = MsgBox (“ultimo aggiornato su„ & manuali (“Manutenzione-Sheet„). Range (“il G7„). Value & Chr$ (13) & Chr$ (13) & “voi gradice importare l'alimentazione di dati più di fine stagione? „, vbYesNo, “alimentazione di dati dell'importazione? ")
If mb = vbYes Then
CombinedImportandFormat
mb = MsgBox (“voi gradicono controllare per vedere se c'è nuove serie di prodotti? „, vbYesNo, “controllo per le nuove serie di prodotti? ")
se mb = vbYes Then
UpdateFromFeed
mb = MsgBox (“voi gradicono formattare le formule della lista di prezzi? „, vbYesNo, “lista di prezzi di disposizione? ")
se estremità If
End Sub

Thanks di If
Else
PreWorkQuestion
di conclusione di If
Else
PreWorkQuestion
di conclusione di Then
FormatPriceListandFormulas
Else
PreWorkQuestion
dei vbYes = di mb class= del

Risposta : Excel 2010 - Coppie delle domande della finestra di messaggio

per uso del tasto di difetto

vbYesNo + vbQuestion + vbDefaultButton2

-->

Mb = MsgBox (“ultimo aggiornato su„ & manuali (1).Range (“il G7„). Il valore & Chr$ (13) & Chr$ (13) & “voi gradicono importare l'alimentazione di dati più di fine stagione? „, vbYesNo + vbQuestion + vbDefaultButton2, “alimentazione di dati dell'importazione? ")