RR,
Salam kenal RR XL-mania,
Saya masih newbie banget di milist maupun di XL application ini dan skrg lagi
mencoba belajar membuat looping buat macro sederhana guna menunjang kerjaan
sekaligus mendalami excel appl.
saya punya macro manual spt ini yg sangat statis dan skrg saya mencoba untuk
menggantinya dengan looping.
Sub Define_ExtGsmCell()
'
' Define_ExtGsmCell Macro
' parsing
'
' Keyboard Shortcut: Ctrl+a
'
ActiveCell.FormulaR1C1 = "= ""cr
RncFunction=1,ExternalGsmNetwork=1,ExternalGsmCell=""&input!R[1]C[1]"
Range("A2").Select
ActiveCell.FormulaR1C1 = "= input!RC&"" #cell id"""
Range("A3").Select
ActiveCell.FormulaR1C1 = "= input!R[-1]C[3]&"" #ncc"""
Range("A4").Select
ActiveCell.FormulaR1C1 = "= input!R[-2]C[4]&"" #bcc"""
Range("A5").Select
ActiveCell.FormulaR1C1 = "= input!R[-3]C[5]&"" #bcchfrequency"""
Range("A6").Select
ActiveCell.FormulaR1C1 = "= input!R[-4]C[6]&"" #lac"""
Range("A1").Select
Selection.Copy
Range("A7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= ""cr
RncFunction=1,ExternalGsmNetwork=1,ExternalGsmCell=""&input!R[-4]C[1]"
Range("A2").Select
Selection.Copy
Range("A8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-5]C&"" #cell id"""
Range("A3").Select
Selection.Copy
Range("A9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-6]C[3]&"" #ncc"""
Range("A4").Select
Selection.Copy
Range("A10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-7]C[4]&"" #bcc"""
Range("A5").Select
Selection.Copy
Range("A11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-8]C[5]&"" #bcchfrequency"""
Range("A6").Select
Selection.Copy
Range("A12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-9]C[6]&"" #lac"""
Range("A7").Select
Selection.Copy
Range("A13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= ""cr
RncFunction=1,ExternalGsmNetwork=1,ExternalGsmCell=""&input!R[-9]C[1]"
Range("A8").Select
Selection.Copy
Range("A14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-10]C&"" #cell id"""
Range("A9").Select
Selection.Copy
Range("A15").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-11]C[3]&"" #ncc"""
Range("A10").Select
Selection.Copy
Range("A16").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-12]C[4]&"" #bcc"""
Range("A11").Select
Selection.Copy
Range("A17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-13]C[5]&"" #bcchfrequency"""
Range("A12").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= input!R[-14]C[6]&"" #lac"""
dst.. sampai .. End Sub
.... saya mencoba untuk menganti dengan looping tetapi selalu gagal..
terima kasih buat RR yg bisa kasih masukan biar data yg di olah menjadi
variabel dan juga macronya sendiri lebih dinamis.
Salam
Lepi
