visual-basic - Ombyt punktum med comma i valgte celler? ..hjælp - Udvikleren.dk

Tags: visual-basic

Bruger #16268 @ 09.01.11 01:45

Hi,

Er der nogen der ved hvordan man programmerer en vba-sub der gør at når jeg har valgt nogle celler i et ark, så hvis cellerne indeholder punktum så bytter den punktummer ud med kommaer.

Det handler om som du måske kan renge ud om decimaltal. Jeg har lavet et udtræk fra et websted med nogle tal hvis format er amerikansk og hvor et punktum i et tal betyder komma i euopæisk terminologi..jeg prøvede at lave en chart men mislykkedes pga. punkterne. Det pissede mig af og efter en halv time fandt jeg ud af at det var pga. dem.

Jeg vil gerne lave en vba-kode. Jeg gider ik ændre regionale indstillinger. Jeg er ikke heeelt rutineret i vba, så hvis der nogen der lide kan det, er jeg glad for et svar

Bruger #16268 @ 09.01.11 12:05

Nu har jeg vist fundet ud af det, man kan gøre det på to måder:

Ombyt punktum med komma:

Kode

Option Explicit

Private Sub CommandButton1_Click()
Dim rg As Range, r As Integer, s As Integer, rownr As Integer, xcell As Range

Set rg = Selection
For r = rg.Rows.Count To 1 Step -1
For s = 1 To rg.Columns.Count
 
   rg.Cells(r, s) = Replace(rg.Cells(r, s), ".", ",")
   Exit For
  
   Next s
   Next r
  
End Sub

Eller bare den simpleste måde, at konvertere til tal!

..fordi excel læste "tallene" som text:

Kode

Private Sub CommandButton2_Click()
Dim xcell As Range, rg2 As Range
Set rg2 = Selection
  For Each xcell In Selection
       xcell.Value = CDec(xcell.Value)
    Next xcell
End Sub

Ombyt punktum med comma i valgte celler? ..hjælp

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler