R-1 apan c kk ???? im a newbie... --- 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" > <[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:[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] > > ____________________________________________________________________________________ Never miss a thing. Make Yahoo your home page. http://www.yahoo.com/r/hs
