اذهب الي المحتوي
أوفيسنا

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

02 الأعضاء
  • Content Count

    52
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 Neutral

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

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    non

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. استاذنا حمادة اطلب مساعدتك في الملف لاني حاولت ولم افلح اريد تطبيقه على كامل الافواج جزاك الله كل الخير
  2. اخي حمادة اريد تطبيق هذه الفكرة على كامل الملف مع العلم ان عدد الافواج وعدد التلاميذ قد يتغير مبدئيا 4 أفواج قد يزيد او يقل مشكور اخي على المساعدة
  3. السلام عليكم عندي ملف لرصد غيابات التلاميذ أريد مساعدتكم فيه حيث : المطلوب : عند تحديد اسم الفوج يبحث عن التلميذ ضمن ذات الفوج من خلال حرفه الأول والثاني فقط مثلا : الفوج 1 اسم 1 بمجرد كتابة حرف التلميذ 1 أو الثاني يضهر قائمة باسمائهم والتي تبدا بنفس الحرفالمطلوب : عند تحديد اسم الفوج يبحث عن التلميذ ضمن ذات الفوج من خلال حرفه الأول والثاني فقط مثلا : الفوج 1 اسم 1 بمجرد كتابة حرف التلميذ 1 أو الثاني يضهر قائمة باسمائهم والتي تبدا بنفس الحرف رصد الغيابات.rar
  4. السلام عليكم أخي الكريم هذه محاولة مني علها تفي بالغرض جرب هذه المعادلة : 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 والله الموفق
  5. السلام عليكم يمكنك استعمال دالة =NOW() إذا أردت
  6. السلام عليكم يمكنك هذا بتحديد رقم العمود المراد نقله أو نسخه لاحظ أخي الكود التالي : لقد غيرت فيه قيم : 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 بالتوفيق أخي
  7. السلام عليكم أخي الكريم لا اعرف أين يكمن الخلل عندك ... فقد جربت وحاولت ولكن الصورة في غير مكانها انظر الملف المرفق طبقته على ملف آخر ونجح الأمر .... علك تستفيد منه ولكنها تبقى محاولة مني .... عسى ان تجد حلا أفضل بالتوفيق VL.rar
  8. السلام عليكم يسعدني جدا مروركم الكريم وثنائكم الحسن وهذا مما يحفزني على بذل المزيد خاصة اذا كان منكم ... فانا لازلت اتعلم ووددت مشاركتكم ما تعلمته اما عن الهدف الاساسي من البرنامج فهو سرد سيرة الرسول فعلا وثاني شيئ الاستخدام الامثل للـ 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 وستحل المشكلة باذن الله سعيد جدا بمروركم وثنائكم وانا عند وعدي انتظرو الجديد دائما ان شاء الله ولن ابخل عن من تعلمت منهم الكثير
  9. السلام عليكم بفضل الله ومنته وعونه تغلبت على مشكل كبر الملف وها انا ارفعه لكم من جديد وفقني الله واياكم لما يحبه ويرضاه تمنوا لي التوفيق والسداد ولجميع الامة فصول في سيرة الرسول.rar
  10. السلام عليكم كم يسعدني مروركم ... انه والله لغبطة وفخر لي وهذا ما يحفزني لأعمل أخري والفضل كل الفضل لكم ولمنتداكم الرائع الذي لولاه لما تعلمت كل هذا أشكركم من صميم قلبي ... وان احاول بدوري العمل على تصغير حجم الملف لرفعه هنا شكرا مجددا ... وانا بصدد الجديد دائما خدمة لهذا الصرح العظيم
  11. السلام عليكم ورحمة الله وبركاته بالامس حاولت رفع الملف ولكنني لم استطع لحجم الملف لذا رفعته على حسابي بــ : 4shared ....... اعتذر جدا --- ولا اعرف سبب كبر حجم الملف رغم بساطته على العموم هو بين ايديكم ويمكنكم التعديل عليه لتعم الفائدة فالحقوق محفوظة لكل مسلم ومسلمة .. لا اطيل عليكم .... رابط تحميل الملف . http://www.4shared.com/get/_L89AaKq/___.html
  12. كلمة المبرمج الفصول في إختصار سيرة الرسول ( صلى الله عليه وسلم ) برنامج جديد وفكرة جديدة بسم الله الرحمن الرحيم و به نستعين : الحمد لله و السلام على عباده الذين اصطفى ، حمداً كثيراً طيباً مباركاً فيه كما يحب ربنا و يرضى ، و أشهد أن لا إله إلا الله وحده لا شريك له ، شهادة من أخلص له قلبـه و انجابت عنه أكدار الشرك و صفا ، و أقر له برق العبودية ، واستعاذ به من شر الشيطان و الهوى ، و تمسك بحبله المتين المنزل على رسوله الأمين محمد خير الورى صلوات الله و سلامه عليه دائماً إلى يوم الحشر و اللقاء ، و رضي الله عن أصحابــه و أزواجه و ذريته و أتباعه أجمعين ، أولي البصائر و النهى . أما بعد : - أولا : قد يكون بالبرنامج بعض الأخطاء والثقل .. لأنه أول برامجي منذ عرفت منتداكم الغالي وهو إهداء لكم .. لذا أرجو من الأخوة المشرفين تصويب هذه الأخطاء إن وجدت . ثانيا : فإنه يطيب لي وهو شرف كبير ووسام على صدري أن أضع بين ايديكم نفحة من نفحات السيرة العطرة للطاهر الأمين سيد الخلق أجمعين , عسى ان يكون في ميزان حسناتنا وهو صدقة جارية عن كل مسلم .... لا ابتغي به إلا مرضاة الله وحده لا شريك له . إن عمل خالص لوجهك الكريم فتقبله منا قبولا حسنا . هذا البرنامج ما هو إلا فيض من غيث عبق النبوة الزكية العطرة الطاهرة وهو وقف لكل مسلم ... كما لا انسى من استلهمت منه فكرة البرنامج ( FoxOman ) عسى ان يكون في ميزان حسناته ... أخيرا : لا اريد مكنكم إلا دعوة صادقة في ظهر الغيب عسى الله يهدينا لما يحب ويرضى والدعاء لوالدي أن يرحمهما ويرحم جميع المسلمين الأحياء والاموات . أدعوا لي أن يرزقني ذرية صالحة تتقي الله فينا تحفظ كتابه ولا تخاف في الله لومة لائم . أدعوا لنا بالصلاح والتوفيق والهداية ... ولأمة محمد بالوحدة والرشاد والبعد عن الزيغ والتيه والضلال ... يا رب إرحمنا وأهدنا وأسترنا فوق الأرض وتحت الأرض ويوم العرض وأحسن خاتمتنا .... آمين آمين ... والحمد لله رب العالمين
  13. ألف ألف شكر سيدي المحترم على حسن مساعدتك ولكن عندي طلب ثاني لو مافيه ازعاج هل ممكن جعل الحكمة متحركة مثل فكرة حول البرنامج للأخ أبو حنين على العموم أخي عبد الله انت كفيت ووفيت
  14. السلام عليكم ارجوا من اخوتي الكرام مساعدتي في برمجة وتعديل هذا الطلب ملف به حكم وامثال أريد ظهورها في فورم وتتغير كل زمن معين من اختيار المبرمج وليكن مثلا ( 30 ثانية ) وشكرا سلفا Hikam.rar
×
×
  • اضف...