Skip to main content

AccessTr.neT


Access İle Excel Hücresi Biçimlendirme

Access İle Excel Hücresi Biçimlendirme

#13
Hocam örneğimi inceleyebilir misiniz ?
 excele aktar da neyi yanlış yapıyorum ?
Teşekkür ederim
.rar Deneme.rar (Dosya Boyutu: 59,7 KB | İndirme Sayısı: 2)
Son Düzenleme: 19/12/2019, 21:08, Düzenleyen: zaferlacin.
Cevapla
#14
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("C5Lol" & 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
Cevapla
#15
(19/12/2019, 23:32)berduş yazdı: 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("C5Lol" & 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
Tamamdır Hocam Teşekkür ederim
Cevapla
#16
iyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task