11 Messages
Digest #3444
Messages
Mon May 25, 2015 8:05 am (PDT) . Posted by:
"Toby kenzo" tobykenzo
Dear Pak ASL,
Pinjam dari formulanya mas Nang Agus
Mungkin untuk column C nya tidak di gunakan,jadi formulanya:
-------- langsung aja mulai dari:
For x = tinggi to 7 step -1
If Cells(x,1).value =0 then
wadah = Cells(x,5).value & wadah
Cells(x,5).value = " "
Else
wadah = Cells(x,5).value & wadah
Cells(x,5).value = wadah
wadah = " "
End if
next x
End Sub
# yang berubah hanya di column E aja mengikuti data yg di column A
TerimaKasih
Sent from Yahoo Mail on Android
Pinjam dari formulanya mas Nang Agus
Mungkin untuk column C nya tidak di gunakan,jadi formulanya:
-------- langsung aja mulai dari:
For x = tinggi to 7 step -1
If Cells(x,1).value =0 then
wadah = Cells(x,5).value & wadah
Cells(x,5).value = " "
Else
wadah = Cells(x,5).value & wadah
Cells(x,5).value = wadah
wadah = " "
End if
next x
End Sub
# yang berubah hanya di column E aja mengikuti data yg di column A
TerimaKasih
Sent from Yahoo Mail on Android
Mon May 25, 2015 11:18 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
tampaknya mas Nang Agus kelupaan satu kondisi.
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
if Cells(x, 5).Value<>0 then
Cells(x, 5).Value = baris
endif
End If
Next x
End Sub
Script diatas sekaligus menyusun sebuah data teks (lihat variabel bernama
wadah) dari beberapa baris data. Tampaknya ini dimaksudkan untuk menyusun
record data yang baik, sehingga tabel hasil bisa mengikuti kaidah tabel
database yang baik pula.
Catatan :
1. variabel baris tampaknya untuk menyimpan suatu nilai numerik. Pada
script di atas, tipe data di set menampung bilangan bulat saja dengan
maksimum sekitar 2 x 10^10 lebih dikit.
> andai data yang disimpan memiliki kemungkinan berjumlah digit lebih dari
9, sebaiknya tipe data variabel baris diubah menjadi double
2. variabel tinggi untuk menyimpan nomor baris Excel terakhir yang akan
diproses. Tipe data yang digunakan adalah integer yang dibatasi sampai
32000 sekiun.
> Andai kemungkinannya baris Excel yang digunakan oleh data mencapai lebih
dari 32000 sekiun, maka sebaiknya tipe datanya diubah menjadi Long
3. variabel x yang digunakan dalam loop dengan for next juga seperti
variabel tinggi.
4. untuk mendapatkan baris excel terakhir data bisa juga dengan bunyi kode
berikut : (lihat baris kode set nilai tinggi)
tinggi = cells(rows.count,3).end(xlup).row '3 adalah kolom c
'Range("c1000000").End(xlUp).Row
5. berhubung loop dengan for next, maka baris berbunyi for blabla akan
dieksekusi 1 kali saja.
> berarti, baris :
For x =* tinggi *To 7 Step -1
bisa diganti dengan :
For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
dan menjadi hemat proses eksekusi karena baris 'tinggi=blabla' bisa
dihapus, dan bagian deklarasi 'tinggi as blabla' juga bisa dihapus
6. penggabungan data bertipe teks (string) yang ada dalam script di atas
tidak menyertakan delimiter antar teks yang digabung
> contoh baris :
wadah = *Cells(x, 3).Value* & *wadah*
andai *Cells(x, 3).Value* bernilai '*Kid*' dan *wadah* bernilai '*juga*'
hasilnya akan menjadi '*Kidjuga*'
> bisa jadi akan tampak lebih baik bila diberi delimiter. Misalnya
delimiter-nya berupa sebuah karakter spasi. Maka barisnya menjadi :
wadah = *Cells(x, 3).Value* & " " & *wadah*
yang bisa menghasilkan teks hasil penggabungan berbunyi '*Kid* *juga*'
7. nomor 6 juga berlaku untuk baris kode berbunyi :
wadah = Cells(x, 3).Value & wadah
8. variabel bernama wadah dan rujukan ke kolom C dengan Cells(x, 3)
bertugas untuk menyusun sebuah teks dari beberapa baris teks
9. katanya, set string kosong akan lebih cepat diproses dan mudah tampak
dalam editing script jika menghindari penggunaan "" dan lebih memilih
menggunakan vbnullstring
> contoh :
Cells(x, 3).Value = ""
katanya bisa lebih cepat diproses dan mudah tampak saat editing ketika
menggunakan vbnullstring :
Cells(x, 3).Value = vbnullstring
> hal ini berlaku untuk beberapa baris yang lain, termasuk set nilai string
kosong pada variabel bernama wadah
10. cells yang diset nilai dengan "" atau vbnullstring akan menjadi blank
cells. jadi proses ini setara dengan penggunaan methods clearcontents milik
si cells atau range
11. penghematan jumlah proses bisa dilakukan dengan meringkaskan si proses
itu sendiri
> contoh pada beberapa baris berikut : (dengan proses penggabungan teks
yang sudah diperbaiki mengikuti nomor 7
wadah = *Cells(x, 3).Value & " " & wadah*
Cells(x, 3).Value = wadah
wadah = ""
"wadah (yang baru) diisi dengan nilai dari Cells(x, 3).Value yang digabung
dengan spasi dan isi wadah (yang lama)
lalu Cells(x, 3) diubah isinya dengan nilai yang disimpan dalam wadah (yang
sudah baru)
kemudian isi wadah (yang sudah baru tersebut) dibuang isinya."
> proses seperti di atas bisa diringkas dengan :
Cells(x, 3).Value = *Cells(x, 3).Value & " " & wadah*
wadah=vbnullstring
" Cells(x, 3) [yang baru] diisi dengan Cells(x, 3) [yang lama] digabung
dengan spasi dan isi wadah
lalu isi wadah dibuang."
> setidaknya hemat 1 proses
12. prosedur di atas menggunakan rujukan ke object yang ada di sheet aktif
(pasti di workbook yang sedang aktif)
Kalau dikumpulkan semuanya, kira-kira prosedurnya menjadi :
Sub kopi()
Dim baris As *double*, x As *long*
Dim wadah As String
For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = *Cells(x, 3).Value* & " " & *wadah*
Cells(x, 3).Value = *vbnullstring*
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = *vbnullstring*
End If
Else
Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
wadah = *vbnullstring*
if Cells(x, 5).Value<>0 then
Cells(x, 5).Value = baris
endif
End If
Next x
End Sub
Sampai disini, kalau dilihat-lihat berulang-ulang mengikuti si proses loop,
kondisi proses yang akan dicapai kira-kira bunyinya :
> mengikuti script di atas :
a. kalau isi kolom A = 0, dilakukan :
susun teks gabungan dan simpan di sebuah variabel
pembersihan teks dari cell di kolom C
a.1. kalau kolom E tidak 0, dilakukan :
penyimpanan nilai kolom E ke suatu variabel
pembersihan nilai dari cell di kolom E
b. kalau isi kolom A <> 0 (bagian Else), dilakukan :
tulis ke cell di kolom C gabungan nilai yang ada di kolom C
dengan teks hasil gabungan yang disimpan dalam variabel
buang gabungan teks dari variabel
b.1. kalau kolom E bukan 0 alias ada isinya, dilakukan :
tulis ke cell di kolom E suatu nilai yang disimpan
dalam variabel nilai
> jadi berdasar jabaran tentang kondisi dalam script tersebut di atas,
sebenarnya ada kondisi pokok sebagai berikut :
1. ketika kolom E bukan 0 alias ada isinya (lihat b.1.) diperlukan
memeriksa kolom A (lihat poin a dan b)
> pada kolom E bukan 0 ini, proses dilakukan pada saat kolom A =
0, yaitu melakukan :
- penggabungan teks kolom C dan menyimpannya ke suatu
variabel
- menyimpan nilai kolom E ke suatu variabel nilai
- membuang isi kolom C dan kolom E
* kalau kolom A tidak 0, tidak diperlukan proses apapun karena
memang sudah demikian adanya
2. ketika kolom E = 0 dan kolom A <> 0
> pada kondisi ini, dilakukan proses :
- menulis ke kolom C, yaitu suatu nilai hasil penggabungan
isi kolom C dengan isi variabel gabungan teks yang ada
- membuang isi variabel gabungan teks
- menulis ke kolom E, yaitu suatu nilai yang disimpan oleh
suatu variabel nilai
3. ketika kolom E = 0 dan kolom A = 0
> pada kondisi ini, dilakukan proses :
- menggabungkan teks nilai kolom C dengan hasil penggabungan
yang ada ke suatu variabel gabungan teks
- membuang isi kolom C
> sepertinya susunan kondisinya bisa berbentuk :
if Cells(x, 5).Value<>0 then 'poin 1
if Cells(x, 1).Value = 0
Then 'kondisi dalam poin 1 alias poin
1.>.
wadah = *Cells(x, 3).Value* & " " & *wadah*
baris = Cells(x, 5).Value
Cells(x, 3).Value = *vbnullstring*
Cells(x, 5).Value =
*vbnullstring* endif
elseif Cells(x, 1).Value <> 0 then 'poin 2
Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
wadah = *vbnullstring*
Cells(x, 5).Value = baris
else
'poin 3
wadah = *Cells(x, 3).Value* & " " & *wadah*
Cells(x, 3).Value = *vbnullstring*
endif
Jadi, susunan prosedurnya akan menjadi :
*public *Sub kopi() 'tambahin explicit nya scope ah supaya mudah
membacanya
Dim baris As *double*, x As *long*
Dim wadah As String
For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
if Cells(x, 5).Value<>0 then 'poin
1
if Cells(x, 1).Value = 0
Then 'kondisi dalam poin 1 alias poin
1.>.
wadah = *Cells(x, 3).Value* & " " & *wadah*
baris = Cells(x, 5).Value
Cells(x, 3).Value = *vbnullstring*
Cells(x, 5).Value =
*vbnullstring* endif
elseif Cells(x, 1).Value <> 0 then 'poin 2
Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
wadah = *vbnullstring*
Cells(x, 5).Value = baris
else
'poin 3
wadah = *Cells(x, 3).Value* & " " & *wadah*
Cells(x, 3).Value = *vbnullstring*
endif
Next x
End Sub
Tentang :
> gimana kalau macronya berjalan untuk semua sheet yang ada
> merujuk ke nomor 12 di atas sana, berarti dibutuhkan prosedur lainnya
yang bertugas melakukan loop ke setiap sheet lalu mengaktifkan sheet
tersebut. Kalau sheetnya sudah aktif, panggil prosedur di atas.
dim sht as worksheet
for each sht in thisworkbook.worksheets
sht.activate
kopi
next sht
Biasanya kalau sudah begini, akan ada pertanyaan : bagaimana kalau ada
banyak workbook...
> rasanya sudah pada bisa.
> buat prosedur lainnya yang bertugas buka workbook (kalau belum dibuka)
loop di setiap workbook, lalu panggil prosedur yang loop setiap sheet tadi
dan ditutup dengan save workbook yang di loop dan tutup workbook yang di
loop
> sebaiknya cari-carilah di postingan lawas tentang membuka workbook lain,
tentang loop setiap workbook, dan sebagainya.
Wassalam,
Kid
2015-05-25 18:42 GMT+10:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr Nang Agus,
> ternyata data kolom E nya menjadi salah, tidak sinkron dengan aslinya.
> terima kasih,
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Mon, 25 May 2015 13:07:02 +0700
> Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data
>
>
>
> Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:
>
> Option Explicit
> Sub kopi()
> Dim baris As Long, tinggi As Integer, x As Integer
> Dim wadah As String
> tinggi = Range("c1000000").End(xlUp).Row
> For x = tinggi To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = ""
> If Cells(x, 5).Value <> 0 Then
> baris = Cells(x, 5).Value
> Cells(x, 5).Value = ""
> End If
> Else
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = wadah
> wadah = ""
> Cells(x, 5).Value = baris
> End If
>
> Next x
>
> End Sub
>
> 2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:
>
> Mungkinkah macro begini?
> Option Explicit
> Sub kopi()
> Dim baris As Integer, tinggi As Integer, x As Integer
> Dim wadah As String
> tinggi = Range("c1000000").End(xlUp).Row
> For x = tinggi To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = ""
> Else
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = wadah
> wadah = ""
> End If
> Next x
>
> 2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear BeExceller,
>
> Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya
> biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya
> kerepotan dalam menyatukannya menjadi 1 baris.
> Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
>
> terima kasih,
>
> ASL
>
>
>
>
>
>
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
if Cells(x, 5).Value<>0 then
Cells(x, 5).Value = baris
endif
End If
Next x
End Sub
Script diatas sekaligus menyusun sebuah data teks (lihat variabel bernama
wadah) dari beberapa baris data. Tampaknya ini dimaksudkan untuk menyusun
record data yang baik, sehingga tabel hasil bisa mengikuti kaidah tabel
database yang baik pula.
Catatan :
1. variabel baris tampaknya untuk menyimpan suatu nilai numerik. Pada
script di atas, tipe data di set menampung bilangan bulat saja dengan
maksimum sekitar 2 x 10^10 lebih dikit.
> andai data yang disimpan memiliki kemungkinan berjumlah digit lebih dari
9, sebaiknya tipe data variabel baris diubah menjadi double
2. variabel tinggi untuk menyimpan nomor baris Excel terakhir yang akan
diproses. Tipe data yang digunakan adalah integer yang dibatasi sampai
32000 sekiun.
> Andai kemungkinannya baris Excel yang digunakan oleh data mencapai lebih
dari 32000 sekiun, maka sebaiknya tipe datanya diubah menjadi Long
3. variabel x yang digunakan dalam loop dengan for next juga seperti
variabel tinggi.
4. untuk mendapatkan baris excel terakhir data bisa juga dengan bunyi kode
berikut : (lihat baris kode set nilai tinggi)
tinggi = cells(rows.count,3).end(xlup).row '3 adalah kolom c
'Range("c1000000").End(xlUp).Row
5. berhubung loop dengan for next, maka baris berbunyi for blabla akan
dieksekusi 1 kali saja.
> berarti, baris :
For x =* tinggi *To 7 Step -1
bisa diganti dengan :
For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
dan menjadi hemat proses eksekusi karena baris 'tinggi=blabla' bisa
dihapus, dan bagian deklarasi 'tinggi as blabla' juga bisa dihapus
6. penggabungan data bertipe teks (string) yang ada dalam script di atas
tidak menyertakan delimiter antar teks yang digabung
> contoh baris :
wadah = *Cells(x, 3).Value* & *wadah*
andai *Cells(x, 3).Value* bernilai '*Kid*' dan *wadah* bernilai '*juga*'
hasilnya akan menjadi '*Kidjuga*'
> bisa jadi akan tampak lebih baik bila diberi delimiter. Misalnya
delimiter-nya berupa sebuah karakter spasi. Maka barisnya menjadi :
wadah = *Cells(x, 3).Value* & " " & *wadah*
yang bisa menghasilkan teks hasil penggabungan berbunyi '*Kid* *juga*'
7. nomor 6 juga berlaku untuk baris kode berbunyi :
wadah = Cells(x, 3).Value & wadah
8. variabel bernama wadah dan rujukan ke kolom C dengan Cells(x, 3)
bertugas untuk menyusun sebuah teks dari beberapa baris teks
9. katanya, set string kosong akan lebih cepat diproses dan mudah tampak
dalam editing script jika menghindari penggunaan "" dan lebih memilih
menggunakan vbnullstring
> contoh :
Cells(x, 3).Value = ""
katanya bisa lebih cepat diproses dan mudah tampak saat editing ketika
menggunakan vbnullstring :
Cells(x, 3).Value = vbnullstring
> hal ini berlaku untuk beberapa baris yang lain, termasuk set nilai string
kosong pada variabel bernama wadah
10. cells yang diset nilai dengan "" atau vbnullstring akan menjadi blank
cells. jadi proses ini setara dengan penggunaan methods clearcontents milik
si cells atau range
11. penghematan jumlah proses bisa dilakukan dengan meringkaskan si proses
itu sendiri
> contoh pada beberapa baris berikut : (dengan proses penggabungan teks
yang sudah diperbaiki mengikuti nomor 7
wadah = *Cells(x, 3).Value & " " & wadah*
Cells(x, 3).Value = wadah
wadah = ""
"wadah (yang baru) diisi dengan nilai dari Cells(x, 3).Value yang digabung
dengan spasi dan isi wadah (yang lama)
lalu Cells(x, 3) diubah isinya dengan nilai yang disimpan dalam wadah (yang
sudah baru)
kemudian isi wadah (yang sudah baru tersebut) dibuang isinya."
> proses seperti di atas bisa diringkas dengan :
Cells(x, 3).Value = *Cells(x, 3).Value & " " & wadah*
wadah=vbnullstring
" Cells(x, 3) [yang baru] diisi dengan Cells(x, 3) [yang lama] digabung
dengan spasi dan isi wadah
lalu isi wadah dibuang."
> setidaknya hemat 1 proses
12. prosedur di atas menggunakan rujukan ke object yang ada di sheet aktif
(pasti di workbook yang sedang aktif)
Kalau dikumpulkan semuanya, kira-kira prosedurnya menjadi :
Sub kopi()
Dim baris As *double*, x As *long*
Dim wadah As String
For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = *Cells(x, 3).Value* & " " & *wadah*
Cells(x, 3).Value = *vbnullstring*
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = *vbnullstring*
End If
Else
Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
wadah = *vbnullstring*
if Cells(x, 5).Value<>0 then
Cells(x, 5).Value = baris
endif
End If
Next x
End Sub
Sampai disini, kalau dilihat-lihat berulang-ulang mengikuti si proses loop,
kondisi proses yang akan dicapai kira-kira bunyinya :
> mengikuti script di atas :
a. kalau isi kolom A = 0, dilakukan :
susun teks gabungan dan simpan di sebuah variabel
pembersihan teks dari cell di kolom C
a.1. kalau kolom E tidak 0, dilakukan :
penyimpanan nilai kolom E ke suatu variabel
pembersihan nilai dari cell di kolom E
b. kalau isi kolom A <> 0 (bagian Else), dilakukan :
tulis ke cell di kolom C gabungan nilai yang ada di kolom C
dengan teks hasil gabungan yang disimpan dalam variabel
buang gabungan teks dari variabel
b.1. kalau kolom E bukan 0 alias ada isinya, dilakukan :
tulis ke cell di kolom E suatu nilai yang disimpan
dalam variabel nilai
> jadi berdasar jabaran tentang kondisi dalam script tersebut di atas,
sebenarnya ada kondisi pokok sebagai berikut :
1. ketika kolom E bukan 0 alias ada isinya (lihat b.1.) diperlukan
memeriksa kolom A (lihat poin a dan b)
> pada kolom E bukan 0 ini, proses dilakukan pada saat kolom A =
0, yaitu melakukan :
- penggabungan teks kolom C dan menyimpannya ke suatu
variabel
- menyimpan nilai kolom E ke suatu variabel nilai
- membuang isi kolom C dan kolom E
* kalau kolom A tidak 0, tidak diperlukan proses apapun karena
memang sudah demikian adanya
2. ketika kolom E = 0 dan kolom A <> 0
> pada kondisi ini, dilakukan proses :
- menulis ke kolom C, yaitu suatu nilai hasil penggabungan
isi kolom C dengan isi variabel gabungan teks yang ada
- membuang isi variabel gabungan teks
- menulis ke kolom E, yaitu suatu nilai yang disimpan oleh
suatu variabel nilai
3. ketika kolom E = 0 dan kolom A = 0
> pada kondisi ini, dilakukan proses :
- menggabungkan teks nilai kolom C dengan hasil penggabungan
yang ada ke suatu variabel gabungan teks
- membuang isi kolom C
> sepertinya susunan kondisinya bisa berbentuk :
if Cells(x, 5).Value<>0 then 'poin 1
if Cells(x, 1).Value = 0
Then 'kondisi dalam poin 1 alias poin
1.>.
wadah = *Cells(x, 3).Value* & " " & *wadah*
baris = Cells(x, 5).Value
Cells(x, 3).Value = *vbnullstring*
Cells(x, 5).Value =
*vbnullstring* endif
elseif Cells(x, 1).Value <> 0 then 'poin 2
Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
wadah = *vbnullstring*
Cells(x, 5).Value = baris
else
'poin 3
wadah = *Cells(x, 3).Value* & " " & *wadah*
Cells(x, 3).Value = *vbnullstring*
endif
Jadi, susunan prosedurnya akan menjadi :
*public *Sub kopi() 'tambahin explicit nya scope ah supaya mudah
membacanya
Dim baris As *double*, x As *long*
Dim wadah As String
For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
if Cells(x, 5).Value<>0 then 'poin
1
if Cells(x, 1).Value = 0
Then 'kondisi dalam poin 1 alias poin
1.>.
wadah = *Cells(x, 3).Value* & " " & *wadah*
baris = Cells(x, 5).Value
Cells(x, 3).Value = *vbnullstring*
Cells(x, 5).Value =
*vbnullstring* endif
elseif Cells(x, 1).Value <> 0 then 'poin 2
Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
wadah = *vbnullstring*
Cells(x, 5).Value = baris
else
'poin 3
wadah = *Cells(x, 3).Value* & " " & *wadah*
Cells(x, 3).Value = *vbnullstring*
endif
Next x
End Sub
Tentang :
> gimana kalau macronya berjalan untuk semua sheet yang ada
> merujuk ke nomor 12 di atas sana, berarti dibutuhkan prosedur lainnya
yang bertugas melakukan loop ke setiap sheet lalu mengaktifkan sheet
tersebut. Kalau sheetnya sudah aktif, panggil prosedur di atas.
dim sht as worksheet
for each sht in thisworkbook.worksheets
sht.activate
kopi
next sht
Biasanya kalau sudah begini, akan ada pertanyaan : bagaimana kalau ada
banyak workbook...
> rasanya sudah pada bisa.
> buat prosedur lainnya yang bertugas buka workbook (kalau belum dibuka)
loop di setiap workbook, lalu panggil prosedur yang loop setiap sheet tadi
dan ditutup dengan save workbook yang di loop dan tutup workbook yang di
loop
> sebaiknya cari-carilah di postingan lawas tentang membuka workbook lain,
tentang loop setiap workbook, dan sebagainya.
Wassalam,
Kid
2015-05-25 18:42 GMT+10:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr Nang Agus,
> ternyata data kolom E nya menjadi salah, tidak sinkron dengan aslinya.
> terima kasih,
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Mon, 25 May 2015 13:07:02 +0700
> Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data
>
>
>
> Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:
>
> Option Explicit
> Sub kopi()
> Dim baris As Long, tinggi As Integer, x As Integer
> Dim wadah As String
> tinggi = Range("c1000000").End(xlUp).Row
> For x = tinggi To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = ""
> If Cells(x, 5).Value <> 0 Then
> baris = Cells(x, 5).Value
> Cells(x, 5).Value = ""
> End If
> Else
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = wadah
> wadah = ""
> Cells(x, 5).Value = baris
> End If
>
> Next x
>
> End Sub
>
> 2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:
>
> Mungkinkah macro begini?
> Option Explicit
> Sub kopi()
> Dim baris As Integer, tinggi As Integer, x As Integer
> Dim wadah As String
> tinggi = Range("c1000000").End(xlUp).Row
> For x = tinggi To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = ""
> Else
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = wadah
> wadah = ""
> End If
> Next x
>
> 2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear BeExceller,
>
> Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya
> biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya
> kerepotan dalam menyatukannya menjadi 1 baris.
> Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
>
> terima kasih,
>
> ASL
>
>
>
>
>
>
Mon May 25, 2015 7:16 pm (PDT) . Posted by:
"Nang Agus"
Asalamualaikum warahmatullah,
Terima kasih mas Kid atas penjelasannya yang panjang lebar.
besok saya mau tanya tentang menentukan apakah file sudah kebuka atau belum?
saya sudah punya cekripnya ambil di internet, cuma tidak tahu maksud
cekripnya.
Terima kasih
wasalam
2015-05-26 1:17 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> tampaknya mas Nang Agus kelupaan satu kondisi.
>
> Sub kopi()
> Dim baris As Long, tinggi As Integer, x As Integer
> Dim wadah As String
> tinggi = Range("c1000000").End(xlUp).Row
> For x = tinggi To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = ""
> If Cells(x, 5).Value <> 0 Then
> baris = Cells(x, 5).Value
> Cells(x, 5).Value = ""
> End If
> Else
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = wadah
> wadah = ""
> if Cells(x, 5).Value<>0 then
> Cells(x, 5).Value = baris
> endif
> End If
>
> Next x
> End Sub
>
> Script diatas sekaligus menyusun sebuah data teks (lihat variabel bernama
> wadah) dari beberapa baris data. Tampaknya ini dimaksudkan untuk menyusun
> record data yang baik, sehingga tabel hasil bisa mengikuti kaidah tabel
> database yang baik pula.
>
> Catatan :
> 1. variabel baris tampaknya untuk menyimpan suatu nilai numerik. Pada
> script di atas, tipe data di set menampung bilangan bulat saja dengan
> maksimum sekitar 2 x 10^10 lebih dikit.
> > andai data yang disimpan memiliki kemungkinan berjumlah digit lebih dari
> 9, sebaiknya tipe data variabel baris diubah menjadi double
>
> 2. variabel tinggi untuk menyimpan nomor baris Excel terakhir yang akan
> diproses. Tipe data yang digunakan adalah integer yang dibatasi sampai
> 32000 sekiun.
> > Andai kemungkinannya baris Excel yang digunakan oleh data mencapai lebih
> dari 32000 sekiun, maka sebaiknya tipe datanya diubah menjadi Long
>
> 3. variabel x yang digunakan dalam loop dengan for next juga seperti
> variabel tinggi.
>
> 4. untuk mendapatkan baris excel terakhir data bisa juga dengan bunyi kode
> berikut : (lihat baris kode set nilai tinggi)
> tinggi = cells(rows.count,3).end(xlup).row '3 adalah kolom c
> 'Range("c1000000").End(xlUp).Row
>
> 5. berhubung loop dengan for next, maka baris berbunyi for blabla akan
> dieksekusi 1 kali saja.
> > berarti, baris :
> For x =* tinggi *To 7 Step -1
> bisa diganti dengan :
> For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
> dan menjadi hemat proses eksekusi karena baris 'tinggi=blabla' bisa
> dihapus, dan bagian deklarasi 'tinggi as blabla' juga bisa dihapus
>
> 6. penggabungan data bertipe teks (string) yang ada dalam script di atas
> tidak menyertakan delimiter antar teks yang digabung
> > contoh baris :
> wadah = *Cells(x, 3).Value* & *wadah*
> andai *Cells(x, 3).Value* bernilai '*Kid*' dan *wadah* bernilai '*juga*'
> hasilnya akan menjadi '*Kidjuga*'
> > bisa jadi akan tampak lebih baik bila diberi delimiter. Misalnya
> delimiter-nya berupa sebuah karakter spasi. Maka barisnya menjadi :
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> yang bisa menghasilkan teks hasil penggabungan berbunyi '*Kid* *juga*'
>
> 7. nomor 6 juga berlaku untuk baris kode berbunyi :
> wadah = Cells(x, 3).Value & wadah
>
> 8. variabel bernama wadah dan rujukan ke kolom C dengan Cells(x, 3)
> bertugas untuk menyusun sebuah teks dari beberapa baris teks
>
> 9. katanya, set string kosong akan lebih cepat diproses dan mudah tampak
> dalam editing script jika menghindari penggunaan "" dan lebih memilih
> menggunakan vbnullstring
> > contoh :
> Cells(x, 3).Value = ""
> katanya bisa lebih cepat diproses dan mudah tampak saat editing ketika
> menggunakan vbnullstring :
> Cells(x, 3).Value = vbnullstring
> > hal ini berlaku untuk beberapa baris yang lain, termasuk set nilai
> string kosong pada variabel bernama wadah
>
> 10. cells yang diset nilai dengan "" atau vbnullstring akan menjadi blank
> cells. jadi proses ini setara dengan penggunaan methods clearcontents milik
> si cells atau range
>
> 11. penghematan jumlah proses bisa dilakukan dengan meringkaskan si proses
> itu sendiri
> > contoh pada beberapa baris berikut : (dengan proses penggabungan teks
> yang sudah diperbaiki mengikuti nomor 7
> wadah = *Cells(x, 3).Value & " " & wadah*
> Cells(x, 3).Value = wadah
> wadah = ""
> "wadah (yang baru) diisi dengan nilai dari Cells(x, 3).Value yang digabung
> dengan spasi dan isi wadah (yang lama)
> lalu Cells(x, 3) diubah isinya dengan nilai yang disimpan dalam wadah
> (yang sudah baru)
> kemudian isi wadah (yang sudah baru tersebut) dibuang isinya."
>
> > proses seperti di atas bisa diringkas dengan :
> Cells(x, 3).Value = *Cells(x, 3).Value & " " & wadah*
> wadah=vbnullstring
> " Cells(x, 3) [yang baru] diisi dengan Cells(x, 3) [yang lama] digabung
> dengan spasi dan isi wadah
> lalu isi wadah dibuang."
>
> > setidaknya hemat 1 proses
>
> 12. prosedur di atas menggunakan rujukan ke object yang ada di sheet aktif
> (pasti di workbook yang sedang aktif)
>
>
> Kalau dikumpulkan semuanya, kira-kira prosedurnya menjadi :
> Sub kopi()
> Dim baris As *double*, x As *long*
> Dim wadah As String
> For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> Cells(x, 3).Value = *vbnullstring*
> If Cells(x, 5).Value <> 0 Then
> baris = Cells(x, 5).Value
> Cells(x, 5).Value = *vbnullstring*
> End If
> Else
> Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
> wadah = *vbnullstring*
> if Cells(x, 5).Value<>0 then
> Cells(x, 5).Value = baris
> endif
> End If
> Next x
> End Sub
>
>
> Sampai disini, kalau dilihat-lihat berulang-ulang mengikuti si proses
> loop, kondisi proses yang akan dicapai kira-kira bunyinya :
> > mengikuti script di atas :
> a. kalau isi kolom A = 0, dilakukan :
> susun teks gabungan dan simpan di sebuah variabel
> pembersihan teks dari cell di kolom C
> a.1. kalau kolom E tidak 0, dilakukan :
> penyimpanan nilai kolom E ke suatu variabel
> pembersihan nilai dari cell di kolom E
> b. kalau isi kolom A <> 0 (bagian Else), dilakukan :
> tulis ke cell di kolom C gabungan nilai yang ada di kolom C
> dengan teks hasil gabungan yang disimpan dalam variabel
> buang gabungan teks dari variabel
> b.1. kalau kolom E bukan 0 alias ada isinya, dilakukan :
> tulis ke cell di kolom E suatu nilai yang
> disimpan dalam variabel nilai
>
> > jadi berdasar jabaran tentang kondisi dalam script tersebut di atas,
> sebenarnya ada kondisi pokok sebagai berikut :
> 1. ketika kolom E bukan 0 alias ada isinya (lihat b.1.) diperlukan
> memeriksa kolom A (lihat poin a dan b)
> > pada kolom E bukan 0 ini, proses dilakukan pada saat kolom A =
> 0, yaitu melakukan :
> - penggabungan teks kolom C dan menyimpannya ke suatu
> variabel
> - menyimpan nilai kolom E ke suatu variabel nilai
> - membuang isi kolom C dan kolom E
> * kalau kolom A tidak 0, tidak diperlukan proses apapun karena
> memang sudah demikian adanya
> 2. ketika kolom E = 0 dan kolom A <> 0
> > pada kondisi ini, dilakukan proses :
> - menulis ke kolom C, yaitu suatu nilai hasil penggabungan
> isi kolom C dengan isi variabel gabungan teks yang ada
> - membuang isi variabel gabungan teks
> - menulis ke kolom E, yaitu suatu nilai yang disimpan oleh
> suatu variabel nilai
> 3. ketika kolom E = 0 dan kolom A = 0
> > pada kondisi ini, dilakukan proses :
> - menggabungkan teks nilai kolom C dengan hasil penggabungan
> yang ada ke suatu variabel gabungan teks
> - membuang isi kolom C
>
> > sepertinya susunan kondisinya bisa berbentuk :
> if Cells(x, 5).Value<>0 then 'poin
> 1
> if Cells(x, 1).Value = 0
> Then 'kondisi dalam poin 1 alias poin
> 1.>.
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> baris = Cells(x, 5).Value
> Cells(x, 3).Value = *vbnullstring*
> Cells(x, 5).Value =
> *vbnullstring* endif
> elseif Cells(x, 1).Value <> 0 then 'poin 2
> Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
> wadah = *vbnullstring*
> Cells(x, 5).Value = baris
>
> else
> 'poin 3
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> Cells(x, 3).Value = *vbnullstring*
> endif
>
> Jadi, susunan prosedurnya akan menjadi :
> *public *Sub kopi() 'tambahin explicit nya scope ah supaya mudah
> membacanya
> Dim baris As *double*, x As *long*
> Dim wadah As String
> For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
>
> if Cells(x, 5).Value<>0 then
> 'poin 1
> if Cells(x, 1).Value = 0
> Then 'kondisi dalam poin 1 alias poin
> 1.>.
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> baris = Cells(x, 5).Value
> Cells(x, 3).Value = *vbnullstring*
> Cells(x, 5).Value =
> *vbnullstring* endif
> elseif Cells(x, 1).Value <> 0 then 'poin 2
> Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
> wadah = *vbnullstring*
> Cells(x, 5).Value = baris
>
> else
> 'poin 3
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> Cells(x, 3).Value = *vbnullstring*
> endif
> Next x
> End Sub
>
>
> Tentang :
>
>> gimana kalau macronya berjalan untuk semua sheet yang ada
>
> > merujuk ke nomor 12 di atas sana, berarti dibutuhkan prosedur lainnya
> yang bertugas melakukan loop ke setiap sheet lalu mengaktifkan sheet
> tersebut. Kalau sheetnya sudah aktif, panggil prosedur di atas.
> dim sht as worksheet
> for each sht in thisworkbook.worksheets
> sht.activate
> kopi
> next sht
>
> Biasanya kalau sudah begini, akan ada pertanyaan : bagaimana kalau ada
> banyak workbook...
> > rasanya sudah pada bisa.
> > buat prosedur lainnya yang bertugas buka workbook (kalau belum dibuka)
> loop di setiap workbook, lalu panggil prosedur yang loop setiap sheet tadi
> dan ditutup dengan save workbook yang di loop dan tutup workbook yang di
> loop
> > sebaiknya cari-carilah di postingan lawas tentang membuka workbook lain,
> tentang loop setiap workbook, dan sebagainya.
>
> Wassalam,
> Kid
>
>
>
> 2015-05-25 18:42 GMT+10:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Mr Nang Agus,
>> ternyata data kolom E nya menjadi salah, tidak sinkron dengan aslinya.
>> terima kasih,
>> ASL
>>
>> ------------------------------
>> To: belajar-excel@yahoogroups.com
>> From: belajar-excel@yahoogroups.com
>> Date: Mon, 25 May 2015 13:07:02 +0700
>> Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris
>> data
>>
>>
>>
>> Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:
>>
>> Option Explicit
>> Sub kopi()
>> Dim baris As Long, tinggi As Integer, x As Integer
>> Dim wadah As String
>> tinggi = Range("c1000000").End(xlUp).Row
>> For x = tinggi To 7 Step -1
>> If Cells(x, 1).Value = 0 Then
>> wadah = Cells(x, 3).Value & wadah
>> Cells(x, 3).Value = ""
>> If Cells(x, 5).Value <> 0 Then
>> baris = Cells(x, 5).Value
>> Cells(x, 5).Value = ""
>> End If
>> Else
>> wadah = Cells(x, 3).Value & wadah
>> Cells(x, 3).Value = wadah
>> wadah = ""
>> Cells(x, 5).Value = baris
>> End If
>>
>> Next x
>>
>> End Sub
>>
>> 2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:
>>
>> Mungkinkah macro begini?
>> Option Explicit
>> Sub kopi()
>> Dim baris As Integer, tinggi As Integer, x As Integer
>> Dim wadah As String
>> tinggi = Range("c1000000").End(xlUp).Row
>> For x = tinggi To 7 Step -1
>> If Cells(x, 1).Value = 0 Then
>> wadah = Cells(x, 3).Value & wadah
>> Cells(x, 3).Value = ""
>> Else
>> wadah = Cells(x, 3).Value & wadah
>> Cells(x, 3).Value = wadah
>> wadah = ""
>> End If
>> Next x
>>
>> 2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Dear BeExceller,
>>
>> Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya
>> biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya
>> kerepotan dalam menyatukannya menjadi 1 baris.
>> Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
>>
>> terima kasih,
>>
>> ASL
>>
>>
>>
>>
>>
>
>
Terima kasih mas Kid atas penjelasannya yang panjang lebar.
besok saya mau tanya tentang menentukan apakah file sudah kebuka atau belum?
saya sudah punya cekripnya ambil di internet, cuma tidak tahu maksud
cekripnya.
Terima kasih
wasalam
2015-05-26 1:17 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> tampaknya mas Nang Agus kelupaan satu kondisi.
>
> Sub kopi()
> Dim baris As Long, tinggi As Integer, x As Integer
> Dim wadah As String
> tinggi = Range("c1000000").End(xlUp).Row
> For x = tinggi To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = ""
> If Cells(x, 5).Value <> 0 Then
> baris = Cells(x, 5).Value
> Cells(x, 5).Value = ""
> End If
> Else
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = wadah
> wadah = ""
> if Cells(x, 5).Value<>0 then
> Cells(x, 5).Value = baris
> endif
> End If
>
> Next x
> End Sub
>
> Script diatas sekaligus menyusun sebuah data teks (lihat variabel bernama
> wadah) dari beberapa baris data. Tampaknya ini dimaksudkan untuk menyusun
> record data yang baik, sehingga tabel hasil bisa mengikuti kaidah tabel
> database yang baik pula.
>
> Catatan :
> 1. variabel baris tampaknya untuk menyimpan suatu nilai numerik. Pada
> script di atas, tipe data di set menampung bilangan bulat saja dengan
> maksimum sekitar 2 x 10^10 lebih dikit.
> > andai data yang disimpan memiliki kemungkinan berjumlah digit lebih dari
> 9, sebaiknya tipe data variabel baris diubah menjadi double
>
> 2. variabel tinggi untuk menyimpan nomor baris Excel terakhir yang akan
> diproses. Tipe data yang digunakan adalah integer yang dibatasi sampai
> 32000 sekiun.
> > Andai kemungkinannya baris Excel yang digunakan oleh data mencapai lebih
> dari 32000 sekiun, maka sebaiknya tipe datanya diubah menjadi Long
>
> 3. variabel x yang digunakan dalam loop dengan for next juga seperti
> variabel tinggi.
>
> 4. untuk mendapatkan baris excel terakhir data bisa juga dengan bunyi kode
> berikut : (lihat baris kode set nilai tinggi)
> tinggi = cells(rows.count,3).end(xlup).row '3 adalah kolom c
> 'Range("c1000000").End(xlUp).Row
>
> 5. berhubung loop dengan for next, maka baris berbunyi for blabla akan
> dieksekusi 1 kali saja.
> > berarti, baris :
> For x =* tinggi *To 7 Step -1
> bisa diganti dengan :
> For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
> dan menjadi hemat proses eksekusi karena baris 'tinggi=blabla' bisa
> dihapus, dan bagian deklarasi 'tinggi as blabla' juga bisa dihapus
>
> 6. penggabungan data bertipe teks (string) yang ada dalam script di atas
> tidak menyertakan delimiter antar teks yang digabung
> > contoh baris :
> wadah = *Cells(x, 3).Value* & *wadah*
> andai *Cells(x, 3).Value* bernilai '*Kid*' dan *wadah* bernilai '*juga*'
> hasilnya akan menjadi '*Kidjuga*'
> > bisa jadi akan tampak lebih baik bila diberi delimiter. Misalnya
> delimiter-nya berupa sebuah karakter spasi. Maka barisnya menjadi :
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> yang bisa menghasilkan teks hasil penggabungan berbunyi '*Kid* *juga*'
>
> 7. nomor 6 juga berlaku untuk baris kode berbunyi :
> wadah = Cells(x, 3).Value & wadah
>
> 8. variabel bernama wadah dan rujukan ke kolom C dengan Cells(x, 3)
> bertugas untuk menyusun sebuah teks dari beberapa baris teks
>
> 9. katanya, set string kosong akan lebih cepat diproses dan mudah tampak
> dalam editing script jika menghindari penggunaan "" dan lebih memilih
> menggunakan vbnullstring
> > contoh :
> Cells(x, 3).Value = ""
> katanya bisa lebih cepat diproses dan mudah tampak saat editing ketika
> menggunakan vbnullstring :
> Cells(x, 3).Value = vbnullstring
> > hal ini berlaku untuk beberapa baris yang lain, termasuk set nilai
> string kosong pada variabel bernama wadah
>
> 10. cells yang diset nilai dengan "" atau vbnullstring akan menjadi blank
> cells. jadi proses ini setara dengan penggunaan methods clearcontents milik
> si cells atau range
>
> 11. penghematan jumlah proses bisa dilakukan dengan meringkaskan si proses
> itu sendiri
> > contoh pada beberapa baris berikut : (dengan proses penggabungan teks
> yang sudah diperbaiki mengikuti nomor 7
> wadah = *Cells(x, 3).Value & " " & wadah*
> Cells(x, 3).Value = wadah
> wadah = ""
> "wadah (yang baru) diisi dengan nilai dari Cells(x, 3).Value yang digabung
> dengan spasi dan isi wadah (yang lama)
> lalu Cells(x, 3) diubah isinya dengan nilai yang disimpan dalam wadah
> (yang sudah baru)
> kemudian isi wadah (yang sudah baru tersebut) dibuang isinya."
>
> > proses seperti di atas bisa diringkas dengan :
> Cells(x, 3).Value = *Cells(x, 3).Value & " " & wadah*
> wadah=vbnullstring
> " Cells(x, 3) [yang baru] diisi dengan Cells(x, 3) [yang lama] digabung
> dengan spasi dan isi wadah
> lalu isi wadah dibuang."
>
> > setidaknya hemat 1 proses
>
> 12. prosedur di atas menggunakan rujukan ke object yang ada di sheet aktif
> (pasti di workbook yang sedang aktif)
>
>
> Kalau dikumpulkan semuanya, kira-kira prosedurnya menjadi :
> Sub kopi()
> Dim baris As *double*, x As *long*
> Dim wadah As String
> For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> Cells(x, 3).Value = *vbnullstring*
> If Cells(x, 5).Value <> 0 Then
> baris = Cells(x, 5).Value
> Cells(x, 5).Value = *vbnullstring*
> End If
> Else
> Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
> wadah = *vbnullstring*
> if Cells(x, 5).Value<>0 then
> Cells(x, 5).Value = baris
> endif
> End If
> Next x
> End Sub
>
>
> Sampai disini, kalau dilihat-lihat berulang-ulang mengikuti si proses
> loop, kondisi proses yang akan dicapai kira-kira bunyinya :
> > mengikuti script di atas :
> a. kalau isi kolom A = 0, dilakukan :
> susun teks gabungan dan simpan di sebuah variabel
> pembersihan teks dari cell di kolom C
> a.1. kalau kolom E tidak 0, dilakukan :
> penyimpanan nilai kolom E ke suatu variabel
> pembersihan nilai dari cell di kolom E
> b. kalau isi kolom A <> 0 (bagian Else), dilakukan :
> tulis ke cell di kolom C gabungan nilai yang ada di kolom C
> dengan teks hasil gabungan yang disimpan dalam variabel
> buang gabungan teks dari variabel
> b.1. kalau kolom E bukan 0 alias ada isinya, dilakukan :
> tulis ke cell di kolom E suatu nilai yang
> disimpan dalam variabel nilai
>
> > jadi berdasar jabaran tentang kondisi dalam script tersebut di atas,
> sebenarnya ada kondisi pokok sebagai berikut :
> 1. ketika kolom E bukan 0 alias ada isinya (lihat b.1.) diperlukan
> memeriksa kolom A (lihat poin a dan b)
> > pada kolom E bukan 0 ini, proses dilakukan pada saat kolom A =
> 0, yaitu melakukan :
> - penggabungan teks kolom C dan menyimpannya ke suatu
> variabel
> - menyimpan nilai kolom E ke suatu variabel nilai
> - membuang isi kolom C dan kolom E
> * kalau kolom A tidak 0, tidak diperlukan proses apapun karena
> memang sudah demikian adanya
> 2. ketika kolom E = 0 dan kolom A <> 0
> > pada kondisi ini, dilakukan proses :
> - menulis ke kolom C, yaitu suatu nilai hasil penggabungan
> isi kolom C dengan isi variabel gabungan teks yang ada
> - membuang isi variabel gabungan teks
> - menulis ke kolom E, yaitu suatu nilai yang disimpan oleh
> suatu variabel nilai
> 3. ketika kolom E = 0 dan kolom A = 0
> > pada kondisi ini, dilakukan proses :
> - menggabungkan teks nilai kolom C dengan hasil penggabungan
> yang ada ke suatu variabel gabungan teks
> - membuang isi kolom C
>
> > sepertinya susunan kondisinya bisa berbentuk :
> if Cells(x, 5).Value<>0 then 'poin
> 1
> if Cells(x, 1).Value = 0
> Then 'kondisi dalam poin 1 alias poin
> 1.>.
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> baris = Cells(x, 5).Value
> Cells(x, 3).Value = *vbnullstring*
> Cells(x, 5).Value =
> *vbnullstring* endif
> elseif Cells(x, 1).Value <> 0 then 'poin 2
> Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
> wadah = *vbnullstring*
> Cells(x, 5).Value = baris
>
> else
> 'poin 3
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> Cells(x, 3).Value = *vbnullstring*
> endif
>
> Jadi, susunan prosedurnya akan menjadi :
> *public *Sub kopi() 'tambahin explicit nya scope ah supaya mudah
> membacanya
> Dim baris As *double*, x As *long*
> Dim wadah As String
> For x = *cells(rows.count,3).end(xlup).row* To 7 Step -1
>
> if Cells(x, 5).Value<>0 then
> 'poin 1
> if Cells(x, 1).Value = 0
> Then 'kondisi dalam poin 1 alias poin
> 1.>.
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> baris = Cells(x, 5).Value
> Cells(x, 3).Value = *vbnullstring*
> Cells(x, 5).Value =
> *vbnullstring* endif
> elseif Cells(x, 1).Value <> 0 then 'poin 2
> Cells(x, 3).Value = *Cells(x, 3).Value* & " " & *wadah*
> wadah = *vbnullstring*
> Cells(x, 5).Value = baris
>
> else
> 'poin 3
> wadah = *Cells(x, 3).Value* & " " & *wadah*
> Cells(x, 3).Value = *vbnullstring*
> endif
> Next x
> End Sub
>
>
> Tentang :
>
>> gimana kalau macronya berjalan untuk semua sheet yang ada
>
> > merujuk ke nomor 12 di atas sana, berarti dibutuhkan prosedur lainnya
> yang bertugas melakukan loop ke setiap sheet lalu mengaktifkan sheet
> tersebut. Kalau sheetnya sudah aktif, panggil prosedur di atas.
> dim sht as worksheet
> for each sht in thisworkbook.worksheets
> sht.activate
> kopi
> next sht
>
> Biasanya kalau sudah begini, akan ada pertanyaan : bagaimana kalau ada
> banyak workbook...
> > rasanya sudah pada bisa.
> > buat prosedur lainnya yang bertugas buka workbook (kalau belum dibuka)
> loop di setiap workbook, lalu panggil prosedur yang loop setiap sheet tadi
> dan ditutup dengan save workbook yang di loop dan tutup workbook yang di
> loop
> > sebaiknya cari-carilah di postingan lawas tentang membuka workbook lain,
> tentang loop setiap workbook, dan sebagainya.
>
> Wassalam,
> Kid
>
>
>
> 2015-05-25 18:42 GMT+10:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Mr Nang Agus,
>> ternyata data kolom E nya menjadi salah, tidak sinkron dengan aslinya.
>> terima kasih,
>> ASL
>>
>> ------------------------------
>> To: belajar-excel@yahoogroups.com
>> From: belajar-excel@yahoogroups.com
>> Date: Mon, 25 May 2015 13:07:02 +0700
>> Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris
>> data
>>
>>
>>
>> Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:
>>
>> Option Explicit
>> Sub kopi()
>> Dim baris As Long, tinggi As Integer, x As Integer
>> Dim wadah As String
>> tinggi = Range("c1000000").End(xlUp).Row
>> For x = tinggi To 7 Step -1
>> If Cells(x, 1).Value = 0 Then
>> wadah = Cells(x, 3).Value & wadah
>> Cells(x, 3).Value = ""
>> If Cells(x, 5).Value <> 0 Then
>> baris = Cells(x, 5).Value
>> Cells(x, 5).Value = ""
>> End If
>> Else
>> wadah = Cells(x, 3).Value & wadah
>> Cells(x, 3).Value = wadah
>> wadah = ""
>> Cells(x, 5).Value = baris
>> End If
>>
>> Next x
>>
>> End Sub
>>
>> 2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:
>>
>> Mungkinkah macro begini?
>> Option Explicit
>> Sub kopi()
>> Dim baris As Integer, tinggi As Integer, x As Integer
>> Dim wadah As String
>> tinggi = Range("c1000000").End(xlUp).Row
>> For x = tinggi To 7 Step -1
>> If Cells(x, 1).Value = 0 Then
>> wadah = Cells(x, 3).Value & wadah
>> Cells(x, 3).Value = ""
>> Else
>> wadah = Cells(x, 3).Value & wadah
>> Cells(x, 3).Value = wadah
>> wadah = ""
>> End If
>> Next x
>>
>> 2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Dear BeExceller,
>>
>> Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya
>> biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya
>> kerepotan dalam menyatukannya menjadi 1 baris.
>> Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
>>
>> terima kasih,
>>
>> ASL
>>
>>
>>
>>
>>
>
>
Tue May 26, 2015 2:12 am (PDT) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Mr Kid, Mr Tobby, Mr Nang Agus dan BeExceller,
Saya pakai macronya Mr Kid, tetapi tidak pas dengan Hasil Yang Diharapkan.
terlampir file yang menjadi percobaan; buat saya sulit banget untuk memahaminya.
Mohon dilihat sheet "Hasil Macro Yang Salah" dengan "Hasil Sheet Yang Diharapkan".
terima kasih,
ASL.
To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Tue, 26 May 2015 04:17:46 +1000
Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data
tampaknya mas Nang Agus kelupaan satu kondisi.
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
if Cells(x, 5).Value<>0 then
Cells(x, 5).Value = baris
endif
End If
Next x
End Sub
Script diatas sekaligus menyusun sebuah data teks (lihat variabel bernama wadah) dari beberapa baris data. Tampaknya ini dimaksudkan untuk menyusun record data yang baik, sehingga tabel hasil bisa mengikuti kaidah tabel database yang baik pula.
Catatan :
1. variabel baris tampaknya untuk menyimpan suatu nilai numerik. Pada script di atas, tipe data di set menampung bilangan bulat saja dengan maksimum sekitar 2 x 10^10 lebih dikit.
> andai data yang disimpan memiliki kemungkinan berjumlah digit lebih dari 9, sebaiknya tipe data variabel baris diubah menjadi double
2. variabel tinggi untuk menyimpan nomor baris Excel terakhir yang akan diproses. Tipe data yang digunakan adalah integer yang dibatasi sampai 32000 sekiun.
> Andai kemungkinannya baris Excel yang digunakan oleh data mencapai lebih dari 32000 sekiun, maka sebaiknya tipe datanya diubah menjadi Long
3. variabel x yang digunakan dalam loop dengan for next juga seperti variabel tinggi.
4. untuk mendapatkan baris excel terakhir data bisa juga dengan bunyi kode berikut : (lihat baris kode set nilai tinggi)
tinggi = cells(rows.count,3).end(xlup).row '3 adalah kolom c 'Range("c1000000").End(xlUp).Row
5. berhubung loop dengan for next, maka baris berbunyi for blabla akan dieksekusi 1 kali saja.
> berarti, baris :
For x = tinggi To 7 Step -1
bisa diganti dengan :
For x = cells(rows.count,3).end(xlup).row To 7 Step -1
dan menjadi hemat proses eksekusi karena baris 'tinggi=blabla' bisa dihapus, dan bagian deklarasi 'tinggi as blabla' juga bisa dihapus
6. penggabungan data bertipe teks (string) yang ada dalam script di atas tidak menyertakan delimiter antar teks yang digabung
> contoh baris :
wadah = Cells(x, 3).Value & wadahandai Cells(x, 3).Value bernilai 'Kid' dan wadah bernilai 'juga' hasilnya akan menjadi 'Kidjuga'
> bisa jadi akan tampak lebih baik bila diberi delimiter. Misalnya delimiter-nya berupa sebuah karakter spasi. Maka barisnya menjadi :
wadah = Cells(x, 3).Value & " " & wadah
yang bisa menghasilkan teks hasil penggabungan berbunyi 'Kid juga'
7. nomor 6 juga berlaku untuk baris kode berbunyi :
wadah = Cells(x, 3).Value & wadah
8. variabel bernama wadah dan rujukan ke kolom C dengan Cells(x, 3) bertugas untuk menyusun sebuah teks dari beberapa baris teks
9. katanya, set string kosong akan lebih cepat diproses dan mudah tampak dalam editing script jika menghindari penggunaan "" dan lebih memilih menggunakan vbnullstring
> contoh :
Cells(x, 3).Value = ""
katanya bisa lebih cepat diproses dan mudah tampak saat editing ketika menggunakan vbnullstring :
Cells(x, 3).Value = vbnullstring
> hal ini berlaku untuk beberapa baris yang lain, termasuk set nilai string kosong pada variabel bernama wadah
10. cells yang diset nilai dengan "" atau vbnullstring akan menjadi blank cells. jadi proses ini setara dengan penggunaan methods clearcontents milik si cells atau range
11. penghematan jumlah proses bisa dilakukan dengan meringkaskan si proses itu sendiri
> contoh pada beberapa baris berikut : (dengan proses penggabungan teks yang sudah diperbaiki mengikuti nomor 7
wadah = Cells(x, 3).Value & " " & wadah
Cells(x, 3).Value = wadah
wadah = ""
"wadah (yang baru) diisi dengan nilai dari Cells(x, 3).Value yang digabung dengan spasi dan isi wadah (yang lama)
lalu Cells(x, 3) diubah isinya dengan nilai yang disimpan dalam wadah (yang sudah baru)
kemudian isi wadah (yang sudah baru tersebut) dibuang isinya."
> proses seperti di atas bisa diringkas dengan :
Cells(x, 3).Value = Cells(x, 3).Value & " " & wadah wadah=vbnullstring
" Cells(x, 3) [yang baru] diisi dengan Cells(x, 3) [yang lama] digabung dengan spasi dan isi wadah
lalu isi wadah dibuang."
> setidaknya hemat 1 proses
12. prosedur di atas menggunakan rujukan ke object yang ada di sheet aktif (pasti di workbook yang sedang aktif)
Kalau dikumpulkan semuanya, kira-kira prosedurnya menjadi :
Sub kopi()
Dim baris As double, x As long
Dim wadah As String
For x = cells(rows.count,3).end(xlup).row To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & " " & wadah
Cells(x, 3).Value = vbnullstring
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = vbnullstring
End If
Else
Cells(x, 3).Value = Cells(x, 3).Value & " " & wadah
wadah = vbnullstring
if Cells(x, 5).Value<>0 then
Cells(x, 5).Value = baris
endif
End If
Next x
End Sub
Sampai disini, kalau dilihat-lihat berulang-ulang mengikuti si proses loop, kondisi proses yang akan dicapai kira-kira bunyinya :
> mengikuti script di atas :
a. kalau isi kolom A = 0, dilakukan :
susun teks gabungan dan simpan di sebuah variabel
pembersihan teks dari cell di kolom C
a.1. kalau kolom E tidak 0, dilakukan :
penyimpanan nilai kolom E ke suatu variabel
pembersihan nilai dari cell di kolom E
b. kalau isi kolom A <> 0 (bagian Else), dilakukan :
tulis ke cell di kolom C gabungan nilai yang ada di kolom C dengan teks hasil gabungan yang disimpan dalam variabel
buang gabungan teks dari variabel
b.1. kalau kolom E bukan 0 alias ada isinya, dilakukan :
tulis ke cell di kolom E suatu nilai yang disimpan dalam variabel nilai
> jadi berdasar jabaran tentang kondisi dalam script tersebut di atas, sebenarnya ada kondisi pokok sebagai berikut :
1. ketika kolom E bukan 0 alias ada isinya (lihat b.1.) diperlukan memeriksa kolom A (lihat poin a dan b)
> pada kolom E bukan 0 ini, proses dilakukan pada saat kolom A = 0, yaitu melakukan :
- penggabungan teks kolom C dan menyimpannya ke suatu variabel
- menyimpan nilai kolom E ke suatu variabel nilai
- membuang isi kolom C dan kolom E
* kalau kolom A tidak 0, tidak diperlukan proses apapun karena memang sudah demikian adanya
2. ketika kolom E = 0 dan kolom A <> 0
> pada kondisi ini, dilakukan proses :
- menulis ke kolom C, yaitu suatu nilai hasil penggabungan isi kolom C dengan isi variabel gabungan teks yang ada
- membuang isi variabel gabungan teks
- menulis ke kolom E, yaitu suatu nilai yang disimpan oleh suatu variabel nilai
3. ketika kolom E = 0 dan kolom A = 0
> pada kondisi ini, dilakukan proses :
- menggabungkan teks nilai kolom C dengan hasil penggabungan yang ada ke suatu variabel gabungan teks
- membuang isi kolom C
> sepertinya susunan kondisinya bisa berbentuk :
if Cells(x, 5).Value<>0 then 'poin 1
if Cells(x, 1).Value = 0 Then 'kondisi dalam poin 1 alias poin 1.>.
wadah = Cells(x, 3).Value & " " & wadah
baris = Cells(x, 5).Value
Cells(x, 3).Value = vbnullstring Cells(x, 5).Value = vbnullstring
endif
elseif Cells(x, 1).Value <> 0 then 'poin 2
Cells(x, 3).Value = Cells(x, 3).Value & " " & wadah
wadah = vbnullstring
Cells(x, 5).Value = baris
else 'poin 3
wadah = Cells(x, 3).Value & " " & wadah
Cells(x, 3).Value = vbnullstring
endif
Jadi, susunan prosedurnya akan menjadi :
public Sub kopi() 'tambahin explicit nya scope ah supaya mudah membacanya
Dim baris As double, x As long
Dim wadah As String
For x = cells(rows.count,3).end(xlup).row To 7 Step -1
if Cells(x, 5).Value<>0 then 'poin 1
if Cells(x, 1).Value = 0 Then 'kondisi dalam poin 1 alias poin 1.>.
wadah = Cells(x, 3).Value & " " & wadah
baris = Cells(x, 5).Value
Cells(x, 3).Value = vbnullstring Cells(x, 5).Value = vbnullstring
endif
elseif Cells(x, 1).Value <> 0 then 'poin 2
Cells(x, 3).Value = Cells(x, 3).Value & " " & wadah
wadah = vbnullstring
Cells(x, 5).Value = baris
else 'poin 3
wadah = Cells(x, 3).Value & " " & wadah
Cells(x, 3).Value = vbnullstring
endif
Next x
End Sub
Tentang :
gimana kalau macronya berjalan untuk semua sheet yang ada> merujuk ke nomor 12 di atas sana, berarti dibutuhkan prosedur lainnya yang bertugas melakukan loop ke setiap sheet lalu mengaktifkan sheet tersebut. Kalau sheetnya sudah aktif, panggil prosedur di atas.
dim sht as worksheet
for each sht in thisworkbook.worksheets
sht.activate
kopi
next sht
Biasanya kalau sudah begini, akan ada pertanyaan : bagaimana kalau ada banyak workbook...
> rasanya sudah pada bisa.
> buat prosedur lainnya yang bertugas buka workbook (kalau belum dibuka) loop di setiap workbook, lalu panggil prosedur yang loop setiap sheet tadi dan ditutup dengan save workbook yang di loop dan tutup workbook yang di loop
> sebaiknya cari-carilah di postingan lawas tentang membuka workbook lain, tentang loop setiap workbook, dan sebagainya.
Wassalam,
Kid
2015-05-25 18:42 GMT+10:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr Nang Agus,ternyata data kolom E nya menjadi salah, tidak sinkron dengan aslinya.terima kasih,ASL
To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Mon, 25 May 2015 13:07:02 +0700
Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data
Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:
Option Explicit
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
Cells(x, 5).Value = baris
End If
Next x
End Sub
2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:
Mungkinkah macro begini?
Option Explicit
Sub kopi()
Dim baris As Integer, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
End If
Next x
2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear BeExceller,
Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya kerepotan dalam menyatukannya menjadi 1 baris.Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
terima kasih,
ASL
Saya pakai macronya Mr Kid, tetapi tidak pas dengan Hasil Yang Diharapkan.
terlampir file yang menjadi percobaan; buat saya sulit banget untuk memahaminya.
Mohon dilihat sheet "Hasil Macro Yang Salah" dengan "Hasil Sheet Yang Diharapkan".
terima kasih,
ASL.
To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Tue, 26 May 2015 04:17:46 +1000
Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data
tampaknya mas Nang Agus kelupaan satu kondisi.
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
if Cells(x, 5).Value<>0 then
Cells(x, 5).Value = baris
endif
End If
Next x
End Sub
Script diatas sekaligus menyusun sebuah data teks (lihat variabel bernama wadah) dari beberapa baris data. Tampaknya ini dimaksudkan untuk menyusun record data yang baik, sehingga tabel hasil bisa mengikuti kaidah tabel database yang baik pula.
Catatan :
1. variabel baris tampaknya untuk menyimpan suatu nilai numerik. Pada script di atas, tipe data di set menampung bilangan bulat saja dengan maksimum sekitar 2 x 10^10 lebih dikit.
> andai data yang disimpan memiliki kemungkinan berjumlah digit lebih dari 9, sebaiknya tipe data variabel baris diubah menjadi double
2. variabel tinggi untuk menyimpan nomor baris Excel terakhir yang akan diproses. Tipe data yang digunakan adalah integer yang dibatasi sampai 32000 sekiun.
> Andai kemungkinannya baris Excel yang digunakan oleh data mencapai lebih dari 32000 sekiun, maka sebaiknya tipe datanya diubah menjadi Long
3. variabel x yang digunakan dalam loop dengan for next juga seperti variabel tinggi.
4. untuk mendapatkan baris excel terakhir data bisa juga dengan bunyi kode berikut : (lihat baris kode set nilai tinggi)
tinggi = cells(rows.count,3).end(xlup).row '3 adalah kolom c 'Range("c1000000").End(xlUp).Row
5. berhubung loop dengan for next, maka baris berbunyi for blabla akan dieksekusi 1 kali saja.
> berarti, baris :
For x = tinggi To 7 Step -1
bisa diganti dengan :
For x = cells(rows.count,3).end(xlup).row To 7 Step -1
dan menjadi hemat proses eksekusi karena baris 'tinggi=blabla' bisa dihapus, dan bagian deklarasi 'tinggi as blabla' juga bisa dihapus
6. penggabungan data bertipe teks (string) yang ada dalam script di atas tidak menyertakan delimiter antar teks yang digabung
> contoh baris :
wadah = Cells(x, 3).Value & wadahandai Cells(x, 3).Value bernilai 'Kid' dan wadah bernilai 'juga' hasilnya akan menjadi 'Kidjuga'
> bisa jadi akan tampak lebih baik bila diberi delimiter. Misalnya delimiter-nya berupa sebuah karakter spasi. Maka barisnya menjadi :
wadah = Cells(x, 3).Value & " " & wadah
yang bisa menghasilkan teks hasil penggabungan berbunyi 'Kid juga'
7. nomor 6 juga berlaku untuk baris kode berbunyi :
wadah = Cells(x, 3).Value & wadah
8. variabel bernama wadah dan rujukan ke kolom C dengan Cells(x, 3) bertugas untuk menyusun sebuah teks dari beberapa baris teks
9. katanya, set string kosong akan lebih cepat diproses dan mudah tampak dalam editing script jika menghindari penggunaan "" dan lebih memilih menggunakan vbnullstring
> contoh :
Cells(x, 3).Value = ""
katanya bisa lebih cepat diproses dan mudah tampak saat editing ketika menggunakan vbnullstring :
Cells(x, 3).Value = vbnullstring
> hal ini berlaku untuk beberapa baris yang lain, termasuk set nilai string kosong pada variabel bernama wadah
10. cells yang diset nilai dengan "" atau vbnullstring akan menjadi blank cells. jadi proses ini setara dengan penggunaan methods clearcontents milik si cells atau range
11. penghematan jumlah proses bisa dilakukan dengan meringkaskan si proses itu sendiri
> contoh pada beberapa baris berikut : (dengan proses penggabungan teks yang sudah diperbaiki mengikuti nomor 7
wadah = Cells(x, 3).Value & " " & wadah
Cells(x, 3).Value = wadah
wadah = ""
"wadah (yang baru) diisi dengan nilai dari Cells(x, 3).Value yang digabung dengan spasi dan isi wadah (yang lama)
lalu Cells(x, 3) diubah isinya dengan nilai yang disimpan dalam wadah (yang sudah baru)
kemudian isi wadah (yang sudah baru tersebut) dibuang isinya."
> proses seperti di atas bisa diringkas dengan :
Cells(x, 3).Value = Cells(x, 3).Value & " " & wadah wadah=vbnullstring
" Cells(x, 3) [yang baru] diisi dengan Cells(x, 3) [yang lama] digabung dengan spasi dan isi wadah
lalu isi wadah dibuang."
> setidaknya hemat 1 proses
12. prosedur di atas menggunakan rujukan ke object yang ada di sheet aktif (pasti di workbook yang sedang aktif)
Kalau dikumpulkan semuanya, kira-kira prosedurnya menjadi :
Sub kopi()
Dim baris As double, x As long
Dim wadah As String
For x = cells(rows.count,3).end(xlup).row To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & " " & wadah
Cells(x, 3).Value = vbnullstring
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = vbnullstring
End If
Else
Cells(x, 3).Value = Cells(x, 3).Value & " " & wadah
wadah = vbnullstring
if Cells(x, 5).Value<>0 then
Cells(x, 5).Value = baris
endif
End If
Next x
End Sub
Sampai disini, kalau dilihat-lihat berulang-ulang mengikuti si proses loop, kondisi proses yang akan dicapai kira-kira bunyinya :
> mengikuti script di atas :
a. kalau isi kolom A = 0, dilakukan :
susun teks gabungan dan simpan di sebuah variabel
pembersihan teks dari cell di kolom C
a.1. kalau kolom E tidak 0, dilakukan :
penyimpanan nilai kolom E ke suatu variabel
pembersihan nilai dari cell di kolom E
b. kalau isi kolom A <> 0 (bagian Else), dilakukan :
tulis ke cell di kolom C gabungan nilai yang ada di kolom C dengan teks hasil gabungan yang disimpan dalam variabel
buang gabungan teks dari variabel
b.1. kalau kolom E bukan 0 alias ada isinya, dilakukan :
tulis ke cell di kolom E suatu nilai yang disimpan dalam variabel nilai
> jadi berdasar jabaran tentang kondisi dalam script tersebut di atas, sebenarnya ada kondisi pokok sebagai berikut :
1. ketika kolom E bukan 0 alias ada isinya (lihat b.1.) diperlukan memeriksa kolom A (lihat poin a dan b)
> pada kolom E bukan 0 ini, proses dilakukan pada saat kolom A = 0, yaitu melakukan :
- penggabungan teks kolom C dan menyimpannya ke suatu variabel
- menyimpan nilai kolom E ke suatu variabel nilai
- membuang isi kolom C dan kolom E
* kalau kolom A tidak 0, tidak diperlukan proses apapun karena memang sudah demikian adanya
2. ketika kolom E = 0 dan kolom A <> 0
> pada kondisi ini, dilakukan proses :
- menulis ke kolom C, yaitu suatu nilai hasil penggabungan isi kolom C dengan isi variabel gabungan teks yang ada
- membuang isi variabel gabungan teks
- menulis ke kolom E, yaitu suatu nilai yang disimpan oleh suatu variabel nilai
3. ketika kolom E = 0 dan kolom A = 0
> pada kondisi ini, dilakukan proses :
- menggabungkan teks nilai kolom C dengan hasil penggabungan yang ada ke suatu variabel gabungan teks
- membuang isi kolom C
> sepertinya susunan kondisinya bisa berbentuk :
if Cells(x, 5).Value<>0 then 'poin 1
if Cells(x, 1).Value = 0 Then 'kondisi dalam poin 1 alias poin 1.>.
wadah = Cells(x, 3).Value & " " & wadah
baris = Cells(x, 5).Value
Cells(x, 3).Value = vbnullstring Cells(x, 5).Value = vbnullstring
endif
elseif Cells(x, 1).Value <> 0 then 'poin 2
Cells(x, 3).Value = Cells(x, 3).Value & " " & wadah
wadah = vbnullstring
Cells(x, 5).Value = baris
else 'poin 3
wadah = Cells(x, 3).Value & " " & wadah
Cells(x, 3).Value = vbnullstring
endif
Jadi, susunan prosedurnya akan menjadi :
public Sub kopi() 'tambahin explicit nya scope ah supaya mudah membacanya
Dim baris As double, x As long
Dim wadah As String
For x = cells(rows.count,3).end(xlup).row To 7 Step -1
if Cells(x, 5).Value<>0 then 'poin 1
if Cells(x, 1).Value = 0 Then 'kondisi dalam poin 1 alias poin 1.>.
wadah = Cells(x, 3).Value & " " & wadah
baris = Cells(x, 5).Value
Cells(x, 3).Value = vbnullstring Cells(x, 5).Value = vbnullstring
endif
elseif Cells(x, 1).Value <> 0 then 'poin 2
Cells(x, 3).Value = Cells(x, 3).Value & " " & wadah
wadah = vbnullstring
Cells(x, 5).Value = baris
else 'poin 3
wadah = Cells(x, 3).Value & " " & wadah
Cells(x, 3).Value = vbnullstring
endif
Next x
End Sub
Tentang :
gimana kalau macronya berjalan untuk semua sheet yang ada> merujuk ke nomor 12 di atas sana, berarti dibutuhkan prosedur lainnya yang bertugas melakukan loop ke setiap sheet lalu mengaktifkan sheet tersebut. Kalau sheetnya sudah aktif, panggil prosedur di atas.
dim sht as worksheet
for each sht in thisworkbook.worksheets
sht.activate
kopi
next sht
Biasanya kalau sudah begini, akan ada pertanyaan : bagaimana kalau ada banyak workbook...
> rasanya sudah pada bisa.
> buat prosedur lainnya yang bertugas buka workbook (kalau belum dibuka) loop di setiap workbook, lalu panggil prosedur yang loop setiap sheet tadi dan ditutup dengan save workbook yang di loop dan tutup workbook yang di loop
> sebaiknya cari-carilah di postingan lawas tentang membuka workbook lain, tentang loop setiap workbook, dan sebagainya.
Wassalam,
Kid
2015-05-25 18:42 GMT+10:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr Nang Agus,ternyata data kolom E nya menjadi salah, tidak sinkron dengan aslinya.terima kasih,ASL
To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Mon, 25 May 2015 13:07:02 +0700
Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data
Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:
Option Explicit
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
Cells(x, 5).Value = baris
End If
Next x
End Sub
2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:
Mungkinkah macro begini?
Option Explicit
Sub kopi()
Dim baris As Integer, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
End If
Next x
2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear BeExceller,
Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya kerepotan dalam menyatukannya menjadi 1 baris.Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
terima kasih,
ASL
Mon May 25, 2015 8:29 am (PDT) . Posted by:
alkenanurani
sorry mr. mau tanya sifat time di worksheet excel tetap ya ?
artinya time tersebut berubah ketika kita membuka file tersebut kembali?
kalo mau buat jam di worksheet ms. excel pengkodeannya bagaimana ???
terima kasih
artinya time tersebut berubah ketika kita membuka file tersebut kembali?
kalo mau buat jam di worksheet ms. excel pengkodeannya bagaimana ???
terima kasih
Mon May 25, 2015 8:35 am (PDT) . Posted by:
"Toby kenzo" tobykenzo
Dear Ani,
Yg kemarin itu gimana,udah clearkah..
Di emai2 sebelumnya sudah di jelaskan cara pembuatan jam digital dlm worksheet begitupula kelemah2annya,coba kamu check lagi email2 sebelumnya.
TerimaKasih.
Sent from Yahoo Mail on Android
Yg kemarin itu gimana,udah clearkah..
Di emai2 sebelumnya sudah di jelaskan cara pembuatan jam digital dlm worksheet begitupula kelemah2annya,
TerimaKasih.
Sent from Yahoo Mail on Android
Mon May 25, 2015 9:42 am (PDT) . Posted by:
"nurani alkena" alkenanurani
sudah. mr terima kasih. maaf blm sempat balas.
saya tertarik dengan fitur jam...
saya coba pake rumus manual =now() pada cell tetap tidak berubah. kecuali kalau saya close kemudian open lg. baru menyesuaikan jam saat ini. memang kelemahannya seperti itu. bagaimana untuk mengatasinya sesuai dengan fitur jam pada umumnya. thanks
On Monday, May 25, 2015 10:35 PM, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
| Dear Ani,Yg kemarin itu gimana,udah clearkah..Di emai2 sebelumnya sudah di jelaskan cara pembuatan jam digital dlm worksheet begitupula kelemah2annya,coba kamu check lagi email2 sebelumnya.
TerimaKasih.Sent from Yahoo Mail on Android |
From: alkenanurani@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: Re: [belajar-excel] Cara membuat jam digital pada excel
Sent: Mon, May 25, 2015 2:30:14 PM
| sorry mr. mau tanya sifat time di worksheet excel tetap ya ?artinya time tersebut berubah ketika kita membuka file tersebut kembali?kalo mau buat jam di worksheet ms. excel pengkodeannya bagaimana ???
terima kasih
|
#yiv0284133496 #yiv0284133496 -- #yiv0284133496ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0284133496 #yiv0284133496ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0284133496 #yiv0284133496ygrp-mkp #yiv0284133496hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0284133496 #yiv0284133496ygrp-mkp #yiv0284133496ads {margin-bottom:10px;}#yiv0284133496 #yiv0284133496ygrp-mkp .yiv0284133496ad {padding:0 0;}#yiv0284133496 #yiv0284133496ygrp-mkp .yiv0284133496ad p {margin:0;}#yiv0284133496 #yiv0284133496ygrp-mkp .yiv0284133496ad a {color:#0000ff;text-decoration:none;}#yiv0284133496 #yiv0284133496ygrp-sponsor #yiv0284133496ygrp-lc {font-family:Arial;}#yiv0284133496 #yiv0284133496ygrp-sponsor #yiv0284133496ygrp-lc #yiv0284133496hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0284133496 #yiv0284133496ygrp-sponsor #yiv0284133496ygrp-lc .yiv0284133496ad {margin-bottom:10px;padding:0 0;}#yiv0284133496 #yiv0284133496actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0284133496 #yiv0284133496activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0284133496 #yiv0284133496activity span {font-weight:700;}#yiv0284133496 #yiv0284133496activity span:first-child {text-transform:uppercase;}#yiv0284133496 #yiv0284133496activity span a {color:#5085b6;text-decoration:none;}#yiv0284133496 #yiv0284133496activity span span {color:#ff7900;}#yiv0284133496 #yiv0284133496activity span .yiv0284133496underline {text-decoration:underline;}#yiv0284133496 .yiv0284133496attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0284133496 .yiv0284133496attach div a {text-decoration:none;}#yiv0284133496 .yiv0284133496attach img {border:none;padding-right:5px;}#yiv0284133496 .yiv0284133496attach label {display:block;margin-bottom:5px;}#yiv0284133496 .yiv0284133496attach label a {text-decoration:none;}#yiv0284133496 blockquote {margin:0 0 0 4px;}#yiv0284133496 .yiv0284133496bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0284133496 .yiv0284133496bold a {text-decoration:none;}#yiv0284133496 dd.yiv0284133496last p a {font-family:Verdana;font-weight:700;}#yiv0284133496 dd.yiv0284133496last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0284133496 dd.yiv0284133496last p span.yiv0284133496yshortcuts {margin-right:0;}#yiv0284133496 div.yiv0284133496attach-table div div a {text-decoration:none;}#yiv0284133496 div.yiv0284133496attach-table {width:400px;}#yiv0284133496 div.yiv0284133496file-title a, #yiv0284133496 div.yiv0284133496file-title a:active, #yiv0284133496 div.yiv0284133496file-title a:hover, #yiv0284133496 div.yiv0284133496file-title a:visited {text-decoration:none;}#yiv0284133496 div.yiv0284133496photo-title a, #yiv0284133496 div.yiv0284133496photo-title a:active, #yiv0284133496 div.yiv0284133496photo-title a:hover, #yiv0284133496 div.yiv0284133496photo-title a:visited {text-decoration:none;}#yiv0284133496 div#yiv0284133496ygrp-mlmsg #yiv0284133496ygrp-msg p a span.yiv0284133496yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0284133496 .yiv0284133496green {color:#628c2a;}#yiv0284133496 .yiv0284133496MsoNormal {margin:0 0 0 0;}#yiv0284133496 o {font-size:0;}#yiv0284133496 #yiv0284133496photos div {float:left;width:72px;}#yiv0284133496 #yiv0284133496photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0284133496 #yiv0284133496photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0284133496 #yiv0284133496reco-category {font-size:77%;}#yiv0284133496 #yiv0284133496reco-desc {font-size:77%;}#yiv0284133496 .yiv0284133496replbq {margin:4px;}#yiv0284133496 #yiv0284133496ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0284133496 #yiv0284133496ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0284133496 #yiv0284133496ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0284133496 #yiv0284133496ygrp-mlmsg select, #yiv0284133496 input, #yiv0284133496 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0284133496 #yiv0284133496ygrp-mlmsg pre, #yiv0284133496 code {font:115% monospace;}#yiv0284133496 #yiv0284133496ygrp-mlmsg * {line-height:1.22em;}#yiv0284133496 #yiv0284133496ygrp-mlmsg #yiv0284133496logo {padding-bottom:10px;}#yiv0284133496 #yiv0284133496ygrp-msg p a {font-family:Verdana;}#yiv0284133496 #yiv0284133496ygrp-msg p#yiv0284133496attach-count span {color:#1E66AE;font-weight:700;}#yiv0284133496 #yiv0284133496ygrp-reco #yiv0284133496reco-head {color:#ff7900;font-weight:700;}#yiv0284133496 #yiv0284133496ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0284133496 #yiv0284133496ygrp-sponsor #yiv0284133496ov li a {font-size:130%;text-decoration:none;}#yiv0284133496 #yiv0284133496ygrp-sponsor #yiv0284133496ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0284133496 #yiv0284133496ygrp-sponsor #yiv0284133496ov ul {margin:0;padding:0 0 0 8px;}#yiv0284133496 #yiv0284133496ygrp-text {font-family:Georgia;}#yiv0284133496 #yiv0284133496ygrp-text p {margin:0 0 1em 0;}#yiv0284133496 #yiv0284133496ygrp-text tt {font-size:120%;}#yiv0284133496 #yiv0284133496ygrp-vital ul li:last-child {border-right:none !important;}#yiv0284133496
saya tertarik dengan fitur jam...
saya coba pake rumus manual =now() pada cell tetap tidak berubah. kecuali kalau saya close kemudian open lg. baru menyesuaikan jam saat ini. memang kelemahannya seperti itu. bagaimana untuk mengatasinya sesuai dengan fitur jam pada umumnya. thanks
On Monday, May 25, 2015 10:35 PM, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
| Dear Ani,Yg kemarin itu gimana,udah clearkah..Di emai2 sebelumnya sudah di jelaskan cara pembuatan jam digital dlm worksheet begitupula kelemah2annya,coba kamu check lagi email2 sebelumnya.
TerimaKasih.Sent from Yahoo Mail on Android |
From: alkenanurani@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: Re: [belajar-excel] Cara membuat jam digital pada excel
Sent: Mon, May 25, 2015 2:30:14 PM
| sorry mr. mau tanya sifat time di worksheet excel tetap ya ?artinya time tersebut berubah ketika kita membuka file tersebut kembali?kalo mau buat jam di worksheet ms. excel pengkodeannya bagaimana ???
terima kasih
|
#yiv0284133496 #yiv0284133496 -- #yiv0284133496ygrp-
Mon May 25, 2015 5:45 pm (PDT) . Posted by:
"nurani alkena" alkenanurani
Mr... saya sudah coba prosedur diatas.tetapi saya ingin menambahkan modifikasi pada timernya...ketika saya protect worksheet maka timer aktif.tetapi ketika unprotect worksheet maka timer tidak aktifsaya sudah coba prosedurnya seperti ini tapi gagal trs.
mohon dibetulkan
Sub Workbook_Activate()Sheet1.Protect ("123")
If Sheet1.Protect("123") = True ThenSheet1.Range("G8").Value = NowApplication.OnTime Now + TimeValue("00:00:01"), procedure:="Timer", schedule:=TrueEnd If
If Sheet1.Unprotect("123") = True ThenSheet1.Range("G8").Value = NowApplication.OnTime Now + TimeValue("00:00:01"), procedure:="Timer", schedule:=FalseEnd IfEnd Sub
On Monday, May 25, 2015 11:42 PM, "nurani alkena alkenanurani@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
sudah. mr terima kasih. maaf blm sempat balas.
saya tertarik dengan fitur jam...
saya coba pake rumus manual =now() pada cell tetap tidak berubah. kecuali kalau saya close kemudian open lg. baru menyesuaikan jam saat ini. memang kelemahannya seperti itu. bagaimana untuk mengatasinya sesuai dengan fitur jam pada umumnya. thanks
On Monday, May 25, 2015 10:35 PM, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
| Dear Ani,Yg kemarin itu gimana,udah clearkah..Di emai2 sebelumnya sudah di jelaskan cara pembuatan jam digital dlm worksheet begitupula kelemah2annya,coba kamu check lagi email2 sebelumnya.
TerimaKasih.Sent from Yahoo Mail on Android |
From: alkenanurani@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: Re: [belajar-excel] Cara membuat jam digital pada excel
Sent: Mon, May 25, 2015 2:30:14 PM
| sorry mr. mau tanya sifat time di worksheet excel tetap ya ?artinya time tersebut berubah ketika kita membuka file tersebut kembali?kalo mau buat jam di worksheet ms. excel pengkodeannya bagaimana ???
terima kasih
|
#yiv4902043589 #yiv4902043589 -- #yiv4902043589ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4902043589 #yiv4902043589ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4902043589 #yiv4902043589ygrp-mkp #yiv4902043589hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4902043589 #yiv4902043589ygrp-mkp #yiv4902043589ads {margin-bottom:10px;}#yiv4902043589 #yiv4902043589ygrp-mkp .yiv4902043589ad {padding:0 0;}#yiv4902043589 #yiv4902043589ygrp-mkp .yiv4902043589ad p {margin:0;}#yiv4902043589 #yiv4902043589ygrp-mkp .yiv4902043589ad a {color:#0000ff;text-decoration:none;}#yiv4902043589 #yiv4902043589ygrp-sponsor #yiv4902043589ygrp-lc {font-family:Arial;}#yiv4902043589 #yiv4902043589ygrp-sponsor #yiv4902043589ygrp-lc #yiv4902043589hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4902043589 #yiv4902043589ygrp-sponsor #yiv4902043589ygrp-lc .yiv4902043589ad {margin-bottom:10px;padding:0 0;}#yiv4902043589 #yiv4902043589actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4902043589 #yiv4902043589activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4902043589 #yiv4902043589activity span {font-weight:700;}#yiv4902043589 #yiv4902043589activity span:first-child {text-transform:uppercase;}#yiv4902043589 #yiv4902043589activity span a {color:#5085b6;text-decoration:none;}#yiv4902043589 #yiv4902043589activity span span {color:#ff7900;}#yiv4902043589 #yiv4902043589activity span .yiv4902043589underline {text-decoration:underline;}#yiv4902043589 .yiv4902043589attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4902043589 .yiv4902043589attach div a {text-decoration:none;}#yiv4902043589 .yiv4902043589attach img {border:none;padding-right:5px;}#yiv4902043589 .yiv4902043589attach label {display:block;margin-bottom:5px;}#yiv4902043589 .yiv4902043589attach label a {text-decoration:none;}#yiv4902043589 blockquote {margin:0 0 0 4px;}#yiv4902043589 .yiv4902043589bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4902043589 .yiv4902043589bold a {text-decoration:none;}#yiv4902043589 dd.yiv4902043589last p a {font-family:Verdana;font-weight:700;}#yiv4902043589 dd.yiv4902043589last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4902043589 dd.yiv4902043589last p span.yiv4902043589yshortcuts {margin-right:0;}#yiv4902043589 div.yiv4902043589attach-table div div a {text-decoration:none;}#yiv4902043589 div.yiv4902043589attach-table {width:400px;}#yiv4902043589 div.yiv4902043589file-title a, #yiv4902043589 div.yiv4902043589file-title a:active, #yiv4902043589 div.yiv4902043589file-title a:hover, #yiv4902043589 div.yiv4902043589file-title a:visited {text-decoration:none;}#yiv4902043589 div.yiv4902043589photo-title a, #yiv4902043589 div.yiv4902043589photo-title a:active, #yiv4902043589 div.yiv4902043589photo-title a:hover, #yiv4902043589 div.yiv4902043589photo-title a:visited {text-decoration:none;}#yiv4902043589 div#yiv4902043589ygrp-mlmsg #yiv4902043589ygrp-msg p a span.yiv4902043589yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4902043589 .yiv4902043589green {color:#628c2a;}#yiv4902043589 .yiv4902043589MsoNormal {margin:0 0 0 0;}#yiv4902043589 o {font-size:0;}#yiv4902043589 #yiv4902043589photos div {float:left;width:72px;}#yiv4902043589 #yiv4902043589photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4902043589 #yiv4902043589photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4902043589 #yiv4902043589reco-category {font-size:77%;}#yiv4902043589 #yiv4902043589reco-desc {font-size:77%;}#yiv4902043589 .yiv4902043589replbq {margin:4px;}#yiv4902043589 #yiv4902043589ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4902043589 #yiv4902043589ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4902043589 #yiv4902043589ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4902043589 #yiv4902043589ygrp-mlmsg select, #yiv4902043589 input, #yiv4902043589 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4902043589 #yiv4902043589ygrp-mlmsg pre, #yiv4902043589 code {font:115% monospace;}#yiv4902043589 #yiv4902043589ygrp-mlmsg * {line-height:1.22em;}#yiv4902043589 #yiv4902043589ygrp-mlmsg #yiv4902043589logo {padding-bottom:10px;}#yiv4902043589 #yiv4902043589ygrp-msg p a {font-family:Verdana;}#yiv4902043589 #yiv4902043589ygrp-msg p#yiv4902043589attach-count span {color:#1E66AE;font-weight:700;}#yiv4902043589 #yiv4902043589ygrp-reco #yiv4902043589reco-head {color:#ff7900;font-weight:700;}#yiv4902043589 #yiv4902043589ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4902043589 #yiv4902043589ygrp-sponsor #yiv4902043589ov li a {font-size:130%;text-decoration:none;}#yiv4902043589 #yiv4902043589ygrp-sponsor #yiv4902043589ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4902043589 #yiv4902043589ygrp-sponsor #yiv4902043589ov ul {margin:0;padding:0 0 0 8px;}#yiv4902043589 #yiv4902043589ygrp-text {font-family:Georgia;}#yiv4902043589 #yiv4902043589ygrp-text p {margin:0 0 1em 0;}#yiv4902043589 #yiv4902043589ygrp-text tt {font-size:120%;}#yiv4902043589 #yiv4902043589ygrp-vital ul li:last-child {border-right:none !important;}#yiv4902043589
mohon dibetulkan
Sub Workbook_Activate()Sheet1.Protect ("123")
If Sheet1.Protect("123") = True ThenSheet1.Range("G8").Value = NowApplication.OnTime Now + TimeValue("00:00:01"), procedure:="Timer", schedule:=TrueEnd If
If Sheet1.Unprotect("123") = True ThenSheet1.Range("G8").Value = NowApplication.OnTime Now + TimeValue("00:00:01"), procedure:="Timer", schedule:=FalseEnd IfEnd Sub
On Monday, May 25, 2015 11:42 PM, "nurani alkena alkenanurani@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
sudah. mr terima kasih. maaf blm sempat balas.
saya tertarik dengan fitur jam...
saya coba pake rumus manual =now() pada cell tetap tidak berubah. kecuali kalau saya close kemudian open lg. baru menyesuaikan jam saat ini. memang kelemahannya seperti itu. bagaimana untuk mengatasinya sesuai dengan fitur jam pada umumnya. thanks
On Monday, May 25, 2015 10:35 PM, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
| Dear Ani,Yg kemarin itu gimana,udah clearkah..Di emai2 sebelumnya sudah di jelaskan cara pembuatan jam digital dlm worksheet begitupula kelemah2annya,coba kamu check lagi email2 sebelumnya.
TerimaKasih.Sent from Yahoo Mail on Android |
From: alkenanurani@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: Re: [belajar-excel] Cara membuat jam digital pada excel
Sent: Mon, May 25, 2015 2:30:14 PM
| sorry mr. mau tanya sifat time di worksheet excel tetap ya ?artinya time tersebut berubah ketika kita membuka file tersebut kembali?kalo mau buat jam di worksheet ms. excel pengkodeannya bagaimana ???
terima kasih
|
#yiv4902043589 #yiv4902043589 -- #yiv4902043589ygrp-
Tue May 26, 2015 1:15 am (PDT) . Posted by:
"Subroto, Matzen"
Dear Pak HK,
Saya memiliki 400 lebih list, dan saya coba dengan file of c_Dropdownlist update, akan tetapi ga bisa, sekiranya mana yang mesti saya ganti
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2015 12:50
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Droplist By criteria [3 Attachments]
Pilih satu dari tiga warisan si mbah.
Salam,
HK
________________________________
From: "'Subroto, Matzen' matzen.subroto@akzonobel.com<mailto:matzen.subroto@akzonobel.com> [belajar-excel]" <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Sent: Monday, 25 May 2015, 11:16
Subject: [belajar-excel] Droplist By criteria [1 Attachment]
Dear Master Excel,
Mohon pencerahannya untuk droplist by criteria, ketika saya create awalan list, maka yang muncul hanya list yang sesuai dengan awalan hurup tadi
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
__________________________________________________________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
__________________________________________________________
Saya memiliki 400 lebih list, dan saya coba dengan file of c_Dropdownlist update, akan tetapi ga bisa, sekiranya mana yang mesti saya ganti
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2015 12:50
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Droplist By criteria [3 Attachments]
Pilih satu dari tiga warisan si mbah.
Salam,
HK
________________________________
From: "'Subroto, Matzen' matzen.subroto@akzonobel.com<mailto:matzen.subroto@akzonobel.com> [belajar-excel]" <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Sent: Monday, 25 May 2015, 11:16
Subject: [belajar-excel] Droplist By criteria [1 Attachment]
Dear Master Excel,
Mohon pencerahannya untuk droplist by criteria, ketika saya create awalan list, maka yang muncul hanya list yang sesuai dengan awalan hurup tadi
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
____________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
____________
Tue May 26, 2015 1:43 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hai Matzen,
Yang musti diganti adalah:Formula pada sel M1, M2 dstnya....
Mis. baris terakhir 1000 maka- Formula pada sel M1, angka 11 nya diganti dengan angka 1000, Row(1:10) diganti menjadi Row(1:999)- Sorot M2:M1000 dan ganti formula pada formula bar, angka 11 diganti dengan angka 1000, Row(1:10) diganti menjadi Row(1:999) lalu tekan tombol Ctrl Shift Enter (CSE) secara bersamaan untuk membentuk Array Formula (komputer akan memberi tanda { } secara otomatis)/.
Salam,HK
From: "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 26 May 2015, 14:47
Subject: RE: [belajar-excel] Droplist By criteria
Dear Pak HK, Saya memiliki 400 lebih list, dan saya coba dengan file of c_Dropdownlist update, akan tetapi ga bisa, sekiranya mana yang mesti saya ganti Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2015 12:50
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Droplist By criteria [3 Attachments] Pilih satu dari tiga warisan si mbah. Salam, HK From: "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 25 May 2015, 11:16
Subject: [belajar-excel] Droplist By criteria [1 Attachment] Dear Master Excel, Mohon pencerahannya untuk droplist by criteria, ketika saya create awalan list, maka yang muncul hanya list yang sesuai dengan awalan hurup tadi Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
__________________________________________________________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
__________________________________________________________ #yiv2783271606 #yiv2783271606 -- #yiv2783271606ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2783271606 #yiv2783271606ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2783271606 #yiv2783271606ygrp-mkp #yiv2783271606hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2783271606 #yiv2783271606ygrp-mkp #yiv2783271606ads {margin-bottom:10px;}#yiv2783271606 #yiv2783271606ygrp-mkp .yiv2783271606ad {padding:0 0;}#yiv2783271606 #yiv2783271606ygrp-mkp .yiv2783271606ad p {margin:0;}#yiv2783271606 #yiv2783271606ygrp-mkp .yiv2783271606ad a {color:#0000ff;text-decoration:none;}#yiv2783271606 #yiv2783271606ygrp-sponsor #yiv2783271606ygrp-lc {font-family:Arial;}#yiv2783271606 #yiv2783271606ygrp-sponsor #yiv2783271606ygrp-lc #yiv2783271606hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2783271606 #yiv2783271606ygrp-sponsor #yiv2783271606ygrp-lc .yiv2783271606ad {margin-bottom:10px;padding:0 0;}#yiv2783271606 #yiv2783271606actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2783271606 #yiv2783271606activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2783271606 #yiv2783271606activity span {font-weight:700;}#yiv2783271606 #yiv2783271606activity span:first-child {text-transform:uppercase;}#yiv2783271606 #yiv2783271606activity span a {color:#5085b6;text-decoration:none;}#yiv2783271606 #yiv2783271606activity span span {color:#ff7900;}#yiv2783271606 #yiv2783271606activity span .yiv2783271606underline {text-decoration:underline;}#yiv2783271606 .yiv2783271606attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2783271606 .yiv2783271606attach div a {text-decoration:none;}#yiv2783271606 .yiv2783271606attach img {border:none;padding-right:5px;}#yiv2783271606 .yiv2783271606attach label {display:block;margin-bottom:5px;}#yiv2783271606 .yiv2783271606attach label a {text-decoration:none;}#yiv2783271606 blockquote {margin:0 0 0 4px;}#yiv2783271606 .yiv2783271606bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2783271606 .yiv2783271606bold a {text-decoration:none;}#yiv2783271606 dd.yiv2783271606last p a {font-family:Verdana;font-weight:700;}#yiv2783271606 dd.yiv2783271606last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2783271606 dd.yiv2783271606last p span.yiv2783271606yshortcuts {margin-right:0;}#yiv2783271606 div.yiv2783271606attach-table div div a {text-decoration:none;}#yiv2783271606 div.yiv2783271606attach-table {width:400px;}#yiv2783271606 div.yiv2783271606file-title a, #yiv2783271606 div.yiv2783271606file-title a:active, #yiv2783271606 div.yiv2783271606file-title a:hover, #yiv2783271606 div.yiv2783271606file-title a:visited {text-decoration:none;}#yiv2783271606 div.yiv2783271606photo-title a, #yiv2783271606 div.yiv2783271606photo-title a:active, #yiv2783271606 div.yiv2783271606photo-title a:hover, #yiv2783271606 div.yiv2783271606photo-title a:visited {text-decoration:none;}#yiv2783271606 div#yiv2783271606ygrp-mlmsg #yiv2783271606ygrp-msg p a span.yiv2783271606yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2783271606 .yiv2783271606green {color:#628c2a;}#yiv2783271606 .yiv2783271606MsoNormal {margin:0 0 0 0;}#yiv2783271606 o {font-size:0;}#yiv2783271606 #yiv2783271606photos div {float:left;width:72px;}#yiv2783271606 #yiv2783271606photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2783271606 #yiv2783271606photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2783271606 #yiv2783271606reco-category {font-size:77%;}#yiv2783271606 #yiv2783271606reco-desc {font-size:77%;}#yiv2783271606 .yiv2783271606replbq {margin:4px;}#yiv2783271606 #yiv2783271606ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2783271606 #yiv2783271606ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2783271606 #yiv2783271606ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2783271606 #yiv2783271606ygrp-mlmsg select, #yiv2783271606 input, #yiv2783271606 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2783271606 #yiv2783271606ygrp-mlmsg pre, #yiv2783271606 code {font:115% monospace;}#yiv2783271606 #yiv2783271606ygrp-mlmsg * {line-height:1.22em;}#yiv2783271606 #yiv2783271606ygrp-mlmsg #yiv2783271606logo {padding-bottom:10px;}#yiv2783271606 #yiv2783271606ygrp-msg p a {font-family:Verdana;}#yiv2783271606 #yiv2783271606ygrp-msg p#yiv2783271606attach-count span {color:#1E66AE;font-weight:700;}#yiv2783271606 #yiv2783271606ygrp-reco #yiv2783271606reco-head {color:#ff7900;font-weight:700;}#yiv2783271606 #yiv2783271606ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2783271606 #yiv2783271606ygrp-sponsor #yiv2783271606ov li a {font-size:130%;text-decoration:none;}#yiv2783271606 #yiv2783271606ygrp-sponsor #yiv2783271606ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2783271606 #yiv2783271606ygrp-sponsor #yiv2783271606ov ul {margin:0;padding:0 0 0 8px;}#yiv2783271606 #yiv2783271606ygrp-text {font-family:Georgia;}#yiv2783271606 #yiv2783271606ygrp-text p {margin:0 0 1em 0;}#yiv2783271606 #yiv2783271606ygrp-text tt {font-size:120%;}#yiv2783271606 #yiv2783271606ygrp-vital ul li:last-child {border-right:none !important;}#yiv2783271606
Yang musti diganti adalah:Formula pada sel M1, M2 dstnya....
Mis. baris terakhir 1000 maka- Formula pada sel M1, angka 11 nya diganti dengan angka 1000, Row(1:10) diganti menjadi Row(1:999)- Sorot M2:M1000 dan ganti formula pada formula bar, angka 11 diganti dengan angka 1000, Row(1:10) diganti menjadi Row(1:999) lalu tekan tombol Ctrl Shift Enter (CSE) secara bersamaan untuk membentuk Array Formula (komputer akan memberi tanda { } secara otomatis)/.
Salam,HK
From: "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 26 May 2015, 14:47
Subject: RE: [belajar-excel] Droplist By criteria
Dear Pak HK, Saya memiliki 400 lebih list, dan saya coba dengan file of c_Dropdownlist update, akan tetapi ga bisa, sekiranya mana yang mesti saya ganti Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2015 12:50
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Droplist By criteria [3 Attachments] Pilih satu dari tiga warisan si mbah. Salam, HK From: "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 25 May 2015, 11:16
Subject: [belajar-excel] Droplist By criteria [1 Attachment] Dear Master Excel, Mohon pencerahannya untuk droplist by criteria, ketika saya create awalan list, maka yang muncul hanya list yang sesuai dengan awalan hurup tadi Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
____________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
____________
Tue May 26, 2015 1:59 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Setelah Edit formula pada sel M1, akhiri juga dengan menekan tombol Ctrl Shift Enter secara bersamaan (Array Formula).
Salam,HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, 26 May 2015, 15:43
Subject: Re: [belajar-excel] Droplist By criteria
Hai Matzen,
Yang musti diganti adalah:Formula pada sel M1, M2 dstnya....
Mis. baris terakhir 1000 maka- Formula pada sel M1, angka 11 nya diganti dengan angka 1000, Row(1:10) diganti menjadi Row(1:999)- Sorot M2:M1000 dan ganti formula pada formula bar, angka 11 diganti dengan angka 1000, Row(1:10) diganti menjadi Row(1:999) lalu tekan tombol Ctrl Shift Enter (CSE) secara bersamaan untuk membentuk Array Formula (komputer akan memberi tanda { } secara otomatis)/.
Salam,HK
From: "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 26 May 2015, 14:47
Subject: RE: [belajar-excel] Droplist By criteria
Dear Pak HK, Saya memiliki 400 lebih list, dan saya coba dengan file of c_Dropdownlist update, akan tetapi ga bisa, sekiranya mana yang mesti saya ganti Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2015 12:50
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Droplist By criteria [3 Attachments] Pilih satu dari tiga warisan si mbah. Salam, HK From: "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 25 May 2015, 11:16
Subject: [belajar-excel] Droplist By criteria [1 Attachment] Dear Master Excel, Mohon pencerahannya untuk droplist by criteria, ketika saya create awalan list, maka yang muncul hanya list yang sesuai dengan awalan hurup tadi Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
__________________________________________________________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
__________________________________________________________ #yiv4200498862 -- #yiv4200498862ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4200498862 #yiv4200498862ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4200498862 #yiv4200498862ygrp-mkp #yiv4200498862hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4200498862 #yiv4200498862ygrp-mkp #yiv4200498862ads {margin-bottom:10px;}#yiv4200498862 #yiv4200498862ygrp-mkp .yiv4200498862ad {padding:0 0;}#yiv4200498862 #yiv4200498862ygrp-mkp .yiv4200498862ad p {margin:0;}#yiv4200498862 #yiv4200498862ygrp-mkp .yiv4200498862ad a {color:#0000ff;text-decoration:none;}#yiv4200498862 #yiv4200498862ygrp-sponsor #yiv4200498862ygrp-lc {font-family:Arial;}#yiv4200498862 #yiv4200498862ygrp-sponsor #yiv4200498862ygrp-lc #yiv4200498862hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4200498862 #yiv4200498862ygrp-sponsor #yiv4200498862ygrp-lc .yiv4200498862ad {margin-bottom:10px;padding:0 0;}#yiv4200498862 #yiv4200498862actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4200498862 #yiv4200498862activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4200498862 #yiv4200498862activity span {font-weight:700;}#yiv4200498862 #yiv4200498862activity span:first-child {text-transform:uppercase;}#yiv4200498862 #yiv4200498862activity span a {color:#5085b6;text-decoration:none;}#yiv4200498862 #yiv4200498862activity span span {color:#ff7900;}#yiv4200498862 #yiv4200498862activity span .yiv4200498862underline {text-decoration:underline;}#yiv4200498862 .yiv4200498862attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4200498862 .yiv4200498862attach div a {text-decoration:none;}#yiv4200498862 .yiv4200498862attach img {border:none;padding-right:5px;}#yiv4200498862 .yiv4200498862attach label {display:block;margin-bottom:5px;}#yiv4200498862 .yiv4200498862attach label a {text-decoration:none;}#yiv4200498862 blockquote {margin:0 0 0 4px;}#yiv4200498862 .yiv4200498862bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4200498862 .yiv4200498862bold a {text-decoration:none;}#yiv4200498862 dd.yiv4200498862last p a {font-family:Verdana;font-weight:700;}#yiv4200498862 dd.yiv4200498862last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4200498862 dd.yiv4200498862last p span.yiv4200498862yshortcuts {margin-right:0;}#yiv4200498862 div.yiv4200498862attach-table div div a {text-decoration:none;}#yiv4200498862 div.yiv4200498862attach-table {width:400px;}#yiv4200498862 div.yiv4200498862file-title a, #yiv4200498862 div.yiv4200498862file-title a:active, #yiv4200498862 div.yiv4200498862file-title a:hover, #yiv4200498862 div.yiv4200498862file-title a:visited {text-decoration:none;}#yiv4200498862 div.yiv4200498862photo-title a, #yiv4200498862 div.yiv4200498862photo-title a:active, #yiv4200498862 div.yiv4200498862photo-title a:hover, #yiv4200498862 div.yiv4200498862photo-title a:visited {text-decoration:none;}#yiv4200498862 div#yiv4200498862ygrp-mlmsg #yiv4200498862ygrp-msg p a span.yiv4200498862yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4200498862 .yiv4200498862green {color:#628c2a;}#yiv4200498862 .yiv4200498862MsoNormal {margin:0 0 0 0;}#yiv4200498862 o {font-size:0;}#yiv4200498862 #yiv4200498862photos div {float:left;width:72px;}#yiv4200498862 #yiv4200498862photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4200498862 #yiv4200498862photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4200498862 #yiv4200498862reco-category {font-size:77%;}#yiv4200498862 #yiv4200498862reco-desc {font-size:77%;}#yiv4200498862 .yiv4200498862replbq {margin:4px;}#yiv4200498862 #yiv4200498862ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4200498862 #yiv4200498862ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4200498862 #yiv4200498862ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4200498862 #yiv4200498862ygrp-mlmsg select, #yiv4200498862 input, #yiv4200498862 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4200498862 #yiv4200498862ygrp-mlmsg pre, #yiv4200498862 code {font:115% monospace;}#yiv4200498862 #yiv4200498862ygrp-mlmsg * {line-height:1.22em;}#yiv4200498862 #yiv4200498862ygrp-mlmsg #yiv4200498862logo {padding-bottom:10px;}#yiv4200498862 #yiv4200498862ygrp-msg p a {font-family:Verdana;}#yiv4200498862 #yiv4200498862ygrp-msg p#yiv4200498862attach-count span {color:#1E66AE;font-weight:700;}#yiv4200498862 #yiv4200498862ygrp-reco #yiv4200498862reco-head {color:#ff7900;font-weight:700;}#yiv4200498862 #yiv4200498862ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4200498862 #yiv4200498862ygrp-sponsor #yiv4200498862ov li a {font-size:130%;text-decoration:none;}#yiv4200498862 #yiv4200498862ygrp-sponsor #yiv4200498862ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4200498862 #yiv4200498862ygrp-sponsor #yiv4200498862ov ul {margin:0;padding:0 0 0 8px;}#yiv4200498862 #yiv4200498862ygrp-text {font-family:Georgia;}#yiv4200498862 #yiv4200498862ygrp-text p {margin:0 0 1em 0;}#yiv4200498862 #yiv4200498862ygrp-text tt {font-size:120%;}#yiv4200498862 #yiv4200498862ygrp-vital ul li:last-child {border-right:none !important;}#yiv4200498862
Salam,HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, 26 May 2015, 15:43
Subject: Re: [belajar-excel] Droplist By criteria
Hai Matzen,
Yang musti diganti adalah:Formula pada sel M1, M2 dstnya....
Mis. baris terakhir 1000 maka- Formula pada sel M1, angka 11 nya diganti dengan angka 1000, Row(1:10) diganti menjadi Row(1:999)- Sorot M2:M1000 dan ganti formula pada formula bar, angka 11 diganti dengan angka 1000, Row(1:10) diganti menjadi Row(1:999) lalu tekan tombol Ctrl Shift Enter (CSE) secara bersamaan untuk membentuk Array Formula (komputer akan memberi tanda { } secara otomatis)/.
Salam,HK
From: "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 26 May 2015, 14:47
Subject: RE: [belajar-excel] Droplist By criteria
Dear Pak HK, Saya memiliki 400 lebih list, dan saya coba dengan file of c_Dropdownlist update, akan tetapi ga bisa, sekiranya mana yang mesti saya ganti Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2015 12:50
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Droplist By criteria [3 Attachments] Pilih satu dari tiga warisan si mbah. Salam, HK From: "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 25 May 2015, 11:16
Subject: [belajar-excel] Droplist By criteria [1 Attachment] Dear Master Excel, Mohon pencerahannya untuk droplist by criteria, ketika saya create awalan list, maka yang muncul hanya list yang sesuai dengan awalan hurup tadi Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
____________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
____________
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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