"Cukup Letakkan Gelasnya"

Seorang dosen mulai kuliah dengan memegang gelas berisi air, “Berapa berat gelas ini”, tanyanya pada mahasiswa sambil mengangkat gelas tersebut agak tinggi hingga seluruh mahasiswa bisa melihatnya.
“50 gr..100 gr..150 gr..entahlah” jawab seorang mahasiswa
“Well, kita takkan tahu jika tak menimbang” jawab sang dosen

“Pertanyaannya adalah, apa yang terjadi kalau saya angkat gelas ini selama 3 menit?” lanjutnya
“Takkan terjadi apa-apa” kali ini jawaban seorang mahasiswa terdengar sangat meyakinkan

Dosen melanjutkan “Kalau saya angkatnya sejam”
“Wah..tangan Anda akan keram Prof” jawab mahasisWA

“Bagaimana kalau seharian?” tanya sang dosen belum puas
“Entahlah. Mungkin tangan Anda mati rasa, otot terluka mungkin lumpuh. Dan harus dibawa kerumah sakit”. Seisi ruangan pun tertawa

“Betul sekali. Lantas apakah berat gelas ini akan berubah?”
“Tidak Prof”

“Lalu apa yang harus saya lakukan supaya hal-hal buruk di atas tak perlu terjadi?". 

Sang dosen terus bertanya
“Anda tak boleh lupa untuk meletakkan gelasnya”

“Persis ! Jangan angkat gelasnya terlalu lama”

HIKMAH : 
Masalah hidup layaknya gelas tadi, semakin lama kita bawa, semakin lama terbebani, semakin menderita pula.

Sebenarnya, bobot masalah itu takkan berubah sedikitpun. Hanya kita begitu lama memikirkannya. 
Benar, bahwa setiap masalah memang harus difikirkan untuk dicari solusinya, tapi yang terpenting adalah bagaimana kita mempercayakan semuanya HANYA kepada Allah. Bahwa di tanganNyalah segala kuasa. Dia yang mengatur alam semesta, menjaga keseimbangannya, sangat mustahil jika Dia lupa memberi jalan keluar.

 (Qs. Al Fath : 4)

Ketenangan hati adalah bukti kuatnya iman. Sebaliknya kita harus hati-hati saat dilanda terlbanyak kegelisahan, seolah masalah kita sangat besar, hingga merasa sebagai manusia paling menderita di muka bumi. Karena bisa jadi, saat itu iman kita sedang berada di titik nadhir hingga syaithan leluasa menggoda.

Hiduplah dengan semangat pemburu syurga, niscaya takkan ada masalah yang terlalu berat terasa...

SEMANGAT PAGI...
Salam SUKSES & BERKAH...

Membuat tombol PDF dengan vb di excel

Insert CommandButton dan masukkan kode vb di bawah ini


Private Sub CommandButton1_Click()
PageSetup.PaperSize = xlPaperA4
NamaFile = Range("E94").Value
ActiveSheet.Range("A1:K160").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\PDF\" & NamaFile, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    DoEvents
    MsgBox "Sudah di simpan di PDF"
End Sub

Membuat Gambar JPG di EXcel dengan vb

Cara buat gambar dari Range tertentu dengan macro sebagai berikut :
Insert button dan tulis kode berikut

Private Sub CommandButton1_Click()
                  'Set Rentang Anda ingin ekspor ke file
Dim rgExp As Range: Set rgExp = Worksheets("KARTU").Range("A89:K115")
                 'Salin kisaran sebagai gambar ke Clipboard
rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
               '' 'Buat grafik kosong dengan ukuran yang tepat dari berbagai disalin
With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
Width:=rgExp.Width, Height:=rgExp.Height)
.Name = "ChartVolumeMetricsDevEXPORT"
.Activate
End With
                  '' 'Paste ke daerah grafik, ekspor ke file, menghapus grafik.
ActiveChart.Paste
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export ActiveWorkbook.Path & "\GAMBAR\KARTU.jpg"
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete
End Sub

Mermbuat Print gak fungsi atau Error dengan Vb

Nah untuk membuat Print gak berfungsi bisa coba memasukkan scrib ini pada
Thisworkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox "Di larang cetak File ini ", vbOKOnly, “Error” End Sub

Membuat Tombol close (X) worksheet gak berfungsi di Excel dengan VB

Nah untuk membuat Tombol close (X) worksheet gak berfungsi bisa coba memasukkan scrib ini pada 

Thisworkbook
Public myFlg As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Letakkan ini pada "ThisWorkbook"
If myFlg = True Then Exit Sub
Application.DisplayAlerts = False
Cancel = True
End Sub
Sub myClose()
myFlg = True
Application.DisplayAlerts = False
ActiveWindow.Close False
End Sub