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
__._,_.___
No comments:
Post a Comment