Hocam örneğimi inceleyebilir misiniz ?
excele aktar da neyi yanlış yapıyorum ?
Teşekkür ederim
Deneme.rar
(Dosya Boyutu: 59,7 KB | İndirme Sayısı: 2)
Son Düzenleme: 19/12/2019, 21:08, Düzenleyen: zaferlacin.
Access İle Excel Hücresi Biçimlendirme
Deneme.rar
(Dosya Boyutu: 59,7 KB | İndirme Sayısı: 2)
kodu aşağıdaki gibi düzenler misiniz?
Dim xlApp As Excel.Application
Dim xlSh As Excel.Worksheet
Dim objWkb As Excel.Workbook
Set xlApp = New Excel.Application
xlApp.Visible = True
Set objWkb = xlApp.Workbooks.Add
With xlApp.Sheets(1)
Set Rng = .Range("C5
" & Me.Liste5.ListCount + 4)
End With
Rng.Borders.Weight = 2 'ara çizgilerin kalınlığı
Rng.BorderAround Weight:=3 'Çerçeve kalınlığı
For I = 0 To Me.Liste5.ListCount - 1
xlApp.Sheets(1).Cells(I + 5, 3).Value = Me.Liste5.Column(1, I)
xlApp.Sheets(1).Cells(I + 5, 4).Value = Me.Liste5.Column(2, I)
xlApp.Sheets(1).Cells(I + 5, 5).Value = Me.Liste5.Column(3, I)
Next I
Rng.Columns.AutoFit(19/12/2019, 23:32)berduş yazdı: kodu aşağıdaki gibi düzenler misiniz?Tamamdır Hocam Teşekkür ederim
Dim xlApp As Excel.Application
Dim xlSh As Excel.Worksheet
Dim objWkb As Excel.Workbook
Set xlApp = New Excel.Application
xlApp.Visible = True
Set objWkb = xlApp.Workbooks.Add
With xlApp.Sheets(1)
Set Rng = .Range("C5
End With
Rng.Borders.Weight = 2 'ara çizgilerin kalınlığı
Rng.BorderAround Weight:=3 'Çerçeve kalınlığı
For I = 0 To Me.Liste5.ListCount - 1
xlApp.Sheets(1).Cells(I + 5, 3).Value = Me.Liste5.Column(1, I)
xlApp.Sheets(1).Cells(I + 5, 4).Value = Me.Liste5.Column(2, I)
xlApp.Sheets(1).Cells(I + 5, 5).Value = Me.Liste5.Column(3, I)
Next I
Rng.Columns.AutoFit
Konuyu Okuyanlar: 1 Ziyaretçi
