الرجاء المساعدة يا اساتذتنا الكرام ,, تكملة برمجة بطاقة موظف

[ابو خالد التقني]

السلام عليكم ورحمت الله تعالى وبركاته

 

 

واجهتني بعض الاسئلة والمشاكل عند اكمال برمجة بطاقة موظف

 

1-      ما هي الصلة بين ورقة البطاقة  و وورقة البطاقة 2 .

2-      تكرار البطاقات حسب الرقم التسلسلي في ورقة البطاقة2 .

3-      هل يمكنني اعتبار ان ورقة البطاقة تحتوي على التصميم الاساسي للبطاقة وهل استطيع التعديل عليها وتتعدل كافة البطاقات.

4-      اريد وضع صورة في في خلية الصورة ,,  كيف اربط الصورة بخلية محددة.

5-      هل استطيع تغيير لون خلية  بناء على صيغة  if  الشرطية.

6-      عند زيادة عدد الاسماء في الورقة  البيانات الاساسية الي 1000 اسم وعند تجهيز البطاقات يحصل معي عدة امور :

-          مشكلة في خلية الرقم التسلسلي للموظف كاسم خلية "الرقم التسلسلي"

-          احتاج الى وجود بطاقتين في السطر الواحد بحيث تتسع ورقة (A4) على 10 بطاقات .

-          عند دمجي لعمودي الذكور والاناث في ورقة البيانات الاساسية بعمود واحد يساوي العدد الكلي للاولاد وبعد تعديل الكود الخاص بكل خلية تظهر اخطاء .

7-      في الماكرو الخاص ببرمجة هذه البطاقات هل من الممكن شرح الاكواد المستخدمة ولو شرح بسيط ومختصر حتى يتاح لي التعديل والاضافة  حسب ماهو مطلوب مني.

8-      عمل واجهة بحث عن اسماء فئة معينة من الموظفين حسب المدينة مثلا وتجهيزها على بطاقات وطباعتها, او استخراج بعض الاسماء وتحويلها الى بطاقات وطباعتها .

 

 

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

 

الملف المرفق يحتوي على بعض التعديلات الرجاء المساعدة ودمتم

 

بطاقة موظف5.rar

[ابو خالد التقني]

السلام عليكم 

 

 

وينكم ياجماعة ليش ما حدا رد علينا 

 

وينكم يا  محترفي الاكسل 

 

الاستاذة ام عبدالله و الاستاذ علي المصري 

 

كملو معروفكم معي 

 

شكرا لكم وانتظر ردكم 

[جمال عبد السميع]

تفضل أخى لعله " المطلوب "

تقبل تحياتى

بطاقة موظف.rar

[ابو خالد التقني]

شكرا خي الكريم ع مجهودك 

 

ولكن يحتاج الي بعض التعديل 

 

1- خلية الرقم التسلسلي لا تظهر بشكل نظامي 

2- لا اريد عداد يظهر لي كل 10 بطاقات فقط ,, المطلوب ظهور البطاقات بعدد الاسماء الموجودة في ورقة البيانات 

3- اريد بطاقة اساسية ,, استطيع التعديل عليها متى شئت 

 

وشكرا 

[ابو خالد التقني]

السلام عليكم 

 

الي خبراء الاكسل 

 

الرجاء شرح هذه الاكواد المستخدمة في برمجة البطاقة 

 

'***********************************************

'***********************************************

'     اسم ورقة الشهادات

Const ShName As String = "بطاقة"

'     رقم اول صف للشهادة

Const FirstRow As Integer = 3

'     عدد صفوف الشهادة

Const CountRow As Integer = 10

'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة

Const CountColumn As Integer = 4

' خلية موقع الطالب  لمعادلات الشهادة

Const Range_Index As String = "A3"

'=====================================

'     اسم ورقة البيانات

Const Sh As String = "ورقة1"

' نطاق ناجح دور ثاني في ورقة البيانات

'Const MyND As String = "BK10:BK1000"

' نطاق الاسماء في ورقة البيانات

Const MyNSearch As String = "B4:B904"

 

'=====================================

'   خلية عدد كل المتقدمين

Const CountAll As String = "C2"

'    خلية عدد الناجحين

'Const CountNA As String = "C4"

'   كلمة البحث عن الناجحين

'Const NA_G As String = "ناجح"

'   خلية عدد دور ثاني

'Const CountDT As String = "C5"

'   كلمة البحث عن دور ثاني

'Const DT_G As String = "دور تان"

'************************************************

'************************************************

 

Dim KH_Test As Boolean

Dim MySheet As Worksheet

Sub الكل()

Application.ScreenUpdating = False

kh_ClearContents

With MySheet

    .Range(Range_Index).Value = 1

    Call kh_Test_Fill(.Range(CountAll))

    If KH_Test Then .PrintPreview Else .Range(Range_Index).ClearContents

End With

Application.ScreenUpdating = True

End Sub

'Sub الناجحين()

'Application.ScreenUpdating = False

'kh_ClearContents

'With MySheet

'    Call kh_Test_Fill(.Range(CountNA))

'    If KH_Test Then Call kh_Nd(NA_G): .PrintPreview

'End With

'Application.ScreenUpdating = True

'End Sub

'Sub دور_ثاني()

'Application.ScreenUpdating = False

'kh_ClearContents

'With MySheet

'    Call kh_Test_Fill(.Range(CountDT))

'    If KH_Test Then Call kh_Nd(DT_G): .PrintPreview

'End With

'Application.ScreenUpdating = True

'End Sub

Sub Item_Search()

Dim NN As Integer, R As Integer, C As Integer, RR As Long

NN = form_Search.CM_ListAdd.ListCount

Application.ScreenUpdating = False

kh_ClearContents

With MySheet

    If NN = 1 Then

        .Range(Range_Index).Value = form_Search.CM_ListAdd.List(0, 1)

    Else

        Call kh_AutoFill(NN)

        RR = .Range(Range_Index).Row

        C = .Range(Range_Index).Column

        For R = 0 To NN - 1

            .Cells(RR, C) = form_Search.CM_ListAdd.List(R, 1)

            RR = RR + CountRow

        Next

    End If

    .PrintPreview

End With

 

Unload form_Search

Application.ScreenUpdating = True

End Sub

Sub kh_Test_Fill(MyCel As Range)

If IsNumeric(MyCel) And MyCel.Value > 0 Then

    KH_Test = True

    If MyCel.Value <> 1 Then Call kh_AutoFill(MyCel.Value)

Else

    KH_Test = False

    MsgBox MyCel.Offset(0, -1) & Chr(10) & Chr(10) & MyCel, 524288 + 1048576 + 16, "بيانات غير متوفرة"

End If

End Sub

Sub kh_AutoFill(R As Integer)

Dim SourceRange As Range, fillRange As Range

Dim RR As Long

RR = (R * CountRow)

With MySheet

    Set SourceRange = .Rows(FirstRow).Resize(CountRow)

    Set fillRange = .Rows(FirstRow).Resize(RR)

    SourceRange.AutoFill fillRange, xlFillDefault

    .PageSetup.PrintArea = .Range("B" & FirstRow).Resize(RR, CountColumn).Address

End With

End Sub

Sub kh_Nd(Nd As String)

Dim MyRng As Range

Dim R As Integer, C As Integer, RR As Long

Set MyRng = Sheets(Sh).Range(MyND)

With MySheet

    RR = .Range(Range_Index).Row

    C = .Range(Range_Index).Column

End With

With MyRng

    For R = 1 To .Rows.Count

        If .Cells(R, 1) = Nd Then

            MySheet.Cells(RR, C) = R

            RR = RR + CountRow

        End If

    Next

End With

End Sub

Sub kh_ClearContents()

Dim T As Long

Set MySheet = Sheets(ShName)

With MySheet

    .Range(Range_Index).ClearContents

    T = .UsedRange.Rows.Count

    .Rows(FirstRow + CountRow).Resize(T).Delete

    Application.GoTo .Range(Range_Index), True

End With

End Sub

Sub kh_Delete()

Application.ScreenUpdating = False

kh_ClearContents

Application.ScreenUpdating = True

ThisWorkbook.Save

MsgBox "تم مسح الشهادات وحفظ العمل", vbMsgBoxRight, "الحمد لله"

End Sub

'Sub معاينة()

'Sheet3.PrintPreview

'End Sub

Sub Kh_Search()

Load form_Search

With form_Search

    .Tag = Sh

    .CM_TextFind.Tag = MyNSearch

    .Show

End With

End Sub

[hesham rayan]

برجاء إرفق ملف

[ابو خالد التقني]

هذا هو الملف وارجو شرح تعليمات واكواد VBA  المستخدمة 

 

واحتاج الى اكمال هذه البطاقة اذا سمحتم 

 

1- مشكلة في خلية الرقم التسلسلي  عند تجهيز البطاقات 

2- احتاج الى وجود بطاقتين في كل سطر بحيث تحتوي كل صفحة A4  على عشر بطاقات 

3- عند تجهيز البطاقات يجب عمل بطاقات على عدد الاسماء الموجودة ,, لا اريد عداد يظهرلي 10 بطاقات فقط 

4- اريد وضع صورة  موحدة لجميع البطاقات في خلية (صورة)

 

وشكرا لكم جميعا 

 

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

 

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

 

بطاقة موظف6.rar

[ابو خالد التقني]

السلام عليكم 

 

الرجاء المساعدة ياشباب الرجاء المساعدة 

 

في شرح الكود واكمال البطاقة 

 

 

[علي المصري]

هذه الأكواد للعلامة خبور خير

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

وعرض موضوع التعديل في الموضوع

وحتى الآن لم يجيب احد على عملية تعديل الكود لكي نتمكن من عمل بطاقتين بجوار بعض

[ابو خالد التقني]

السلام عليكم 

 

شكرا استاذ علي ع المعلومات والافادة 

 

وصلت الى حل مبدأي بخصوص ظهور البطاقات بشكل ثنائي 

 

ولكن بقيت عندي مشكلة واحدة وهي تكرار البطاقة الثانية  وهكذا 

 

واحتاج الى وضع صورة اوشعار مشترك لكل البطاقات الرجاء افادتي من معلوماتكم القيمة 

 

الرجاء مساعدتي لاكمال هذه البطاقة لانني بامس الحاجة اليها 

 

ولكم جزيل الشكر والدعاء 

 

الملف بالحالة التي وصلت اليها بالمرفقات 

بطاقة موظف7.rar

[ابو خالد التقني]

السلام عليكم 

 

اين الخبراء اين المبدعين ... وينكم ياجماعة الخير 

 

نداء موجه للعلامة خبور خير 

 

وصلت الى حل مبدأي بخصوص ظهور البطاقات بشكل ثنائي 

 

ولكن بقيت عندي مشكلة واحدة وهي تكرار البطاقة الثانية  وهكذا 

 

واحتاج الى وضع صورة اوشعار مشترك لكل البطاقات الرجاء افادتي من معلوماتكم القيمة 

 

الرجاء مساعدتي لاكمال هذه البطاقة لانني بامس الحاجة اليها 

 

ولكم جزيل الشكر والدعاء 

 

الملف بالحالة التي وصلت اليها 

 

http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=81143

تم تعديل سبتمبر 20, 2014 بواسطه mohammad.bigheart

[محمود_الشريف]

أخى الكريم

اليكم نموذج بالمرفقات 

محاولة منى للوصول لمرادك (( سريعا ))

وضع صورة موحده بالبطاقات

تجد مجلد اسمه بطاقات الموظفين بعد فك الضغط

تجد بداخله مجلد + ملف الاكسل 

المجلد الداخلى به صورة ( اسمها رقم 1 )

طريقة العمل

فتح ملف الاكسل تضع بخليه L1  رقم الصورة 

مطلوب منك تكمله المعادله الموجوده بالعمود M كما هو موضح لك بملف الاكسل الخاص بك

أتمنى أن تكون محاولة جيده منى للوصول لمرادك 

وتقبل منى وافر الاحترام والتقدير 

بطاقات الموظفين.rar

[علي المصري]

استاذنا الفاضل محمود الشريف

 

شكرا جزيلا  وبارك الله فيك

ولكني

 

قمت بهذه المحاول من قبل ولكني واجهت نفس مشكلة تكرار البطاقة مرتين

 

ففكرت في تعديل الكود بحيث يكون في كل مرة يزيد 2 وليس 1

وبالتالي سوف تظبط النتيجة

ولكني فشلت في التعديل

 

 

فهل من مجيب  لنا يتمكن من التعديل على الكود

[علي المصري]

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

إليكم يا سادة الحل لهذه المشكلة

 

تجدها في المرفقات

بطاقة موظف8.rar

[عبدالله باقشير]

السلام عليكم

 

على السريع تم الترقيم في الخلية A3  بمعادلة

 

شاهد المرفق 2010

بطاقة موظف7.rar

[ابو خالد التقني]

وعليكم السلام ورحمت الله وبركاته 

 

جزاكم الله كل خير اخوتي: الاساتذة

 

محمود_الشريف

  على الحل لمشكلة وضع صورة مشتركة لكل البطاقات 

ولكنني احتاجها بطريقة اتوماتيكية ومرتبطة بشكل جيد مع البطاقة

علي المصري

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

 

عبدالله باقشير

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

ولكن بقيت مشكلة الصورة ,,, احتاج الى ظهورها وتكرارها مع نموذج البطاقة حيث ان الاخ محمود الشريف  ادرج  طريقة لوضع صورة مكررة 

للبطاقات ولكنها تحتاج الى تكمله المعادله الموجوده بالعمود M   وبالتالي تحتاج الى جهد في حال كان عدد البطاقات كبير 

الرجاء الافادة من معلوماتكم القيمة ,,, وحبذا لو كان هناك شرح  للتعديلات والاضافات التي تقومون بها وشكرا 

تم تعديل سبتمبر 22, 2014 بواسطه mohammad.bigheart

[عبدالله باقشير]

السلام عليكم

على السريع

شاهد المرفق 2010

بطاقة موظف7.rar

[ابو خالد التقني]

وعليكم السلام ورحمت الله تعالى وبركاته

 

شكرا جزيلا استاذنا الغالي  عبدالله باقشير

 

وصلت الى المطلوب. 

 

سؤال: هل استطيع طباعة 10000 بطاقة في هذا التصميم؟

وهل يمكن ان تشرح لنا ولو شرح بسيط للكود المستخدم ؟

 

ولك مني فائق الاحترام والتقدير 

[ابو خالد التقني]

السلام عليكم 

 

اتمنى ان يكون الجميع بخير وعافية 

 

طلب واستفسار من استاذنا الغالي عبدالله باقشير

 

استاذي القدير : بعد ان وصلت الى مطلوبي البطاقة بالشكل الذي اريد 

 

اضفت وعدلت قليلا على التصميم والبيانات 

 

وواجهتني بعض المشاكل وارجو مساعدتي لحلها وهي:

 

1-عند فتح الملف تظهر رسالة محتواها في الصورة المرفقة 

 

2- بعد ان اجهز عدد من البطاقات واطبعها..وبعدها عند المسح والحفظ لا تمسح الصور من كافة البطاقات تبقى الصور متراكمة فوق بعضها. 

 

3- يوجد في ورقة البيانات 10 اسماء اريد طباعة بطاقات لها وعند التجهيز والمعاينة يظهر 24 بطاقة 

 

4- هل يمكن شرح هذا الكود   =(((ROW()-3)/12)*2)+1 حيث عدلته الى 12 بدل 10  هل هو عدد اسطر البطاقة ؟

 

 

واستفسار : هل يمكنني طباعة 10000 بطاقة دفعة واحدة 

 

ولك مني جزيل الشكر 

 

الملف بالمرفقات 

8بطاقة موظف.rar

تم تعديل سبتمبر 25, 2014 بواسطه mohammad.bigheart

[عبدالله باقشير]

السلام عليكم
 

 

1-عند فتح الملف تظهر رسالة محتواها في الصورة المرفقة

 

 

في عندك في الملف اسماء نطاقات مرتبطة بملفات اخرى

على العموم تم حذف هذه الاسماء ولم تظهر الرسالة

 

2- بعد ان اجهز عدد من البطاقات واطبعها..وبعدها عند المسح والحفظ لا تمسح الصور من كافة البطاقات تبقى الصور متراكمة فوق بعضها.

 

 

الذي كان في الملف السابق ليست صورة وانما شكل تلقائي تم تعبئته بصورة

وانت قمت بتغييره الى صورة  وكود الحذف مشروط بان يكون شكل تلقائي لهذا لا يتم التعرف على الصورة ويبقيها بدون حذف

 

على العموم تم حل المسالة والتعامل مع الصورة حسب ملفك الحالي

 

ولكن ان غيرت الصورة يجب ان تتاكد من ان الخيار (نقل الخلايا وتغيير حجمها) محفز

والخطوات لعمل ذلك تضغط بيمين الفارة على الصورة

وتختار الحجم والخصائص

ثم تختار خصائص

تعيين موضع الكائن

وتحفز الخيار الاول وهو (نقل الخلايا وتغيير حجمها)

 

 

3- يوجد في ورقة البيانات 10 اسماء اريد طباعة بطاقات لها وعند التجهيز والمعاينة يظهر 24 بطاقة

 

 

تم الحل
 

 

4- هل يمكن شرح هذا الكود   =(((ROW()-3)/12)*2)+1 حيث عدلته الى 12 بدل 10  هل هو عدد اسطر البطاقة ؟

 

 

نعم هو عدد الاسطر...........وتعديلك صحيح

 

واستفسار : هل يمكنني طباعة 10000 بطاقة دفعة واحدة

 

 

اعتقد ذلك ...........جرب بنفسك

 

تحياتي

 

المرفق 2010

بطاقة موظف9.rar

[ابو خالد التقني]

السلام عليكم 

 

جزاك الله كل خير استاذنا الغالي 

 

مشي الحال ووصلت الى المطلوب 

 

شكرا

[ابو خالد التقني]

السلام عليكم .. 

اتمنى ان تكونوا جميعا بخير .. اخوتي واحبابي في الله 

 

قال رسول الله صلى الله عليه وسلم 

( من سلك طريقا يلتمس فيه علما سهل الله له طريقا الى الجنة )... او كما قال رسول الله صلى الله عليه وسلم 

 

انطلاقا من هذا الحديث وانطلاقا من دافع داخلي يحثني على اكمال العلم والتعلم وتطوير الذات 

ومنذ اكثر من شهرين دخلت الى منتداكم الكريم وطلبت طريقة برمجة بطاقة موظف وبعد بحث وتعب مني في تعلم بعض المعلومات 

ومن الاعضاء والاساتذة الكرام الذين ساعدوني وشاركوني في اتمام هذا العمل والذي كان في بداية الامر حلم بالنسبة لي.

فاختبرت هذه البرمجة واعتمدت عليها في طباعة بطاقات موظفين شهرية وكانت النتائج رائع ومبهرة حيث اختصرت الوقت والجهد 

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

احاول الآن جاهدا تطوير هذه البرامج واظهارها بمظهر جيد ولكن تعترضني يوميا بعض المشاكل منها استطيع حلها ومنها لا ,

ومن المشاكل التي احاول ايجاد حلول لها:

 

1- عند زيادة عدد الموظفين والبيانات ... لاتظهر الصور.

2- عند زيادة العدد الى 1500 موظف يحدث ثقل في الملف واحيانا الى تجميد مع انني اعمل ع لابتوب كور اي سيفن.

3- عند طباعة ملف يحتوي على 25 موظف , وفي كل صفحة 8 بطاقات ناتج الطباعة يكون 3 صفحات فقط ولا يتم طباعة الاسم الاخير ذو الرقم 25 .

4- البيانات التي انسخها والصقها ضمن البرنامج تحتوي على دوال بسيطة مثل الجمع وووو , اتفاجئ احيانا بتغير بعض البيانات مثل عدد الاولاد .

5- في حال التعامل مع الملفات الضخمة , ألجأ الى تقسيم الملف ولكنني لا استطيع الحفاظ على الرقم التسلسلي للموظف , حيث تبدأ طباعة كل قسم من الرقم 1 الى النهاية .

6- احتاج الى طباعة عدد من الموظفين القاطنين في مدينة او قرية واحدة  فقط طبعا استنادا الى ملف شامل يحتوي على كل الموظفين.

 

هذه المشاكل احتاج الى حلها لكي يكتمل العمل ومن ثم اظهاره لكي يستفيد منه الجميع .

 

الرجاء المساعدة لاكمال هذا العمل وشكرا لكم 

[ابو خالد التقني]

السلام عليكم 

 

نداء موجه للعلامة      عبدالله باقشير

 

الرجاء المساعدة والافادة جزاك الله خير 

•             
•