R-1 itu revisi 1 pak :)
-----Original Message-----
From: [email protected] on behalf of tepupunk
Sent: Tue 2/26/2008 8:50 PM
To: [email protected]
Cc:
Subject: RE: [indoprog-vb] Re: Tanya penjumlahan R-1
R-1 apan c kk ???? im a newbie...
--- Didi <[EMAIL PROTECTED] <mailto:dc%40pqm-iris.co.id> > 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:indoprog-vb%40yahoogroups.com>
> [mailto:[email protected]
<mailto:indoprog-vb%40yahoogroups.com> ] On Behalf Of
> wiequadrat
> Sent: 26 Februari 2008 8:41
> To: [email protected]
<mailto:indoprog-vb%40yahoogroups.com>
> 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>
> <mailto:indoprog-vb%40yahoogroups.com> , "Didi"
> <[EMAIL PROTECTED]> 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:indoprog-vb%40yahoogroups.com>
> [mailto:[email protected]
<mailto:indoprog-vb%40yahoogroups.com>
> <mailto:indoprog-vb%40yahoogroups.com> ] On Behalf
> Of wiequadrat
> > Sent: 25 Februari 2008 16:27
> > To: [email protected]
<mailto:indoprog-vb%40yahoogroups.com>
> <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>
> <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]
>
>
__________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs <http://www.yahoo.com/r/hs>
[Non-text portions of this message have been removed]
