15 New Messages
Digest #1672
Fri Jun 29, 2012 12:44 am (PDT) . Posted by: "Siti Nurhikmah"
Dear Para Master,
Tolong dibantu, Saya baru mau belajar makro tetapi pusying karena gak
ada dasarnya sama sekali. Mohon dibantu untuk pencerahannya.
Mohon dibantu script untuk soal makro Saya ini, mohon dibantu, file
terlampir.
Untuk comand input New Part sudah Saya buat dan itu pun nyontek" dari
yang lain. Nah sekarang untuk comand input PO Masuk Saya gak punya
contekannya jadi gak bisa karena gk ngerti untuk buat dari awal juga.
Mohon dengan sangat ada yang bantu.:-(
Terima kasih,
Salam,
St
Tolong dibantu, Saya baru mau belajar makro tetapi pusying karena gak
ada dasarnya sama sekali. Mohon dibantu untuk pencerahannya.
Mohon dibantu script untuk soal makro Saya ini, mohon dibantu, file
terlampir.
Untuk comand input New Part sudah Saya buat dan itu pun nyontek" dari
yang lain. Nah sekarang untuk comand input PO Masuk Saya gak punya
contekannya jadi gak bisa karena gk ngerti untuk buat dari awal juga.
Mohon dengan sangat ada yang bantu.:-(
Terima kasih,
Salam,
St
Fri Jun 29, 2012 12:52 am (PDT) . Posted by: "Markonah" m_tulqiyem
Gampang...
Untuk Data di kolom A hasil akan ditulis di kolom D
rumusnya (tulis di D2)
=IF(IsFontBold(A2),0,A2)
Untuk Data di kolom B hasil akan ditulis di kolom E
rumusnya (tulis di E2)
=IF(IsFontBold(B2),0,1)
syaratnya
Bolting font bukan karena Conditional Formatting
2012/6/29 Jimmy <jimmisimamora@gmail.com >
>
> Saya mau bertanya bagaimana membuat huruf yang bercetak tebal (bold
> text) menjadi nol (0).
> contoh: nama - nama kota di indonesia,dan yang bercetak tebal (bold
> text) yang di rubah menjadi nol (0).
> misalnya : di cell A1 "Jakarta"
> cell A2 "Medan"
> A3"Bengkulu"
> A4"Tebing Tinggi"
> Dan masih banyak kota-kota yang ada di indonesia yang sebagian bercetak
> tebal (bold text) dan yang tidak bercetak tebal.
>
> Kemudian di cell B1 saya mau buat yang bercetak tebal menjadi nol (0)
> dan yang tidak bercetak tebal menjadi satu (1).
>
> terimakasih,mohon bantuan nya.
>
> --- Mods ---
> Mohon posting kasus baru (bukan reply) diberi judul email (subject).
> ------------
>
>
Untuk Data di kolom A hasil akan ditulis di kolom D
rumusnya (tulis di D2)
=IF(IsFontBold(
Untuk Data di kolom B hasil akan ditulis di kolom E
rumusnya (tulis di E2)
=IF(IsFontBold(
syaratnya
Bolting font bukan karena Conditional Formatting
2012/6/29 Jimmy <jimmisimamora@
>
> Saya mau bertanya bagaimana membuat huruf yang bercetak tebal (bold
> text) menjadi nol (0).
> contoh: nama - nama kota di indonesia,dan yang bercetak tebal (bold
> text) yang di rubah menjadi nol (0).
> misalnya : di cell A1 "Jakarta"
> cell A2 "Medan"
> A3"Bengkulu"
> A4"Tebing Tinggi"
> Dan masih banyak kota-kota yang ada di indonesia yang sebagian bercetak
> tebal (bold text) dan yang tidak bercetak tebal.
>
> Kemudian di cell B1 saya mau buat yang bercetak tebal menjadi nol (0)
> dan yang tidak bercetak tebal menjadi satu (1).
>
> terimakasih,
>
> --- Mods ---
> Mohon posting kasus baru (bukan reply) diberi judul email (subject).
> ------------
>
>
Fri Jun 29, 2012 12:57 am (PDT) . Posted by: "Markonah" m_tulqiyem
Betul seperti kata Mr. Kid
mekipun dlm UDF diberikan perintah Appl.Volatile
perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
mengubah hasil Fungsi
Perubahan harus dipaksa dengan pijitan pada kunci F9
2012/6/29 Markonah <markonatul@gmail.com >
> Gampang...
>
> Untuk Data di kolom A hasil akan ditulis di kolom D
> rumusnya (tulis di D2)
> =IF(IsFontBold(A2),0,A2)
>
> Untuk Data di kolom B hasil akan ditulis di kolom E
> rumusnya (tulis di E2)
> =IF(IsFontBold(B2),0,1)
>
> syaratnya
> Bolting font bukan karena Conditional Formatting
>
>
>
> 2012/6/29 Jimmy <jimmisimamora@gmail.com >
>>
>> Saya mau bertanya bagaimana membuat huruf yang bercetak tebal (bold
>> text) menjadi nol (0).
>> contoh: nama - nama kota di indonesia,dan yang bercetak tebal (bold
>> text) yang di rubah menjadi nol (0).
>> misalnya : di cell A1 "Jakarta"
>> cell A2 "Medan"
>> A3"Bengkulu"
>> A4"Tebing Tinggi"
>> Dan masih banyak kota-kota yang ada di indonesia yang sebagian bercetak
>> tebal (bold text) dan yang tidak bercetak tebal.
>>
>> Kemudian di cell B1 saya mau buat yang bercetak tebal menjadi nol (0)
>> dan yang tidak bercetak tebal menjadi satu (1).
>>
>> terimakasih,mohon bantuan nya.
>>
>> --- Mods ---
>> Mohon posting kasus baru (bukan reply) diberi judul email (subject).
>> ------------
>>
>>
mekipun dlm UDF diberikan perintah Appl.Volatile
perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
mengubah hasil Fungsi
Perubahan harus dipaksa dengan pijitan pada kunci F9
2012/6/29 Markonah <markonatul@gmail.
> Gampang...
>
> Untuk Data di kolom A hasil akan ditulis di kolom D
> rumusnya (tulis di D2)
> =IF(IsFontBold(
>
> Untuk Data di kolom B hasil akan ditulis di kolom E
> rumusnya (tulis di E2)
> =IF(IsFontBold(
>
> syaratnya
> Bolting font bukan karena Conditional Formatting
>
>
>
> 2012/6/29 Jimmy <jimmisimamora@
>>
>> Saya mau bertanya bagaimana membuat huruf yang bercetak tebal (bold
>> text) menjadi nol (0).
>> contoh: nama - nama kota di indonesia,dan yang bercetak tebal (bold
>> text) yang di rubah menjadi nol (0).
>> misalnya : di cell A1 "Jakarta"
>> cell A2 "Medan"
>> A3"Bengkulu"
>> A4"Tebing Tinggi"
>> Dan masih banyak kota-kota yang ada di indonesia yang sebagian bercetak
>> tebal (bold text) dan yang tidak bercetak tebal.
>>
>> Kemudian di cell B1 saya mau buat yang bercetak tebal menjadi nol (0)
>> dan yang tidak bercetak tebal menjadi satu (1).
>>
>> terimakasih,
>>
>> --- Mods ---
>> Mohon posting kasus baru (bukan reply) diberi judul email (subject).
>> ------------
>>
>>
Fri Jun 29, 2012 1:02 am (PDT) . Posted by: "Kid Mr." nmkid.family@ymail.com
Karena menggunakan UDF, coba event selection change diisi
activesheet.calculate
Kid.
2012/6/29 Markonah <markonatul@gmail.com >
> **
>
>
> Betul seperti kata Mr. Kid
> mekipun dlm UDF diberikan perintah Appl.Volatile
> perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
> mengubah hasil Fungsi
> Perubahan harus dipaksa dengan pijitan pada kunci F9
>
>
>
> 2012/6/29 Markonah <markonatul@gmail.com >
>
>> Gampang...
>>
>> Untuk Data di kolom A hasil akan ditulis di kolom D
>> rumusnya (tulis di D2)
>> =IF(IsFontBold(A2),0,A2)
>>
>> Untuk Data di kolom B hasil akan ditulis di kolom E
>> rumusnya (tulis di E2)
>> =IF(IsFontBold(B2),0,1)
>>
>> syaratnya
>> Bolting font bukan karena Conditional Formatting
>>
>>
>>
>> 2012/6/29 Jimmy <jimmisimamora@gmail.com >
>>>
>>> Saya mau bertanya bagaimana membuat huruf yang bercetak tebal (bold
>>> text) menjadi nol (0).
>>> contoh: nama - nama kota di indonesia,dan yang bercetak tebal (bold
>>> text) yang di rubah menjadi nol (0).
>>> misalnya : di cell A1 "Jakarta"
>>> cell A2 "Medan"
>>> A3"Bengkulu"
>>> A4"Tebing Tinggi"
>>> Dan masih banyak kota-kota yang ada di indonesia yang sebagian bercetak
>>> tebal (bold text) dan yang tidak bercetak tebal.
>>>
>>> Kemudian di cell B1 saya mau buat yang bercetak tebal menjadi nol (0)
>>> dan yang tidak bercetak tebal menjadi satu (1).
>>>
>>> terimakasih,mohon bantuan nya.
>>>
>>> --- Mods ---
>>> Mohon posting kasus baru (bukan reply) diberi judul email (subject).
>>> ------------
>>>
>>>
>
activesheet.
Kid.
2012/6/29 Markonah <markonatul@gmail.
> **
>
>
> Betul seperti kata Mr. Kid
> mekipun dlm UDF diberikan perintah Appl.Volatile
> perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
> mengubah hasil Fungsi
> Perubahan harus dipaksa dengan pijitan pada kunci F9
>
>
>
> 2012/6/29 Markonah <markonatul@gmail.
>
>> Gampang...
>>
>> Untuk Data di kolom A hasil akan ditulis di kolom D
>> rumusnya (tulis di D2)
>> =IF(IsFontBold(
>>
>> Untuk Data di kolom B hasil akan ditulis di kolom E
>> rumusnya (tulis di E2)
>> =IF(IsFontBold(
>>
>> syaratnya
>> Bolting font bukan karena Conditional Formatting
>>
>>
>>
>> 2012/6/29 Jimmy <jimmisimamora@
>>>
>>> Saya mau bertanya bagaimana membuat huruf yang bercetak tebal (bold
>>> text) menjadi nol (0).
>>> contoh: nama - nama kota di indonesia,dan yang bercetak tebal (bold
>>> text) yang di rubah menjadi nol (0).
>>> misalnya : di cell A1 "Jakarta"
>>> cell A2 "Medan"
>>> A3"Bengkulu"
>>> A4"Tebing Tinggi"
>>> Dan masih banyak kota-kota yang ada di indonesia yang sebagian bercetak
>>> tebal (bold text) dan yang tidak bercetak tebal.
>>>
>>> Kemudian di cell B1 saya mau buat yang bercetak tebal menjadi nol (0)
>>> dan yang tidak bercetak tebal menjadi satu (1).
>>>
>>> terimakasih,
>>>
>>> --- Mods ---
>>> Mohon posting kasus baru (bukan reply) diberi judul email (subject).
>>> ------------
>>>
>>>
>
Fri Jun 29, 2012 1:19 am (PDT) . Posted by: "Markonah" m_tulqiyem
Mr Kid
Saya coba menambahkan prosedur event change untuk sheet 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column < 3 Then
If Target.Row > 1 Then
Target.Calculate
( sudah dicoba juga Me.Calculate )
End If
End If
End If
End Sub
tetapi sepertinya perubahan format (normal to bol, Bold to normal)
tidak menyebabkan event change (formatting bukan event)
Apakah memang begitu ?
Thx,
*2012/6/29 Kid Mr. <mr.nmkid@gmail.com >
> Karena menggunakan UDF, coba event selection change diisi
activesheet.calculate
> Kid.
>
> 2012/6/29 Markonah <markonatul@gmail.com >
>> Betul seperti kata Mr. Kid
>> mekipun dlm UDF diberikan perintah Appl.Volatile
>> perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
mengubah hasil Fungsi
>> Perubahan harus dipaksa dengan pijitan pada kunci F9*
Saya coba menambahkan prosedur event change untuk sheet 1
Private Sub Worksheet_Change(
If Target.Count = 1 Then
If Target.Column < 3 Then
If Target.Row > 1 Then
Target.Calculate
( sudah dicoba juga Me.Calculate )
End If
End If
End If
End Sub
tetapi sepertinya perubahan format (normal to bol, Bold to normal)
tidak menyebabkan event change (formatting bukan event)
Apakah memang begitu ?
Thx,
*2012/6/29 Kid Mr. <mr.nmkid@gmail.
> Karena menggunakan UDF, coba event selection change diisi
activesheet.
> Kid.
>
> 2012/6/29 Markonah <markonatul@gmail.
>> Betul seperti kata Mr. Kid
>> mekipun dlm UDF diberikan perintah Appl.Volatile
>> perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
mengubah hasil Fungsi
>> Perubahan harus dipaksa dengan pijitan pada kunci F9*
Fri Jun 29, 2012 1:26 am (PDT) . Posted by: "Kid Mr." nmkid.family@ymail.com
Yup mbake...
event object sheet tidak dapat menangkap perubahan format.
Oleh sebab itu dipilih selection change, agar setiap gerakkan cell maka
terpicu si event selection change dan akan melakukan kalkulasi sheet.
Resiko : jika sheet itu padat formula, maka bisa menurunkan performa excel
dalam bekerja karena sibuk kalkulasi.
Sepertinya memang ada yang harus dikompromikan antara keinginan dengan
keadaan ril di lapangan.
Umumnya lebih selamet kalau nyusun keinginan berdasar kemampuan di semua
sisi kehidupan.
Wassalam,
Kid.
2012/6/29 Markonah <markonatul@gmail.com >
> **
>
>
> Mr Kid
> Saya coba menambahkan prosedur event change untuk sheet 1
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Count = 1 Then
> If Target.Column < 3 Then
> If Target.Row > 1 Then
> Target.Calculate
> ( sudah dicoba juga Me.Calculate )
> End If
> End If
> End If
> End Sub
>
> tetapi sepertinya perubahan format (normal to bol, Bold to normal)
> tidak menyebabkan event change (formatting bukan event)
> Apakah memang begitu ?
>
> Thx,
>
>
>
> *2012/6/29 Kid Mr. <mr.nmkid@gmail.com >
>
> > Karena menggunakan UDF, coba event selection change diisi
> activesheet.calculate
> > Kid.
>
> >
> > 2012/6/29 Markonah <markonatul@gmail.com >
> >> Betul seperti kata Mr. Kid
> >> mekipun dlm UDF diberikan perintah Appl.Volatile
> >> perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
> mengubah hasil Fungsi
> >> Perubahan harus dipaksa dengan pijitan pada kunci F9
> *
>
>
>
event object sheet tidak dapat menangkap perubahan format.
Oleh sebab itu dipilih selection change, agar setiap gerakkan cell maka
terpicu si event selection change dan akan melakukan kalkulasi sheet.
Resiko : jika sheet itu padat formula, maka bisa menurunkan performa excel
dalam bekerja karena sibuk kalkulasi.
Sepertinya memang ada yang harus dikompromikan antara keinginan dengan
keadaan ril di lapangan.
Umumnya lebih selamet kalau nyusun keinginan berdasar kemampuan di semua
sisi kehidupan.
Wassalam,
Kid.
2012/6/29 Markonah <markonatul@gmail.
> **
>
>
> Mr Kid
> Saya coba menambahkan prosedur event change untuk sheet 1
>
> Private Sub Worksheet_Change(
> If Target.Count = 1 Then
> If Target.Column < 3 Then
> If Target.Row > 1 Then
> Target.Calculate
> ( sudah dicoba juga Me.Calculate )
> End If
> End If
> End If
> End Sub
>
> tetapi sepertinya perubahan format (normal to bol, Bold to normal)
> tidak menyebabkan event change (formatting bukan event)
> Apakah memang begitu ?
>
> Thx,
>
>
>
> *2012/6/29 Kid Mr. <mr.nmkid@gmail.
>
> > Karena menggunakan UDF, coba event selection change diisi
> activesheet.
> > Kid.
>
> >
> > 2012/6/29 Markonah <markonatul@gmail.
> >> Betul seperti kata Mr. Kid
> >> mekipun dlm UDF diberikan perintah Appl.Volatile
> >> perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
> mengubah hasil Fungsi
> >> Perubahan harus dipaksa dengan pijitan pada kunci F9
> *
>
>
>
Fri Jun 29, 2012 1:36 am (PDT) . Posted by: "Markonah" m_tulqiyem
Yess.. sip...
Jadi proyek UDF kita hentikan saja
Lebih baik pak Jimmy mencari sebab mengapa suatu Cell di-BOLD
dan mengapa di diamkan saja (font.Bold = false) , harusnya ada syarat /
kondisinya
Kondisi itulah yg akan menjadi bagian dari RUMUS
Mungkin begitu ya...
Alaikum-salam,
-mpok markonah-
penjual gerabah di desa sebelah"
2012/6/29 Kid Mr. <mr.nmkid@gmail.com >
> **
>
> Yup mbake...
> event object sheet tidak dapat menangkap perubahan format.
> Oleh sebab itu dipilih selection change, agar setiap gerakkan cell maka
> terpicu si event selection change dan akan melakukan kalkulasi sheet.
> Resiko : jika sheet itu padat formula, maka bisa menurunkan performa excel
> dalam bekerja karena sibuk kalkulasi.
> Sepertinya memang ada yang harus dikompromikan antara keinginan dengan
> keadaan ril di lapangan.
>
> Umumnya lebih selamet kalau nyusun keinginan berdasar kemampuan di semua
> sisi kehidupan.
>
> Wassalam,
> Kid.
>
>
Jadi proyek UDF kita hentikan saja
Lebih baik pak Jimmy mencari sebab mengapa suatu Cell di-BOLD
dan mengapa di diamkan saja (font.Bold = false) , harusnya ada syarat /
kondisinya
Kondisi itulah yg akan menjadi bagian dari RUMUS
Mungkin begitu ya...
Alaikum-salam,
-mpok markonah-
penjual gerabah di desa sebelah"
2012/6/29 Kid Mr. <mr.nmkid@gmail.
> **
>
> Yup mbake...
> event object sheet tidak dapat menangkap perubahan format.
> Oleh sebab itu dipilih selection change, agar setiap gerakkan cell maka
> terpicu si event selection change dan akan melakukan kalkulasi sheet.
> Resiko : jika sheet itu padat formula, maka bisa menurunkan performa excel
> dalam bekerja karena sibuk kalkulasi.
> Sepertinya memang ada yang harus dikompromikan antara keinginan dengan
> keadaan ril di lapangan.
>
> Umumnya lebih selamet kalau nyusun keinginan berdasar kemampuan di semua
> sisi kehidupan.
>
> Wassalam,
> Kid.
>
>
Fri Jun 29, 2012 7:30 am (PDT) . Posted by: "summonery" summonery
Saya yakin bahwa yang dimaksudkan oleh mbak Markonah adalah mengganti
font dari format bold/nonbold atau sebaliknya adalah dengan cara Ctrl+B
Berikut ini saya hanya ingin menambahkan apa yang sudah dijelaskan oleh
mbak Markonah, yaitu:
mekipun dlm UDF diberikan perintah Appl.Volatile, perubahan sumber data
(dari Bold ke NonBod / viceversa) tidak seketika mengubah hasil Fungsi,
kecuali perubahan dari bold ke NonBold / viceversa dilakukan dengan
cara paste special formats
Itupun jika cara paste special formats tersebut dikategorikan sebagai
salah satu cara perubahan sumber data dari bold ke nonbold / viceversa.
>semoga bermanfaat
--- In belajar-excel@yahoogroups.com , Markonah <markonatul@...> wrote:
>
> Betul seperti kata Mr. Kid
> mekipun dlm UDF diberikan perintah Appl.Volatile
> perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
> mengubah hasil Fungsi
> Perubahan harus dipaksa dengan pijitan pada kunci F9
>
>
>
> 2012/6/29 Markonah markonatul@...
>
> > Gampang...
> >
> > Untuk Data di kolom A hasil akan ditulis di kolom D
> > rumusnya (tulis di D2)
> > =IF(IsFontBold(A2),0,A2)
> >
> > Untuk Data di kolom B hasil akan ditulis di kolom E
> > rumusnya (tulis di E2)
> > =IF(IsFontBold(B2),0,1)
> >
> > syaratnya
> > Bolting font bukan karena Conditional Formatting
> >
> >
> >
> > 2012/6/29 Jimmy jimmisimamora@...
> >>
> >> Saya mau bertanya bagaimana membuat huruf yang bercetak tebal
(bold
> >> text) menjadi nol (0).
> >> contoh: nama - nama kota di indonesia,dan yang bercetak tebal (bold
> >> text) yang di rubah menjadi nol (0).
> >> misalnya : di cell A1 "Jakarta"
> >> cell A2 "Medan"
> >> A3"Bengkulu"
> >> A4"Tebing Tinggi"
> >> Dan masih banyak kota-kota yang ada di indonesia yang sebagian
bercetak
> >> tebal (bold text) dan yang tidak bercetak tebal.
> >>
> >> Kemudian di cell B1 saya mau buat yang bercetak tebal menjadi nol
(0)
> >> dan yang tidak bercetak tebal menjadi satu (1).
> >>
> >> terimakasih,mohon bantuan nya.
> >>
> >> --- Mods ---
> >> Mohon posting kasus baru (bukan reply) diberi judul email
(subject).
> >> ------------
> >>
> >>
>
font dari format bold/nonbold atau sebaliknya adalah dengan cara Ctrl+B
Berikut ini saya hanya ingin menambahkan apa yang sudah dijelaskan oleh
mbak Markonah, yaitu:
mekipun dlm UDF diberikan perintah Appl.Volatile, perubahan sumber data
(dari Bold ke NonBod / viceversa) tidak seketika mengubah hasil Fungsi,
kecuali perubahan dari bold ke NonBold / viceversa dilakukan dengan
cara paste special formats
Itupun jika cara paste special formats tersebut dikategorikan sebagai
salah satu cara perubahan sumber data dari bold ke nonbold / viceversa.
>semoga bermanfaat
--- In belajar-excel@
>
> Betul seperti kata Mr. Kid
> mekipun dlm UDF diberikan perintah Appl.Volatile
> perubahan sumber data (dari Bold ke NonBod / viceversa) tidak seketika
> mengubah hasil Fungsi
> Perubahan harus dipaksa dengan pijitan pada kunci F9
>
>
>
> 2012/6/29 Markonah markonatul@.
>
> > Gampang...
> >
> > Untuk Data di kolom A hasil akan ditulis di kolom D
> > rumusnya (tulis di D2)
> > =IF(IsFontBold(
> >
> > Untuk Data di kolom B hasil akan ditulis di kolom E
> > rumusnya (tulis di E2)
> > =IF(IsFontBold(
> >
> > syaratnya
> > Bolting font bukan karena Conditional Formatting
> >
> >
> >
> > 2012/6/29 Jimmy jimmisimamora@
> >>
> >> Saya mau bertanya bagaimana membuat huruf yang bercetak tebal
(bold
> >> text) menjadi nol (0).
> >> contoh: nama - nama kota di indonesia,dan yang bercetak tebal (bold
> >> text) yang di rubah menjadi nol (0).
> >> misalnya : di cell A1 "Jakarta"
> >> cell A2 "Medan"
> >> A3"Bengkulu"
> >> A4"Tebing Tinggi"
> >> Dan masih banyak kota-kota yang ada di indonesia yang sebagian
bercetak
> >> tebal (bold text) dan yang tidak bercetak tebal.
> >>
> >> Kemudian di cell B1 saya mau buat yang bercetak tebal menjadi nol
(0)
> >> dan yang tidak bercetak tebal menjadi satu (1).
> >>
> >> terimakasih,
> >>
> >> --- Mods ---
> >> Mohon posting kasus baru (bukan reply) diberi judul email
(subject).
> >> ------------
> >>
> >>
>
Fri Jun 29, 2012 12:57 am (PDT) . Posted by: "dwint ruswanto"
coba cek lampiran, saya tidak menyertakan screen shoot tetapi diganti
dengan penjelasan tertulis agar ukuran file dapat lebih kecil.
karena tinggi truk / kontainer dalam thread tidak disebutkan, maka saya
tambahkan sendiri.
semoga sesuai dengan harapan
-dwint-
Pada 29 Juni 2012 11:12, rodhy hakim <odhyz83_assasaky@yahoo.com > menulis:
> **
>
>
> Dear Master,
>
> Mau tanya, Bisa gak di excel membuat sebuah Simulasi Penataan Barang di
> truk/ container.
> Contoh. Mislanya :
> Ukuran Box 1 : Panjang : 57cm, Lebar 36, Tinggi : 49
> Ukuran Box 2 : Panjang ; 70cm, Lebar 39, Tinggi :38.5
>
> Ukuran truk / continer : 300cm x 200cm
>
> Nah Bagaimana Optimasi penataan barang di truk (susunannya, posisinya).
> jika misalnya akan muat barang sebanyak 50 box.
> demikian apabilan bisa Mohon Pencerahanya.
>
>
>
>
dengan penjelasan tertulis agar ukuran file dapat lebih kecil.
karena tinggi truk / kontainer dalam thread tidak disebutkan, maka saya
tambahkan sendiri.
semoga sesuai dengan harapan
-dwint-
Pada 29 Juni 2012 11:12, rodhy hakim <odhyz83_assasaky@
> **
>
>
> Dear Master,
>
> Mau tanya, Bisa gak di excel membuat sebuah Simulasi Penataan Barang di
> truk/ container.
> Contoh. Mislanya :
> Ukuran Box 1 : Panjang : 57cm, Lebar 36, Tinggi : 49
> Ukuran Box 2 : Panjang ; 70cm, Lebar 39, Tinggi :38.5
>
> Ukuran truk / continer : 300cm x 200cm
>
> Nah Bagaimana Optimasi penataan barang di truk (susunannya, posisinya).
> jika misalnya akan muat barang sebanyak 50 box.
> demikian apabilan bisa Mohon Pencerahanya.
>
>
>
>
Fri Jun 29, 2012 1:10 am (PDT) . Posted by: "Hendra Wijayanto Hermawan" hermawanhendrawijayanto
Dear Para Suhu Excel
Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk membulatkan nominal uang tersebut.
sebagai contoh :
168.350 akan menjadi 168.500
168.510 akan menjadi 169.000
saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika disimpan akan memakan space yang tidak normal untuk ukuran file excel.
ini rumusnya :
=IF(VALUE(RIGHT(I24;3))=0;I24;IF(VALUE(RIGHT(I24;3))
<=500;(I24-(VALUE(RIGHT(I24;3)))+500);IF(VALUE(RIGHT(I24;3))<1000;(I24-(VALUE(RIGHT(I24;3)))+1000))))
mohon pencerahannya.
Thanks
Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk membulatkan nominal uang tersebut.
sebagai contoh :
168.350 akan menjadi 168.500
168.510 akan menjadi 169.000
saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika disimpan akan memakan space yang tidak normal untuk ukuran file excel.
ini rumusnya :
=IF(VALUE(RIGHT(
<=500;(I24-(
mohon pencerahannya.
Thanks
Fri Jun 29, 2012 1:12 am (PDT) . Posted by: "Kid Mr." nmkid.family@ymail.com
Salah satu cara pembulatan adalah menggunakan fungsi Ceiling (selalu ke
atas ke kelipatan tertentu)
=Ceiling( nilainya , 500 )
"bulatkan bilangan nilainya ke kelipatan 500 setelahnya"
Wassalam,
Kid.
2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijayanto@yahoo.co.id >
> **
>
>
> Dear Para Suhu Excel
>
> Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk
> nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika
> nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk
> membulatkan nominal uang tersebut.
>
> sebagai contoh :
>
> 168.350 akan menjadi 168.500
> 168.510 akan menjadi 169.000
>
> saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika
> disimpan akan memakan space yang tidak normal untuk ukuran file excel.
> ini rumusnya :
> =IF(VALUE(RIGHT(I24;3))=0;I24;IF(VALUE(RIGHT(I24;3))
>
> <=500;(I24-(VALUE(RIGHT(I24;3)))+500);IF(VALUE(RIGHT(I24;3))<1000;(I24-(VALUE(RIGHT(I24;3)))+1000))))
>
> mohon pencerahannya.
>
> Thanks
>
>
>
>
atas ke kelipatan tertentu)
=Ceiling( nilainya , 500 )
"bulatkan bilangan nilainya ke kelipatan 500 setelahnya"
Wassalam,
Kid.
2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijay
> **
>
>
> Dear Para Suhu Excel
>
> Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk
> nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika
> nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk
> membulatkan nominal uang tersebut.
>
> sebagai contoh :
>
> 168.350 akan menjadi 168.500
> 168.510 akan menjadi 169.000
>
> saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika
> disimpan akan memakan space yang tidak normal untuk ukuran file excel.
> ini rumusnya :
> =IF(VALUE(RIGHT(
>
> <=500;(I24-(
>
> mohon pencerahannya.
>
> Thanks
>
>
>
>
Fri Jun 29, 2012 1:17 am (PDT) . Posted by: "raya hidayat" raya.hidayat
Dear Mas Hendra,
Mau tanya , kalau angka yang mau dibulatkan ada di C5 ,
lalu pakai formula :
CEILING(C5,500)
apakah hasilnya sudah sesuai dengan yang mas inginkan?
terima kasih
Raya
2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijayanto@yahoo.co.id >
> **
>
>
> Dear Para Suhu Excel
>
> Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk
> nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika
> nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk
> membulatkan nominal uang tersebut.
>
> sebagai contoh :
>
> 168.350 akan menjadi 168.500
> 168.510 akan menjadi 169.000
>
> saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika
> disimpan akan memakan space yang tidak normal untuk ukuran file excel.
> ini rumusnya :
> =IF(VALUE(RIGHT(I24;3))=0;I24;IF(VALUE(RIGHT(I24;3))
>
> <=500;(I24-(VALUE(RIGHT(I24;3)))+500);IF(VALUE(RIGHT(I24;3))<1000;(I24-(VALUE(RIGHT(I24;3)))+1000))))
>
> mohon pencerahannya.
>
> Thanks
>
>
>
>
--
Terima kasih
Raya
Mau tanya , kalau angka yang mau dibulatkan ada di C5 ,
lalu pakai formula :
CEILING(C5,500)
apakah hasilnya sudah sesuai dengan yang mas inginkan?
terima kasih
Raya
2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijay
> **
>
>
> Dear Para Suhu Excel
>
> Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk
> nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika
> nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk
> membulatkan nominal uang tersebut.
>
> sebagai contoh :
>
> 168.350 akan menjadi 168.500
> 168.510 akan menjadi 169.000
>
> saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika
> disimpan akan memakan space yang tidak normal untuk ukuran file excel.
> ini rumusnya :
> =IF(VALUE(RIGHT(
>
> <=500;(I24-(
>
> mohon pencerahannya.
>
> Thanks
>
>
>
>
--
Terima kasih
Raya
Fri Jun 29, 2012 2:00 am (PDT) . Posted by: "Hendra Wijayanto Hermawan" hermawanhendrawijayanto
alhamdulillah terimaksih Mr. Kid sudah bisa berjalan normal
--- Pada Jum, 29/6/12, Kid Mr. <mr.nmkid@gmail.com > menulis:
Dari: Kid Mr. <mr.nmkid@gmail.com >
Judul: Re: [belajar-excel] Pembulatan angka
Kepada: belajar-excel@yahoogroups.com
Tanggal: Jumat, 29 Juni, 2012, 8:12 AM
Salah satu cara pembulatan adalah menggunakan fungsi Ceiling (selalu ke atas ke kelipatan tertentu)
=Ceiling( nilainya , 500 )
"bulatkan bilangan nilainya ke kelipatan 500 setelahnya"
Wassalam,
Kid.
2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijayanto@yahoo.co.id >
Dear Para Suhu Excel
Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk membulatkan nominal uang tersebut.
sebagai contoh :
168.350 akan menjadi 168.500
168.510 akan menjadi 169.000
saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika disimpan akan memakan space yang tidak normal untuk ukuran file excel.
ini rumusnya :
=IF(VALUE(RIGHT(I24;3))=0;I24;IF(VALUE(RIGHT(I24;3))
<=500;(I24-(VALUE(RIGHT(I24;3)))+500);IF(VALUE(RIGHT(I24;3))<1000;(I24-(VALUE(RIGHT(I24;3)))+1000))))
mohon pencerahannya.
Thanks
Reply to sender |
Reply to group |
Reply via web post |
Start a New Topic
Messages in this topic
(2)
Recent Activity:
New Members
25
New Photos
1
Visit Your Group
----------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
----------------------------------------------------------
Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use
.
__al,_
._,___
--- Pada Jum, 29/6/12, Kid Mr. <mr.nmkid@gmail.
Dari: Kid Mr. <mr.nmkid@gmail.
Judul: Re: [belajar-excel] Pembulatan angka
Kepada: belajar-excel@
Tanggal: Jumat, 29 Juni, 2012, 8:12 AM
Salah satu cara pembulatan adalah menggunakan fungsi Ceiling (selalu ke atas ke kelipatan tertentu)
=Ceiling( nilainya , 500 )
"bulatkan bilangan nilainya ke kelipatan 500 setelahnya"
Wassalam,
Kid.
2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijay
Dear Para Suhu Excel
Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk membulatkan nominal uang tersebut.
sebagai contoh :
168.350 akan menjadi 168.500
168.510 akan menjadi 169.000
saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika disimpan akan memakan space yang tidak normal untuk ukuran file excel.
ini rumusnya :
=IF(VALUE(RIGHT(
<=500;(I24-(
mohon pencerahannya.
Thanks
Reply to sender |
Reply to group |
Reply via web post |
Start a New Topic
Messages in this topic
(2)
Recent Activity:
New Members
25
New Photos
1
Visit Your Group
------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use
.
__al,_
._,___
Fri Jun 29, 2012 2:09 am (PDT) . Posted by: "Kid Mr." nmkid.family@ymail.com
Sama-sama Pak,
Hal yang perlu diingat tentang fungsi Ceiling dan juga temannya yang
bernama Floor yaitu tidak bekerja pada area bilangan negatif.
Jadi, ketika akan membulatkan bilangan negatif, diperlukan kondisi.
Andai saja pembulatannya selalu ke kelipatan 500 terdekat, bisa menggunakan
:
=Round( nilainya / 500 , 0 ) * 500
Ketika pembulatannya selalu ke atas pada kelipatan 500, maka nilai -1200
harus menjadi -1000 dan nilai 1200 menjadi 1500, coba formula :
=IF( nilainya < 0 , Floor( Abs( nilainya ) , 500 ) * Sign( nilainya )
, Ceiling( nilainya , 500 ) )
Contoh pada angka -1200
=IF( -1200 < 0 , Floor( Abs( -1200 ) , 500 ) * Sign( -1200 ) ,* Ceiling(
-1200 , 500 ) * )
Perhatikan yang di-*bold*. Bagian itu tidak akan dikerjakan oleh Excel
karena jebakan kondisi oleh IF.
Fungsi Abs() untuk mengambil nilai mutlak suatu bilangan [ -1200 akan
menjadi 1200 ketika di Abs-ken]
Fungsi Sign() untuk mengambil nilai pengali bilangan pembuat positif dan
negatif terhadap suatu nilai positif. Bahasa umumnya, kalau nilai negatif
hasilnya -1, kalau nilai positif hasilnya +1.
Floor adalah temannya Ceiling yang mengurusi untuk membulatkan ke kelipatan
tertentu sebelumnya.
Wassalam,
Kid.
2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijayanto@yahoo.co.id >
> **
>
>
> alhamdulillah terimaksih Mr. Kid sudah bisa berjalan normal
>
> --- Pada *Jum, 29/6/12, Kid Mr. <mr.nmkid@gmail.com >* menulis:
>
>
> Dari: Kid Mr. <mr.nmkid@gmail.com >
> Judul: Re: [belajar-excel] Pembulatan angka
> Kepada: belajar-excel@yahoogroups.com
> Tanggal: Jumat, 29 Juni, 2012, 8:12 AM
>
>
>
>
> Salah satu cara pembulatan adalah menggunakan fungsi Ceiling (selalu ke
> atas ke kelipatan tertentu)
> =Ceiling( nilainya , 500 )
> "bulatkan bilangan nilainya ke kelipatan 500 setelahnya"
>
> Wassalam,
> Kid.
>
> 2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijayanto@yahoo.co.id <http://mc/compose?to=hermawanhendrawijayanto@yahoo.co.id >
> >
>
> **
>
>
> Dear Para Suhu Excel
>
> Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk
> nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika
> nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk
> membulatkan nominal uang tersebut.
>
> sebagai contoh :
>
> 168.350 akan menjadi 168.500
> 168.510 akan menjadi 169.000
>
> saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika
> disimpan akan memakan space yang tidak normal untuk ukuran file excel.
> ini rumusnya :
> =IF(VALUE(RIGHT(I24;3))=0;I24;IF(VALUE(RIGHT(I24;3))
>
> <=500;(I24-(VALUE(RIGHT(I24;3)))+500);IF(VALUE(RIGHT(I24;3))<1000;(I24-(VALUE(RIGHT(I24;3)))+1000))))
>
> mohon pencerahannya.
>
> Thanks
>
>
>
>
>
Hal yang perlu diingat tentang fungsi Ceiling dan juga temannya yang
bernama Floor yaitu tidak bekerja pada area bilangan negatif.
Jadi, ketika akan membulatkan bilangan negatif, diperlukan kondisi.
Andai saja pembulatannya selalu ke kelipatan 500 terdekat, bisa menggunakan
:
=Round( nilainya / 500 , 0 ) * 500
Ketika pembulatannya selalu ke atas pada kelipatan 500, maka nilai -1200
harus menjadi -1000 dan nilai 1200 menjadi 1500, coba formula :
=IF( nilainya < 0 , Floor( Abs( nilainya ) , 500 ) * Sign( nilainya )
, Ceiling( nilainya , 500 ) )
Contoh pada angka -1200
=IF( -1200 < 0 , Floor( Abs( -1200 ) , 500 ) * Sign( -1200 ) ,* Ceiling(
-1200 , 500 ) * )
Perhatikan yang di-*bold*. Bagian itu tidak akan dikerjakan oleh Excel
karena jebakan kondisi oleh IF.
Fungsi Abs() untuk mengambil nilai mutlak suatu bilangan [ -1200 akan
menjadi 1200 ketika di Abs-ken]
Fungsi Sign() untuk mengambil nilai pengali bilangan pembuat positif dan
negatif terhadap suatu nilai positif. Bahasa umumnya, kalau nilai negatif
hasilnya -1, kalau nilai positif hasilnya +1.
Floor adalah temannya Ceiling yang mengurusi untuk membulatkan ke kelipatan
tertentu sebelumnya.
Wassalam,
Kid.
2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijay
> **
>
>
> alhamdulillah terimaksih Mr. Kid sudah bisa berjalan normal
>
> --- Pada *Jum, 29/6/12, Kid Mr. <mr.nmkid@gmail.
>
>
> Dari: Kid Mr. <mr.nmkid@gmail.
> Judul: Re: [belajar-excel] Pembulatan angka
> Kepada: belajar-excel@
> Tanggal: Jumat, 29 Juni, 2012, 8:12 AM
>
>
>
>
> Salah satu cara pembulatan adalah menggunakan fungsi Ceiling (selalu ke
> atas ke kelipatan tertentu)
> =Ceiling( nilainya , 500 )
> "bulatkan bilangan nilainya ke kelipatan 500 setelahnya"
>
> Wassalam,
> Kid.
>
> 2012/6/29 Hendra Wijayanto Hermawan <hermawanhendrawijay
> >
>
> **
>
>
> Dear Para Suhu Excel
>
> Saya memiliki sebuah kasus dikantor saya memberlakukan pembulatan untuk
> nominal uang jika nominal <=500 maka akan dibulatkan menjadi 500 ,jika
> nominal >500 akan dibulatkan ke 1000, saya sangat membutuhkan formula untuk
> membulatkan nominal uang tersebut.
>
> sebagai contoh :
>
> 168.350 akan menjadi 168.500
> 168.510 akan menjadi 169.000
>
> saya sudah memakai rumus berikut tapi masih terlalu panjang dan jika
> disimpan akan memakan space yang tidak normal untuk ukuran file excel.
> ini rumusnya :
> =IF(VALUE(RIGHT(
>
> <=500;(I24-(
>
> mohon pencerahannya.
>
> Thanks
>
>
>
>
>
Fri Jun 29, 2012 8:02 pm (PDT) . Posted by: "hendrik karnadi" hendrikkarnadi
File terlampir adalah jawaban saya (dengan Macro) atas pertanyaan seorang Member dari tetangga sebelah,
Yang diinginkan adalah membuat GL dengan sumber dari Buku Kas, Bank dan Memorial.
Untuk Buku Kas, Bank No Rekening lawannya sudah pasti yaitu No Rekening Kas atau Bank itu sendiri, sedangkan untuk Jurnal Memorial
No Rekening lawannya harus dicari.
Macro yang saya buat adalah seperti ini:
Sub Tes()
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim i As Long
Dim irow As Long
Set Rng1 = Sheets("Kas").Range("A4").CurrentRegion
Set Rng1 = Rng1.Offset(3, 0).Resize(Rng1.Rows.Count - 3)
Set Rng2 = Sheets("Bank").Range("A4").CurrentRegion
Set Rng2 = Rng2.Offset(3, 0).Resize(Rng2.Rows.Count - 3)
Set Rng3 = Sheets("Memorial").Range("A3").CurrentRegion
Set Rng3 = Rng3.Offset(2, 0).Resize(Rng3.Rows.Count - 2)
Set Rng4 = Sheets("GL").Range("A3").CurrentRegion
Set Rng4 = Rng4.Offset(2, 0).Resize(Rng4.Rows.Count - 2)
Rng4.ClearContents
irow = i + 3
With Sheets("Kas")
For i = 1 To Rng1.Rows.Count
If Sheets("GL").Range("G1") = Rng1(i, 4) Then
Sheets("GL").Cells(irow, 1) = Rng1(i, 1)
Sheets("GL").Cells(irow, 1).NumberFormat = "[$-409]d-mmm-yy;@"
Sheets("GL").Cells(irow, 2) = Rng1(i, 2)
Sheets("GL").Cells(irow, 3) = Rng1(i, 3)
Sheets("GL").Cells(irow, 4) = Sheets("Kas").Range("D1")
Sheets("GL").Cells(irow, 5) = Rng1(i, 6)
Sheets("GL").Cells(irow, 5).NumberFormat = "#,##0"
Sheets("GL").Cells(irow, 6) = Rng1(i, 5)
Sheets("GL").Cells(irow, 6).NumberFormat = "#,##0"
Sheets("GL").Cells(irow, 7).FormulaR1C1 = "=SUM(R3C5:RC[-2])-SUM(R3C6:RC[-1])"
Sheets("GL").Cells(irow, 7).NumberFormat = "#,##0"
irow = irow + 1
End If
Next i
End With
With Sheets("Bank")
For i = 1 To Rng2.Rows.Count
If Sheets("GL").Range("G1") = Rng2(i, 4) Then
Sheets("GL").Cells(irow, 1) = Rng2(i, 1)
Sheets("GL").Cells(irow, 1).NumberFormat = "[$-409]d-mmm-yy;@"
Sheets("GL").Cells(irow, 2) = Rng2(i, 2)
Sheets("GL").Cells(irow, 3) = Rng2(i, 3)
Sheets("GL").Cells(irow, 4) = Sheets("Bank").Range("D1")
Sheets("GL").Cells(irow, 5) = Rng2(i, 6)
Sheets("GL").Cells(irow, 5).NumberFormat = "#,##0"
Sheets("GL").Cells(irow, 6) = Rng2(i, 5)
Sheets("GL").Cells(irow, 6).NumberFormat = "#,##0"
Sheets("GL").Cells(irow, 7).FormulaR1C1 = "=SUM(R3C5:RC[-2])-SUM(R3C6:RC[-1])"
Sheets("GL").Cells(irow, 7).NumberFormat = "#,##0"
irow = irow + 1
End If
Next i
End With
With Sheets("Memorial")
For i = 1 To Rng3.Rows.Count
If Sheets("GL").Range("G1") = Rng3(i, 4) Then
Sheets("GL").Cells(irow, 1) = Rng3(i, 1)
Sheets("GL").Cells(irow, 1).NumberFormat = "[$-409]d-mmm-yy;@"
Sheets("GL").Cells(irow, 2) = Rng3(i, 2)
Sheets("GL").Cells(irow, 3) = Rng3(i, 3)
Sheets("GL").Cells(irow, 4) = "Memorial"
Sheets("GL").Cells(irow, 5) = Rng3(i, 5)
Sheets("GL").Cells(irow, 5).NumberFormat = "#,##0"
Sheets("GL").Cells(irow, 6) = Rng3(i, 6)
Sheets("GL").Cells(irow, 6).NumberFormat = "#,##0"
Sheets("GL").Cells(irow, 7).FormulaR1C1 = "=SUM(R3C5:RC[-2])-SUM(R3C6:RC[-1])"
Sheets("GL").Cells(irow, 7).NumberFormat = "#,##0"
irow = irow + 1
End If
Next i
End With
End Sub
Tampilan Sheet hasilnya adalah seperti ini :
NP : Biaya Proyek
KP : 521.02.01
Tanggal No. Bukti Bank Uraian Lawan Perk. Debet Kredit Saldo
3-Jan-11 BKK/RG/12/I/0001 B. Material cat 111.01.00 70,000
70,000
7-Jan-11 BBM/RG/12/I/0003 B. Material cat 111.02.00 3,000,000
3,070,000
31-Jan-11 BM/RG/12/I/0001 B. Material cat Memorial 1,500,000
4,570,000
31-Jan-11 BM/RG/12/I/0001 B. Material cat Memorial 1,500,000
6,070,000
Mohon bantuan teman2 bagaimana mengganti kata Memorial dengan No Rekening lawan yang sebenarnya.
Terima kasih.
Salam,
Hendrik Karnadi
Yang diinginkan adalah membuat GL dengan sumber dari Buku Kas, Bank dan Memorial.
Untuk Buku Kas, Bank No Rekening lawannya sudah pasti yaitu No Rekening Kas atau Bank itu sendiri, sedangkan untuk Jurnal Memorial
No Rekening lawannya harus dicari.
Macro yang saya buat adalah seperti ini:
Sub Tes()
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim i As Long
Dim irow As Long
Set Rng1 = Sheets("Kas"
Set Rng1 = Rng1.Offset(
Set Rng2 = Sheets("Bank"
Set Rng2 = Rng2.Offset(
Set Rng3 = Sheets("Memorial"
Set Rng3 = Rng3.Offset(
Set Rng4 = Sheets("GL")
Set Rng4 = Rng4.Offset(
Rng4.ClearContents
irow = i + 3
With Sheets("Kas"
For i = 1 To Rng1.Rows.Count
If Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
irow = irow + 1
End If
Next i
End With
With Sheets("Bank"
For i = 1 To Rng2.Rows.Count
If Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
irow = irow + 1
End If
Next i
End With
With Sheets("Memorial"
For i = 1 To Rng3.Rows.Count
If Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
Sheets("GL")
irow = irow + 1
End If
Next i
End With
End Sub
Tampilan Sheet hasilnya adalah seperti ini :
NP : Biaya Proyek
KP : 521.02.01
Tanggal No. Bukti Bank Uraian Lawan Perk. Debet Kredit Saldo
3-Jan-11 BKK/RG/12/I/
70,000
7-Jan-11 BBM/RG/12/I/
3,070,000
31-Jan-11 BM/RG/12/I/0001 B. Material cat Memorial 1,500,000
4,570,000
31-Jan-11 BM/RG/12/I/0001 B. Material cat Memorial 1,500,000
6,070,000
Mohon bantuan teman2 bagaimana mengganti kata Memorial dengan No Rekening lawan yang sebenarnya.
Terima kasih.
Salam,
Hendrik Karnadi
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar