Pak Toby berikut saya lampirkan contoh kasusnya: Cell A1 terdiri dari 6 baris teks. Jika kita tekan tombol Split maka hasil split akan tampil di range A3:B5 Ini saya adopsi dari script yg diberikan teman2 di milis ini Mungkin Pak Toby ada cara lain dengan methode Sendkeys, barangkali bisa lebih sederhana atau untuk variasi dalam pengembangan program.
Terima kasih Wassalamu 'alaikum wr. wb., Heru Safrudin Pada 2015 8 13 11:57, "Toby kenzo tobyke...@yahoo.co.id [belajar-excel]" < belajar-excel@yahoogroups.com> menulis: > > > Dear Pak Heru, > > Method SendKeys ("%" dan "~") sama halnya kita menekan Alt+Enter. > *Menghitung Cell yg sudah ada textnya*...? > Mungkin pak Heru bisa kasi contohnya dari data yang ada ke data yang pak > Heru inginkan sehingga mungkin teman2 di sini bisa mengerti dan membantu. > > > TerimaKasih. > > > > Pada Kamis, 13 Agustus 2015 11:27, "Heru Safrudin superhe...@gmail.com > [belajar-excel]" <belajar-excel@yahoogroups.com> menulis: > > > > Kalo pakai Sendkeys apakah artinya proses hitung barisnya ketika kita > menekan {Alt}{Enter} begitukah ? > Padahal kita mau itung cell yg udah ada teksnya Pak Toby ? > Terima kasih > Wassalamu 'alaikum wr. wb., > Heru Safrudin > Pada 2015 8 12 17:06, "Toby kenzo tobyke...@yahoo.co.id [belajar-excel]" < > belajar-excel@yahoogroups.com> menulis: > > > Dear Pak Heru, > > Bisa juga manfaatkan method Application.SendKeys. > > TerimaKasih. > > > > Pada Selasa, 11 Agustus 2015 13:49, "Heru Safrudin superhe...@gmail.com > [belajar-excel]" <belajar-excel@yahoogroups.com> menulis: > > > > Ok benar, terima kasih banyak atas ilmunya > Terima kasih > Wassalamu 'alaikum wr. wb., > Heru Safrudin > Pada 2015 8 11 12:23, "Nang Agus nanga...@gmail.com [belajar-excel]" < > belajar-excel@yahoogroups.com> menulis: > > > Asalamualaikum warahmatullah, > Sama kok pak Heru antara formula dan VBA, > Bisa dicoba cekrip begini: > > Sub baris() > Range("B1") = Len(Range("A1")) - Len(Replace(Range("A1"), Chr(10), "")) + 1 > End Sub > > (data ada di A1, sedangkan hasilnya ditulis di B1) > Wasalamualaikum warahmatullah > > On 8/11/15, Heru Safrudin superhe...@gmail.com [belajar-excel] > <belajar-excel@yahoogroups.com> wrote: > > Iya Pak Toby, seperti yg ditanggapi Pak Agus : > > Misal di cell A1 diketik > > > > Nama:[Alt-Enter] > > Heru[Alt-Enter] > > Alamat:[Alt-Enter] > > Kediri > > > > Artinya dalan Cell A1 terdapat 4 Baris teks. > > Nah pertama saya akan menghitung baris di cell A1, kalau diketahui jumlah > > barisnya saya akan letakkan masing2 teks ke cell lain yg saya kehendaki, > > misal Baris-1 atau Nama: di cell B1, kemudian Baris-1 atau Heru di cell > C1, > > dst... > > > > Wassalam, > > > > Heru Safrudin > > Pada 2015 8 11 10:16, "Toby kenzo tobyke...@yahoo.co.id > [belajar-excel]" < > > belajar-excel@yahoogroups.com> menulis: > > > >> > >> > >> > >> Bisa di kasi contohnya.. > >> > >> > >> > >> Pada Selasa, 11 Agustus 2015 9:35, "Heru Safrudin superhe...@gmail.com > >> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis: > >> > >> > >> > >> Betul sekali Pak Agus, tapi bisakah pakai macro dan bagaimana kodenya ? > >> Wassalam, > >> Heru Safrudin > >> Pada 2015 8 10 16:09, "Nang Agus nanga...@gmail.com [belajar-excel]" < > >> belajar-excel@yahoogroups.com> menulis: > >> > >> > >> Apakah yang dimaksud dengan jumlah baris dalam satu cell? > >> jika baris tersebut dibuat dengan menekan Alt dan Enter, maka dapat > >> digunakan formula : > >> =LEN(A4)-LEN(SUBSTITUTE(A4;CHAR(10);"")) > >> kalau baris tersebut dibuat menggunakan warpText berarti dapat > >> dihitung dengan menghitung panjang teext dibagi banyak karakter setiap > >> baris yang masih bergantung pada ukuran font. > >> > >> semoga saya tidak salah tangkap. > >> > >> wasalam > >> > >> KenangAgus > >> > >> On 8/10/15, Heru Safrudin superhe...@gmail.com [belajar-excel] > >> <belajar-excel@yahoogroups.com> wrote: > >> > Dear Para Master, > >> > > >> > Bagaimanakah kode macronya untuk menghitung jumlah baris dalam SATU > >> > CELL > >> > yang didalamnya terdapat beberapa baris ? > >> > > >> > Mohon pemahamannya > >> > > >> > Wassalam, > >> > > >> > Heru Safrudin > >> > PT. BISI International, Tbk. > >> > > >> > >> > >> > >> > >> > > > > > > > > >
Split cell.xls
Description: MS-Excel spreadsheet