+- 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ığı: Range Sınıfının HorizontalAlignment Özleliği Kurulamıyor Hatası (/konu-range-sinifinin-horizontalalignment-ozleligi-kurulamiyor-hatasi.html)
Sayfalar:
1
2
Range Sınıfının HorizontalAlignment Özleliği Kurulamıyor Hatası - Kunt - 02/05/2023
Herkese selamlar.
Veri Tabanı Kapalı ağda olduğu için ekleyemiyorum.
Excel'e tablo gönderiyorum ve düzenlemeleri yaptırıyorum. Ancak hücreleri hizalamak için aşağıda yazdığım kod ile
"Range Sınıfının HorizontalAligment Özleliği Kurulamıyor" hatası alıyorum (aynı hatayı VerticalAlignment içinde alıyorum)
Dim Exl as object
Dim wb as object
Dim ws as object
Set Exl = CreateObject ("Excel.Application")
Exl.Visible = True
Exl.UserControl = True
Set wb = Exl.Workbooks.Add
Set ws = wb.sheets.Add
ws.Name = "Cari İcmal"
Ws.Range("A1:E8").HorizontalAlignment= xlCenter
Ya da
Ws.Range("A1:E8").HorizontalAlignment= xlHAlignCenter
Site içerisinde örnek çalışmaları indirip incelediğimde bu her iki kodda hata yok.
Hatta örnek çalışmalar doğru şekilde çalışıyor. Ancak ben kendi projeme kodları tanımlamaları ile birlikte eklesemde, yukarıdaki gibi yazsam da hata alyorum.
Bu koduna yardımlarınızı bekliyorum.
.
RE: Range Sınıfının Horizontalaligment Özleliği Kurulamıyor Hatası - berduş - 02/05/2023
HorizontalAligment değil HorizontalAlignment olarak dener misiniz?
RE: Range Sınıfının Horizontalaligment Özleliği Kurulamıyor Hatası - Kunt - 02/05/2023
(02/05/2023, 18:42)berduş yazdı: HorizontalAligment değil HorizontalAlignment olarak dener misiniz?
İlginiz için teşekkür ederim,
Mesaj daki hata için kusura bakmayın. Cep tlf. Üzerinden yazdığım için eksik yazmışım. Bende kod içinde Sizin dediğiniz gibi HorizontalAlignment olarak yazdım.
RE: Range Sınıfının HorizontalAlignment Özleliği Kurulamıyor Hatası - berduş - 02/05/2023
Ws.Range("A1:E8").HorizontalAlignment= xlCenterws.Range("A1:E8").HorizontalAlignment = -4108ama eğer referanslara microsoft Excel xx.x objectlibraryyi eklerseniz sorun ortadan kalkabilir xlCenter de kullanabilirsiniz
RE: Range Sınıfının HorizontalAlignment Özleliği Kurulamıyor Hatası - Kunt - 04/05/2023
(02/05/2023, 19:30)berduş yazdı:yerineWs.Range("A1:E8").HorizontalAlignment= xlCenter
olarak dener misiniz? Access tarafından açıldığı için xlCenter neye karşılık geliyor bilemiyor olabilirws.Range("A1:E8").HorizontalAlignment = -4108
ama eğer referanslara microsoft Excel xx.x objectlibraryyi eklerseniz sorun ortadan kalkabilir xlCenter de kullanabilirsiniz
Sayın Berduş,
Yönlendirmeniz ve bilgi için teşekkür ederim. XlCenter yerine "-4108" değerini yazınca hata vermedi ve kod çalıştı.
Bahsettiğiniz
referanslara "microsoft Excel xx.x objectlibrary" ekleme olayını Access'e çok hakim olmadığım için anlayamadım. Örnekleme ile gösterebilir misiniz?
RE: Range Sınıfının HorizontalAlignment Özleliği Kurulamıyor Hatası - berduş - 04/05/2023
VBA penceresindeki (yani kodların yazıldığı sayfada) menüye gelirseniz, orada
Tools menüsünde references düğmesine tıklarsanız açılan pencerede seçenekler çıkar
aşağılarda bir yerde Microsoft Excel xx.x Object Library var onu seçili hale getirmeniz yeterli. bende 16.0 varken sizde farklı bir sürüm olabilir xx.x sizdeki sürümü gösterir