Konvertieren von Daten in 2 Dezimalstellen

Question

Jeder weiß, wie man diesen Code konvertiert oder überarbeiten kann, um seine Antwort auf zwei Dezimalstellen zu konvertieren?

Range("H2:H" & lastCell1).Formula = "=E2/18.33/8" 

Vielen Dank!

Answer 1

Oder diese ...

Range("H2:H" & lastCell1).Formula = "=ROUND(E2/18.33/8,2)" 

Answer 2

Try this:

Dim MyRange As Range 
Set MyRange = Range("H2:H" & lastCell1) 
MyRange.Formula = "=E2/18.33/8" 
MyRange.NumberFormat = "#0.00" 

Answer 3

Sie können Sie diese

Sheet("yourSheetName").range("yourRange").NumberFormat = "0.00" 

aber dies gilt nur für visuelle. Wenn Sie die Zahl wirklich auf zwei Dezimalstellen ändern möchten, müssen Sie sie durch etwas Ähnliches runden.

Sheets("sheet3").Cells(6, 3).Value = Round(Sheets("sheet3").Cells(6, 3).Value, 2) 

Wo Sie Round, wenn das zweite Argument ist die Anzahl der Dezimalstellen

bearbeiten mit: auch als jemand hier erwähnt, können Sie gleiche ROUND in Formel verwenden ...