Aylar Döngüsü

[Tasarım]

- Arkadaşlar iki günden beri forumda arıyorum bir türlü bulamadım. Eğer varsa linkini verebilirsiniz.
- Benim 1 adet userformum var ve üzerinde 12 adet Label var, bunlara 1. den itibaren ayları yazdırmak istiyorum.
- Örneğin:
- 1. Label içinde bulunduğumuz aydan itibaren yazmasını istiyorum.
- 1. Label=Mart
- 2. Label=Nisan
- 3. Label=Mayıs

vs vs. şeklinde yılın son ayına kadar yazmasını istiyorum.

- Böyle bir döngüye ihtiyacı var.

- Yardımcı olacak arkadaşlara şimdiden teşekkür ediyorum.

 

[systran]

labellerin isimleri ne?
label1, label 2 diye sırayla mı gidiyor?

 

[Tasarım]

- Labellerin isimleri ay1, ay2, ay3, ay4 vs. şeklinde devam ediyor..

 

[systran]

şu kodu dener misin? bulunduğumuz aydan itibren 12 ay adını yazar.

For i = 1 To 12
Controls("ay" & i).Caption = MonthName(Month(Date) + (i - 1))
Next

 

[Tasarım]

şu kodu dener misin? bulunduğumuz aydan itibren 12 ay adını yazar.

For i = 1 To 12
Controls("ay" & i).Caption = MonthName(Month(Date) + (i - 1))
Next

- "Invalid procudure call or argument" hatası verdi üstad

 

[systran]

- Labellerin isimleri ay1, ay2, ay3, ay4 vs. şeklinde devam ediyor..

label isimleri ile captionları karışmış olmasın?
Label NAME özelliği ay1 mi Label1 diye mi gidiyor?

 

[Murat OSMA]

Deneyiniz..

[FONT="Trebuchet MS"]For i = Month(Date) To 12
    Controls("Label" & i - Month(Date) + 1).Caption = MonthName(i, False)
Next i[/FONT]

 

[Tasarım]

label isimleri ile captionları karışmış olmasın?
Label NAME özelliği ay1 mi Label1 diye mi gidiyor?

- Userformun üzerinde başka Labeller daha olduğu için bunları ay1, ay2, ay3, ay, ay5, ay6, ay7, ay8, ay9, ay10, ay11 ve ay12 olarak adlandırmıştım.

 

[Tasarım]

Deneyiniz..

[FONT="Trebuchet MS"]For i = Month(Date) To 12
    Controls("Label" & i - Month(Date) + 1).Caption = MonthName(i, False)
Next i[/FONT]

- Murat kardeşim teşekkür ederim. "Label" yazan yeri "ay" yapınca çalıştı fakat en altta iki adet bölüm boş kaldı. Oraya da Ocak ve Şubat yazdırmam mümkün mü?

 

[Murat OSMA]

Son iki Label'in yerini değiştirin ve bu kodları kullanın;

[FONT="Trebuchet MS"]For i = Month(Date) To 12
    Controls("Label" & i - Month(Date) + 1).Caption = MonthName(i, False)
    [COLOR="Red"]Controls("Label" & i).Caption = MonthName(13 - i, False)[/COLOR]
Next i[/FONT]

 

[Tasarım]

Son iki Label'in yerini değiştirin ve bu kodları kullanın;

[FONT="Trebuchet MS"]For i = Month(Date) To 12
    Controls("Label" & i - Month(Date) + 1).Caption = MonthName(i, False)
    [COLOR="Red"]Controls("Label" & i).Caption = MonthName(13 - i, False)[/COLOR]
Next i[/FONT]

- Harika bir insansın.
- Teşekkür ederim.

 

[Murat OSMA]

Eksik olmayın.

Iyi akşamlar. ..

 

[vardar07]

Son iki Label'in yerini değiştirin ve bu kodları kullanın;

[FONT="Trebuchet MS"]For i = Month(Date) To 12
    Controls("Label" & i - Month(Date) + 1).Caption = MonthName(i, False)
    [COLOR="Red"]Controls("Label" & i).Caption = MonthName(13 - i, False)[/COLOR]
Next i[/FONT]

Merhaba Murat bey "Son iki Label'in yerini değiştirin" çözümü yerine "Controls("Label" & i).Caption = MonthName(13 - i, False)" kısmında değişiklik yapabilmek için dünden beri uğraştım ancak nafile. Nedeni PC Tarihini 1 ay öncesine yada sonrasına alınca doğru sonuç vermiyor. Hata benim PC demi.