Public Function YAZIYACEVIR(Para_Tutar) Dim Para_TutarStr As StringDim ParaBirimi As String, ParaAltBirimi As StringHücreAdı = Para_Tutar.AddressIf Para_Tutar = “” ThenYAZIYACEVIR = HücreAdı & ” Hücresine bir değer girmelisiniz !…”Exit FunctionEnd IfIf Not IsNumeric(Para_Tutar) ThenYAZIYACEVIR = HücreAdı & ” Hücresine girilen değer, sayı değil !…”Exit FunctionEnd IfParaStr = Format(Abs(Para_Tutar), “0.00”)ParaBirimi = Left(ParaStr, Len(ParaStr) – 3)ParaAltBirimi = Right(ParaStr, […]
