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 [email protected] [belajar-excel]
<[email protected]> 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 [email protected] [belajar-excel]" <
> [email protected]> menulis:
>
>>
>>
>>
>> Bisa di kasi contohnya..
>>
>>
>>
>> Pada Selasa, 11 Agustus 2015 9:35, "Heru Safrudin [email protected]
>> [belajar-excel]" <[email protected]> menulis:
>>
>>
>>
>> Betul sekali Pak Agus, tapi bisakah pakai macro dan bagaimana kodenya ?
>> Wassalam,
>> Heru Safrudin
>> Pada 2015 8 10 16:09, "Nang Agus [email protected] [belajar-excel]" <
>> [email protected]> 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 [email protected] [belajar-excel]
>> <[email protected]> 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.
>> >
>>
>>
>>
>>
>>
>
