Jgn melihat suatu coding dibawah ini rumit, perlu menghafalkan syntax2nya satu persatu,..
Tidak sama sekali, kita perlu cukup tau algoritma saja, untuk coding akan sangat dibantu dgn macros & jg papa “HELP ” tentunya..
Suatu kehebatan MS ini dalam sub program macros, “dia mampu merubah suatu perintah/command menjadi suatu coding”, sehingga kita dapat membuat perintah (dalam bentuk GUI, button, menu, dsb) yg isinya merupakan integrasi atau rangkaian suatu perintah untuk suatu proses tujuan tertentu itu akan sangat mudah.
Dibawah ini adalah suatu program yg berisikan operasi matematik biasa, dikombinasikan dgn perintah2 sederhana seperti copy-paste, waktu skarang, pemberian colour pd baris terpilih. silahkan mencoba…
—————————————————————————————————————————–
Sub perbaharui()
Range(“F2”).Value = “=+TEXT(F3,””h:mm””)”
x = Range(“J3”).Value
Range(“E3”).Value = (Cells(x, 9).Value / 24)
Range(“E3”).Select
Selection.NumberFormat = “h:mm”
‘During
End Sub
—————————————————————————————————————————–
Sub finish()
Range(“F2”).Value = “=+TEXT(F3,””h:mm””)”
x = Range(“J3”).Value
Range(“E3”).Value = (Cells(x, 9).Value / 24)
Range(“E3”).Select
Selection.NumberFormat = “h:mm”
‘During
End Sub
Sub finish()
x = Range(“J3”).Value
Range(“F2”).Value = “=+TEXT(F3,””h:mm””)”
‘F2 copy ke paste F6 & H3
Range(“F2”).Select
Selection.Copy
Range(“F6”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(“F6”).Select
Application.CutCopyMode = False
Range(“F2”).Select
Selection.Copy
Range(“H3”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(“H3”).Select
Application.CutCopyMode = False
‘copy paste value
Range(“G1”).Value = (Cells(x, 9).Value / 24)
Range(“G1”).Select
Selection.NumberFormat = “h:mm”
Range(“G6”).Select
ActiveCell.FormulaR1C1 = “=+(R[-5]C-RC[-1]+R[-5]C[1])*24”
Cells(x, 11).Value = Range(“G6”).Value
‘sisa
Cells(x + 1, 10).Value = 0
‘3
Range(“H1”).Value = Range(“H3”).Value
‘4A b -> c
Range(“H1”).Value = Range(“H3”).Value
‘G6 & G1
‘Range(“G6”).Select
‘Selection.Copy
‘Range(“G1”).Select
‘Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
‘ :=False, Transpose:=False
‘Range(“G1”).Select
‘Application.CutCopyMode = False
‘Range(“G2”).Select
‘ActiveCell.FormulaR1C1 = “=+R[-1]C-R[4]C[-1]”
‘Cells(x, 11).Value = Range(“G2”).Value
‘4
‘Cells(x, 3).Activate
‘Selection.EntireRow.Hidden = True
‘5
‘6
Range(“J3”).Value = x + 1
‘1. Nilai start berubah (F6)
‘2. Menghitung ETF (G6)
‘3. Mengenolkan (In) (J12)
‘4. Menyelisihkan ETF – Now, simpan kolom selanjutnya tetap dlm brs yg sama (K12) {sisa}
‘5. Menghide baris progress (row :12)
‘Range(Cells(1, 1)
‘Worksheets(1).Cells(1, 1).Value = 24
End Sub
—————————————————————————————————————————–