Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: aangepast getal  (gelezen 3757 keer)

0 leden en 1 gast bekijken dit topic.

Offline azertyboy

  • Volledig lid
  • **
  • Berichten: 190
  • Oplossing.be
aangepast getal
« Gepost op: 09 mei 2004, 18:01:30 »
hoe maak ik een aangepast getal van celeigenschappen om een telefoonnummer ingegeven als bv 058252636 automatisch weer te geven in 058 25.26.36?
En hoe ga je te werk voor in dezelfde cel een telefoonnumer als 032252527 weer te geven als 03 225.25.27.

Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.202
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:aangepast getal
« Reactie #1 Gepost op: 09 mei 2004, 22:58:41 »
Hallo azertyboy,

in "aangepast" typ je een nieuwe code als volgt:

voor 058 25.26.36 typ je #####.##.##
en voor  032252527 ##.###.##.##

als je nu een tel nummer invoert in de cel met deze eigenschap hoef je de spaties en punten niet meer te typen, gewoon de nummers en klaar.

Softaid
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:aangepast getal
« Reactie #2 Gepost op: 10 mei 2004, 07:28:31 »
Als je verschillende getalnotaties door elkaar wilt gebruiken, afhankelijk van de invoer, dan zal je genoodzaakt zijn om met een dergelijke event-macro te werken:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If Target.Column = 1 Then
    Select Case Left(Target, 1)
      Case 2, 3, 4, 9
        Target.NumberFormat = "00 000\.00\.00"
      Case 1, 5, 6, 7, 8
        Target.NumberFormat = "000 00\.00\.00"
      Case Else
        Target.NumberFormat = "General"
    End Select
  End If
End Sub

kopieer de macro naar de werkbladcode

Let wel op: deze code werkt enkel voor vaste nummers, niet voor GSM.
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

 


www.combell.com