عبدالله فريد قام بنشر أبريل 17, 2020 مشاركة قام بنشر أبريل 17, 2020 السلام عليكم هل من الممكن ادراج تسلسل تلقائي للحروف العربية او الانجليزية بدل من الارقام يعني أ ب ت متسلسل او A B C رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر أبريل 17, 2020 أفضل إجابة مشاركة قام بنشر أبريل 17, 2020 وعليكم السلام-على الرغم انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة , الا انى قمت بتصميم هذا لك , بداخل الملف طريقة عمل التسلسل بمعادلة عادية وطريقة أخرى بدالة معرفة Dynamic Serial by Letters.xlsm 4 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 17, 2020 مشاركة قام بنشر أبريل 17, 2020 الأخ علي لا لزوم لهذه المعادلة الطويلة (لادراج من 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 6 رابط هذا التعليق شارك More sharing options...
عبدالله فريد قام بنشر أبريل 17, 2020 الكاتب مشاركة قام بنشر أبريل 17, 2020 السلام عليكم اخي Ali Mohamed Ali جزاك الله خيرا لم ارفع ملف لانه الموضوع مو بحالى رفع ملف لانه هو عبارة عن معلومة كما كنت اعتقد ولكن جزاك الله خيرا اخي سليم حاصبيا مششششكور جدا ك اول معادلة اشتغلت بشكل رائع ولكن حسب الملف المرفق من قبلكم وعند التنفيذ اللغة العربية تتحول اهادا الشكل ما هو سبب ذلك و جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 17, 2020 مشاركة قام بنشر أبريل 17, 2020 يبدو ان اللغة العربية غير مثبتة عندك في برمجة الــVBA شاهد هذه الفيديو لحل المشكلة https://www.youtube.com/watch?v=hElkHVLg7a4 2 رابط هذا التعليق شارك More sharing options...
عبدالله فريد قام بنشر أبريل 17, 2020 الكاتب مشاركة قام بنشر أبريل 17, 2020 تم صحيح كلامك جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
abanoub zaki قام بنشر يوليو 18, 2020 مشاركة قام بنشر يوليو 18, 2020 السلام عليكم ورحمة الله وبركاته اخواتى الأعزاء انا كتبت الدالة دي في الاكسيل =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 احتمال اريد طريقة لمعرفة جميع الاحتمالات هذه و شكراً مقدما لكم و الرجال تقبل مرورى رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 18, 2020 مشاركة قام بنشر يوليو 18, 2020 حرب هذا الملف Columns_list.xlsx رابط هذا التعليق شارك More sharing options...
abanoub zaki قام بنشر يوليو 18, 2020 مشاركة قام بنشر يوليو 18, 2020 تمام اخى كتبت القيمه 17576 ولكنه لم يصل اليها https://prnt.sc/tk9ar9 انظر الصورة بعد هذا يعطي خطأ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 18, 2020 مشاركة قام بنشر يوليو 18, 2020 1 ساعه مضت, abanoub zaki said: تمام اخى كتبت القيمه 17576 ولكنه لم يصل اليها https://prnt.sc/tk9ar9 انظر الصورة بعد هذا يعطي خطأ XFD هو اخر عامود في في صفجة الاكسل و هل تريد اكثر من 16384 رقم متسلسل 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها