Re: Bls: [belajar-access] merubah isi row menjadi isi column

Kalau begini mau, pak ?




Query design:




Query sql:



aksan kurdin








On 4/19/2011 10:31 AM, Yusran M wrote:

 

Dear Gan,

Silahkan ini dikutak katik,
*dapet dari source temen..


thanks,
//br

===========================================
Sub lefttoright()
Dim i, j, k, l, m, n As Integer
j = 2
k = 5

Range("E:AN").Clear
n = k
For m = 0 To 31
If m = 0 Then
Cells(1, n) = "Cell"
Else
n = n + 1
Cells(1, n) = "NCell_" & m
End If
Next m

For i = 2 To 65530
  If Cells(i, 1) = "" Then Exit For
  If i = 2 Then
    Cells(j, k) = Cells(i, 1)
    k = k + 1
    Cells(j, k) = Cells(i, 2)
  Else
   If Cells(i, 1) = Cells(i - 1, 1) Then
     k = k + 1
     Cells(j, k) = Cells(i, 2)
   Else
     j = j + 1
     k = 5
    Cells(j, k) = Cells(i, 1)
    k = k + 1
    Cells(j, k) = Cells(i, 2)
   End If
 
 
  End If


On 4/19/2011 11:10 AM, budi suryadi wrote:

 

para master dan suhu...
apakah ada solusi untuk masalah saya ini?
mohon saran dan bantuannya...
terima kasih sebelumnya

 

Best Regard's
Budi Suryadi

---

Dari: budi suryadi <blue_chocolate@ymail.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Sen, 18 April, 2011 10:52:12
Judul: [belajar-access] merubah isi row menjadi isi column [1 Attachment]

 

Selamat pagi semua...dan salam kenal..
saya sebagai pemula merasa sangat terbantu sekali dgn adanya milis belajar access ini, sehingga saya dapat belajar access melalui contoh2 permasalahan yg ada..

Namun kali ini saya mendapatkan kendala tentang bagaimana merubah isi row menjadi isi column...
contoh :
saya mempunyai tabel 1 yg isinya sbb:

id sewa	Tujuan
1	Bekasi
1	Krawang
1	Cikarang
1	Cakung
2	Cikarang
2	Cakung
2	Tangerang
3	Cikarang
3	Tangerang
4	Cikarang
4	Tangerang
4	Bekasi

 
lalu saya ingin merubahnya menjadi seperti ini :

id sewa	Tujuan1	Tujuan2	Tujuan3	Tujuan4
1	Bekasi	Krawang	Cikarang	Cakung
2	Cikarang	Cakung	Tangerang
3	Cikarang	Tangerang
4	Cikarang	Tangerang	Bekasi

 column tujuan pada hasil tabel 1 mengikuti jumlah tujuan yg ada pada tabel 1

Bagaimanakah caranya ?
Mohon bantuan dan saran dari teman2 dan para master access semuanya..
sebelumnya saya ucapkan banyak2 terima kasih

nb: file contoh terlampir

Best Regard's
Budi Suryadi