عمل تسلسل تلقائي بالحروف بدلاً من الأرقام

[عبدالله فريد]

السلام عليكم 

هل من الممكن ادراج تسلسل تلقائي للحروف العربية او الانجليزية بدل من الارقام  

يعني 

أ 

ب

ت 

متسلسل

او 

A

B

C

 

 

 

[Ali Mohamed Ali]

وعليكم السلام-على الرغم انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة , الا انى قمت بتصميم هذا لك , بداخل الملف طريقة عمل التسلسل بمعادلة عادية وطريقة أخرى بدالة معرفة

Dynamic Serial by Letters.xlsm

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

الأخ علي لا لزوم لهذه المعادلة  الطويلة (لادراج من A الى Z )

تكفي هذه

=IF(ROWS($A$1:A1)>26,"",CHAR(64+ROWS($A$1:A1)))

 

ربما تنفع هذه الثلاث كودات

Option Explicit

Sub insert_arab()
Dim i%, k%
Dim arr()
k = 0
Range("A1").CurrentRegion.ClearContents
arr = Array(1, 2, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, _
   18, 19, 20, 21, 23, 24, 25, 27, 29, 30, 31, 32, 39)
  For i = LBound(arr) To UBound(arr)
    Range("A" & i + 1) = Chr(198 + arr(k))
     k = k + 1
  Next
End Sub
'++++++++++++++++++++++++++++++++++++
Sub insert_Cap()
Range("C1").CurrentRegion.ClearContents
Dim i%
  For i = 1 To 26
     Range("C" & i) = Chr(64 + i)
  Next
End Sub
'++++++++++++++++++++++++++++++++++++++++++
Sub insert_Small()
Range("F1").CurrentRegion.ClearContents
Dim i%
  For i = 1 To 26
   Range("F" & i) = Chr(96 + i)
  Next
End Sub

الملف مرفق

ALPHABET.xlsm

[عبدالله فريد]

السلام عليكم 

اخي Ali Mohamed Ali

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

لم ارفع ملف لانه الموضوع مو بحالى رفع ملف لانه هو عبارة عن معلومة كما كنت اعتقد 

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

 

اخي سليم حاصبيا     

مششششكور جدا 

ك اول معادلة اشتغلت بشكل رائع 

ولكن حسب الملف المرفق من قبلكم وعند التنفيذ اللغة العربية تتحول اهادا الشكل 

ما هو سبب ذلك 

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

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

يبدو ان اللغة العربية غير مثبتة عندك في برمجة الــVBA

شاهد هذه الفيديو لحل المشكلة

https://www.youtube.com/watch?v=hElkHVLg7a4

 

[عبدالله فريد]

تم 

صحيح كلامك 

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

[abanoub zaki]

السلام عليكم ورحمة الله وبركاته اخواتى الأعزاء 

انا كتبت الدالة دي في الاكسيل 

=IF(ROWS($A$1:A1)>26,"",CHAR(64+ROWS($A$1:A1)))

و هي لا تتخطي من a to z

هل يوجد طريقة لأيصالها الى zzz

بمعني انها تكتب من a الى z ومن ثمن من aa الى zz و في النهاية من aaa الى Zzz

او هل يوجد أي طريقة أخرى لنسخ هذه الاحتمالات بسهوله و اعتقد انه عددها راح يكون 26x26x26 = تقريبا ب 17.576 احتمال

اريد طريقة لمعرفة جميع الاحتمالات هذه

و شكراً مقدما لكم و الرجال تقبل مرورى

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

حرب هذا الملف

 

 

Columns_list.xlsx

[abanoub zaki]

تمام اخى كتبت القيمه 17576 ولكنه لم يصل اليها 

https://prnt.sc/tk9ar9

انظر الصورة بعد هذا يعطي خطأ

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

1 ساعه مضت, abanoub zaki said:

تمام اخى كتبت القيمه 17576 ولكنه لم يصل اليها 

https://prnt.sc/tk9ar9

انظر الصورة بعد هذا يعطي خطأ

XFD هو اخر عامود في في صفجة الاكسل و هل تريد اكثر من 16384 رقم متسلسل