Dear Hendrik, Saya coba jawab ya. Abis dari tadi nunggu pertanyaan dari milist ga ada2.
48 » vbExclamation 64 » vbInformation 16 » vbCritical 32 » vbQuestion Angka ini hanya dapat digunakan bersamaan dengan coding Msgbox, dan merupakan syntax untuk [Buttons As VbMsgBox Style = vbOkOnly] yang tidak dapat terpisahkan dan merupakan satu kesatuan utuh. Tujuannya untuk mempersingkat coding sesuai moto miss ctv "ringkas, cepat, tepat". CMIIW Blessings, Fran'z On 6/11/11, hendrik karnadi <[email protected]> wrote: > Mbak Siti, > > Mau nanya ..., angka "48" dalam code di bawah ini (yang juga sering muncul > dalam > code yang Mbak buat) berfungsi untuk apa ? > MsgBox "data MTBF belum diisi!", 48, "Hayyah!" > > > Salam, > Hendrik Karnadi > > > > ----- Forwarded Message ---- > From: STDEV(i) <[email protected]> > To: [email protected] > Sent: Saturday, June 11, 2011 2:22:30 > Subject: Re: [belajar-excel] macro excel > > > penjelasannya kok minim sekali yaaa, jadi apa yg akan terbaca di bawah ini > hanyalah > khayalanku sendiri.. > (1) membuat grafikotomatis > Saya ndak tahu caranya; tetapi kalau membuat CHART otomatis .. ya tahu lah > dikitts, > asal.. tabel yg mau dibuat chartnya sudah ADA > Tabel anda mana ??, apakah data yg anda tulis di email itu dianggap tabel > di bagian mana nya saja yg mau dianggap tabel (hingga harus tampak di > Chart-nya?) > > (2) membuat "button" ? > Bisaa > > Aktifkan Toolbar yg bernama Control Toolbox (menu : View > Toolbax > > Control > Toolbox) > ( anda kami anggap memakai excel 2003 ) > Di situ banyak icon yg berupa tool untuk membuat (menginstance) ActiveX > Control > antara lain: CommandButton. > Klik ikonnya, goreskan mouse pointer di sheet, maka terbentuklan sebuah > CommandButton > Atur atur dikit dengan kotak property nya (misal warna, nama, caption > Letak dan ukuran lebih gampang diatur pakai mouse (seret kesana, seret > kesini..) > > Makro-nya (agar bisa mengisi data MTBF MTTR) kira kira seperti ini > Dianggap: data-data yg ada ei email itu tertulisnya di Sheets > Data MTBF ada di C8, MTTR adadi C9) > > Ini serba "mengarang sendiri" karena anda datang sebagai "pendekar bertangan > kosong" > (gak bawa sheet gito loch..) > > Private Sub CommandButton1_Click() > UserForm1.Show > End Sub > > Setelah selesai mengatur CommandButton; jangan lupa: keluar dari DesignMode > , > (klik ikon > Exit Design Mode pada Toolbar yg diceritakan di atas.) > > Userform nya berisi beberapa prosedur (makro) salah satunya spt ini > (userform dibuat denan menu Insert > UserForm di jendela Visual Basic > Editor, > sedangkan Jendela VBE itu dapat dihadirkan dengan ALt + F11) > > Private Sub Cmd_OK_Click() > ' INPUT DICEGAH BILA SALAH SATU TEXTBOX MASIH KOSONG > If TxtMTBF = vbNullString Then > MsgBox "data MTBF belum diisi!", 48, "Hayyah!" > Exit Sub > End If > If TxtMTTR = vbNullString Then > MsgBox "data MTTR belum diisi!", 48, "Hayyah!" > Exit Sub > End If > ' MEMASUKKAN INPUT KE CELLS > Range("C8") = CLng(TxtMTBF) > Range("C9") = CLng(TxtMTTR) > End Sub > > Saya yaQQin bahwa apa yg kita ajukan ini (workbook & "per-makro-an" nya > pasti > tidak cocok > dengan kehendak anda. > Tatapi, enaknya (bagi saya), anda tidak bisa komplain karena ssebelumnya > anda > tidak pernah > mengajukan syarat (spesifikasi dan limitation) & penjelasan yg memadai. > (kalau misalnya tetap komplain juga, ya ndak pa pa, tetap akan dibantu, > kalau > kita mampu > menangkap maksod penjelsan anda, maupun mampu membuatnya) > > > > > > 2011/6/10 anggraini <[email protected]> > > no : 1 >>nama peralatan : x ray 1 >>waktu operasi : 24x30x6 (menit) >>waktu gagal : ( 200 menit) >>jumlah gagal : 6 kali >>MTBF : 100 menit >>MTTR : 50 menit >>% availibility : adalah waktu operasi / waktu gagal * 100% >> >>bagaimana sya membuat dengan makro yang secara otomatis terbentuk grafik? >>bisakah sy membuat semacam button untuk mengisi data di MTBF dan MTTR? >> thanks >> >> >
