Sonra çalışmanıza bir modül ekleyip aşağıdaki kodları eklemelisiniz
Kod:
Function KompleksTopla(Hucre As Range) As String
Dim Hcr As Range
Dim Karmasik
For Each Hcr In Hucre.Cells
Hcr2 = CStr(Replace(Hcr, "*", "j"))
Karmasik = WorksheetFunction.ImSum(Karmasik, Hcr2)
Next Hcr
KompleksTopla = Replace(Karmasik, "j", IIf(WorksheetFunction.Imaginary(Karmasik) = 1, "1*", "*"))
End FunctionKod:
=KompleksTopla(B2:B11)Dilerim işinize yarar Iyi çalışmalar
Örnek_hy.rar
(Dosya Boyutu: 14,6 KB | İndirme Sayısı: 0)
