اسلام يونس قام بنشر مايو 14, 2018 مشاركة قام بنشر مايو 14, 2018 السلام عليكم احب اشكر مبرمجي الاكسيل على الشغل المبذول جزاكم الله خيرا اريد كود ترقيم تلقائي بشرط ان يبدا 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 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 14, 2018 مشاركة قام بنشر مايو 14, 2018 جرب هذا الملف Crazy_date.xlsx 2 رابط هذا التعليق شارك More sharing options...
اسلام يونس قام بنشر مايو 14, 2018 الكاتب مشاركة قام بنشر مايو 14, 2018 1 hour ago, سليم حاصبيا said: جرب هذا الملف Crazy_date.xlsx بشكرك جدا على تعبك ولكن ممكن الشهر الواحد يكون في اكتر من 50a18 مثلا واريدها كود برمجي VBA شكرا مرة تانية جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
اسلام يونس قام بنشر مايو 15, 2018 الكاتب مشاركة قام بنشر مايو 15, 2018 (معدل) الكود ترقيم تلقائي خلال شهر واحد يبدء 1a18 الي ما لا نهاية وعندما يبدء شهر 2 1b18 هكذا تم تعديل مايو 15, 2018 بواسطه اسلام يونس رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.