‘função para acumular valores’
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = “$B$5″ Then
If IsNumeric(Target) Then
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
End If
End Sub

porem eu tenho que fazer o mesmo para outras colunas na mesma planilha, como posso fazer? tentei fazer isso e nao deu certo.

‘função para acumular valores’
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = “$B$5″ Then
If Target.Address = “$C$5″ Then
If IsNumeric(Target) Then
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
Target.Offset(0, 5) = Target.Offset(0, 5) + Target
End If
End If
End If
End Sub

Private Sub Command1_Click()
Text1.Text = Int(Rnd * 3)
Select Case Text1
Case 0
Text1.Text = “do seu amigo!”
Case 1
Text1.Text = “Muita Sáude, um abraço”
Case 2
Text1.Text = “Pa-ra-béns pra vo-cê”
End Select
End Sub
Private Sub Form_Load()
Dim resp As Integer
resp = MsgBox(“Achou que eu tinha esquecido?”, vbQuestion + vbOKOnly, “É HOJE”)
End Sub

Men esta explicação está do melhor!;)

E gostaria de saber se era possível dar-me mais umas dicas do VB porque tou a tirar um curso e n percebo nada disto. Devido a ter faltado por ter sido operado!!

Se me puderes ajudar, Agradeço!!

Obrigado

NA MOSCA! =]

Por padrão o tipo byte é unsigned, mas existe o sbyte que é o SIGNED byte, ele vai de -128 a -127.

Tipo, se usar o tipo unsigned a váriável pode abranger um faixa apenas de números positivos e sem vírgula, tipo… Não pode ser algum número quebrado, apenas inteiros a partir do 0… Tanto que só os tipos de dados inteiros podem usá-lo, pelo menos aí na tabela do Marcelo huahauha

Muito bom o post Marcelo!

Pena que é VB.

Agora, PEGADINHA DO MALANDRO! Quero ver quem está estudando mesmo!

SEM PESQUISAR NO GOOGLE

Qual a diferença entre os tipos unsigned(tipos com o u na frente, tipo uinteger, ushort) e os tipos signed(sem o u, int, short)?

# Guilherme
Assim eu fico sem graça

# Marcos
Não colocou o sobrenome por quê ? Mas eu sei quem é, muito obrigado por aparecer e comentar

# Gustavo
Tem que fazer merecer o salário não é ?

# Raphael, Kaleb, Túlio, Daniel, Jailson
Muito obrigado pelos comentários!!

Até a próxima aula

Gratuitas, é claro…

continue assim cara! a aula está show…

Abração

Abraços;

Daniel

Sua coluna tá bem legal! Vc tá quase conseguindo fazer com que eu abandone o VB6 de vez!
Só vou esperar a aula sobre threads q vc tá me devendo e q terá q postar tb!

Abraço!

Sua coluna está fantástica! você me inspirou a voltar a estudar VB2008, sou programador FoxPro mas sempre tive uma queda pelo .NET… Espero que continue firme com o trabalho, e se for possível, me passe um e-mail (gustavo.silva@guanamail.com) para que possamos ampliar o contato…

Abração e parabéns!