Menu

Kamis, 25 Desember 2014

MEMBUAT APLIKASI ARISAN DENGAN VB EXCEL

Cara penggunaanya iuran diisi terlebih dahulu dan setelah itu no di isi
Setelah No diisi dan di enter maka angsuran masuk ke kolom D dan bila sudah ada isinya di simpan di colom E
kode vb maronya adalah
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellTujuan As Object
Dim Kode As Variant
Dim KolomKosong As Object
Dim JmlhData As Double
Kode = Target.Value
On Error GoTo eror:
    If Not Intersect(Target, Range("N3")) Is Nothing Then
        If Target > 0 Then
            Set CellTujuan = Sheet1.Range("B:B").Find(What:=Kode, LookIn:=xlValues, LookAt:=xlWhole)
        Set KolomKosong = CellTujuan.Offset(0, 2)
        JmlhData = WorksheetFunction.CountA(Range(KolomKosong, KolomKosong.End(xlToRight)))
            If KolomKosong <> "" Then
            Set KolomKosong = CellTujuan.Offset(0, 2 + JmlhData)
            End If
        KolomKosong.Value = Range("K8").Value
        End If
        End If
Exit Sub
eror:
MsgBox "Data Tidak Ditemukan"
End Sub
DOWLOAD contoh filenya

Minggu, 30 November 2014

BUAT TRANSAKSI SIMPAN PINJAM DENGAN VBA EXCEL

Namai TexkBox dengan kode pada perintah batal
Contoh txtNIK.Value = "" berarti textboxnya txtNIK
Untuk perintah BATAL kode VBAnya 


Private Sub cmdBatal_Click()
txtNIK.Value = ""
cboRST.Value = ""
TxtNOANG.Value = ""
TxtTGA.Value = ""
txtNM.Value = ""
txtTMP.Value = ""
txtTGL.Value = ""
txtJR.Value = ""
txtKC.Value = ""
TxtANG.Value = ""
TxtJAM.Value = ""
cboBANK.Value = ""
txtNOBANK.Value = ""
TxtBAYARDI.Value = ""
txtKJ.Value = ""
txtTGLP.Value = ""
TxtPINJ.Value = ""
optLAMA.Value = ""
optBARU.Value = ""
optDINAS.Value = ""
optPENSIUNAN.Value = ""
optUMUM.Value = ""
optATM.Value = ""
TxtKE.Value = ""
txtHP.Value = ""
Cbobayar.Value = ""
TxtGaji.Value = ""
JMGAJI.Value = ""
End Sub

Untuk perintah ANGGOTA BARU
Private Sub cmdInput_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim CellTujuan As Long
If txtNIK.Value = "" Then
    MsgBox "NOMOR masih kosong", vbOKOnly
    txtNIK.SetFocus
    Exit Sub

ElseIf txtNM.Value = "" Then
    MsgBox "NAMA masih kosong", vbOKOnly
    txtNM.SetFocus
    Exit Sub
   
    Exit Sub
End If


With Worksheets("DATA")
CellTujuan = .Cells(.Rows.Count, "D"). _
End(xlUp).Offset(0, 1).Row
'--- data input
Worksheets("DATA").Cells(CellTujuan + 1, 1).Value = CellTujuan
Worksheets("DATA").Cells(CellTujuan + 1, 2).Value = (cboRST.Value + TxtNOANG.Value)
Worksheets("DATA").Cells(CellTujuan + 1, 3).Value = txtNIK.Value
Worksheets("DATA").Cells(CellTujuan + 1, 4).Value = cboRST.Value
Worksheets("DATA").Cells(CellTujuan + 1, 5).Value = TxtNOANG.Value
Worksheets("DATA").Cells(CellTujuan + 1, 6).Value = TxtTGA.Value
Worksheets("DATA").Cells(CellTujuan + 1, 7).Value = txtNM.Value
Worksheets("DATA").Cells(CellTujuan + 1, 8).Value = txtTMP.Value
Worksheets("DATA").Cells(CellTujuan + 1, 9).Value = txtTGL.Value
Worksheets("DATA").Cells(CellTujuan + 1, 10).Value = txtJR.Value
Worksheets("DATA").Cells(CellTujuan + 1, 11).Value = txtKC.Value
Worksheets("DATA").Cells(CellTujuan + 1, 12).Value = TxtANG.Value
Worksheets("DATA").Cells(CellTujuan + 1, 13).Value = TxtJAM.Value
Worksheets("DATA").Cells(CellTujuan + 1, 14).Value = cboBANK.Value
Worksheets("DATA").Cells(CellTujuan + 1, 15).Value = txtNOBANK.Value
Worksheets("DATA").Cells(CellTujuan + 1, 16).Value = TxtBAYARDI.Value
Worksheets("DATA").Cells(CellTujuan + 1, 17).Value = txtKJ.Value
Worksheets("DATA").Cells(CellTujuan + 1, 18).Value = txtTGLP.Value
Worksheets("DATA").Cells(CellTujuan + 1, 19).Value = TxtPINJ.Value
If optLAMA = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 20).Value = "LAMA"
ElseIf optBARU = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 20).Value = "BARU"
End If
If optDINAS = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 21).Value = "DINAS"
ElseIf optPENSIUNAN = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 21).Value = "PENSIUNAN"
ElseIf optUMUM = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 21).Value = "UMUM"
ElseIf optATM = True Then
Worksheets("DATA").Cells(CellTujuan + 1, 21).Value = "ATM"
End If
Worksheets("DATA").Cells(CellTujuan + 1, 22).Value = TxtKE.Value
Worksheets("DATA").Cells(CellTujuan + 1, 23).Value = txtHP.Value
Worksheets("DATA").Cells(CellTujuan + 1, 24).Value = Cbobayar.Value
Worksheets("DATA").Cells(CellTujuan + 1, 25).Value = TxtGaji.Value
Worksheets("DATA").Cells(CellTujuan + 1, 26).Value = "=DATEDIF(RC[-17],NOW(),""y"")&"" ""&""Tahun"""
Worksheets("DATA").Cells(CellTujuan + 1, 27).Value = JMGAJI.Value
End With


With Worksheets("BLANGKO")
Worksheets("BLANGKO").Cells(2, 1) = txtNM.Value
Worksheets("BLANGKO").Cells(2, 2) = txtTMP.Value
Worksheets("BLANGKO").Cells(2, 3) = TxtTGA.Value
Worksheets("BLANGKO").Cells(2, 4) = txtKJ.Value
Worksheets("BLANGKO").Cells(2, 5) = txtJR.Value
Worksheets("BLANGKO").Cells(2, 6) = txtKC.Value
Worksheets("BLANGKO").Cells(2, 7) = TxtPINJ.Value
Worksheets("BLANGKO").Cells(2, 8) = "=TERBILANG(RC[-1])"
Worksheets("BLANGKO").Cells(2, 9) = cboBANK.Value
Worksheets("BLANGKO").Cells(2, 10) = txtNOBANK.Value
Worksheets("BLANGKO").Cells(2, 11) = cboRST.Value
Worksheets("BLANGKO").Cells(2, 12) = TxtANG.Value
Worksheets("BLANGKO").Cells(2, 13) = TxtJAM.Value
Worksheets("BLANGKO").Cells(2, 14) = txtTGLP.Value
Worksheets("BLANGKO").Cells(2, 15) = (TxtPINJ.Value / 12)
Worksheets("BLANGKO").Cells(2, 16) = "=TERBILANG(RC[-1])"
Worksheets("BLANGKO").Cells(2, 17) = "=RC[-3]+30"
Worksheets("BLANGKO").Cells(2, 18) = TxtNOANG.Value
End With

With Worksheets("BERKAS")
Worksheets("BERKAS").Cells(3, 11) = TxtNOANG.Value
Worksheets("BERKAS").Cells(11, 11) = cboRST.Value
Worksheets("BERKAS").Cells(7, 2) = TxtPINJ.Value
Worksheets("BERKAS").Cells(10, 5) = txtNM.Value
Worksheets("BERKAS").Cells(11, 3) = txtJR.Value
Worksheets("BERKAS").Cells(12, 3) = txtKC.Value
Worksheets("BERKAS").Cells(13, 5) = TxtANG.Value
Worksheets("BERKAS").Cells(14, 5) = TxtJAM.Value
Worksheets("BERKAS").Cells(15, 5) = (cboBANK.Value + txtNOBANK.Value)
End With

With Worksheets("KARTU")
Worksheets("KARTU").Cells(2, 3) = TxtPINJ.Value
Worksheets("KARTU").Cells(3, 1) = "=TERBILANG(R[-1]C[2])"
Worksheets("KARTU").Cells(7, 5) = txtNM.Value
Worksheets("KARTU").Cells(8, 5) = txtTMP.Value
Worksheets("KARTU").Cells(8, 6) = txtTGL.Value
Worksheets("KARTU").Cells(8, 7) = "=DATEDIF(RC[-1],NOW(),""y"")&"" ""&""Tahun"""
Worksheets("KARTU").Cells(9, 5) = txtJR.Value
Worksheets("KARTU").Cells(10, 5) = txtKC.Value
Worksheets("KARTU").Cells(12, 5) = cboRST.Value
Worksheets("KARTU").Cells(7, 10) = TxtNOANG.Value
Worksheets("KARTU").Cells(9, 10) = TxtBAYARDI.Value
Worksheets("KARTU").Cells(10, 10) = Cbobayar.Value
Worksheets("KARTU").Cells(12, 10) = TxtANG.Value
Worksheets("KARTU").Cells(13, 9) = TxtJAM.Value
Worksheets("KARTU").Cells(13, 7) = txtNOBANK.Value
Worksheets("KARTU").Cells(16, 2) = txtTGLP.Value
Worksheets("KARTU").Cells(16, 8) = TxtPINJ.Value
Worksheets("KARTU").Cells(11, 6) = txtKJ.Value
Application.ScreenUpdating = False
NamaFile = (cboRST.Value + TxtNOANG.Value + " " + txtNM.Value)
FileX = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
Worksheets("KARTU").Image1.Picture = LoadPicture(FileX)
Application.ScreenUpdating = True
End With

With Worksheets("BALEK KARTU")
Worksheets("BALEK KARTU").Cells(9, 3) = JMGAJI.Value
Worksheets("BALEK KARTU").Cells(10, 2) = "=terbilang(R[-1]C[1])"
Worksheets("BALEK KARTU").Cells(18, 2) = txtNM.Value
Worksheets("BALEK KARTU").Cells(19, 3) = txtTGLP.Value
End With

With Worksheets("KWITANSI")
Worksheets("KWITANSI").Cells(2, 5) = cboRST.Value
Worksheets("KWITANSI").Cells(23, 5) = cboRST.Value
Worksheets("KWITANSI").Cells(2, 6) = TxtNOANG.Value
Worksheets("KWITANSI").Cells(23, 6) = TxtNOANG.Value
Worksheets("KWITANSI").Cells(12, 10) = txtTGLP.Value
Worksheets("KWITANSI").Cells(35, 10) = txtTGLP.Value
Worksheets("KWITANSI").Cells(18, 14) = txtNM.Value
Worksheets("KWITANSI").Cells(18, 14) = txtNM.Value
Worksheets("KWITANSI").Cells(6, 8) = "=TERBILANG(R[12]C[-3])"
Worksheets("KWITANSI").Cells(27, 8) = "=TERBILANG(R[12]C[-3])"
Worksheets("KWITANSI").Cells(18, 5) = TxtPINJ.Value
Worksheets("KWITANSI").Cells(39, 5) = TxtPINJ.Value
End With

Select Case cboRST.Value
Case "ANGGREK"
With Worksheets("ANGGREK")
CellTujuan = .Cells(.Rows.Count, "D"). _
End(xlUp).Offset(0, 1).Row
'--- data input
Worksheets("ANGGREK").Cells(CellTujuan + 1, 1).Value = CellTujuan - 1
Worksheets("ANGGREK").Cells(CellTujuan + 1, 2).Value = txtTGLP.Value
Worksheets("ANGGREK").Cells(CellTujuan + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("ANGGREK").Cells(CellTujuan + 1, 4).Value = TxtNOANG.Value
Worksheets("ANGGREK").Cells(CellTujuan + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("ANGGREK").Cells(CellTujuan + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("ANGGREK").Cells(CellTujuan + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("ANGGREK").Cells(CellTujuan + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("ANGGREK").Cells(CellTujuan + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With

Case "MAWAR"
With Worksheets("MAWAR")
CellTujuan = .Cells(.Rows.Count, "D"). _
End(xlUp).Offset(0, 1).Row
'--- data input
Worksheets("MAWAR").Cells(CellTujuan + 1, 1).Value = CellTujuan - 1
Worksheets("MAWAR").Cells(CellTujuan + 1, 2).Value = txtTGLP.Value
Worksheets("MAWAR").Cells(CellTujuan + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("MAWAR").Cells(CellTujuan + 1, 4).Value = TxtNOANG.Value
Worksheets("MAWAR").Cells(CellTujuan + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("MAWAR").Cells(CellTujuan + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("MAWAR").Cells(CellTujuan + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("MAWAR").Cells(CellTujuan + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("MAWAR").Cells(CellTujuan + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With

Case ("TERATAI")
With Worksheets("TERATAI")
CellTujuan = .Cells(.Rows.Count, "D"). _
End(xlUp).Offset(0, 1).Row
'--- data input
Worksheets("TERATAI").Cells(CellTujuan + 1, 1).Value = CellTujuan - 1
Worksheets("TERATAI").Cells(CellTujuan + 1, 2).Value = txtTGLP.Value
Worksheets("TERATAI").Cells(CellTujuan + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("TERATAI").Cells(CellTujuan + 1, 4).Value = TxtNOANG.Value
Worksheets("TERATAI").Cells(CellTujuan + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("TERATAI").Cells(CellTujuan + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("TERATAI").Cells(CellTujuan + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("TERATAI").Cells(CellTujuan + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("TERATAI").Cells(CellTujuan + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With
End Select

txtNIK.Value = ""
cboRST.Value = ""
TxtNOANG.Value = ""
TxtTGA.Value = ""
txtNM.Value = ""
txtTMP.Value = ""
txtTGL.Value = ""
txtJR.Value = ""
txtKC.Value = ""
TxtANG.Value = ""
TxtJAM.Value = ""
cboBANK.Value = ""
txtNOBANK.Value = ""
TxtBAYARDI.Value = ""
txtKJ.Value = ""
txtTGLP.Value = ""
TxtPINJ.Value = ""
optLAMA.Value = ""
optBARU.Value = ""
optDINAS.Value = ""
optPENSIUNAN.Value = ""
optUMUM.Value = ""
optATM.Value = ""
TxtKE.Value = ""
txtHP.Value = ""
Cbobayar.Value = ""
TxtGaji.Value = ""
JMGAJI.Value = ""
MsgBox "Data sudah disimpan", vbOKOnly
End Sub

UNTUK TOMBOL CARI
 Private Sub CMDCARI_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim Kode
Dim CellTujuan As Range
Kode = (cboRST.Value + TxtNOANG.Value)
Set CellTujuan = Worksheets("DATA").Range("B:B").Find(What:=Kode, LookIn:=xlValues, LookAt:=xlWhole)
If Not CellTujuan Is Nothing Then
txtNIK.Value = Worksheets("DATA").Cells(CellTujuan.Row, 3)
cboRST.Value = Worksheets("DATA").Cells(CellTujuan.Row, 4)
TxtNOANG.Value = Worksheets("DATA").Cells(CellTujuan.Row, 5)
TxtTGA.Value = Worksheets("DATA").Cells(CellTujuan.Row, 6)
txtNM.Value = Worksheets("DATA").Cells(CellTujuan.Row, 7)
txtTMP.Value = Worksheets("DATA").Cells(CellTujuan.Row, 8)
txtTGL.Value = Worksheets("DATA").Cells(CellTujuan.Row, 9)
txtJR.Value = Worksheets("DATA").Cells(CellTujuan.Row, 10)
txtKC.Value = Worksheets("DATA").Cells(CellTujuan.Row, 11)
TxtANG.Value = Worksheets("DATA").Cells(CellTujuan.Row, 12)
TxtJAM.Value = Worksheets("DATA").Cells(CellTujuan.Row, 13)
cboBANK.Value = Worksheets("DATA").Cells(CellTujuan.Row, 14)
txtNOBANK.Value = Worksheets("DATA").Cells(CellTujuan.Row, 15)
TxtBAYARDI.Value = Worksheets("DATA").Cells(CellTujuan.Row, 16)
txtKJ.Value = Worksheets("DATA").Cells(CellTujuan.Row, 17)
txtTGLP.Value = Worksheets("DATA").Cells(CellTujuan.Row, 18)
TxtPINJ.Value = Worksheets("DATA").Cells(CellTujuan.Row, 19)
If Worksheets("DATA").Cells(CellTujuan.Row, 20) = "LAMA" Then
optLAMA.Value = True
ElseIf Worksheets("DATA").Cells(CellTujuan.Row, 20) = "BARU" Then
optBARU.Value = True
End If
If Worksheets("DATA").Cells(CellTujuan.Row, 21) = "DINAS" Then
optDINAS.Value = True
ElseIf Worksheets("DATA").Cells(CellTujuan.Row, 21) = "PENSIUNAN" Then
optPENSIUNAN.Value = True
ElseIf Worksheets("DATA").Cells(CellTujuan.Row, 21) = "UMUM" Then
optUMUM.Value = True
ElseIf Worksheets("DATA").Cells(CellTujuan.Row, 21) = "ATM" Then
optATM.Value = True
End If
TxtKE.Value = Worksheets("DATA").Cells(CellTujuan.Row, 22)
txtHP.Value = Worksheets("DATA").Cells(CellTujuan.Row, 23)
Cbobayar.Value = Worksheets("DATA").Cells(CellTujuan.Row, 24)
TxtGaji.Value = Worksheets("DATA").Cells(CellTujuan.Row, 25)
JMGAJI.Value = Worksheets("DATA").Cells(CellTujuan.Row, 27)
Else: MsgBox "Tidak Ada Hasil !"
End If
Application.ScreenUpdating = False
NamaFile = (cboRST.Value + TxtNOANG.Value + " " + txtNM.Value)
FileX = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
FOTO.Picture = LoadPicture(FileX)
   FOTO.Height = TRANSAKSI.Height - 405 '+ Image1.Height
  FOTO.Width = TRANSAKSI.Width - 655 '+ Image1.Height
   FOTO.Top = 36
   FOTO.Left = 606
Application.ScreenUpdating = True
End Sub
UNTUK ANGGOTA LAMA
Private Sub ANGGOTALAMA_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim Kode
Dim TujuanData As Range
Kode = (cboRST.Text + TxtNOANG.Text)
Set TujuanData = Sheets("DATA").Range("B:B").Find(What:=Kode, LookIn:=xlValues, LookAt:=xlWhole)
If Not TujuanData Is Nothing Then
Worksheets("DATA").Cells(TujuanData.Row, 3).Value = txtNIK.Value
Worksheets("DATA").Cells(TujuanData.Row, 4).Value = cboRST.Value
Worksheets("DATA").Cells(TujuanData.Row, 5).Value = TxtNOANG.Value
Worksheets("DATA").Cells(TujuanData.Row, 6).Value = TxtTGA.Value
Worksheets("DATA").Cells(TujuanData.Row, 7).Value = txtNM.Value
Worksheets("DATA").Cells(TujuanData.Row, 8).Value = txtTMP.Value
Worksheets("DATA").Cells(TujuanData.Row, 9).Value = txtTGL.Value
Worksheets("DATA").Cells(TujuanData.Row, 10).Value = txtJR.Value
Worksheets("DATA").Cells(TujuanData.Row, 11).Value = txtKC.Value
Worksheets("DATA").Cells(TujuanData.Row, 12).Value = TxtANG.Value
Worksheets("DATA").Cells(TujuanData.Row, 13).Value = TxtJAM.Value
Worksheets("DATA").Cells(TujuanData.Row, 14).Value = cboBANK.Value
Worksheets("DATA").Cells(TujuanData.Row, 15).Value = txtNOBANK.Value
Worksheets("DATA").Cells(TujuanData.Row, 16).Value = TxtBAYARDI.Value
Worksheets("DATA").Cells(TujuanData.Row, 17).Value = txtKJ.Value
Worksheets("DATA").Cells(TujuanData.Row, 18).Value = txtTGLP.Value
Worksheets("DATA").Cells(TujuanData.Row, 19).Value = TxtPINJ.Value
If optLAMA = True Then
Worksheets("DATA").Cells(TujuanData.Row, 20).Value = "LAMA"
ElseIf optBARU = True Then
Worksheets("DATA").Cells(TujuanData.Row, 20).Value = "BARU"
End If
If optDINAS = True Then
Worksheets("DATA").Cells(TujuanData.Row, 21).Value = "DINAS"
ElseIf optPENSIUNAN = True Then
Worksheets("DATA").Cells(TujuanData.Row, 21).Value = "PENSIUNAN"
ElseIf optUMUM = True Then
Worksheets("DATA").Cells(TujuanData.Row, 21).Value = "UMUM"
ElseIf optATM = True Then
Worksheets("DATA").Cells(TujuanData.Row, 21).Value = "ATM"
End If
Worksheets("DATA").Cells(TujuanData.Row, 22).Value = TxtKE.Value
Worksheets("DATA").Cells(TujuanData.Row, 23).Value = txtHP.Value
Worksheets("DATA").Cells(TujuanData.Row, 24).Value = Cbobayar.Value
Worksheets("DATA").Cells(TujuanData.Row, 25).Value = TxtGaji.Value
Worksheets("DATA").Cells(TujuanData.Row, 26).Value = "=DATEDIF(RC[-17],NOW(),""y"")&"" ""&""Tahun"""
Worksheets("DATA").Cells(TujuanData.Row, 27).Value = JMGAJI.Value
End If

With Worksheets("BLANGKO")
Worksheets("BLANGKO").Cells(2, 1) = txtNM.Value
Worksheets("BLANGKO").Cells(2, 2) = txtTMP.Value
Worksheets("BLANGKO").Cells(2, 3) = TxtTGA.Value
Worksheets("BLANGKO").Cells(2, 4) = txtKJ.Value
Worksheets("BLANGKO").Cells(2, 5) = txtJR.Value
Worksheets("BLANGKO").Cells(2, 6) = txtKC.Value
Worksheets("BLANGKO").Cells(2, 7) = TxtPINJ.Value
Worksheets("BLANGKO").Cells(2, 8) = "=TERBILANG(RC[-1])"
Worksheets("BLANGKO").Cells(2, 9) = cboBANK.Value
Worksheets("BLANGKO").Cells(2, 10) = txtNOBANK.Value
Worksheets("BLANGKO").Cells(2, 11) = cboRST.Value
Worksheets("BLANGKO").Cells(2, 12) = TxtANG.Value
Worksheets("BLANGKO").Cells(2, 13) = TxtJAM.Value
Worksheets("BLANGKO").Cells(2, 14) = txtTGLP.Value
Worksheets("BLANGKO").Cells(2, 15) = (TxtPINJ.Value / 12)
Worksheets("BLANGKO").Cells(2, 16) = "=TERBILANG(RC[-1])"
Worksheets("BLANGKO").Cells(2, 17) = "=RC[-3]+30"
Worksheets("BLANGKO").Cells(2, 18) = TxtNOANG.Value
End With


With Worksheets("BERKAS")
Worksheets("BERKAS").Cells(3, 11) = TxtNOANG.Value
Worksheets("BERKAS").Cells(11, 11) = cboRST.Value
Worksheets("BERKAS").Cells(7, 2) = txtTGLP.Value
Worksheets("BERKAS").Cells(10, 5) = txtNM.Value
Worksheets("BERKAS").Cells(11, 3) = txtJR.Value
Worksheets("BERKAS").Cells(12, 3) = txtKC.Value
Worksheets("BERKAS").Cells(13, 5) = TxtANG.Value
Worksheets("BERKAS").Cells(14, 5) = TxtJAM.Value
Worksheets("BERKAS").Cells(15, 5) = (cboBANK.Value + txtNOBANK.Value)
End With

With Worksheets("KARTU")
Worksheets("KARTU").Cells(2, 3) = TxtPINJ.Value
Worksheets("KARTU").Cells(3, 1) = "=TERBILANG(R[-1]C[2])"
Worksheets("KARTU").Cells(7, 5) = txtNM.Value
Worksheets("KARTU").Cells(8, 5) = txtTMP.Value
Worksheets("KARTU").Cells(8, 6) = txtTGL.Value
Worksheets("KARTU").Cells(8, 7) = "=DATEDIF(RC[-1],NOW(),""y"")&"" ""&""Tahun"""
Worksheets("KARTU").Cells(9, 5) = txtJR.Value
Worksheets("KARTU").Cells(10, 5) = txtKC.Value
Worksheets("KARTU").Cells(12, 5) = cboRST.Value
Worksheets("KARTU").Cells(7, 10) = TxtNOANG.Value
Worksheets("KARTU").Cells(9, 10) = TxtBAYARDI.Value
Worksheets("KARTU").Cells(10, 10) = Cbobayar.Value
Worksheets("KARTU").Cells(12, 10) = TxtANG.Value
Worksheets("KARTU").Cells(13, 9) = TxtJAM.Value
Worksheets("KARTU").Cells(13, 7) = txtNOBANK.Value
Worksheets("KARTU").Cells(16, 2) = txtTGLP.Value
Worksheets("KARTU").Cells(16, 8) = TxtPINJ.Value
Worksheets("KARTU").Cells(11, 6) = txtKJ.Value
Application.ScreenUpdating = False
NamaFile = (cboRST.Value + TxtNOANG.Value + " " + txtNM.Value)
FileX = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
Worksheets("KARTU").Image1.Picture = LoadPicture(FileX)
Application.ScreenUpdating = True
End With

With Worksheets("BALEK KARTU")
Worksheets("BALEK KARTU").Cells(9, 3) = JMGAJI.Value
Worksheets("BALEK KARTU").Cells(10, 2) = "=terbilang(R[-1]C[1])"
Worksheets("BALEK KARTU").Cells(18, 2) = txtNM.Value
Worksheets("BALEK KARTU").Cells(19, 3) = txtTGLP.Value
End With

With Worksheets("KWITANSI")
Worksheets("KWITANSI").Cells(2, 5) = cboRST.Value
Worksheets("KWITANSI").Cells(23, 5) = cboRST.Value
Worksheets("KWITANSI").Cells(2, 6) = TxtNOANG.Value
Worksheets("KWITANSI").Cells(23, 6) = TxtNOANG.Value
Worksheets("KWITANSI").Cells(12, 10) = txtTGLP.Value
Worksheets("KWITANSI").Cells(35, 10) = txtTGLP.Value
Worksheets("KWITANSI").Cells(18, 14) = txtNM.Value
Worksheets("KWITANSI").Cells(18, 14) = txtNM.Value
Worksheets("KWITANSI").Cells(6, 8) = "=TERBILANG(R[12]C[-3])"
Worksheets("KWITANSI").Cells(27, 8) = "=TERBILANG(R[12]C[-3])"
Worksheets("KWITANSI").Cells(18, 5) = TxtPINJ.Value
Worksheets("KWITANSI").Cells(39, 5) = TxtPINJ.Value
End With

Select Case cboRST.Value
Case "ANGGREK"
Dim CellANGGREK As Long
With Worksheets("ANGGREK")
CellANGGREK = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'--- data input
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 1).Value = CellANGGREK - 1
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 2).Value = txtTGLP.Value
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 4).Value = TxtNOANG.Value
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("ANGGREK").Cells(CellANGGREK + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With

Case "MAWAR"
Dim CellMAWAR As Long
With Worksheets("MAWAR")
CellMAWAR = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'--- data input
Worksheets("MAWAR").Cells(CellMAWAR + 1, 1).Value = CellMAWAR - 1
Worksheets("MAWAR").Cells(CellMAWAR + 1, 2).Value = txtTGLP.Value
Worksheets("MAWAR").Cells(CellMAWAR + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("MAWAR").Cells(CellMAWAR + 1, 4).Value = TxtNOANG.Value
Worksheets("MAWAR").Cells(CellMAWAR + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("MAWAR").Cells(CellMAWAR + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("MAWAR").Cells(CellMAWAR + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("MAWAR").Cells(CellMAWAR + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("MAWAR").Cells(CellMAWAR + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With

Case ("TERATAI")
Dim CellTERATAI As Long
With Worksheets("TERATAI")
CellTERATAI = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'--- data input
Worksheets("TERATAI").Cells(CellTERATAI + 1, 1).Value = CellTERATAI - 1
Worksheets("TERATAI").Cells(CellTERATAI + 1, 2).Value = txtTGLP.Value
Worksheets("TERATAI").Cells(CellTERATAI + 1, 3).Value = (Day(txtTGLP.Value))
Worksheets("TERATAI").Cells(CellTERATAI + 1, 4).Value = TxtNOANG.Value
Worksheets("TERATAI").Cells(CellTERATAI + 1, 5).Value = txtNM.Value
If optDINAS = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 6).Value = 1
ElseIf optPENSIUNAN = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 7).Value = 1
ElseIf optUMUM = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 8).Value = 1
ElseIf optATM = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 8).Value = 1
End If
If optLAMA = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 10).Value = 1
ElseIf optBARU = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 11).Value = 1
End If
If optLAMA = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 12).Value = TxtPINJ.Value
ElseIf optBARU = True Then
Worksheets("TERATAI").Cells(CellTERATAI + 1, 13).Value = TxtPINJ.Value
End If
Worksheets("TERATAI").Cells(CellTERATAI + 1, 14).Value = (TxtPINJ.Value * 3 / 100)
Worksheets("TERATAI").Cells(CellTERATAI + 1, 15).Value = "=IF(RC[-4]=1,5000,"""")"
Worksheets("TERATAI").Cells(CellTERATAI + 1, 16).Value = "=SUM(RC[-4]:RC[-3])-SUM(RC[-2]:RC[-1])"
End With
End Select

txtNIK.Value = ""
cboRST.Value = ""
TxtNOANG.Value = ""
TxtTGA.Value = ""
txtNM.Value = ""
txtTMP.Value = ""
txtTGL.Value = ""
txtJR.Value = ""
txtKC.Value = ""
TxtANG.Value = ""
TxtJAM.Value = ""
cboBANK.Value = ""
txtNOBANK.Value = ""
TxtBAYARDI.Value = ""
txtKJ.Value = ""
txtTGLP.Value = ""
TxtPINJ.Value = ""
optLAMA.Value = ""
optBARU.Value = ""
optDINAS.Value = ""
optPENSIUNAN.Value = ""
optUMUM.Value = ""
optATM.Value = ""
TxtKE.Value = ""
txtHP.Value = ""
Cbobayar.Value = ""
TxtGaji.Value = ""
JMGAJI.Value = ""
MsgBox "Data sudah disimpan", vbOKOnly
End Sub
UNTUK INSERT FOTO ANGGOTA
Private Sub cmdnamafoto_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim SourceFile, DestinationFile

x.SetFocus
Filter = "JPG Image Files Only(*.jpg),*.jpg,"
Title = "Silahkan Pilih Logo"
FileX = Application.GetOpenFilename(Filter, , Title)
NamaFile = (cboRST.Value + TxtNOANG.Value + " " + txtNM.Value)
FOTO.Picture = LoadPicture(FileX)
   FOTO.Height = TRANSAKSI.Height - 405 '+ Image1.Height
  FOTO.Width = TRANSAKSI.Width - 655 '+ Image1.Height
   FOTO.Top = 36
   FOTO.Left = 606
DestinationFile = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
FileCopy FileX, DestinationFile
End Sub
UNTUK CONTOHNYA BISA DI DOWNLOAD DI BAWAH INI
DOWNLOAD

Rabu, 08 Oktober 2014

MEMBUAT ENTRI CARI SIMPAN EDIT HAPUS DENGAN MACRO EXCEL

Private Sub cmdCari_Click()
Dim KodeSiswa
Dim CellTujuan As Range

KodeSiswa = txtKodeSiswa.Text
Set CellTujuan = Range("B:B").Find(What:=KodeSiswa)

If Not CellTujuan Is Nothing Then
txtNamaSiswa.Text = Cells(CellTujuan.Row, 3)
cmbProgramStudi.Text = Cells(CellTujuan.Row, 4)
If Cells(CellTujuan.Row, 5) = "Laki-laki" Then
optLakiLaki.Value = True
ElseIf Cells(CellTujuan.Row, 5) = "Perempuan" Then optPerempuan.Value = True
End If
txtTempatLahir.Text = Cells(CellTujuan.Row, 6)
Else
MsgBox "Tidak Ada Hasil !"
End If
End Sub

Private Sub cmdTambah_Click() 
    Dim baris As Integer
                baris = WorksheetFunction.CountA(Range("B:B"))

baris = baris + 1

               Cells(baris, 2) = txtKodeSiswa 
       Cells(baris, 3) = txtNamaSiswa 
       Cells(baris, 4) = cmbProgramStudi
       If optLakiLaki = True Then 
       Cells(baris, 5) = "Laki-laki" 
       ElseIf optPerempuan = True Then
Cells(baris, 5) = "Perempuan" End If
Cells(baris, 6) = txtTempatLahir

Cells(baris, 7) = txtTanggalLahir
  End Sub

Private Sub cmdUbah_Click() Dim KodeSiswa
Dim CellTujuan As Range

                KodeSiswa = txtKodeSiswa.Text

Set CellTujuan = Range("B:B").Find(What:=KodeSiswa)

  
Cells(CellTujuan.Row, 2) = txtKodeSiswa Cells(CellTujuan.Row, 3) = txtNamaSiswa Cells(CellTujuan.Row, 4) = cmbProgramStudi If optLakiLaki = True Then Cells(CellTujuan.Row, 5) = "Laki-laki" ElseIf optPerempuan = True Then Cells(CellTujuan.Row, 5) = "Perempuan"
End If
Cells(CellTujuan.Row, 6) = txtTempatLahir Cells(CellTujuan.Row, 7) =txtTanggalLahir End Sub

Private Sub cmdHapus_Click() Dim KodeSiswa
Dim CellTujuan As Range

KodeSiswa = txtKodeSiswa.Text
Set CellTujuan =Range("B:B").Find(What:=KodeSiswa) Rows(CellTujuan.Row).Delete Shift:=xlUp
End Sub



RUMUS MENCARI BARIS ATAU KOLOM YANG KOSONG DENGAN MACRO EXCEL

Private Sub BarisKosong_satu()
Dim BarisKosong
BarisKosong = Cells(1, 1).End(xlDown).Offset(1, 0).Row
MsgBox "cara satu :" & BarisKosong
End Sub

Private Sub BarisKosong_dua()
Dim BarisKosong
BarisKosong = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
MsgBox "cara dua :" & BarisKosong
End Sub

Private Sub BarisKosong_tiga()
Dim BarisKosong
Dim i
i = 1
Do While Cells(i, 1) <> ""
i = i + 1
Loop
BarisKosong = i
MsgBox "cara tiga :" & BarisKosong
End Sub


Private Sub BarisKosong_empat()
Dim BarisKosong
Dim i
i = 1
Do While Not IsEmpty(Cells(i, 1))
i = i + 1
Loop
BarisKosong = i
MsgBox "cara empat :" & BarisKosong
End Sub

Private Sub BarisKosong_lima() 'prosesnya lama
Dim BarisKosong
Dim i
i = Rows.Count
Do While IsEmpty(Cells(i, 1))
i = i - 1
Loop
BarisKosong = i + 1
MsgBox "cara lima :" & BarisKosong
End Sub

Private Sub BarisKosong_enam()
Dim BarisKosong
Dim i
i = 1
Do While Not IsEmpty(Cells(i, 1))
BarisKosong = Cells(i, 1).Offset(1, 0).Row
i = i + 1
Loop
'BarisKosong = i + 1
MsgBox "cara enam :" & BarisKosong
End Sub

Private Sub BarisKosong_tujuh() 'prosesnya lama
Dim BarisKosong
Dim i
i = Rows.Count
Do While IsEmpty(Cells(i, 1))
BarisKosong = Cells(i, 1).Offset(-1, 0).Row
i = i - 1
Loop
BarisKosong = BarisKosong + 1
MsgBox "cara tujuh :" & BarisKosong
End Sub

'============================
Private Sub kolomKosong_satu()
Dim kolomKosong
kolomKosong = Cells(1, 1).End(xlToRight).Offset(0, 1).Column
MsgBox "cara satu :" & kolomKosong
End Sub

Private Sub kolomKosong_dua()
Dim kolomKosong
kolomKosong = Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Column
MsgBox "cara dua :" & kolomKosong
End Sub

'silakan berkreasi sendiri semoga sukses

'secara manual cari baris kosong adalah sebagai berikut :
'1. pilih cels A1
'2. tekan enter atau panah bawah terus sampai ketemu baris yang kosong
'kalau dibahasakan dengan VBA
'Cells(1,1) = meletakkan poniter ke cell A1
'.End = sampai mentok/akhir
'(xlDown)=panah atas
'offset = geser
'(1,0)=argument gesernya =1 baris ke bawah, 0 kolom ke kanan artinya tetap dikolom A
' .Row = mengambil nilai baris

'baris kosong = Cells(1, 1).End(xlDown).Offset(1, 0).Row
'artinya seolah kita pilih cell A1 kemudian tekan panah ke bawah sampai baris terakhir
'yang ada isinya, kemudian turun satu baris lagi,
'kemudian nilai barisnya disimpan dalam variabel yang bernama "BarisKosong"
' maka inilah baris kosong pertama

'Lain lagi jika 'baris kosong = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'ini artinya seolah kita pilih cells kolom A paling bawah terus tekan panah atas
'sampai mentok ketemu cell yang tidak kosong kemudian geser ke bawah 1 baris,
'kemudian nilai barisnya disimpan dalam variabel yang bernama "BarisKosong"

'rows.count = menunjukkan bnyak baris dalam worksheet, nilainya tergantung versi excel/ms office nya
'kalau versi 2003=
'kalau versi 2007 = 1048576
'dll

'columns.Count =menunjukkan jumlah kolom dalam worksheet, nilai juga tergantu versinya
'kalau versi 2007 = 16384
'
'dengan cara yang sama di atas kode berikut ini juga dipahami
'cuma berbeda arahnya
'kolomKosong = Cells(1, 1).End(xlToRight).Offset(0, 1).Column
'kolomKosong = Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Column

' xlUp = panah ke atas
' xlDown = panah ke bawah
' xlToRight = panah ke kanan
' xlToLeft = panah ke kiri
'
' Do while
'......
'......
' Loop

' adalah perintah untuk iterasi/perulangan
' artinya kode-kode di antara Do While ... Loop akan terus dijalankan jika syarat kondisinya terpenuhi
' syarat kondisi diletakkan setelah kata "while" tersebut
' Do While cells(i,1)<>"" artinya kerjakan selama cells(baris i kolom 1) tidak kosong
' sama maksudnya dengan perintah Do While Not IsEmpty

Senin, 08 September 2014

SA’I, PERJUANGAN TIADA HENTI & UJIAN BERAT ITU DIMULAI DI MINA


 SA’I, PERJUANGAN TIADA HENTI


Siapakah pendirinya? Mereka adalah keluarga Nabi Ibrahim. Khususnya Siti Hajar dan anaknya, Nabi Ismail. Dua orang ibu dan anak inilah yang telah menjadikan kawasan mengerikan itu menjadi tempat yang menarik untuk disinggahi para pedagang karavan. Tentu saja, dengan seizin Allah Sang Sutradara Kehidupan, setelah Nabi Ibrahim berdoa kepada-Nya agar lembah itu menjadi negeri yang penuh rezeki dan sejahtera.
QS. Ibrahim (14): 37
Ya Tuhan kami, sesungguhnya aku telah menempatkan sebagian keturunanku di lembah yang tidak mempunyai tanam-tanaman di dekat rumah-Mu (Baitullah) yang dihormati. Ya Tuhan kami agar mereka mendirikan shalat, maka jadikanlah hati sebagian manusia cenderung (mengunjungi) mereka dan beri rezekilah mereka dari buah-buahan, mudah-mudahan mereka bersyukur.
Ibrahim membawa anak istrinya dari Palestina untuk ditempatkan di lembah gersang itu atas perintah Allah. Berhari-hari mereka menempuh perjalanan sejauh 1.500 kilometer, sambil membawa Ismail yang masih bayi. Ibrahim tak bercerita kepada istrinya tentang perintah Allah itu sampai mereka berada di lembah cikal bakal kota Mekah.
Sesampai disana barulah Hajar mengetahui maksud Ibrahim membawanya dalam perjalanan jauh itu. Ia begitu kaget ketika Ibrahim menyampaikan bahwa ia dan anaknya yang masih bayi itu akan ditinggalkan disana. Sementara Ibrahim sendiri akan kembali ke kawasan Palestina untuk melanjutkan syiar agama Tauhid bersama istri pertamanya, Sarah. Karena, selama ini pusat penyebaran agama Ibrahim memang berada di sekitar tanah Kan’an itu. Diantaranya, Ibrahim juga masuk ke negeri Mesir yang bersebelahan dengan kawasan Palestina.
Sebagai tokoh agama yang disegani, Ibrahim pernah memperoleh hadiah seorang budak dari penguasa Mesir, yang kemudian dibebaskan dari perbudakan. Budak berkulit hitam bernama Siti Hajar itu lantas dijadikan sebagai bagian dari keluarganya. Dikarenakan berpuluh tahun tidak juga punya anak, maka Sarah yang menjadi istri Ibrahim menyarankan agar Ibrahim menikahi Siti Hajar yang sangat baik budi pekertinya itu. Ia berharap Allah memberikan keturunan darinya sebagai penerus risalah Ibrahim. Maka, Ibrahim pun menikahi Hajar dan lahirlah putra pertamanya: Ismail.
Begitulah, sesampai di lembah tandus di pedalaman jazirah Arab itu Ibrahim menyampaikan tujuannya membawa Hajar dan Ismail. Hajar pun memandang Ibrahim dengan rasa tak percaya, bahwa ia akan ditinggalkan berdua saja. Ia melihat ke sekelilingnya, tak ada pepohonan, tak ada sumber air, tak ada kehidupan. ‘’Benarkah, kami akan engkau tinggalkan di tempat seperti ini, Ibrahim?’’ Tanya Hajar. Ibrahim tak mampu menjawab pertanyaan istrinya dengan kata-kata. Ia hanya menganggukkan kepalanya, sambil membalikkan badan meninggalkan mereka.
Tentu saja Hajar tak puas dengan jawaban Ibrahim. Sambil menggendong anaknya ia mengikuti langkah Ibrahim yang meninggalkannya menuju ke atas bukit. Untuk kedua kalinya Hajar bertanya kepada Ibrahim, apakah ia benar-benar akan ditinggalkan di tempat yang tak ada kehidupan itu. Dan Ibrahim sekali lagi tak mampu menjawab dengan kata-kata, karena ia sendiri pun sebenarnya merasa berat meninggalkan anak semata wayang yang telah dirindukan selama puluhan tahun itu. Tapi ia menguatkan hatinya, dan kemudian menganggukkan kepalanya sambil mempercepat langkah meninggalkan anak istrinya.
Setengah berlari Hajar mengejar Ibrahim, sambil bertanya dengan nada sangat penasaran. Tapi kali ini dengan redaksi yang berbeda: ‘’Ibrahim, apakah ini perintah Allah?’’ Ibrahim semakin mempercepat langkahnya, dan lagi-lagi menganggukkan kepalanya.
Begitu Ibrahim mengiyakan bahwa ini adalah perintah Allah, sekonyong-konyong Hajar menghentikan langkahnya mengejar Ibrahim. Wanita yang dipuji-puji Sarah sebagai orang yang berbudi mulia itu mendekap erat-erat anaknya yang masih bayi. Dan, ia pun membalikkan badan menuju tempat dimana Ibrahim meninggalkannya pertama kali.Subhanallah..!
Membaca kisah ini hati saya selalu tercekat. Ada semacam sedu sedan yang naik ke kerongkongan dan menjalar ke mata, menyebabkannya terasa panas dan berkaca-kaca. Sedemikian hebatnya istri Ibrahim yang bernama Siti Hajar itu. Begitu mendengar bahwa semua ini adalah perintah Allah, mendadak sontak ia menaatinya. Sungguh sebuah keimanan yang luar biasa dahsyatnya. Mengalahkan segala ketakutan dan kekhawatiran yang mencekamnya. Ia begitu yakin, jika Allah yang menghendaki, pasti ada jaminan yang tak perlu diragukan lagi..!
Dan Ibrahim, Sang Khalilullah – Kesayangan Allah – itu pun melangkah dengan berat hati meninggalkan orang-orang yang disayanginya. Tetapi, sebelum menghilang di balik bukit dia membalikkan badannya menatap anak istrinya nun jauh di dasar lembah. Dan kemudian ia bermunajat kepada Allah dalam doa yang diabadikan di dalam kitab suci Al Qur’an sebagaimana saya kutipkan di atas. Doa bagi kesejahtean dan keselamatan istri, anak, dan keturunannya sampai di akhir zaman.
Tinggallah Siti Hajar dan Ismail yang harus berjuang mempertahankan hidupnya di padang tandus yang sangat panas itu. Maka, terjadilah apa yang tercatat dalam sejarah, bahwa Siti Hajar harus berlari-lari antara bukit Shafa dan Marwa untuk mencari jalan keluar atas ujian yang diberikan kepadanya. Sampai di kali yang ke tujuh, Hajar yang menggendong anaknya itu terduduk kelelahan di tempat semula. Dibaringkannya Ismail di pasir beralaskan kain seadanya. Ia merenungi keadaan sambil melihat anaknya yang mulai menangis kehausan. Tak ada lagi air minum yang dimilikinya. Demikian pula telah kering air susu di tubuhnya.
Di saat kritis itulah pertolongan Allah datang. Persis di tempat Ismail menendang-nendangkan kaki sambil menangis itu terlihat rembesan air yang semakin lama semakin banyak. Siti Hajar tercengang dan kemudian berteriak: zam..zam.. zam..zam..! Yang bermakna: berkumpullah.. berkumpullah..! Ia pun membuat bendungan kecil dari tanah pasir, sehingga ada air menggenang yang semakin jernih. Jadilah kolam mata air.
Genangan air itu menyebabkan burung-burung mulai berdatangan untuk ikut minum. Dan tak lama kemudian sejumlah pedagang karavan berdatangan pula disebabkan melihat rombongan burung yang beterbangan rendah. Mereka meminta air kepada Siti Hajar dengan menukar makanan dan segala apa yang dibutuhkan ibu dan anak itu. Subhanallah, ibu dan anak itu terselamatkan..!
Sejak itu, lembah yang tadinya sepi dan tandus sering didatangi oleh para pedagang karavan yang melintas di kawasan itu. Mereka kemudian berkemah dan bermalam berhari-hari disana. Sehingga kawasan yang tadinya mati menjadi semakin ramai, dan akhirnya menjadi kota yang sejahtera. Allah telah menunjukkan kebesaran-Nya lewat hamba-hamba yang saleh dan berserah diri hanya kepada-Nya. Sejak itu pula Mekah menjadi pusat syiar agama Ibrahim selain Palestina, khususnya ketika Ibrahim dan Ismail kelak mendirikan Baitullah disana. Perjuangan tanpa putus asa dan kepasrahan yang mendalam dari keluarga teladan ini telah menjadi bukti yang sangat mencerahkan bagi umat Islam sedunia..!
QS. Al Hijr (15): 56.
Ibrahim berkata: “Tidak ada orang yang berputus asa dari rahmat Tuhannya, kecuali orang-orang yang tersesat.”
UJIAN BERAT ITU DIMULAI DI MINA
Waktu itu, Ibrahim sedang melepas rindu karena bertahun-tahun tidak bertemu istri dan anaknya. Sejak bayi memang Ismail telah ditinggalkan oleh Ibrahim di sebuah lembah tandus, cikal bakal kota Mekah. Ismail tinggal di Mekah bersama ibundanya, Siti Hajar hingga masa remaja. Sedangkan Ibrahim pulang ke Palestina, dan tinggal bersama istri dan anaknya yang lain – Sarah dan Ishak. Kota Palestina berjarak sekitar 1.500 kilometer dari Mekah.

Sejak meninggalkan mereka belasan tahun yang lalu itulah Ibrahim melepas rindu untuk pertama kalinya, dengan mengunjungi Hajar dan Ismail di kota Mekah. Ia begitu bangga dengan istrinya yang telah berhasil membesarkan Ismail menjadi anak yang saleh dan penyabar. Ia juga bangga dengan Ismail yang telah tumbuh sebagai remaja yang sangat penyantun dan taat kepada Allah serta orang tuanya. Maka, Ibrahim pun mulai melibatkan Ismail dalam syiar agama Islam. Dan lantas, mengajaknya untuk meninggikan pondasi Kakbah menjadi sebuah rumah ibadah, pusat penyebaran agama Islam di Jazirah Arabiyah.

QS. Al Baqarah (2): 127-128
Dan (ingatlah), ketika Ibrahim membangun pondasi Baitullah bersama Ismail. (Mereka berdoa): "Ya Tuhan kami terimalah (amal ibadah) kami, sesungguhnya Engkaulah Yang Maha Mendengar lagi Maha Mengetahui".

Ya Tuhan kami, jadikanlah kami berdua orang yang berserah diri kepada-Mu. Demikian pula (jadikanlah) diantara anak cucu kami umat yang berserah diri kepada-Mu. Dan tunjukkanlah kepada kami cara dan tempat-tempat ibadah haji kami. Dan terimalah taubat kami. Sesungguhnya Engkaulah Yang Maha Penerima taubat lagi Maha Penyayang.

Maka Allah pun menunjukkan tatacara ibadah haji kepada keluarga Ibrahim. Mereka diperintahkan untuk berjalan ke arah Arafah, sebuah padang berjarak sekitar 22 kilometer dari tempat tinggal mereka di Mekah, dimana Hajar dan Ismail biasa menggembalakan ternak mereka. Nah, pada tanggal 8 Dzulhijjah itu sampailah mereka di Mina, lantas beristirahat disana.

Dalam tidurnya Ibrahim bermimpi aneh, yakni disuruh menyembelih anaknya – Ismail. Ia tergeragap, terbangun karenanya. Sebuah mimpi yang sangat jelas, dan menggetarkan hatinya. Ia termenung memikirkan mimpi itu. Tetapi, tidak bercerita kepada istri dan anaknya. Ia pun mengajak mereka untuk meneruskan perjalanan ke Arafah yang masih belasan kilometer lagi. Di Arafah itulah Ibrahim ingin berkemah untuk memperoleh petunjuk Allah tentang tatacara ibadah haji.

Ibrahim dan keluarganya sampai di Arafah menjelang malam hari, memasuki tanggal 9 Dzulhijjah. Mereka pun berkemah disana. Malam itu, Ibrahim bermimpi kembali dengan sangat jelas: lagi-lagi diperintahkan untuk menyembelih anak yang sangat dicintainya. Hatinya semakin gemetar, ia gundah jangan-jangan ini adalah perintah Allah terkait dengan ibadah haji yang sedang dimintakan petunjuk kepada-Nya.

Sampai keesokan harinya, Ibrahim terpanggang dalam kegelisahan. Hatinya ragu-ragu dengan mimpi yang aneh itu. Tetapi, mau bercerita kepada istri dan anaknya ia tidak sampai hati. Akhirnya Ibrahim memutuskan untuk bermunajat kepada Allah seusai Zhuhur. Ia berdiam di dalam kemahnya melakukan wuquf – menghentikan segala kegiatannya untuk memfokuskan diri berdzikr dan berdoa kepada-Nya memohon petunjuk.

Wuquf itu dilakukannya sampai menjelang matahari terbenam. Di dalam wuqufnya itulah Ibrahim memperoleh keyakinan, bahwa mimpi yang dialaminya itu adalah perintah dari Allah. Sebuah proses terbukanya hijab jiwa, yang membuatnya bisa menangkap informasi kebenaran yang ditunjukkan Allah kepadanya. Maka ia pun menyudahi wuqufnya, dan mengajak keluarganya melanjutkan perjalanan untuk kembali ke Mekah.

Menjelang tengah malam, keluarga Ibrahim sampai di suatu tempat bernama Muzdalifah. Di tempat ini keluarga Ibrahim beristirahat, dan untuk ketiga kalinya Ibrahim bermimpi dengan isi yang sama: diperintahkan mengorbankan Ismail. Hatinya pun menjadi mantap, bahwa ini memang perintah dari Allah untuk menguji keimanannya.

Tiba-tiba terlintas di benaknya tentang janji yang pernah diucapkannya puluhan tahun yang lalu. Sejak muda Ibrahim suka melakukan qurban. Puluhan kambing dan unta disembelihnya untuk dibagi-bagikan kepada orang-orang yang miskin dan kelaparan. Sekaligus untuk mencontohkan kepada manusia bahwa praktek berkurban yang diajarkan oleh sejumlah agama pagan adalah tidak benar, dikarenakan mereka membuang daging-daging ternak secara mubazir, bahkan kadang-kadang diselingi mengorbankan manusia untuk dipersembahkan kepada para dewa. Berkurban ala Ibrahim adalah memadukan keikhlasan untuk Allah sekaligus menebarkan manfaat untuk orang-orang yang membutuhkan pertolongan.

QS. Al Hajj (22): 36
Dan telah Kami jadikan untukmu unta-unta itu sebagian dari syi'ar (agama) Allah. Kamu memperoleh kebaikan yang banyak padanya. Maka sebutlah olehmu nama Allah ketika kamu menyembelihnya dalam keadaan berdiri. Kemudian apabila telah roboh, maka makanlah sebagian (daging)nya dan (sebagian lagi) berikanlah untuk makan orang-orang miskin yang tidak meminta-minta. Dan (juga) untuk orang yang meminta. Demikianlah Kami telah menundukkan unta-unta itu kepada kamu, mudah-mudahan kamu bersyukur.

Nah, sesaat setelah berkurban dalam jumlah besar itulah Ibrahim sempat berkata, bahwa seandainya Allah menghendaki dia untuk berkurban lebih banyak lagi ia pasti akan melakukannya. Termasuk apa saja yang paling dicintainya. Begitulah memang keikhlasan Ibrahim dalam bertuhan kepada Allah sebagaimana doanya yang sering kita baca dalam shalat: ‘’sesungguhnya shalatku, ibadahku, hidup dan matiku hanya untuk Allah semata...’’

Ternyata ucapan Ibrahim waktu masih muda itu kini ‘ditagih’ oleh-Nya. Ibrahim diminta untuk mengorbankan Ismail yang sangat dikasihinya. Anak yang diharapkan akan meneruskan syiar agama Tauhid yang sedang diperjuangkannya. Betapa berat beban jiwa Ibrahim ketika itu. Tetapi, karena ini adalah perintah Allah, maka dengan kesabaran dan kepasrahan yang sangat mendalam ia pun bertekat untuk menjalankannya..!
 Wallahu a’lam bishshawab.

Minggu, 07 September 2014

Memasukkan fungsi atau rumus excel ke dalam macro

Memasukkan fungsi atau rumus excel ke dalam macro

contoh rumus rumit berikut bagaiman penulisan dalam macronya?

=DATEDIF(E10,NOW(),"y")&" "&"Tahun"
=DATEDIF(E11,NOW(),"y")&" "&"Tahun"
=DATEDIF(F10,NOW(),"y")&" "&"Tahun"

Caranya adalah :
1. Tulis rumus atau fungsi di cell yg sudah ditentukan seperti biasa tanpa macro.
2. Setelah rumus selesai dibuat.
3. Baru mulai record macro.  (lihar posting sbelumnya mengenai recording macro in excel)

4. Saat record macro sudah jalan sorot cell yang berisi rumus tadi, lalu tekan {F2} dan enter.
5. Lalu stop macro recording.
6. lalu lihat macro yang sudah jadi (View macro dengan "tekan ALT+F8")
7. maka hasil nya akan kelihatan contoh rumus diatas (misal rumus ada di cel F11) akan menjadi 

ActiveCell.FormulaR1C1 = "=DATEDIF(R[-1]C[-1],NOW(),""y"")&"" ""&""Tahun"""
ActiveCell.FormulaR1C1 = "=DATEDIF(RC[-1],NOW(),""y"")&"" ""&""Tahun"""
ActiveCell.FormulaR1C1 = "=DATEDIF(R[-1]C,NOW(),""y"")&"" ""&""Tahun"""

Silahkan coba (rumus sepanjang apapun bisa dicari penulisan macronya dengan cara di atas).

Lalu ada pertanyaan? kenapa susah susah bikin rumus excel di macro. khan bisa copy rumusnya aja dengan macro.

Salah satu jawabannya adalah karena cell yang banyak formula itu akan dijadikan value agar file nya menjadi tidak terlalu besar karena rumus

Senin, 01 September 2014

Sikap Seorang Yang Sukses


Semua orang sukses di dunia ini selain karena keberuntungan dan juga kerja kerasnya, kesuksesan mereka itu juga di tentukan dari bagaimana cara mereka menyikapi hidup dan mempunyai sikap dalam menjalani hidup. Sikap yang benar dalam kehidupan tentu saja akan mempermudah jalan menuju kesuksesan mereka.

Nah bagi anda yang penasaran sikap seperti apa yang harus di terapkam oleh seseorang yang sukses, kali ini kami akan memberikan informasinya kepada anda. Simaklah berikut ini.
1. Tahu kapan harus bertahan dan kapan harus menyerah
Makna sukses tidak terpaku pada menjadi seorang pimpinan saja. Anda pun bisa sukses dengan menjadi pegawai. Kuncinya, Anda harus paham dengan keadaan lingkungan kerja Anda. Jangan ragu untuk bertahan jika keadaan masih memungkinkan dan jangan segan untuk menyerah jika masalah sudah di luar kendali Anda.
 2. Melakukan lebih dari yang diperintahkan
Mereka yang sukses di luar sana sering bekerja dengan menantang diri sendiri. Mereka selalu ingin memberikan sesuatu yang lebih untuk profesi yang mereka geluti, sejauh mana mereka mampu sebelum betul-betul mencapai batas.
 3. Rela gagal demi mempelajari makna sukses
Mencoba sesuatu yang baru, asalkan tidak merugikan diri sendiri dan orang lain, bukan suatu dosa. Meskipun yang namanya percobaan sering dikaitkan dengan kegagalan, jangan biarkan hal tersebut menghentikan Anda.
 4. Tahu bahwa keberuntungan itu harus dibuat
Keberuntungan tidak turun begitu saja dari langit. Seseorang akan pantas mendapatkan rezeki keberuntungan dari Tuhan karena sudah pernah bekerja keras sebelumnya.
5. Realistis
Orang-orang yang sukses sangat paham akan kemampuan diri mereka sendiri. Salah satu penentu kualitas ini adalah mereka selalu dapat menentukan target yang masih dalam jangkauan dan tidak muluk-muluk.
 6. Sepenuhnya sadar akan sebab-akibat
Bertanggung jawab adalah sebuah kualitas individu yang tidak bisa lepas dari seseorang yang sukses. Paham betul akan hukum sebab-akibat dari setiap langkah yang diambil menjadi sangat penting bagi mereka. Bertindak gegabah tidak ada di dalam kamus mereka.

7. Pembuat perubahan, bukan penerima perubahan
Sebagian orang-orang sukses adalah para pencetus ide baru di bidangnya. Mereka membuat atau menghasilkan sesuatu yang belum pernah ada, atau belum pernah dipikirkan orang sebelumnya.
 8. Cepat beradaptasi
Ketika keadaan sekitar tidak memberikan keuntungan yang banyak untuknya, seseorang yang memiliki mental sukses akan dengan cepat beradaptasi. Anda harus mampu segera menyesuaikan diri dengan ketidaknyamanan dan mengubahnya menjadi power zone Anda.
 9. Berkomunikasi dengan efektif
Pertanyaan serta jawaban yang singkat, padat, dan jelas merupakan sebuah ciri khas pribadi-pribadi yang sukses yang bisa terlihat saat mereka berpendapat. Mereka tahu orang-orang mana saja yang bisa memberikan informasi yang mereka butuhkan, dan tahu bagaimana cara mendapatkannya.
 10. Terus belajar
Siapapun yang ingin sukses di dunia ini, tidak boleh berhenti belajar. Pemahaman yang baik akan hidup memberikan pengaruh yang besar bagi mereka. Mulai dari belajar mengerti diri sendiri, hingga materi-materi akademis yang dibutuhkan guna menunjang kesuksesan mereka. Orang yang bermental sukses, bisa belajar dari siapa saja, tidak peduli kedudukan dan dari mana asalnya.


 Berikut telah kami berikan beberapa sikap yang harus dimiliki oleh seseorang yang sukses. Semoga informasi tersebut bisa menjadi suatu informasi yang bermanfaat untuk anda. Selamat mencoba..