Caio, você está se referindo ao exemplo que anexei ?
A opção1 se refere aos CheckBox ? ou a outro controle ?
Dependendo, podemos criar um Select Case para as opções, se for utilizar os CheckBox, ficaria mais ou menos assim :
Adicione um TextBox ao formulário e renomeie para "txtTotal"
Adicione a seguinte Variavel no Modulo de Classe : Dim sValor
Na rotina Private Sub CheckBoxGroup_Click(), adicione as linhas :
sValor = CheckBoxGroup.Caption
Call Somar
Sub Somar()
If CheckBoxGroup.Value = False Then
UserForm1.txtTotal.Value = 0
Exit Sub
End If
Select Case sValor
Case "Pergunta 1"
UserForm1.txtTotal.Value = 100 + 10
Case "Pergunta 2"
UserForm1.txtTotal.Value = 100 + 20
Case "Pergunta 3"
UserForm1.txtTotal.Value = 100 + 30
Case "Pergunta 4"
UserForm1.txtTotal.Value = 100 + 40
Case Else
End Select
End Sub
Fiz meio na pressa, se for isto, faltará definirmos se o Total mudadará com as alternações dos Falso e Verdadeiros quando selecionado mais de um checkbox.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 24/01/2012 1:50 pm