اذهب الي المحتوي
أوفيسنا

كود الترقيم التلقائي بالجملة


الردود الموصى بها

السلام عليكم أحبابي أعضاء ورواد المنتدى

 

أطلب من  رواد المنتدى مساعدتي في إيجاد كود يقوم بالترقيم التلقائي مباشرة في العمود "A" بعد لصق مجموعة من الكلمات في العمود

"B

 

شكرامسبقا

رابط هذا التعليق
شارك

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    For x = 2 To Range("b65536").End(xlUp).Row
        If Cells(x, "b") <> "" Then
        Cells(x, "A") = Cells(x - 1, "A") + 1
        End If
    Next
End If
End Sub

 

اثراءا للموضوع حل اخر بالاكواد لتجنب كتابة المعادلات في كل خلية

لعله يفى بالغرض

 

H-Classeur1.rar

تم تعديل بواسطه حسين العصلوجى
رابط هذا التعليق
شارك

اخى الحبيب حسين

بارك الله فيك

ولكن اسمح لى

هذا تعديل بسيط

على الكود تفاديا لحدوث الاخطاء

فى حالة ترك خليه فارغهH-Classeur1.rar

رابط هذا التعليق
شارك

جزاك الله خيرا علي مجهودك بس لاحظت وجود خطأ فالكود فعند ترك خلية فارغة يقوم بعمل ترقيم خاطئ فهو يبدأ من 1 وليس من اخر رقم

 

ان شاء الله باعدل الكود اللي انت حطيته عشان نتلاشي هذا الخطأ وتعم الفائدة

رابط هذا التعليق
شارك

وبناء على طلب الأخ الكريم 

aspiran

فقد حولت الملف لأوفيس 2003

ومرحبا بك أخي بين أعضاء المنتدى 

ترقيم تلقائي 2003xlsm.rar

كود 3ترقيم تلقائي 2003.rar

رابط هذا التعليق
شارك

بارك الله فيك أستاذ

أبو محمد أشرف و أشكرك على الإستضافة

لكن لدي إستفسار لو سمحت هل تحويل الملفات من 2007 أو.....إلى 2003 يكون ببرنامج أم ماذا لأني لم أعمل بالإصدارات الأخيرة

 

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

رابط هذا التعليق
شارك

تفضل أخي الحبيب هذا المرفق شرح حفظ ملف 2007 أو 2010 بتنسيق 2003

وعذرا على التأخر لمشاكل عندي في الانترنت

http://www.4shared.com/rar/1sHPlrVF/___2007__2010___2003.html

رابط هذا التعليق
شارك

تفضل أخي الحبيب هذا الرابط شرح حفظ ملف 2007 أو 2010 بتنسيق 2003

وعذرا على التأخر لمشاكل عندي في الانترن

http://www.4shared.com/rar/1sHPlrVF/___2007__2010___2003.htmlت 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information