Tabela no Excel......

[Maxuri 0]

Olá galera estou com um problemão.....

 

Estou fazendo um formulário de pesquisa para o meu chefe, fiz no exel um simples que funciona mas me veio a ideia de fazer um mais aprimorado, um que eu somente o mouse fosse utilizado.... Bem comecei a usar o VB do exel mas estou apanhando pois estou usando o optionbuton (aque de clicar) e as linhas de programação são estas......

Formula 1:

Private Sub OptionButton1_Click()

Click = True

Range("AA2").Value = 1

Range("AB2").Value = 0

Range("AC2").Value = 0

Range("ad2").Value = 0

Range("ac2").Value = 0

 

Ai no botão dois ele AB2 vale 1 e o restante 0 assim sucessivamente até o botão 5 so que eu vou ter que fazer isto em 125 botões x 400 linhas vou fizr um ano fazendo......

 

Mais uma formula..........

 

Private Sub OptionButton1_Click()

Range("c6").Select

Selection.ClearContents

Range("d8").Select

Selection.ClearContents

Range("e10").Select

Selection.ClearContents

Range("b4").Select

ActiveCell.FormulaR1C1 = "1"

 

Vou falar o modelo da tabela para que vcs compreendão.....

 

São 25 colunas (de a-z) Cada coluna uma pergunta

São 400 linhas cada linha a resposta de uma pessoa

Em cada linha coluna (exemplo A2) 5 respostas.... que são Péssimo, Ruim, Regular, Bom e Otimo......

As resposta ficaram nas colunas AA (pessimo), AB (Ruim), AC (Regular), AD (Bom) e AE (Ótimo)

 

Por favor peço a uma alma caridosa que me ajude com esta questão........ Muito obrigado.......

[Luizgrs 0]

Vamos utilizar um pouco de matemática ^^

 

São 125 botões por linha, 5 por pergunta. O que você pode fazer é tornar todos os optionbuttons uma matriz de objetos com o índice (Index) começando em 0.

 

Assim todos terão apenas um evento, e nele você fará algumas contas:

'para descobrir qual a linha:linha = (Index \ 125) + 1'para descobri de qual pergunta se tratapergunta = (Index \ 5) + 1 - ((linha-1) * 25)

Lembrando que o operador \ retorna o valor inteiro da divisão.

E os números uns estõa aí considerando que a respsota já comecem na linha 1.