25/08/2021, 20:49
26/08/2021, 19:38
Hocam, Mazeretlere altı çizgili nasıl yapabiliriz.
ve mazeretler dökümünü koyu font, Times New Roman, 11 Font gibi özellikleri nasıl verebiliriz.
ve mazeretler dökümünü koyu font, Times New Roman, 11 Font gibi özellikleri nasıl verebiliriz.
26/08/2021, 21:43
Hocam sizin kodlara kırmızı satırları ekleyerek mazeretler dökümünü font ve boyutunu ayarlayabildim ancak mazeret satır başlıklarını altı çizili yaptığımda satır başlıkları mükerrer hale geliyor. Birleştirilmiş hücre görünümü bozuluyor.
Set rs2 = CurrentDb.OpenRecordset("Gecici")
Do Until rs2.EOF
Excl.Cells(y, "A") = rs2(0)
Excl.Cells(y, "B") = rs2(1)
Excl.Cells(y, "D") = rs2(2)
Excl.Cells(y, "F") = rs2(3)
Excl.Cells(y, "H") = rs2(4)
Excl.Range("A" & y, "H" & y).Font.Name = "Times New Roman"
Excl.Range("A" & y, "H" & y).Font.Size = 8
Excl.Range("A" & y).Font.Underline = xlUnderlineStyleSingle 'Borders.LineStyle = 1
y = y + 1
rs2.MoveNext
Loop
Set rs2 = CurrentDb.OpenRecordset("Gecici")
Do Until rs2.EOF
Excl.Cells(y, "A") = rs2(0)
Excl.Cells(y, "B") = rs2(1)
Excl.Cells(y, "D") = rs2(2)
Excl.Cells(y, "F") = rs2(3)
Excl.Cells(y, "H") = rs2(4)
Excl.Range("A" & y, "H" & y).Font.Name = "Times New Roman"
Excl.Range("A" & y, "H" & y).Font.Size = 8
Excl.Range("A" & y).Font.Underline = xlUnderlineStyleSingle 'Borders.LineStyle = 1
y = y + 1
rs2.MoveNext
Loop
26/08/2021, 22:24
Sayın Hocam, sorun kalmadı. Kodlar çalışıyor. Tekrar teşekkür ederim.
27/08/2021, 00:06
(26/08/2021, 22:24)hturkavci03 yazdı: [ -> ]Sayın Hocam, sorun kalmadı. Kodlar çalışıyor. Tekrar teşekkür ederim.
Mazeretlere altı çizgili eklendi.
mazeretler dökümü koyu font, Times New Roman, 11 Font olarak ayarlandı.
29/08/2021, 18:36
Sayın userx, TBL_ANA_Çapraz sorgusuyla oluşturduğunuz Gecici tablosunda S_, AS_, SVL_M_, ve UZ_E_ alanları kendi mazeret grupları içinde TBL_ANA tablosu ID alanına göre sıralanmıyor. Bunun için yapabileceğimiz bir şey var mı?