Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
16/05/2014 20:39
Konu Sahibi
imlemeci
Yorumlar
0
Okunma
1376
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
imlemeci

imlemeci

Üye
63352
 39
 7
 10
 22/04/2014
0
 
 
 
 20/06/2016,22:27
Visual Basic 6.0'da MsFlexGrid tablomu excele aktarıyorum.. Fakat excele aktardığımda aynı yazıda olan hücreler birleşmemiş olarak gözüküyor.. MergeCells = True komutu ile bildiğim kadarıyla excelde hücrelerin birleşmesi gerekiyor.. Fakat birleştiremedim.. Aynı yazıların birleşmiş olarak tek bi halde yazılması gerekiyor.. Yani 10 tane pazartesi varsa tek bi hücrede birleşip pazartesi yazacak gibi.. Birde yazı uzunluğuna göre hücrenin uzaması gerekirken uzamıyor..

Örnek bir resim: http://i.hizliresim.com/RynR51.png

Kullandığım kodlar aşağıda.. Nerede hata yapıyorum? Excele aktarıldığında aynı satırdaki yazılar neden birleşmiyor tek bi hücre halinde?

Alıntı:On Error Resume Next 'Hata varsa hatayı geçer ve hatalı kısmı boş bırakır
Dim a, i As Long 'Kullanilacak a ve i değişkeni
If Program.MSFlexGrid1.Rows = 1 Then ' Eğer msflexgrid boşsa aktarma yapma
Exit Sub 'Aktarma yapmadan çık
End If 'If komutunu kapattık
Screen.MousePointer = 11
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

For a = 1 To Program.MSFlexGrid1.Cols
For i = 1 To Program.MSFlexGrid1.Rows
xlSheet.Cells(1, a).Font.Bold = True ' Excel' e aktarılan kayıtların ilk sütunu başlıklar olduğu içIn karakterleri bold
xlSheet.Cells(i, 1).Font.Bold = True
xlSheet.Cells(i, a).MergeCells = True
xlSheet.Cells(i, a) = Program.MSFlexGrid1.TextMatrix(i - 1, a - 1)
xlSheet.Cells(i, 3).NumberFormat = "#,##0.00" 'burada Excel tarafına aktarılan kaydın formatını belirleyebilirsiniz
Next i
Next a
Screen.MousePointer = 0
xlBook.Application.Visible = True




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Hücre Değerine Göre Satır Renklendirme drummers 1 1.354 30/05/2018, 01:03
Son Yorum: congueror
  Hücre Değerine Göre Mesaj Ver ozkovlu29 2 480 25/01/2018, 08:28
Son Yorum: ozkovlu29
  Webden Excele Veri Çekme shadowgist 0 440 24/09/2017, 16:48
Son Yorum: shadowgist
  vba vlookup özelliği hücre biçimleriyle birlikte macyrz 0 749 27/06/2016, 10:54
Son Yorum: macyrz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.