BUNGKUS DAN ISI

Hidup akan sangat melelahkan, sia-sia dan menjemukan bila pikiran hanya digunakan untuk mencari dan mengurus BUNGKUS-nya saja serta mengabaikan dan mengacuhkan ISI-nya.
Apa itu “BUNGKUS”-nya,
Dan apa itu “ISI”-nya?.

“Rumah yang indah” hanya bungkusnya.
“Keluarga bahagia” itu isinya.

“Pesta pernikahan” hanya bungkusnya.
“Sakinah, mawadah, warahmah” itu isinya.

“Ranjang mewah” hanya bungkusnya.
“Tidur nyenyak” itu isinya.

“Kekayaan” itu hanya bungkusnya.
“Hati yang bahagia” itu isinya.

“Makan enak” hanya bungkusnya.
“Gizi, energi, dan sehat” itu isinya.

“Kecantikan dan Ketampanan” hanya bungkusnya.
“Kepribadian dan hati” itu isinya.

“Bicara” itu hanya bungkusnya.
“Amal nyata” itu isinya.

“Buku” hanya bungkusnya.
“Pengetahuan” itu isinya.

“Jabatan” hanya bungkusnya.
“Pengabdian dan pelayanan” itu isinya.

“Kharisma” hanya bungkusnya.
“Ahlaqul karimah” itu isinya.

“Hidup di dunia” itu bungkusnya.
“Hidup sesudah mati” itu isinya.

Utamakanlah ISI-nya.
Namun rawatlah BUNGKUS-nya.

Jangan memandang rendah dan hina setiap BUNGKUS yang kita terima, karena berkah tak selalu datang dari BUNGKUS kain sutera melainkan juga datang dari BUNGKUS koran bekas.

Janganlah setengah mati mengejar apa yang tak bisa kita bawa mati

INFO YANG JARANG DIKETAHUI ORANG...

INFO YANG JARANG DIKETAHUI ORANG...

1. Nomor Darurat utk telepon genggam adalah 112. Jika anda sedang di daerah yg tdk menerima sinyal HP & perlu memanggil pertolongan, silahkan tekan 112 dan HP akan mencari otomatis network apapun yg ada utk menyambung kan nomor darurat bagi anda. Dan yg menarik, nomor 112 dpt ditekan biarpun keypad dlm kondisi di lock.

2. Kunci mobil anda ketinggalan di dlm mobil? Anda memakai kunci remote? Kalau kunci anda ketinggalan dlm mobil & remote cadangan nya ada di rumah, anda segera telpon orang rmh dgn HP, lalu dekatkan HP anda kurang lebih 30cm dari mobil & minta org rumah utk menekan tombol pembuka pd remote cadangan yg ada dirumah. Pd waktu menekan tombol pembuka remote, minta org rmh mendekatkan remotenya ke telepon cellular yg dipakainya.

3. Tips untuk menge-Check keabsahan mobil/motor anda. Ketik: contoh JATIM L8630NS (no plat mobilanda) Kirim ke 1717, nanti akan dpt balasan dari kepolisian mengenai data2 kendaraan anda, tips ini jg berguna untuk mengetahui data2 mobil bekas yg hendak anda akan beli.

4. Jika anda sedang terancam jiwanya krn dirampok/ditodong seseorang untuk mengeluarkan uang dari ATM, maka anda bisa minta pertolongan diam2 dgn memberikan nomor PIN scara terbalik, misal no asli PIN anda 1254 input 4521 di ATM maka mesin akan mengeluarkan uang anda juga tanda bahaya ke kantor polisi tanpa diketahui penodong tsb. Fasilitas ini tersedia di seluruh ATM tapi hanya sedikit org yg tahu (tolong disebarkan).

5.Lupa dng nomer sendiri ? Nggak usah missedcall org biar bisa tau no Sendiri?, nih ada cara cek no sendiri :
Axis : *2#
Xl : *123*7*2*1*1#
Smartfren : *995#
Simpati : *808#
Tri : *998#
Indosat : *123*30#

(SEMOGA BERMANFAAT).

"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

CARA BUAT CHEKBOX DI FORM EXCEL DAN TOMBOL SIMPANNYA

Private Sub CommandButton1_Click()
Dim str As String
Dim Hom As Long
Hom = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For Each ctrl In Frame1.Controls
If TypeOf ctrl Is MSForms.CheckBox Then
If ctrl.Value = True Then
Label1.Caption = Label1.Caption & ", " & ctrl.Caption
End If
End If
Next ctrl
Sheet1.Cells(Hom + 1, "A").Value = Right(Label1.Caption, Len(Label1.Caption) - 2)
Label1.Caption = ""
End Sub

Private Sub CommandButton2_Click()
Dim str As String
Dim Hom As Long
Hom = Sheet1.Range("B" & Rows.Count).End(xlUp).Row

If CheckBox1.Value = True Then
str = str & CheckBox1.Caption & ", "
End If
If CheckBox2.Value = True Then
str = str & CheckBox2.Caption & ", "
End If
If CheckBox3.Value = True Then
str = str & CheckBox3.Caption & ", "
End If
If CheckBox4.Value = True Then
str = str & CheckBox4.Caption & ", "
End If
If CheckBox5.Value = True Then
str = str & CheckBox5.Caption & ", "
End If
If CheckBox6.Value = True Then
str = str & CheckBox6.Caption & ", "
End If
If CheckBox7.Value = True Then
str = str & CheckBox7.Caption & ", "
End If
If CheckBox8.Value = True Then
str = str & CheckBox8.Caption & ", "
End If
If CheckBox9.Value = True Then
str = str & CheckBox9.Caption & ", "
End If
If CheckBox10.Value = True Then
str = str & CheckBox10.Caption & ", "
End If

str = Left(str, Len(str) - 2)
Sheet1.Cells(Hom + 1, "B").Value = str

End Sub