ترقيم تلقائي بشروط

[اسلام يونس]

السلام عليكم

احب اشكر مبرمجي الاكسيل على الشغل المبذول

جزاكم الله خيرا

اريد كود ترقيم تلقائي بشرط ان يبدا 1 شهر سنة

وهكذا

مثال

1 شهر a

1a18

2a18

وهكذا

2 شهر b

1b18

2b18

تعريف الشهور من a الى l ابجدي 

12  حتى شهر

18 ترمز للسنة

ارجو المساعدة والاجابة هل تنفع هذه الطريقة اما لا

نقاش

Sub S_Sn()
Dim NaNa As Integer
Set Frm = Zad_Form
Set SH = Sheet1
With Frm
.Txt1.Value = ""
NaNa = 2
      Do Until SH.Cells(NaNa, "a").Text = ""
        NaNa = NaNa + 1
    Loop
    .Txt1.Value = NaNa + 1 - 2
End With: End Sub

[سليم حاصبيا]

جرب هذا الملف

 

Crazy_date.xlsx

[اسلام يونس]

1 hour ago, سليم حاصبيا said:

جرب هذا الملف

 

Crazy_date.xlsx

بشكرك جدا على تعبك

ولكن ممكن الشهر الواحد يكون في اكتر من

50a18

مثلا

واريدها كود برمجي VBA

شكرا مرة تانية

جزاك الله خيرا

 

[اسلام يونس]

الكود ترقيم تلقائي خلال شهر واحد 

يبدء 

1a18

الي 

ما لا نهاية

وعندما يبدء شهر 2

1b18

هكذا

تم تعديل مايو 15, 2018 بواسطه اسلام يونس