hi Iqbal,
Maaf baru sempat respon.
Maksudnya bahasa manusia dari skrip itu ya ? :D inti nya si pertama saya
coba hitung berapa banyak baris data dan kolom nya. Proses itu diwakili
dengan variabel a untuk hitung Kolom. Dan b Untuk hitung baris data (alpha,
beta, gama dst..).
Setelah dapat nilai b, selalu ditambahkan 3 baris baru untuk meletakan
transpose data nya. Proses ini diwakili dengan isi variabel B yang selalu
ditambah 3 (c = b + 3). Berikutnya barulah proses merubah baris jadi kolom,
dan kolom jadi baris melalui proses looping.
Gitu aja si kira2. Menjawab gak ya ? :D
Sub Button1_Click()
Dim a, b, c, rws, cols As Long
Dim Data As String
a = WorksheetFunction.CountA(Rows(1)) - 1
b = WorksheetFunction.CountA(Range("A:A")) - 1
c = b + 3
Range("A1").Select
For cols = 1 To b
For rws = 1 To a + 1
Range("A" & c).Value = ActiveCell.Offset(0, cols).Value
Range("B" & c).Value = ActiveCell.Offset(rws, 0).Value
Range("C" & c).Value = ActiveCell.Offset(rws, cols).Value
c = c + 1
Next rws
Next cols
End Sub
*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
2017-01-08 11:30 GMT+07:00 'Muhammad Iqbal' [email protected]
[belajar-excel] <[email protected]>:
>
>
> Dear Mas Ario
>
> Terima kasih atas supportnya, sangat membantu sekali, namun saya belum
> memahami macro sama sekali, bisa di bantu mas untuk description tiap syntax
> nya? Sehingga saya bisa mengembangkan dalam bentuk record data yang saya
> gunakan.
>
> (maaf jadi melebar pertanyaannya)
>
> Sub Button1_Click()
>
> Dim a, b, c, rws, cols As Long
>
> Dim Data As String
>
>
>
> a = WorksheetFunction.CountA(Rows(1)) - 1
>
> b = WorksheetFunction.CountA(Range("A:A")) - 1
>
> c = b + 3
>
>
>
> Range("A1").Select
>
>
>
> For cols = 1 To b
>
> For rws = 1 To a + 1
>
> Range("A" & c).Value = ActiveCell.Offset(0, cols).Value
>
> Range("B" & c).Value = ActiveCell.Offset(rws, 0).Value
>
> Range("C" & c).Value = ActiveCell.Offset(rws, cols).Value
>
> c = c + 1
>
> Next rws
>
> Next cols
>
> End Sub
>
>
>
> Thanks
>
> BR
> Muhammad Iqbal
>
>
>
> *From:* [email protected] [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* January 7, 2017 9:11 AM
> *To:* [email protected]
> *Subject:* Re: [belajar-excel] merubah data vertical to data horizontal
> [1 Attachment]
>
>
>
>
>
> Assalamualaikum Muhammad.
>
>
>
> Terlampir file nya menggunakan Macro seadanya.
>
> Maaf kalau belum seperti kemauan.
>
>
>
> Wassalam
>
> Sony
>
>
>
>
>
> 2016-12-28 16:09 GMT+07:00 'Muhammad Iqbal' [email protected]
> [belajar-excel] <[email protected]>:
>
>
>
> Dear be excel
>
> Mohon saran untuk logika/formulasi untuk merubah data dari bentuk
> horizontal menjadi bentuk vertical dibawah ini
>
>
>
> Data awal :
>
> Item
>
> 1-Jan-16
>
> 2-Jan-16
>
> 3-Jan-16
>
> 4-Jan-16
>
> Alfa
>
> 10
>
> 10
>
> 11
>
> 13
>
> beta
>
> 12
>
> 12
>
> 11
>
> 10
>
> gama
>
> 14
>
> 13
>
> 14
>
> 11
>
> omega
>
> 17
>
> 16
>
> 17
>
> 16
>
> tetra
>
> 14
>
> 13
>
> 14
>
> 14
>
>
>
> Akan di ubah menjadi bentuk seperti ini
>
> Tanggal
>
> Item
>
> 1-Jan-16
>
> Alfa
>
> 1-Jan-16
>
> Beta
>
> 1-Jan-16
>
> Gama
>
> 1-Jan-16
>
> Omega
>
> 1-Jan-16
>
> Tetra
>
> 2-Jan-16
>
> Alfa
>
> 2-Jan-16
>
> Beta
>
> 2-Jan-16
>
> Gama
>
> 2-Jan-16
>
> Omega
>
> 2-Jan-16
>
> Tetra
>
> 3-Jan-16
>
> Alfa
>
> 3-Jan-16
>
> Beta
>
> 3-Jan-16
>
> Gama
>
> 3-Jan-16
>
> Omega
>
> 3-Jan-16
>
> tetra
>
> 4-Jan-16
>
> Alfa
>
> 4-Jan-16
>
> beta
>
> 4-Jan-16
>
> gama
>
> 4-Jan-16
>
> omega
>
> 4-Jan-16
>
> tetra
>
>
>
> Selama ini masih saya lakukan secara manual dengan copy paste.
>
>
>
> Matursuwun sebelumnya.
>
>
>
> BR
> Muhammad Iqbal
>
>
>
>
>
