2 New Messages
Digest #1690
Messages
Sat Jul 14, 2012 7:07 am (PDT) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Kepada rekan-rekan belajar Excel,
mohon berkenan solusi akan pertanyaan saya yang terdiri dari 4 pertanyaan (masing-masing
dalam sheet yang berbeda) sebagaimana sheets terlampir.
Sedikit penjelasan dari pertanyaan
tersebut adalah:
Pada sheets terlampir (Situasi 1 s/d
Situasi 4), pada Kolom D2 terdapat list data yang seharusnya data-data tersebut
dipisahkan sebagaimana Kolom D10 sdt sedangkan data yang lain mengikuti.
Jika List Data yang ada pada Kolom D2
tersebut dipisahkan / di edit secara manual, akan membutuhkan banyak waktu
karena data yang harus dekerjakan sangat banyak.
Oleh sebab itu, mohon berkenan kepada
rekan-rekan belajar Excel untuk dapat memberikan informasi / berbagi ilmu akan hal tersebut diatas.
Sebelum dan sesudahnya saya ucapkan
banyak terima kasih.
Regards,
Harry
Kepada rekan-rekan belajar Excel,
mohon berkenan solusi akan pertanyaan saya yang terdiri dari 4 pertanyaan (masing-masing
dalam sheet yang berbeda) sebagaimana sheets terlampir.
Sedikit penjelasan dari pertanyaan
tersebut adalah:
Pada sheets terlampir (Situasi 1 s/d
Situasi 4), pada Kolom D2 terdapat list data yang seharusnya data-data tersebut
dipisahkan sebagaimana Kolom D10 sdt sedangkan data yang lain mengikuti.
Jika List Data yang ada pada Kolom D2
tersebut dipisahkan / di edit secara manual, akan membutuhkan banyak waktu
karena data yang harus dekerjakan sangat banyak.
Oleh sebab itu, mohon berkenan kepada
rekan-rekan belajar Excel untuk dapat memberikan informasi / berbagi ilmu akan hal tersebut diatas.
Sebelum dan sesudahnya saya ucapkan
banyak terima kasih.
Regards,
Harry
Sat Jul 14, 2012 8:55 pm (PDT) . Posted by:
"Markonah" m_tulqiyem
Kita contohkan 1 (satu) solusi saja yaitu untuk *Situasi_01, *mudah-mudahan
sesuai keinginan.
3 (tiga) Sheet lain punya problem yg sama hanya ada SEDIKIT variant. Jika
mau merenung sebentar; makro untuk situasi_1 tinggal di edit SEDIKIT.
(Kalau tidak mau merenung ??... Ya Gitu Deh..)
Sub Normalkan_Situasi1(SourcTbl As Range)
'--------------------------------------------
' Zr Markonah - BeExcel # 18144 / 2012-07-15
' pinjam "yell-nya Yu siti "Yaa.. Gitu Deh.."
'--------------------------------------------
Dim KolNama As Range, TbHasil As Range
Dim ArrNama, n As Long, r As Long
Dim c As Integer, k As Integer
r = SourcTbl.Rows.Count - 1
c = SourcTbl.Columns.Count
Set SourcTbl = SourcTbl.Offset(1, 0).Resize(r, c)
Set KolNama = SourcTbl.Offset(0, 3).Resize(r, 1)
Set TbHasil = SourcTbl.Offset(r + 7, 0)
ArrNama = Split(KolNama(1, 1).Value, Chr(10))
For n = 1 To UBound(ArrNama) + 1
For k = 1 To 3
TbHasil(n, k).Value = SourcTbl(1, k).Value
Next
TbHasil(n, 4).Value = ArrNama(n - 1)
For k = 5 To c
TbHasil(n, k).Value = SourcTbl(1, k).Value
Next
Next n
End Sub
Mengapa merujuk elemen di Array ArrNama harus pakai (n-1), ? Kok bukan (n)
saja ?
Karena, katanya, array y gdibentuk dengan fungsi Split selalu dimulai
dengan Index 0 (nol)
Kepada sodara-sodaraku yg sedang menyiapkan diti untuk menjadi Soimin dan
Soimah,
saya mengucapkan "Selamat menunaikan ber-ibadah saum"
Dlm rangka menghadapi itu pula; mPok Markonah mohon maaf lahir batin atas
kelakuan
dan ucapan yg tidak berkenan.. selama main di milis kita ini...
(maapin yee...)
-markonah-
*2012/7/14 Harry <hariansyahptk@yahoo.com >
>
> Dear BeExceller,
> Kepada rekan-rekan belajar Excel, mohon berkenan solusi akan pertanyaan
saya yang terdiri dari 4 pertanyaan (masing-masing dalam sheet yang
berbeda) sebagaimana sheets terlampir.
>
> Sedikit penjelasan dari pertanyaan tersebut adalah:
> Pada sheets terlampir (Situasi 1 s/d Situasi 4), pada Kolom D2 terdapat
list data yang seharusnya data-data tersebut dipisahkan sebagaimana Kolom
D10 sdt sedangkan data yang lain mengikuti.
> Jika List Data yang ada pada Kolom D2 tersebut dipisahkan / di edit
secara manual, akan membutuhkan banyak waktu karena data yang harus
dekerjakan sangat banyak.
>
> Oleh sebab itu, mohon berkenan kepada rekan-rekan belajar Excel untuk
dapat memberikan informasi / berbagi ilmu akan hal tersebut diatas.
> Sebelum dan sesudahnya saya ucapkan banyak terima kasih.
>
> Regards,
> Harry*
sesuai keinginan.
3 (tiga) Sheet lain punya problem yg sama hanya ada SEDIKIT variant. Jika
mau merenung sebentar; makro untuk situasi_1 tinggal di edit SEDIKIT.
(Kalau tidak mau merenung ??... Ya Gitu Deh..)
Sub Normalkan_Situasi1(
'-----------
' Zr Markonah - BeExcel # 18144 / 2012-07-15
' pinjam "yell-nya Yu siti "Yaa.. Gitu Deh.."
'-----------
Dim KolNama As Range, TbHasil As Range
Dim ArrNama, n As Long, r As Long
Dim c As Integer, k As Integer
r = SourcTbl.Rows.
c = SourcTbl.Columns.
Set SourcTbl = SourcTbl.Offset(
Set KolNama = SourcTbl.Offset(
Set TbHasil = SourcTbl.Offset(
ArrNama = Split(KolNama(
For n = 1 To UBound(ArrNama) + 1
For k = 1 To 3
TbHasil(n, k).Value = SourcTbl(1, k).Value
Next
TbHasil(n, 4).Value = ArrNama(n - 1)
For k = 5 To c
TbHasil(n, k).Value = SourcTbl(1, k).Value
Next
Next n
End Sub
Mengapa merujuk elemen di Array ArrNama harus pakai (n-1), ? Kok bukan (n)
saja ?
Karena, katanya, array y gdibentuk dengan fungsi Split selalu dimulai
dengan Index 0 (nol)
Kepada sodara-sodaraku yg sedang menyiapkan diti untuk menjadi Soimin dan
Soimah,
saya mengucapkan "Selamat menunaikan ber-ibadah saum"
Dlm rangka menghadapi itu pula; mPok Markonah mohon maaf lahir batin atas
kelakuan
dan ucapan yg tidak berkenan.. selama main di milis kita ini...
(maapin yee...)
-markonah-
*2012/7/14 Harry <hariansyahptk@
>
> Dear BeExceller,
> Kepada rekan-rekan belajar Excel, mohon berkenan solusi akan pertanyaan
saya yang terdiri dari 4 pertanyaan (masing-masing dalam sheet yang
berbeda) sebagaimana sheets terlampir.
>
> Sedikit penjelasan dari pertanyaan tersebut adalah:
> Pada sheets terlampir (Situasi 1 s/d Situasi 4), pada Kolom D2 terdapat
list data yang seharusnya data-data tersebut dipisahkan sebagaimana Kolom
D10 sdt sedangkan data yang lain mengikuti.
> Jika List Data yang ada pada Kolom D2 tersebut dipisahkan / di edit
secara manual, akan membutuhkan banyak waktu karena data yang harus
dekerjakan sangat banyak.
>
> Oleh sebab itu, mohon berkenan kepada rekan-rekan belajar Excel untuk
dapat memberikan informasi / berbagi ilmu akan hal tersebut diatas.
> Sebelum dan sesudahnya saya ucapkan banyak terima kasih.
>
> Regards,
> Harry*
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar