Değişken

Katılım
24 Kasım 2007
Mesajlar
769
Excel Vers. ve Dili
Office 365 - Türkçe
Altın Üyelik Bitiş Tarihi
30-01-2024
Merhaba daha önce yapılmış bir makroyu kendimce düzeltmeye çalışıyorum. Fakat aşağıdaki değişken ifadeler kullanılmış Anlayamadım
Global olarak yazılanlar, sayfa içinde bir hücreye atıfta bulunmak için yapılmış. Onu anladım
Fakat Dim tr(100, 12) nedir veya Dim ariza(25) --> Bunlar bir hücre değil, sheette ki ad değil.

Kod:
Global ay, r8, c8, zon, r1, c1, r2, c2, r3, c3, r4, c4, r5, c5, r6, c6, r7, c7, r9, c9, r10, c10, r11, c11, r12, c12, r, c, r13, c13, r14, c14, r15, c15, sztr, sztk
Dim tr(100, 12), tf(100, 12), tap(100, 12), tai(100, 12), tnr(100, 12), nprtr(100, 12), nprtnr(100, 12), npb(100, 12), npt(100, 12), nap(100, 12), nai(100, 12), tbf(100, 12), tfd(100, 12), tp(100, 12), taf(100, 12), tae(100, 12)
Dim taim(100, 12), tais(100, 12), taia(100, 12), np(100, 12), naf(100, 12), nae(100, 12), naim(100, 12), nais(100, 12), naia(100, 12)
Dim ro(25), dop(25), dp(25)
Dim ariza(25), fonk(25), kullanim(25), arabayok(25), tikanma(25), digerendirekt(25), kismicalisma(25)
Dim cevrimzamaniortalama(25), calismazamani(25), cevrimzamaniasma(25), tcref(25), hedefaraba(25)
Dim meno(100, 25)
Dim sztf(33), sztbf(33), sztp(33), sztais(33), sztaim(33), sztaia(33), sztfd(33), sztae(33), sztaf(33)
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,369
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Makro kodunun içinde mesela GLOBAL olarak tanımlanan "ay" değişkeni kullanılıyor olması gerekir. Diğerleride aynı şekilde olmalıdır.

Dim tr(100, 12) bu tarz olanlar ise DİZİ olarak tanımlanan işlemlerdir. Bunların hepsi makronun bir yerinde kullanılıyor olması gerekir.
 
Katılım
24 Kasım 2007
Mesajlar
769
Excel Vers. ve Dili
Office 365 - Türkçe
Altın Üyelik Bitiş Tarihi
30-01-2024
Makro ekteki dosyadadır
Global kısmında r1=row1, c1=column1 olarak kullanmış

Mesela --> Dim meno(100, 25) demiş. Fakat aşağıda kodda sanki hücre gibi kullanmış
For i = 1 To 100
meno(i, 1) = Cells(r1 + 2, c1 + 1 + i)
If Cells(r1 + 1, c1 + 1 + i) = 1 Then
meno(i, 2) = True
Cells(sztr + i, 1) = meno(i, 1)
 

Ekli dosyalar

  • 40.6 KB Görüntüleme: 1

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,369
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bunlar kodlara hız kazandırmak için kullanılan dizi teknikleridir. İşlemler RAM üzerinden yapıldığı için daha iyi sonuç vermesi amaçlanmıştır.
 
Üst