Dizi içerisinde değişken nasıl kullanabilirim?

  • Konuyu başlatan Konuyu başlatan merakli
  • Başlangıç tarihi Başlangıç tarihi
merakli

Kısa Açıklama

Dizi içerisinde değişken nasıl kullanabilirim? isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,
VBA da yeniyim

Alttaki gibi bir Sub içerisinde
Ndf olarak tanımlanan dizi değişkenin elemanlarının başındaki rakam olan 1 i intTestNo değişkeninin değerinden almasını istiyorum.

intTestNo = Sheets("ADO").[AC6].Text

Ndf = Array("1_Matematik.xlsm", "1_Türkçe.xlsm", "1_Fen.xlsm", "1_İnkılap.xlsm", "1_İngilizce.xlsm", "1_Din.xlsm")

Bunun için diziyi en mantıklı ne şekilde yazmalıyım?

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(14 satır)
 
Filtrede belirli isim haricindeki satırları silme
İşaretli satırları başka sayfaya kopyalama
Tarihe göre sırala Oylamaya göre sırala
Merhabalar Sn. @merakli
Kod içindeki bu satırı
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

bu satır ile değiştiriniz.
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
 
Oyla 0 Olumsuz oyla
Alternatif;

Ndf = Array("_Matematik.xlsm", "_Türkçe.xlsm", "_Fen.xlsm", "_İnkılap.xlsm", "_İngilizce.xlsm", "_Din.xlsm")

Sonra döngü içindeki altta ki satırı revize edebilirsiniz.

Connect_xls ThisWorkbook.Path & "\" & intTestNo & Ndf(i)
 
Oyla 0 Olumsuz oyla
Korhan AYHAN' Alıntı:
Alternatif;

Ndf = Array("_Matematik.xlsm", "_Türkçe.xlsm", "_Fen.xlsm", "_İnkılap.xlsm", "_İngilizce.xlsm", "_Din.xlsm")

Sonra döngü içindeki altta ki satırı revize edebilirsiniz.

Connect_xls ThisWorkbook.Path & "\" & intTestNo & Ndf(i)
Genişletmek için tıklayın ...

Evet bu açıdan bakmamıştım.
Teşekkürler.


VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(14 satır)

Bu şekilde daha mantıklı.
 
Moderatörün son düzenlenenleri:
Oyla 0 Olumsuz oyla
Konuyla ilgili bir başka şey danışmak istiyorum.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(14 satır)

Recup sub'ın içinde T = Select_Db(Req, 0)
şeklinde olan kısmın döndürdüğü veriyi nasıl görebilirim.

T = Select_Db(Req, 0)

msgBox T

şeklinde denediğimdebir sonuç döndürmedi sanki


Select_Db fonksiyonu aşağıdaki şekilde...
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(32 satır)
 
Oyla 0 Olumsuz oyla
Bahsettiğiniz fonksiyon sanırım bir veri dizisi döndürüyor. Bu sebeple siz sonucu bir listbox üzerinde görüntüleyebilirsiniz.

Ya da dizinin elemanlarını MsgBox üzerinde gösterebilirsiniz.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst