Buka Youtube pada Link di bawah ini  

Lihat link youtube di bawah ini

untuk lebih jelas link dapat dibuka di bawah ini  

Private Sub CommandButton1_Click() Dim a As Integer Dim b As Integer a = Range(“B3”) b = Range(“D3”) For i = a To b Range(“A” & 4 + i – a) = i Next i End Sub Private Sub CommandButton2_Click() Dim a As Integer Dim b As Integer a = Range(“B3”)
baca selengkapnya…

Private Sub CommandButton1_Click() Dim lembar As Worksheet Set lembar = Worksheets(2) lembar.Range(“B2”) = “No” lembar.Range(“B2”).Font.Name = “Calibri” lembar.Range(“B2”).HorizontalAlignment = xlCenter lembar.Range(“B2”).VerticalAlignment = xlCenter lembar.Range(“B2”).ColumnWidth = 12 lembar.Range(“B2”).Interior.Color = vbBlue lembar.Range(“B2”).Borders.Color = vbBlack lembar.Range(“B2”).Font.Color = vbWhite With lembar.Range(“C2”) .Value = “Tanggal” .Font.Name = “Calibri” .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .ColumnWidth
baca selengkapnya…

Private Sub CommandButton1_Click() Dim lembar As Worksheet Set lembar = Worksheets(2) lembar.Range(“b2”) = “No” lembar.Range(“b2”).Font.Name = “arial” lembar.Range(“b2”).HorizontalAlignment = xlCenter lembar.Range(“b2”).VerticalAlignment = xlCenter lembar.Range(“b2”).ColumnWidth = 5 lembar.Range(“b2”).Interior.Color = vbBlue lembar.Range(“b2”).Borders.Color = vbBlack lembar.Range(“b2”).Font.Color = vbWhite lembar.Range(“c2”) = “Tanggal” lembar.Range(“c2”).Font.Name = “arial” lembar.Range(“c2”).HorizontalAlignment = xlCenter lembar.Range(“c2”).VerticalAlignment = xlCenter lembar.Range(“c2”).ColumnWidth = 18
baca selengkapnya…

Private Sub CommandButton1_Click() Dim lembar As Worksheet Set lembar = Worksheets(2) lembar.Range(“b2”) = “No” lembar.Range(“b2”).Font.Name = “arial” lembar.Range(“b2”).HorizontalAlignment = xlCenter lembar.Range(“b2”).VerticalAlignment = xlCenter lembar.Range(“b2”).ColumnWidth = 5 lembar.Range(“b2”).Interior.Color = vbBlue lembar.Range(“b2”).Borders.Color = vbBlack lembar.Range(“b2”).Font.Color = vbWhite lembar.Range(“c2”) = “Tanggal” lembar.Range(“c2”).Font.Name = “arial” lembar.Range(“c2”).HorizontalAlignment = xlCenter lembar.Range(“c2”).VerticalAlignment = xlCenter lembar.Range(“c2”).ColumnWidth = 18
baca selengkapnya…

Private Sub CommandButton1_Click() Dim sheets As Worksheet Set sheets = Worksheets(2) Dim alamat As Range Dim nilai As Integer nilai = sheets.Cells(sheets.Rows.Count, “b”).End(xlUp).Row sheets.Range(“c” & nilai + 1) = Range(“D6”) sheets.Range(“c” & nilai + 1).HorizontalAlignment = xlCenter sheets.Range(“c” & nilai + 1).VerticalAlignment = xlCenter sheets.Range(“d” & nilai + 1) =
baca selengkapnya…

Private Sub CommandButton1_Click() On Error Resume Next Dim lembar As Worksheet Dim martin As Range Set lembar = Worksheets(2) Set martin = lembar.Range(“C:C”).Find(Range(“B4”)) If Not martin Is Nothing Then alamat = martin.Row MsgBox “Data Sudah Ada” Range(“B3”) = lembar.Range(“B” & alamat) Range(“B4”) = lembar.Range(“C” & alamat) Range(“B5”) = lembar.Range(“D” &
baca selengkapnya…

function awal(){ a=nilai1._width+30; b=nilai1._height+100; a1=nilai2._width+250; b1=nilai2._height+100; f=nilai1.text; f1=nilai2.text; _root.createTextField(“gambar”,getNextHighestDepth(),a,b,40,20); _root.createTextField(“gambar1″,getNextHighestDepth(),a1,b1,40,20); gambar.text=nilai1.text; gambar1.text=nilai2.text; gambar.border=true; gambar1.border=true; kalimat=newTextFormat(); kalimat.size=18; kalimat.color=0x009966; kalimat.align=”center”; kalimat.bold=true; gambar.setTextFormat(kalimat); gambar1.setTextFormat(kalimat); kalimatc=newTextFormat(); kalimatc.size=18; kalimatc.color=0xffff32; kalimatc.align=”center”; kalimatc.bold=true; } hit=0; gambarb=newObject(); gambarb.onKeyDown=function(){ if(Key.isDown(Key.UP)){ awal(); hit+=1; } if(Key.isDown(Key.RIGHT)){ if(hit==1){ _root[“gambarbe”+String(c)].background=true; _root[“gambarbe”+String(c)].backgroundColor=9699690/e; _root[“gambarbe”+String(c)].setTextFormat(kalimatc); hit+=1; }else if (hit==2){ _root[“gambarbern”+String(c1)].background=true; _root[“gambarbern”+String(c1)].backgroundColor=9699690/e1; _root[“gambarbern”+String(c1)].setTextFormat(kalimatc); hit=0; } } };
baca selengkapnya…