Avatar billede fagpoler Novice
23. maj 2006 - 08:43 Der er 5 kommentarer og
1 løsning

Tjek 1 ciffer i tal

Sub Makro1()
    If [G1] = 26845 Then
    MsgBox "Er 26845"
    End If
End Sub
'Her tjekker man om G1 er 26845,HVAD GØR man hvis man kun vil tjekke den 2 ciffer fra højre  i G1 altså 4
Avatar billede fagpoler Novice
23. maj 2006 - 08:48 #1
Jeg vil heller have hvis man kan sige 1 ciffer =a og 2 ciffer =b og 3 ciffer = c
Avatar billede fagpoler Novice
23. maj 2006 - 08:49 #2
altså variabler, så man kan gange fx a*b
Avatar billede kabbak Professor
23. maj 2006 - 10:03 #3
Sub Makro1()
    If Val(Mid([G1], Len([G1]) - 1, 1)) = 4 Then
    MsgBox "Er 4"
    End If
End Sub
Avatar billede kabbak Professor
23. maj 2006 - 10:09 #4
Sub Makro1()
Dim A() As Integer, I As Integer
For I = 1 To Len([G1])
ReDim Preserve A(I - 1)
    A(I - 1) = Val(Mid([G1], I, 1))
  ' det første tal er i A(0), det andet i A(1) o.s.v , alt efter hvor langt tallet er
Next


End Sub
Avatar billede fagpoler Novice
23. maj 2006 - 12:29 #5
Tusind tak kabbak, det virker fint. Hvis du ligger et svar, får du dine point.
Avatar billede kabbak Professor
23. maj 2006 - 12:32 #6
et svar ;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester