සිංහල අකුරු වැඩ නැතෝ... Excel Macro 😭

[AnuradhaRa]

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+b
'
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C=""???"",""????"",IF(R[-1]C=""????"",""??????"",IF(R[-1]C=""?????"",""????"",IF(R[-1]C=""???"",""????"",IF(R[-1]C=""???"",""????"")))))"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C=""???"",""????"",IF(R[-1]C=""????"",""??????"",IF(R[-1]C=""?????"",""????"",IF(R[-1]C=""???"",""????"",IF(R[-1]C=""???"",""????"")))))"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C=""???"",""????"",IF(R[-1]C=""????"",""??????"",IF(R[-1]C=""?????"",""????"",IF(R[-1]C=""???"",""????"",IF(R[-1]C=""???"",""????"")))))"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C=""???"",""????"",IF(R[-1]C=""????"",""??????"",IF(R[-1]C=""?????"",""????"",IF(R[-1]C=""???"",""????"",IF(R[-1]C=""???"",""????"")))))"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = ""
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C=""???"",""????"",IF(R[-1]C=""????"",""??????"",IF(R[-1]C=""?????"",""????"",IF(R[-1]C=""???"",""????"",IF(R[-1]C=""???"",""????"")))))"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C=""???"",""????"",IF(R[-1]C=""????"",""??????"",IF(R[-1]C=""?????"",""????"",IF(R[-1]C=""???"",""????"",IF(R[-1]C=""???"",""????"")))))"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C=""???"",""????"",IF(R[-1]C=""????"",""??????"",IF(R[-1]C=""?????"",""????"",IF(R[-1]C=""???"",""????"",IF(R[-1]C=""???"",""????"")))))"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C=""???"",""????"",IF(R[-1]C=""????"",""??????"",IF(R[-1]C=""?????"",""????"",IF(R[-1]C=""???"",""????"",IF(R[-1]C=""???"",""????"")))))"
ActiveCell.Offset(3, 0).Range("A1").Select
End Sub

 

[Tharaka_x]

බම්ප්

 

[kinkon]

බම්ප්