+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma (/konu-access-tablodan-excele-aktarilan-bilgi-surun-basliklarini-dikey-yazdirma.html)
Sayfalar:
1
2
Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma - hturkavci03 - 06/12/2015
Ekteki örnekte Access dosyasında tablodan excele veri aktarılıyor. Aktarılan verilerin bazılarının sütun başlıklarını yukarı yönde yazdırmak için kodlarda nasıl bir düzenleme yapmalıyım. Hatta Alt+Enter ile yapıldığı gibi uzun sütun başlıklarını 2 veya 3 satır halinde yazdırmak için bir yol var mıdır?
Cvp: Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma - atoz112 - 07/12/2015
sayın hturkavci03,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Cvp: Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma - hturkavci03 - 07/12/2015
Üstadım çok teşekkür ederim emeğinize. Yalnız benim istediğim şekil exceldeki gibi aşağıdan yukarıya istikamette yazdırmak idi ve örneğimde de bu şekilde açıklamıştım. İki satır olayı istediğim gibi olmuş, yöntemi de öğrendiğime göre bundan sonraki çalışmalarımda kullanacağım.
Cvp: Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma - ozguryasin - 07/12/2015
Merhaba;
örneğinize bir göz atayım dedim excele aktarma başarılı ve güzel olmuş. Küçük bir öneride bulunmak istedim. Tüm satırları yazdırdıktan sonra çizgileri çizme işini tek tek yaptırmışsınız. bunu yerine aşağıdaki düzeltmeyi gerekli yere koyarsanız. bir kerede çizgiler çizilir ve Excel sonlanma noktasında çoklu kayıt aldığınızda size zaman kazndırır. İyi Akşamlar.
Kod:
'Hücrelere tablo çizdiriyoruz...
SATIR = "A": SÜTUN = "O"
For Xi = 3 To i - 1
SATIR = "A" & Xi
SÜTUN = "O" & i - 1 'Xi
SÜTUN.Select
SYF.Range(SATIR, SÜTUN).Borders.LineStyle = xlContinuous ' Hücre çerçeve içine alınıyor tablo çiziliyor
SYF.Range(SATIR, SÜTUN).EntireColumn.AutoFit 'Hücre veriye göre genişletiliyor
Next
'Tablo çizim işlemi tamamlandıCvp: Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma - ozguryasin - 07/12/2015
Pardon bir önceki mesajda döngüden çıkartmayı unutmuşum. kullanılacak kodlar.
Kod:
'******************************************************************************************
'Hücrelere tablo çizdiriyoruz...
SATIR = "A": SÜTUN = "O"
Xi = 3
SATIR = "A" & Xi
SÜTUN = "O" & i - 1 'Xi
SÜTUN.Select
SYF.Range(SATIR, SÜTUN).Borders.LineStyle = xlContinuous ' Hücre çerçeve içine alınıyor tablo çiziliyor
SYF.Range(SATIR, SÜTUN).EntireColumn.AutoFit 'Hücre veriye göre genişletiliyor
'Tablo çizim işlemi tamamlandıCvp: Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma - hturkavci03 - 07/12/2015
Üstadım, çok teşekkür ederim. Gerçekten çok hızlı tablo oluştu. Çok fazla veri söz konusu olduğunda çok daha faydalı olacaktır.