بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
اكسل | انشاء باركود
على الاكسل يستجيب لة الماسح الضوئى وكيفية عمل SKU – Code
سوف نتعلم اليوم كيفية انشاء SKU او بمعنى اوضح وحدة حفظ المخزون وكيفية ترجمة هذة الرموز الى باركود يتعرف علية جهاز الماسح الضوئى ومعرفة طريقة عمل وانشاء الباركود فى الاكسل يقبلة جهاز الباركود
فى البداية ماهو معنى SKU
وحدة حفظ المخزون (SKU) Stock Keeping Unit وهى عبارة عن رمز فريد من نوعة قابل للمسح
الضوئى Barcode يتم لصقة على المنتجات
فى متاجر البيع بالجملة او التجزئة
ويتكون هذا الرمز من عدة حروف وارقام تعبر عن صفات ومعلومات عن المنتج مثل الشركة المنتجة والمقاس واللون والفئة ويتكون عادة من 6 الى 18 حرف
ما هي أماكن استخدام وحدات حفظ المخزون؟
تستخدم وحدة حفظ
المخزون بشكل أساسي في:
- المستودعات.
- متاجر البيع بالتجزئة.
- الكتالوجات.
- مراكز استيفاء المنتجات.
- بائعي التجارة الإلكترونية.
ما هي طريقة إنشاء رموز وحدة حفظ المخزون SKU؟
تتبع كل شركة طريقة
خاصة بها في إنشاء وحدات حفظ المخزون SKU لمنتجاتها، ولا توجد طريقة مُثلي أو طريقة غير صحيحة
ولكن هناك أفضل الممارسات التي تساعد على إنشاء رمز بشكل جيد، وهي:
- اجعل كل رمز فريدًا بذاته ولا تقم أبدًا بإعادة استخدام نفس الرمز مع منتجين مختلفين حتى لو كانوا من نفس النوع.
- اعتمد على رموز تخزين قصيرة قدر الإمكان، يكون من الصعب قراءة رموز التخزين التعريفية الطويلة وقد لا تعمل في بعض أنظمة إدارة المخزون.
- لا تستخدم مسافات أو أحرف خاصة. يمكن أن يؤدي إنشاء SKU بمسافات أو أحرف خاصة إلى إرباك الأشخاص.
- لا تستخدم حروفًا يمكن الخلط بينها وبين الأرقام مثل O و0.
سنقوم فى هذا المثال مثلا متجر لبيع الاحذية
وكل حذا ء لة ماركة معينة ولون محدد ومقاس
معين وهل هو رجالى او حريمى
كل هذة البيانات سوف ناخذ منها بعض الحروف لتكون موجودة على الباركود الخاص بالمنتج
اذن كيف سنقوم بعمل مثل هذا الباركود كيف نصنع الباركود
عندنا مثلا فى الصورة اسفل فورم مكون من كل هذة المعلومات المطلوبة للمنتج
ماهى الدالة التى تقوم بعمل هذا الكود
الدالة LEFT
بناء الجملة
LEFT(text, [num_chars])
تحتوي بناء جملة الدالة على الوسيطات التالية:
ونقوم باستخدام الدالة LEFT للقيام بعمل SKU او وحدة حفظ المخزون من خلال الكود التالى
الكود
Private
Sub CommandButton1_Click()
تعريف المتغيرات
Dim
lr As Long
lr
= [a1000].End(xlUp).Row
Range("a"
& lr + 1).Value = Left(Me.TextBox1.Value, 3) & "-" &
Left(Me.TextBox2.Value, 3) & "-" & Me.TextBox3.Value &
"-" & Left(Me.ComboBox1.Value, 1)
كود ترحيل جميع بيانات المنتج الى شيت الاكسل
Range("b"
& lr + 1).Value = Me.TextBox1.Value
Range("c"
& lr + 1).Value = Me.TextBox2.Value
Range("d"
& lr + 1).Value = Me.TextBox3.Value
Range("e"
& lr + 1).Value = Me.ComboBox1.Value
Range("f"
& lr + 1).Value = Me.TextBox4.Value
MsgBox
"Done", vbInformation
تفريغ التكست بوكس من البيانات
Me.TextBox1
= ""
Me.TextBox2
= ""
Me.TextBox4
= ""
Me.TextBox3
= ""
Me.ComboBox1
= ""
End Sub