Hai Yan, mungkin hal ini berguna.. atau bisa jadi juga tidak berguna xixixixi :D
pada cell N3 diisi formula =TEXT(L3,"00")&"0.900-13.6303"&L3 lalu di copy ke bawah, untuk menampilkan format number seperti contoh jika regional setting komputer anda adalah Indonesian maka ubah tanda koma yang dimerahin menjdai titik koma jika polanya seragam, maka pada cell C3 juga dapat digunakan cara yang sama, hanya saja cell rujukkannya diubah menjadi cell D8 # sampaikan masalah yang sering anda temui saat menggunakan Excel pada pooling berikut http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3 Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain Wassalam, -Miss Jan Raisin- *>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1 pertanyaan yang diajukan;* *>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke [email protected];* *>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;* Pada 11 Mei 2013 10.10, aji mumpung <[email protected]> menulis: > ** > > > Hai Yoni, > > Excel tidak bisa mengambil properti dari suatu data di satu/lebih cell > dengan menggunakan formula. > Hal ini hanya mungkin dilakukan dengan menggunakan VBA. > > Coba cara berikut: > > 1. Dari lembar kerja, pindah ke VBE (Visual Basic Editor) dengan cara > sebagai berikut: > a. tekan tombol Alt F11, atau > b. klik kanan nama sheet, lalu pilih View Code sehingga muncul tampilan > seperti ini: > > 2. Pada VBA Project, double klik nama sheetnya, dalam hal ini adalah > sheet1, sehingga kursor berpindah ke lembar putih sebelah kanan > > 3. Ubah dropdown General menjadi Workheets > > 4. ubah dropdown yang disebelah kanan menjadi Change > > 5. Copas script berikut di antara kedua baris yang terbentuk: > > Dim rgFind As Range, rgLookUp As Range > Dim lRow As Long, lData As Long > > With Target > If .Cells.Count = 1 Then > If .Address = Range("d8").Address Then > lRow = Cells(Rows.Count, 12).End(xlUp).Row > Set rgLookUp = Range(Cells(3, 12), Cells(lRow, 12)) > Set rgFind = rgLookUp.Find(.Value, lookat:=xlWhole) > lData = rgFind.Row > Application.EnableEvents = False > Cells(lData, 14).Copy > Range("c3").PasteSpecial (xlPasteAllExceptBorders) > Cells(lData, 15).Copy > Range("c4").PasteSpecial (xlPasteValuesAndNumberFormats) > Cells(lData, 13).Copy > Range("c5").PasteSpecial (xlPasteValuesAndNumberFormats) > Cells(lData, 16).Copy > Range("c6").PasteSpecial (xlPasteValuesAndNumberFormats) > Application.CutCopyMode = False > Application.EnableEvents = True > End If > End If > > 6. Pada cell d8 buat sebuah dropdown menggunakan Data Validasi > untuk tipe nya memilih List > sumber datanya mengambil nilai dari cell L3 sampai L16 > > 7. Simpan workbook dengan tipe macro Enable atau Binary > > Contoh file terlampir semoga bermanfaat, jika ada yang kurang jelas > silakan ditanyakan kembali > penjelasan dari setiap baris script di atas dapat dilihat pada file > terlampir. > > Wassalam, > > -Aji Mumpung- > > > > > Pada 11 Mei 2013 05.35, Yoni Patinasaran <[email protected]> menulis: > >> ** >> >> >> Terima Kasih Atas perhatian rekan rekan milis, terutama Mr. Kid. yang >> telah dengan sabar membimbing saya bagaimana cara mengirim pesan ke >> groups... >> karena masalah yang saya alamai ini sangat memerlukan penyelesaian, maka >> saya kirim ulang melalui email saya ( berikut ini permasalahannya ) >> >> Salam Semuanya.... >> Saya mengalami kesulitan dalam hal menyamakan format antara dua cell yang >> memakai fungsi Vlookup.. >> sebagai gambaran ada tabel penjualan toko yang berisi no urut, tanggal, >> no faktur, nama toko, jumlah pejualan. >> saat pencetakan saya mengubah angka di cell reference dan langsung saya >> print... >> permasalahannya, pada cell C3, yang mengambil data dari tabel penjualan >> pada kolom nomor faktur (kolom N) tidak bisa sekalian mengambil >> formatnya.... >> mohon bantuan dari senior senior kiranya dapat membantu permasalahan >> ini... >> sebagai contoh saya lampirkan filenya... >> atas perhatian dan solusinya saya ucapkan terima kasih >> >> >> salam >> Yoni >> >> > >
