Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: VBA'de hücreden aldığı değer kadar dizi oluşturma  (Okunma sayısı 3421 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı myopic68

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Furkan Aktaş
  • Doğum Yılınız: 1999
  • İl / İlçe: Ankara
  • İşletim Sisteminiz: Win10
  • Mesleğiniz: Öğrenci/Sistem Analisti
  • Office Versiyonunuz: Turkey
Merhabalar,
excel VBA'de excelin herhangi bir hücresinden okuttuğum kadar sayıda dizi oluşturmasını sağlayabilir miyim? Mesela hücrede 3 değeri varsa dizi1,dizi2,dizi3 gibi 3 farklı dizi oluşturacak bir yapı kuramamız mümkün mü?

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: VBA'de hücreden aldığı değer kadar dizi oluşturma
« Yanıtla #1 : 05 Temmuz 2020, 09:48:58 »
Merhaba,

Şöyle bir örnek yapılabilir:

Kod: [Seç]
Sub ExcelceDiziOlustur()
Dim Dizi() As Variant
'Veri al
For i = 1 To Range("A1").Value
    ReDim Preserve Dizi(i)
    Dizi(i) = Cells(i, 3).Value
Next i
'Veri oku
For i = 1 To Range("A1").Value
    MsgBox Dizi(i), vbInformation, "Excelce.Net"
Next i
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)