AccessTr.neT

Tam Versiyon: Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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?
sayın hturkavci03,


EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
Ü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.
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ı
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ı
Ü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.
Sayfalar: 1 2