Untuk teman-2 yang sdh memberikan masukan, info dan rumus Excel & VB, thanks ya atas penjelasan dan rumusnya. Mudah-2 bermanfaat.
Btw untuk buku Excel VB yang semestinya saya miliki apa ya. Mhn info. Regards, Harry ________________________________ Dari: HerrSoe <[email protected]> Dikirim: Senin, 25 Juli 2011 6:53 Excel 2003 menambah command button Button dari ToolBar Form aktifkan toolbar form (menu view > toolbars > FORM) klik Aikon "Button" yg ada pada toolbar tsb Goreskan ujung mouse pointer (yg saat itu sedang berubah menjadi tanda +) ke sheet, dlm bentuk pesegi,Selesai !! ( Button tidak punya Mode kapan didesign kapan siap dipakai ) CommandaButton dari ToolBar ControlToolBox / Active-X control Sama dengan langkah di atas, berbeda di toolbar yg aktifkan = Control ToolBox ** Button menurut pendapatku hanya sebuah gambar. Dan sbg sebuah gambar (seperti gambar / shape lain) ia dapat diassign untuk menjalankan makro Object Control (object untuk mempengaruhi) sesuatu nilai di cell / sheet) jenis ini propertynya sangat minim, tidak punya methods apalagi Events Caba saja anda usahakan mewarnai Button di luar warna aslinya),juga carilah cara untuk mengganti ukuran maupun jenis font nya. ** CommandButton (termasuk type Active-X Controls) kaya akan property, method dan Event sehingga lebih mudah "diprogram" Command Button (sbg keluarga activeX control) punya 2 Mode: * Design mode / mode "saat didesign" (di setting propertiesnya ), saat itu si control tidak aktif, belum dapat dioperasikan sesuai tujuannya * mode siap / (di sononya tertulis 'Exit DesignMode'), saat itu si control telah siap menjalankan aksinya batas kedua mode ini adalah dengan mengklik Ikon "Garisan Biru" yg ada pada toolbar Control ToolBox. Tool Control + F Tentunya yg anda maksud adalah shortcut Control F SEBELUM workbook diubah-ubah shortcutnya Catatan: kita dapat membuat tool sendiri (misal dengan makro) dan kemudian di set agar makro terpanggil dengan Ctrl + F. Artinya TOOL / FITUR yg diaktifkan dgn Ctrl + F yg anda maksud, belum tentu TOOL yang sama dengan milik orang lain (di komputer / excel /workbook ) lain. Karena anda hanya menyebut Ctrl + F, kita anggap Ctrl + Fsebelum diganti, yaitu mengaktifkan metoda FIND (menu : Edit > Find...) Selain commandbutton, tambahkan 1 TextBox yg akan kita pakai sebagai tempat menuliskan kriteria (find what) nya.. Command Button yg telah di-instanciated ke worksheet tadi dapat anda klik kanan, pilih menu View Code Tuliskan VBA codingnya di module sheet beradanya Control tsb. (makro yg beberapa minggu y.l. dibuat oleh mbak Haps, saya hanya menambahkan TextBox sbg tempat kriteria dituliskan) Private Sub CommandButton1_Click() Dim xCell As Range Set xCell = Cells.Find(What:=TextBox1.Text, _ After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not xCell Is Nothing Then xCell.Activate Range("I2") = xCell.Address(0, 0) Else Range("I2") = "" MsgBox "ndak ada !", vbExclamation, "Hasil Pencarian" End If End Sub Jawaban ini hanyahasil dari mengira-kira maksud yg ditanyakan; karena "terus terang" bagi saya pertanyaan tsb terlalu singkat (malas menjelaskan maksud, tanpa lampiran pendukung yg mempermudah pemahanan bagi orang lain) antara lain ada dua hal besar digabung dlm satu kalimat pertanyaan pendek, sehingga banyak hal yg "delik" nya tidak jelas... maaf.... 2011/7/24 Hariansyah <[email protected]> > Bagaimana menambah Forms.CommandButton untuk tools Ctrl + F...??? > Terima kasih.
