Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Problema con option button
- Hai un problema con Excel?
Problema con option button
di BELLA_KAPPU (utente non iscritto) data: 16/12/2014 11:39:56
Salve a tutti ho un problema con degli option button, nonostante li abbia impostati che all'inizializzazione siano su false, avviato il comando i case i comportano come se fossero tutti e due attivi
Qualcuno riesce a darmi una mano?
Private Sub Command1_Click() ' Preventivo Dim R As Integer Dim C As Integer Dim Res As Integer Dim Ces As Integer Dim X As String Ces = CInt(Text6) Res = CInt(Text7) C = 0 R = 0 Select Case OptionButton5 'controlli finestra e ante Case OptionButton5.Value = True And Combo2.Value = "1" 'F1 Select Case Ces ' controllo larghezza Case Is <= 600 C = 2 Case Is <= 700 C = 3 Case Is <= 800 C = 4 Case Is <= 900 C = 5 Case Is <= 1000 C = 6 Case Else MsgBox "Listino non disponibile contattare info@xxx.it per preventivo su misura." End Select Select Case Res ' controllo altezza Case Is <= 900 R = 2 Case Is <= 1000 R = 3 Case Is <= 1100 R = 4 Case Is <= 1200 R = 5 Case Is <= 1300 R = 6 Case Is <= 1400 R = 7 Case Is <= 1500 R = 8 Case Is <= 1600 R = 9 Case Is <= 1700 R = 10 Case Is <= 1800 R = 11 Case Is <= 1900 R = 12 Case Is <= 2000 R = 13 Case Else MsgBox "Listino non disponibile contattare info@xxxx.it per preventivo su misura." End Select Case OptionButton5.Value = True And Combo2.Value = "2" 'F2 Select Case Ces ' controllo larghezza Case Is <= 1000 C = 2 Case Is <= 1100 C = 3 Case Is <= 1200 C = 4 Case Is <= 1300 C = 5 Case Is <= 1400 C = 6 Case Is <= 1500 C = 7 Case Is <= 1600 C = 8 Case Is <= 1700 C = 9 Case Is <= 1800 C = 10 Case Is <= 1900 C = 11 Case Else MsgBox "Listino non disponibile contattare info@xxx.it per preventivo su misura." End Select Select Case Res ' controllo altezza Case Is <= 900 R = 22 Case Is <= 1000 R = 23 Case Is <= 1100 R = 24 Case Is <= 1200 R = 25 Case Is <= 1300 R = 26 Case Is <= 1400 R = 27 Case Is <= 1500 R = 28 Case Is <= 1600 R = 29 Case Is <= 1700 R = 30 Case Is <= 1800 R = 31 Case Is <= 1900 R = 32 Case Is <= 2000 R = 33 Case Else MsgBox "Listino non disponibile contattare info@xxx.it per preventivo su misura." End Select Case OptionButton5.Value = True And Combo2.Value = "3" 'F3 Select Case Ces ' controllo larghezza Case Is <= 1500 C = 2 Case Is <= 1600 C = 3 Case Is <= 1700 C = 4 Case Is <= 1800 C = 5 Case Is <= 1900 C = 6 Case Is <= 2000 C = 7 Case Is <= 2100 C = 8 Case Is <= 2200 C = 9 Case Is <= 2300 C = 10 Case Is <= 2400 C = 11 Case Is <= 2500 C = 12 Case Is <= 2600 C = 13 Case Is <= 2700 C = 14 Case Is <= 2800 C = 15 Case Else MsgBox "Listino non disponibile contattare info@xxx.it per preventivo su misura." End Select Select Case Res ' controllo altezza Case Is <= 1000 R = 42 Case Is <= 1100 R = 43 Case Is <= 1200 R = 44 Case Is <= 1300 R = 45 Case Is <= 1400 R = 46 Case Is <= 1500 R = 47 Case Is <= 1600 R = 48 Case Is <= 1700 R = 49 Case Is <= 1800 R = 50 Case Is <= 1900 R = 51 Case Is <= 2000 R = 52 Case Else MsgBox "Listino non disponibile contattare info@xxx.it per preventivo su misura." End Select Case Else MsgBox "alfa" End Select Select Case OptionButton6 'controlli porta e ante Case OptionButton6.Value = True And Combo2.Value = "1" 'P1 MsgBox "1" Case OptionButton6.Value = True And Combo2.Value = "2" 'P2 MsgBox "2" Case OptionButton6.Value = True And Combo2.Value = "3" 'P3 MsgBox "3" Case Else MsgBox "error" End Select X = Cells(R, C) Label6 = X Label6.Visible = True
di Lucas87 data: 16/12/2014 12:01:02
Ciao
Serve vedere il file.
Hai provato a seguire il codice in debug e a verificare che effettivamente i valori degli elementi siano come li vuoi tu?
- Vuoi Approfondire?
