Perform IF-Funktion in VBA

Question

Ich benutze ein = IF-Funktion

=IF(RIGHT(A1;1)="-";"-"&LEFT(A1;LEN(A1)-1);A1)*1 

ein Minuszeichen aus dem Ende der Zelle an den Anfang zu verschieben, aber ich mag es in einem Makro verwenden, so dass es durchgeführt wird, auf der gleichen Spalte (oder dieselbe Auswahl) ...

Answer 1

1) Verwenden den die Einheit Für .... Schleife durch jede Zelle in einer Schleife in einem Bereich konstruieren. 2) Wenn Sie "Zahlen" von 123 bis 123 in eine richtige Zahl und nicht in Text konvertieren möchten, verwenden Sie den Befehl "Val", um eine Zeichenfolge in eine Zahl zu konvertieren. ist jedoch zu beachten, dass, wenn Sie, wenn Sie Zelle mit so etwas wie „ABC-“ haben, wird diese -ABC werden, die VBA dann in eine Zahl zu konvertieren versucht ... und produziert Null als Ergebnis

Sub MoveMinus() 
Dim c As Range 
    For Each c In Intersect(Selection, Selection.Worksheet.UsedRange) 
     If (Right(c, 1) = "-") Then 
     c = Val("-" & Left(c, Len(c) - 1)) 'Val to make the result numeric 
     End If 
    Next 

End Sub