طارق عبد الحكيم

السلام عليكم ورحمة الله وبركاته منذ مدة وأنا أحاول بشتى الطرق والوسائل لأتعلم والحمد لله تعلمت من هذا المنتدي الكثير هو برنامج بالأساس مخصص للمطابع وتسهيل مهامهم وتيسير أمور حساباتهم في مختلف مجالات الطباعة : الكتب والمجلات والطباعة ديجيتال أو تسيير الفواتير وحتى محلات الحرفيين الذين يستخدمون ماكينات الليزر لقص الخشب وغيرهم ...... الخ سادتي الكرام اخواني الأعزاء أضع بين أيديكم هذا البرنامج رغم أنه في البداية وغير مكتمل إلا أنني وضعت فيه كثير مما تعلمته من هذا المنتدى العملاق وخاصة الأساتذة : شوقي ربيع وضاحي الغريب وخبور وعبد الله باقشير وغيرهم كثير حتى لا انسى أحد هذا البرنامج الذي آمل من أساتذتنا الكرام ان ينقحوه ويعينوننا في انجازه واخراجه بحلة تليق بمقام هذا الصرح مازال جزء الفواتير والكثير الا أنني آثرت ان ارفعه لنتعاون في اتمامه وهو مفتوح المصدر حتى لا اطيل عليكم جربو البرنامج واحكموا بانفسكم ولا تبخلوا علينا بالنصح والتوجيه والمشاركة بالتعديلات اترككم مع البرنامج اسم المستخدم : Tarek كلمة المرور : 23 عذرا الملف كبير نوعا ما لا اعرف السبب لذا رفعة على قوقل درايف ان كان هناك حل آخر نورونا اساتذتي الرابط بالاسفل مطبعتي تم رفع الملف في المنتدي بعد تصغير مساحته من 35 ميجا الي 2.8 ميجا هنا

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

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

اخي حمادة اريد تطبيق هذه الفكرة على كامل الملف مع العلم ان عدد الافواج وعدد التلاميذ قد يتغير مبدئيا 4 أفواج قد يزيد او يقل مشكور اخي على المساعدة

نفس الفكرة مشكور سيدي على سرعة الرد

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

السلام عليكم أخي الكريم هذه محاولة مني علها تفي بالغرض جرب هذه المعادلة : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$H$2" Then Exit Sub [E2].Value = [E2] If [H2] < [E2] Then [E2].FormulaR1C1 = "=TODAY()" Else [E2].Value = "التاريخ المحدد مجمد" End If End Sub والله الموفق

السلام عليكم يمكنك استعمال دالة =NOW() إذا أردت

السلام عليكم يمكنك هذا بتحديد رقم العمود المراد نقله أو نسخه لاحظ أخي الكود التالي : لقد غيرت فيه قيم : Sub GetDataDemo() Dim FilePath$, Row&, Column&, Address$ 'change constants & FilePath below to suit '*************************************** Const FileName$ = "Book2.xls" Const SheetName$ = "Sheet1" Const NumRows& = 10 Const NumColumns& = 10 FilePath = ActiveWorkbook.Path & "\" '*************************************** DoEvents Application.ScreenUpdating = False If Dir(FilePath & FileName) = Empty Then MsgBox "The file " & FileName & " was not found", , "File Doesn't Exist" Exit Sub End If For Row = 1 To NumRows For Column = 1 To NumColumns Address = Cells(Row, 5).Address Cells(Row, 5) = GetData(FilePath, FileName, SheetName, Address) Columns.AutoFit Address = Cells(Row, 2).Address Cells(Row, 2) = GetData(FilePath, FileName, SheetName, Address) Columns.AutoFit Next Column Next Row ActiveWindow.DisplayZeros = False End Sub حيث حددت ما طلبته أنت مثلا : العمود E يقابله رقم 5 أما العمود B يقابله العمود 2 وهكذا يمكنك أضافة ما تريد Address = Cells(Row, 5).Address Cells(Row, 5) = GetData(FilePath, FileName, SheetName, Address) Columns.AutoFit Address = Cells(Row, 2).Address Cells(Row, 2) = GetData(FilePath, FileName, SheetName, Address) Columns.AutoFit بالتوفيق أخي

السلام عليكم أخي الكريم لا اعرف أين يكمن الخلل عندك ... فقد جربت وحاولت ولكن الصورة في غير مكانها انظر الملف المرفق طبقته على ملف آخر ونجح الأمر .... علك تستفيد منه ولكنها تبقى محاولة مني .... عسى ان تجد حلا أفضل بالتوفيق VL.rar

السلام عليكم يسعدني جدا مروركم الكريم وثنائكم الحسن وهذا مما يحفزني على بذل المزيد خاصة اذا كان منكم ... فانا لازلت اتعلم ووددت مشاركتكم ما تعلمته اما عن الهدف الاساسي من البرنامج فهو سرد سيرة الرسول فعلا وثاني شيئ الاستخدام الامثل للـ Frame الذي ينفذ بطريقة جيدة ... أخي : مجدي يونس أعتقد انك قمت بتنزيل البرنامج الذي بالمشاركة 02 ... الذي وقعت فيه بعض الاخطاء البرمجية البسيطة والتي يمكنك تداركها بتنزيل البرنامج من المشاركة رقم 06 أو : كالتالي في حدث الفورم : UMPrincipal قم بنسخ السطر التالي : Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Const GWL_STYLE = -16 Const WS_SYSMENU = &H80000 Dim rr As Integer Dim res As Integer وستحل المشكلة باذن الله سعيد جدا بمروركم وثنائكم وانا عند وعدي انتظرو الجديد دائما ان شاء الله ولن ابخل عن من تعلمت منهم الكثير

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

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

السلام عليكم ورحمة الله وبركاته بالامس حاولت رفع الملف ولكنني لم استطع لحجم الملف لذا رفعته على حسابي بــ : 4shared ....... اعتذر جدا --- ولا اعرف سبب كبر حجم الملف رغم بساطته على العموم هو بين ايديكم ويمكنكم التعديل عليه لتعم الفائدة فالحقوق محفوظة لكل مسلم ومسلمة .. لا اطيل عليكم .... رابط تحميل الملف . http://www.4shared.com/get/_L89AaKq/___.html

كلمة المبرمج الفصول في إختصار سيرة الرسول ( صلى الله عليه وسلم ) برنامج جديد وفكرة جديدة بسم الله الرحمن الرحيم و به نستعين : الحمد لله و السلام على عباده الذين اصطفى ، حمداً كثيراً طيباً مباركاً فيه كما يحب ربنا و يرضى ، و أشهد أن لا إله إلا الله وحده لا شريك له ، شهادة من أخلص له قلبـه و انجابت عنه أكدار الشرك و صفا ، و أقر له برق العبودية ، واستعاذ به من شر الشيطان و الهوى ، و تمسك بحبله المتين المنزل على رسوله الأمين محمد خير الورى صلوات الله و سلامه عليه دائماً إلى يوم الحشر و اللقاء ، و رضي الله عن أصحابــه و أزواجه و ذريته و أتباعه أجمعين ، أولي البصائر و النهى . أما بعد : - أولا : قد يكون بالبرنامج بعض الأخطاء والثقل .. لأنه أول برامجي منذ عرفت منتداكم الغالي وهو إهداء لكم .. لذا أرجو من الأخوة المشرفين تصويب هذه الأخطاء إن وجدت . ثانيا : فإنه يطيب لي وهو شرف كبير ووسام على صدري أن أضع بين ايديكم نفحة من نفحات السيرة العطرة للطاهر الأمين سيد الخلق أجمعين , عسى ان يكون في ميزان حسناتنا وهو صدقة جارية عن كل مسلم .... لا ابتغي به إلا مرضاة الله وحده لا شريك له . إن عمل خالص لوجهك الكريم فتقبله منا قبولا حسنا . هذا البرنامج ما هو إلا فيض من غيث عبق النبوة الزكية العطرة الطاهرة وهو وقف لكل مسلم ... كما لا انسى من استلهمت منه فكرة البرنامج ( FoxOman ) عسى ان يكون في ميزان حسناته ... أخيرا : لا اريد مكنكم إلا دعوة صادقة في ظهر الغيب عسى الله يهدينا لما يحب ويرضى والدعاء لوالدي أن يرحمهما ويرحم جميع المسلمين الأحياء والاموات . أدعوا لي أن يرزقني ذرية صالحة تتقي الله فينا تحفظ كتابه ولا تخاف في الله لومة لائم . أدعوا لنا بالصلاح والتوفيق والهداية ... ولأمة محمد بالوحدة والرشاد والبعد عن الزيغ والتيه والضلال ... يا رب إرحمنا وأهدنا وأسترنا فوق الأرض وتحت الأرض ويوم العرض وأحسن خاتمتنا .... آمين آمين ... والحمد لله رب العالمين