[indoprog-vb] Re: Tanya penjumlahan R-1

Tue, 26 Feb 2008 17:19:29 -0800 

gunakan
=======================
with MSHFlexgrid1

for i1=1 to .rows-1
  XlSheet1.Cells(i1, 1).Value = trim(.textmatrix(i1, 1))
  XlSheet1.Cells(i1, 2).Value = trim(.textmatrix(i1, 2))
  XlSheet1.Cells(i1, 3).Value = trim(.textmatrix(i1, 3))
  XlSheet1.Cells(i1, 4).Value = trim(.textmatrix(i1, 4))
  XlSheet1.Cells(i1, 5).Value = trim(.textmatrix(i1, 5))
  XlSheet1.Cells(i1, 6).Value = trim(.textmatrix(i1, 6))
next

end with
=======================

NB : baris 0 itu artinya baris fixed header
     baris 1 itu baris pertama dalam data
     kalau ada 4 baris (termasuk 1 header) berarti looping dari 1 sampai 3
--- In [email protected], "Didi" <[EMAIL PROTECTED]> wrote:
>
> Pak Wie, sepertinya ada yang slah dengan FOR-NEXT saya dech… bisa
Bantu ya Pak… Jadi begini pada saat di simpan ke Excel file tidak di
mulai dari urutan pertama pada MSFlexGrid1 melainkan urutan ke 18.
> 
> Trims sebelumnya :-)
> 
>  
> 
>   _____  
> 
> From: [email protected]
[mailto:[EMAIL PROTECTED] On Behalf Of wiequadrat
> Sent: 26 Februari 2008 8:41
> To: [email protected]
> Subject: [indoprog-vb] Re: Tanya penjumlahan R-1
> 
>  
> 
> dari coding koq kelihatannya anda masih memakai datagrid.
> 
> untuk flexgrid anda cukup mengakses isi setiap cell dengan menggunakan
> fungsi TEXTMATRIX(row,col)
> 
> dengan asumsi FOR-NEXT anda sudah benar
> ===========
> XlSheet1.Cells(i1, 1).Value = trim(Data1.textmatrix(i1+11, 1))
> XlSheet1.Cells(i1, 2).Value = trim(Data1.textmatrix(i1+11, 2))
> XlSheet1.Cells(i1, 3).Value = trim(Data1.textmatrix(i1+11, 3))
> XlSheet1.Cells(i1, 4).Value = trim(Data1.textmatrix(i1+11, 4))
> XlSheet1.Cells(i1, 5).Value = trim(Data1.textmatrix(i1+11, 5))
> XlSheet1.Cells(i1, 6).Value = trim(Data1.textmatrix(i1+11, 6))
> ===========
> kelihatannya data anda mulai dari baris ke 11 jadi saya +11
> selain trim anda juga bisa menambahkan fungsi format dsb untuk
> menampilkan nilai yg benar di excel.
> 
> --- In [email protected]
<mailto:indoprog-vb%40yahoogroups.com> , "Didi" <dc@> wrote:
> >
> > Pak Wie, saya mau minta tolong 1 hal lagi ya… :-)
> > 
> > Begini Pak, saya rencananya hasil dari MSFlexGrid tersebut akan di
> simpan ke Excel file, saya sudah menggunakan coding di bawah tapi
> selalu muncul pesan Run-time Error 1004, No current record’
> > 
> > 
> > 
> > Dim i As Integer
> > 
> > Dim Row, Col, F As Long
> > 
> > Dim XlApp1 As Excel.Application
> > 
> > Dim XlBook1 As Excel.Workbook
> > 
> > Set XlApp1 = CreateObject("Excel.Application")
> > 
> > Set XlBook1 = XlApp1.Workbooks.Open("C:\Windows\TR-MONTHLY.XLS")
> > 
> > Dim XlSheet1 As Excel.Worksheet
> > 
> > Set XlSheet1 = XlBook1.Worksheets(1)
> > 
> > 
> > 
> > For i1 = 12 To Data1.Recordset.RecordCount + 11
> > 
> > 
> > 
> > XlSheet1.Cells(i1, 1).Value = Data1.Recordset!Usr
> > 
> > XlSheet1.Cells(i1, 2).Value = Data1.Recordset!TGL
> > 
> > XlSheet1.Cells(i1, 3).Value = Data1.Recordset!Kode
> > 
> > XlSheet1.Cells(i1, 4).Value = Data1.Recordset!Kegiatan
> > 
> > XlSheet1.Cells(i1, 5).Value = Data1.Recordset!J
> > 
> > XlSheet1.Cells(i1, 6).Value = Data1.Recordset!Ket
> > 
> > 
> > 
> > Data1.Recordset.MoveNext
> > 
> > Next i1
> > 
> > 
> > 
> > XlSheet1.Application.SaveWorkspace
> > 
> > XlSheet1.Application.Quit
> > 
> > Set XlSheet1 = Nothing
> > 
> > XlApp1.Application.Quit
> > 
> > Set XlApp1 = Nothing
> > 
> > 
> > 
> > Mohon bantuannya ya Pak dan terima kasih sekali lagi :-)
> > 
> > 
> > 
> > 
> > _____ 
> > 
> > 
> > From: [email protected]
<mailto:indoprog-vb%40yahoogroups.com> 
> [mailto:[email protected]
<mailto:indoprog-vb%40yahoogroups.com> ] On Behalf Of wiequadrat
> > Sent: 25 Februari 2008 16:27
> > To: [email protected]
<mailto:indoprog-vb%40yahoogroups.com> 
> > Subject: [indoprog-vb] Re: Tanya penjumlahan R-1
> > 
> > 
> > 
> > sama sama. semoga berhasil juga. eh karena saya tak tahu email pribadi
> > anda jadi ada sedikit tambahan.
> > 
> > pada saat anda menambahkan kontrol Flexgrid ke dalam form, jangan lupa
> > untuk "right click" flex grid nya dan pilih properties. lalu isi di
> > Columns = 7. yang lain biarkan default saja
> > 
> > --- In [email protected]
<mailto:indoprog-vb%40yahoogroups.com> 
> <mailto:indoprog-vb%40yahoogroups.com> , "Didi" <dc@> wrote:
> > >
> > > Terima kasih Pak Wie atas bantuannya. Saya menggunakan MSFlexGrid.
> > > Saya akan coba coding yang Bapak berikan dulu, nanti saya kabarkan
> > kembali.
> >
> 
>  
> 
> 
> 
> [Non-text portions of this message have been removed]
>

Kirim email ke