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

شكرا جزيلا وصلت الى المطلوب

شكرا لكم جميعا جزاكم الله كل خير

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

السلام عليكم اين الخبراء اين المبدعين ... وينكم ياجماعة الخير نداء موجه للعلامة خبور خير وصلت الى حل مبدأي بخصوص ظهور البطاقات بشكل ثنائي ولكن بقيت عندي مشكلة واحدة وهي تكرار البطاقة الثانية وهكذا واحتاج الى وضع صورة اوشعار مشترك لكل البطاقات الرجاء افادتي من معلوماتكم القيمة الرجاء مساعدتي لاكمال هذه البطاقة لانني بامس الحاجة اليها ولكم جزيل الشكر والدعاء الملف بالحالة التي وصلت اليها http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=81143

السلام عليكم شكرا اخي لمرورك العطر ولكني احتاج الى كتابة الرقم بالعربي وليس بالانكليزي وشكرا

السلام عليكم ورحمت الله وبركاته اتمنى ان يكون الجميع بتمام الصحة والعافية احتاج الى دالة او معادلة لكتابة رقم معين وليكن 1090 $ = الف وتسعون دولار وشكرا سلفا

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

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

جزاك الله خيرا / ا. ام عبدالله وهل يمكن شرح الكود حتى استطيع استخدامه بسهولة وشكرا =IF(F2="";"";SUBTOTAL(3;$F$2:F2))

السلام عليكم ورحمت الله وبركاته احتاج الى عداد تلقائي لعمل ترقيم لعدد من الصفوف وفي حال حدوث اي تغيير يعود ويرقم الصفوف اوتوماتيكيا وشكرا عداد اوتوماتيكي.rar

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

السلام عليكم شكرا استاذ علي ع المعلومات والافادة وصلت الى حل مبدأي بخصوص ظهور البطاقات بشكل ثنائي ولكن بقيت عندي مشكلة واحدة وهي تكرار البطاقة الثانية وهكذا واحتاج الى وضع صورة اوشعار مشترك لكل البطاقات الرجاء افادتي من معلوماتكم القيمة الرجاء مساعدتي لاكمال هذه البطاقة لانني بامس الحاجة اليها ولكم جزيل الشكر والدعاء الملف بالحالة التي وصلت اليها بالمرفقات بطاقة موظف7.rar

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

السلام عليكم اخوتي في الله احتاج الى شرح كود ومعادلات وماكرو المستخدمة في عمل مثل هذه الشهادات وصلت ال مرحلة لابأس بها وتوقفت عند وضع بطاقتين في كل سطر على ان تحتوي صفحة A4 عند الطباعة على اربع بطاقات كل اتنتين بجانب بعضهما البعض الرجاء شرح طريقة برمجة وتصميم مثل هذه البطاقة او الشهادة ولكم جزيل الشكر

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

السلام عليكم الرجاء المساعدة ياشباب الرجاء المساعدة في شرح الكود واكمال البطاقة

السلام عليكم هل استطيع تغيير لون خلية او عدد من الخلايا بناء على شرط معين الرجاء الافادة وشكرا لكم

هذا هو الملف وارجو شرح تعليمات واكواد VBA المستخدمة واحتاج الى اكمال هذه البطاقة اذا سمحتم 1- مشكلة في خلية الرقم التسلسلي عند تجهيز البطاقات 2- احتاج الى وجود بطاقتين في كل سطر بحيث تحتوي كل صفحة A4 على عشر بطاقات 3- عند تجهيز البطاقات يجب عمل بطاقات على عدد الاسماء الموجودة ,, لا اريد عداد يظهرلي 10 بطاقات فقط 4- اريد وضع صورة موحدة لجميع البطاقات في خلية (صورة) وشكرا لكم جميعا والرجاء من الاساتذة الكرام مساعدتي بسرعة لانني محتاجها كتير وباقصى سرعة الرجاء منكم تحملي ومساعدتي لانني مبتدأ في الاكسل واريد ان اتعلم بطاقة موظف6.rar

السلام عليكم الي خبراء الاكسل الرجاء شرح هذه الاكواد المستخدمة في برمجة البطاقة '*********************************************** '*********************************************** ' اسم ورقة الشهادات 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

شكرا خي الكريم ع مجهودك ولكن يحتاج الي بعض التعديل 1- خلية الرقم التسلسلي لا تظهر بشكل نظامي 2- لا اريد عداد يظهر لي كل 10 بطاقات فقط ,, المطلوب ظهور البطاقات بعدد الاسماء الموجودة في ورقة البيانات 3- اريد بطاقة اساسية ,, استطيع التعديل عليها متى شئت وشكرا

السلام عليكم وينكم ياجماعة ليش ما حدا رد علينا وينكم يا محترفي الاكسل الاستاذة ام عبدالله و الاستاذ علي المصري كملو معروفكم معي شكرا لكم وانتظر ردكم

السلام عليكم ورحمت الله تعالى وبركاته واجهتني بعض الاسئلة والمشاكل عند اكمال برمجة بطاقة موظف 1- ما هي الصلة بين ورقة البطاقة و وورقة البطاقة 2 . 2- تكرار البطاقات حسب الرقم التسلسلي في ورقة البطاقة2 . 3- هل يمكنني اعتبار ان ورقة البطاقة تحتوي على التصميم الاساسي للبطاقة وهل استطيع التعديل عليها وتتعدل كافة البطاقات. 4- اريد وضع صورة في في خلية الصورة ,, كيف اربط الصورة بخلية محددة. 5- هل استطيع تغيير لون خلية بناء على صيغة if الشرطية. 6- عند زيادة عدد الاسماء في الورقة البيانات الاساسية الي 1000 اسم وعند تجهيز البطاقات يحصل معي عدة امور : - مشكلة في خلية الرقم التسلسلي للموظف كاسم خلية "الرقم التسلسلي" - احتاج الى وجود بطاقتين في السطر الواحد بحيث تتسع ورقة (A4) على 10 بطاقات . - عند دمجي لعمودي الذكور والاناث في ورقة البيانات الاساسية بعمود واحد يساوي العدد الكلي للاولاد وبعد تعديل الكود الخاص بكل خلية تظهر اخطاء . 7- في الماكرو الخاص ببرمجة هذه البطاقات هل من الممكن شرح الاكواد المستخدمة ولو شرح بسيط ومختصر حتى يتاح لي التعديل والاضافة حسب ماهو مطلوب مني. 8- عمل واجهة بحث عن اسماء فئة معينة من الموظفين حسب المدينة مثلا وتجهيزها على بطاقات وطباعتها, او استخراج بعض الاسماء وتحويلها الى بطاقات وطباعتها . وجزاكم الله خير الجزاء الملف المرفق يحتوي على بعض التعديلات الرجاء المساعدة ودمتم بطاقة موظف5.rar

السلام عليكم

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

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