بحثت ولم اجد كود لقارئ الباركود

[أحمد مزهر]

السلام عليكم ورحمة الله ..

 

بحثت في المنتدى لكن لم اجد كود معين لقارئ الباركود ..

 

هل فيه اصلا كود له ام لا ؟؟

 

اذا كان فية فتكفون لا تحيروني كثير ابيها على هذا الموضوع ما ابي احد يقول لي راجع موضوع لاني انحست   ..

 

 

[خزاني]

قد يكون إجابة سخيفة ولكن ناجحة
 EAN13تحويل الى الباركود

Range("D2").Select
    With Selection.Font
        .Name = "Code EAN13"
        .Size = 7
End With

Codebaar.rar

 

[أحمد مزهر]

ممكن شرح عليه لان اعتقد انه في شيء ناقص بالكود ...

[خزاني]

مثال تطبيقي

Codebaar.rar

[أحمد مزهر]

اعتقد انك ما فهمتني ..

 

انا عندي جهاز قارئ الباركود .. وابيه يقرأ لي في ملف اكسل .. بمعنى اذا مررت القارئ على اي باركود يكتبه تلقائي في ملف الاكسل في الخليه A1 ..

[أحمد مزهر]

للرفع

[أحمد مزهر]

للرفع

[أحمد مزهر]

  للرفع

[أحمد مزهر]

للرفع

[اسلام سيد]

السلام عليكم

 

موضوع فعلا نبحث عنه ، فهو مهم وشيق

 

اسال الله ان يفقكم فيه

[ابو تراب]

السلام عليكم

 

ليس لدي قارئ باركود و لكن استخدم جوالي كقارئ للباركود و لا احتاج لبرمجة الاكسل... (قارئ الباركود لديك يفترض ان يعمل بدون برمجة)

 

كل ما اعمله هو اختيار الخلية المراد تخزين الكود فيها و بعدها اعمل سكان للكود فقط.

 

ما يحدث هو ند عمل سكان للخلية و لتكن مثلا A1  يتم ادخال الكود فيها و بعدها يتم تماتيكيا اختيار الخلية التى تليها و هي A2

 

ملاحظة

--------

نسق خلية الباركود بحث تكن تنسيق Number وذلك لسهولة قرائة الارقام

 

جرب المثال المرفق

barcode.zip

[خزاني]

جربة هذا الكود اخي ان كنت تملك جهاز(douchette)قارئ الباركود

 

Function Scanne()

'   *Fonction de récupération du nom labo*
'   --------------------------------------
'Fonction permettant de récupérer le "nom labo" à partir de la douchette. Lorsque l'on scanne,
'le nom apparait dans une inputbox. Celui-ci peut-être récupéré par la fonction qui à appelé
'cette fonction.
'
'Dim Repscan As String
Repscan = InputBox("Veuillez scanner l'instrument ou entrer son nom propre au laboratoire")
    'Boite de dialogue demander de scanner l'instrument
    Scanne = Repscan
End Function

Private Sub CommandButton1_Click()
Range("A" & 1).Value = Scanne
End Sub

[عبدالله فاروق ابو ريان]

 

مثال تطبيقي

Codebaar.rar

 

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

ممكن شرحها كيف عملتها وهل يمكن الرموز كلها تتغير وليس رمزين او ثلاثة

[الزباري]

تابعوا موضوع الباركود على

 

http://www.officena.net/ib/index.php?showtopic=61143&hl=