DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Makro1()
Dim hcr As Range
For Each hcr In Selection
hcr = Round(hcr, 2)
Next hcr
End Sub
bu şekilde yaptığımda rakamlar yuvarlanıyor fakat hücrelerdeki formüller gidiyor, başta belirtmeyi unuttum, formüller gitmeden o hücrelere toplu bir şekilde yuvarla eklenebilir mi?Merhaba,
Aşağıdaki kodları bir modüle kopyalayın.
Yuvarlama yapacağınız hücreleri seçtikten sonra kodu çalıştırın.
Kod:Sub Makro1() Dim hcr As Range For Each hcr In Selection hcr = Round(hcr, 2) Next hcr End Sub
Hep öyle oluyor zaten, önce sorup sonra farklı bir durum vardı diyorsunuz.bu şekilde yaptığımda rakamlar yuvarlanıyor fakat hücrelerdeki formüller gidiyor, başta belirtmeyi unuttum, formüller gitmeden o hücrelere toplu bir şekilde yuvarla eklenebilir mi?
Sub yuvarla()
Dim h As Range, c As Byte, adr As String, t As String
For Each h In Range("A1:A4")
If h.HasFormula = True Then
c = InStr(h.Formula, "ROUND")
If c = 0 Then
adr = h.Address(, , xlR1C1, External:=True)
t = Right(h.Formula, Len(h.Formula) - 1)
If ExecuteExcel4Macro("Get.Cell(49," & adr & ")") = True Then
h.FormulaArray = "=Round(" & t & " ,2)"
Else
h.Formula = "=Round(" & t & " ,2)"
End If
End If
End If
Next h
End Sub
evet belki sizin kadar excele hakim olmadığımızdandır? bir de böyle düşünmek gerek!Hep öyle oluyor zaten, önce sorup sonra farklı bir durum vardı diyorsunuz.
Formülünüzde yuvarlamayı halletmelisiniz, fazladan işlem yapmaya gerek kalmaz.
=YUVARLA(Formülünüz;2)
şeklinde.
tam olarak buydu, çok teşekkürlerMerhaba,
Makro ile düzeltmek için. A1:A4 aralığını kendinize göre değiştiriniz.
Kod:Sub yuvarla() Dim h As Range, c As Byte, adr As String, t As String For Each h In Range("A1:A4") If h.HasFormula = True Then c = InStr(h.Formula, "ROUND") If c = 0 Then adr = h.Address(, , xlR1C1, External:=True) t = Right(h.Formula, Len(h.Formula) - 1) If ExecuteExcel4Macro("Get.Cell(49," & adr & ")") = True Then h.FormulaArray = "=Round(" & t & " ,2)" Else h.Formula = "=Round(" & t & " ,2)" End If End If End If Next h End Sub