Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma

1 2
06/12/2015, 15:37

hturkavci03

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?
07/12/2015, 21:05

atoz112

sayın hturkavci03,


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

bilginize...iyi çalışmalar,saygılar.
07/12/2015, 21:51

hturkavci03

Ü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.
07/12/2015, 23:12

ozguryasin

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ı
07/12/2015, 23:18

ozguryasin

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ı
07/12/2015, 23:49

hturkavci03

Ü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.
1 2