كتابة أكواد منتجات تسلسلي

[Saleh89]

السلام عليكم

أول مشاركة وأول موضوع ^_^

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

مقاس الكرت تقريباً = (الطول: 2.5 سم) و (العرض: 4.2 سم).

الفكرة كالتالي:

لدي عدة أصناف (1, 2, 3, الخ...) وأريد كتابة أكواد لكل صنف يبدأ الترقيم من (100,000)

حيث أن الصنف (1) سيحمل الرقم (100,000) وأريد منه (200) كرت كلهم يحمل الرقم (100,000)

الصنف (2) سيحمل الرقم (100,001) وأريد منه (577) كرت كلهم يحمل الرقم (100,001).

وهكذا...

 

قمت بالفصل بين الخلايا بخلايا لاجل عندما أقوم بتقطيع الكروت.. هل ملفي أعلاه صالح للفكرة؟

هل لديكم أي اقتراح؟؟

 

شاكر تعاونكم 

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي

Sub Test()
    Dim iRow    As Long
    Dim iCol    As Long
    Dim iCount  As Long
    
    Application.ScreenUpdating = False
        For iRow = 2 To 20 Step 3
            For iCol = 1 To 17 Step 2
                Cells(iRow, iCol).Value = 100000 + iCount
                iCount = iCount + 1
            Next iCol
        Next iRow
    Application.ScreenUpdating = True
End Sub