اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

02 الأعضاء
  • Posts

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

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

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

  1. السلام عليكم ورحمة الله وبركاته منذ مدة وأنا أحاول بشتى الطرق والوسائل لأتعلم والحمد لله تعلمت من هذا المنتدي الكثير هو برنامج بالأساس مخصص للمطابع وتسهيل مهامهم وتيسير أمور حساباتهم في مختلف مجالات الطباعة : الكتب والمجلات والطباعة ديجيتال أو تسيير الفواتير وحتى محلات الحرفيين الذين يستخدمون ماكينات الليزر لقص الخشب وغيرهم ...... الخ سادتي الكرام اخواني الأعزاء أضع بين أيديكم هذا البرنامج رغم أنه في البداية وغير مكتمل إلا أنني وضعت فيه كثير مما تعلمته من هذا المنتدى العملاق وخاصة الأساتذة : شوقي ربيع وضاحي الغريب وخبور وعبد الله باقشير وغيرهم كثير حتى لا انسى أحد هذا البرنامج الذي آمل من أساتذتنا الكرام ان ينقحوه ويعينوننا في انجازه واخراجه بحلة تليق بمقام هذا الصرح مازال جزء الفواتير والكثير الا أنني آثرت ان ارفعه لنتعاون في اتمامه وهو مفتوح المصدر حتى لا اطيل عليكم جربو البرنامج واحكموا بانفسكم ولا تبخلوا علينا بالنصح والتوجيه والمشاركة بالتعديلات اترككم مع البرنامج اسم المستخدم : Tarek كلمة المرور : 23 عذرا الملف كبير نوعا ما لا اعرف السبب لذا رفعة على قوقل درايف ان كان هناك حل آخر نورونا اساتذتي الرابط بالاسفل مطبعتي تم رفع الملف في المنتدي بعد تصغير مساحته من 35 ميجا الي 2.8 ميجا هنا
  2. السلام عليكم ورحمة الله وبركاته استفسار ورجاء كنت قد مررت على موضوع الأساتذة الكرام وشد انتباهي الاتقان في العمل برنامج نور التجاري والخدمي اول انتاج مشترك بين الاخوة العباقرة : ضاحي الغريب و شوقي ربيع ووددت من الاخوة الكرام بعد ان نزلت الملف واطلعت عليه اعجبت جدا بما فيه من ابداع ولكنه ملف تنفيذي طلبي ورجائي للأساتذة العباقرة لو يعطونا الملف مفتوح المصدر حت نتعلم من اكواده ونطبقه استاذ ضاحي تعلمت منك الكثير استاذ شوقي تعلمت منك الكثير جعل الله اعمالكم في ميزان حسناتكم نطلب منكم تكرما الملف مفتوح المصدر لنتطور معكم ونتعلم
  3. استاذنا حمادة اطلب مساعدتك في الملف لاني حاولت ولم افلح اريد تطبيقه على كامل الافواج جزاك الله كل الخير
  4. اخي حمادة اريد تطبيق هذه الفكرة على كامل الملف مع العلم ان عدد الافواج وعدد التلاميذ قد يتغير مبدئيا 4 أفواج قد يزيد او يقل مشكور اخي على المساعدة
  5. السلام عليكم عندي ملف لرصد غيابات التلاميذ أريد مساعدتكم فيه حيث : المطلوب : عند تحديد اسم الفوج يبحث عن التلميذ ضمن ذات الفوج من خلال حرفه الأول والثاني فقط مثلا : الفوج 1 اسم 1 بمجرد كتابة حرف التلميذ 1 أو الثاني يضهر قائمة باسمائهم والتي تبدا بنفس الحرفالمطلوب : عند تحديد اسم الفوج يبحث عن التلميذ ضمن ذات الفوج من خلال حرفه الأول والثاني فقط مثلا : الفوج 1 اسم 1 بمجرد كتابة حرف التلميذ 1 أو الثاني يضهر قائمة باسمائهم والتي تبدا بنفس الحرف رصد الغيابات.rar
  6. السلام عليكم أخي الكريم هذه محاولة مني علها تفي بالغرض جرب هذه المعادلة : 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 والله الموفق
  7. السلام عليكم يمكنك هذا بتحديد رقم العمود المراد نقله أو نسخه لاحظ أخي الكود التالي : لقد غيرت فيه قيم : 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 بالتوفيق أخي
  8. السلام عليكم أخي الكريم لا اعرف أين يكمن الخلل عندك ... فقد جربت وحاولت ولكن الصورة في غير مكانها انظر الملف المرفق طبقته على ملف آخر ونجح الأمر .... علك تستفيد منه ولكنها تبقى محاولة مني .... عسى ان تجد حلا أفضل بالتوفيق VL.rar
  9. السلام عليكم يسعدني جدا مروركم الكريم وثنائكم الحسن وهذا مما يحفزني على بذل المزيد خاصة اذا كان منكم ... فانا لازلت اتعلم ووددت مشاركتكم ما تعلمته اما عن الهدف الاساسي من البرنامج فهو سرد سيرة الرسول فعلا وثاني شيئ الاستخدام الامثل للـ 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 وستحل المشكلة باذن الله سعيد جدا بمروركم وثنائكم وانا عند وعدي انتظرو الجديد دائما ان شاء الله ولن ابخل عن من تعلمت منهم الكثير
  10. السلام عليكم بفضل الله ومنته وعونه تغلبت على مشكل كبر الملف وها انا ارفعه لكم من جديد وفقني الله واياكم لما يحبه ويرضاه تمنوا لي التوفيق والسداد ولجميع الامة فصول في سيرة الرسول.rar
  11. السلام عليكم كم يسعدني مروركم ... انه والله لغبطة وفخر لي وهذا ما يحفزني لأعمل أخري والفضل كل الفضل لكم ولمنتداكم الرائع الذي لولاه لما تعلمت كل هذا أشكركم من صميم قلبي ... وان احاول بدوري العمل على تصغير حجم الملف لرفعه هنا شكرا مجددا ... وانا بصدد الجديد دائما خدمة لهذا الصرح العظيم
  12. السلام عليكم ورحمة الله وبركاته بالامس حاولت رفع الملف ولكنني لم استطع لحجم الملف لذا رفعته على حسابي بــ : 4shared ....... اعتذر جدا --- ولا اعرف سبب كبر حجم الملف رغم بساطته على العموم هو بين ايديكم ويمكنكم التعديل عليه لتعم الفائدة فالحقوق محفوظة لكل مسلم ومسلمة .. لا اطيل عليكم .... رابط تحميل الملف . http://www.4shared.com/get/_L89AaKq/___.html
  13. كلمة المبرمج الفصول في إختصار سيرة الرسول ( صلى الله عليه وسلم ) برنامج جديد وفكرة جديدة بسم الله الرحمن الرحيم و به نستعين : الحمد لله و السلام على عباده الذين اصطفى ، حمداً كثيراً طيباً مباركاً فيه كما يحب ربنا و يرضى ، و أشهد أن لا إله إلا الله وحده لا شريك له ، شهادة من أخلص له قلبـه و انجابت عنه أكدار الشرك و صفا ، و أقر له برق العبودية ، واستعاذ به من شر الشيطان و الهوى ، و تمسك بحبله المتين المنزل على رسوله الأمين محمد خير الورى صلوات الله و سلامه عليه دائماً إلى يوم الحشر و اللقاء ، و رضي الله عن أصحابــه و أزواجه و ذريته و أتباعه أجمعين ، أولي البصائر و النهى . أما بعد : - أولا : قد يكون بالبرنامج بعض الأخطاء والثقل .. لأنه أول برامجي منذ عرفت منتداكم الغالي وهو إهداء لكم .. لذا أرجو من الأخوة المشرفين تصويب هذه الأخطاء إن وجدت . ثانيا : فإنه يطيب لي وهو شرف كبير ووسام على صدري أن أضع بين ايديكم نفحة من نفحات السيرة العطرة للطاهر الأمين سيد الخلق أجمعين , عسى ان يكون في ميزان حسناتنا وهو صدقة جارية عن كل مسلم .... لا ابتغي به إلا مرضاة الله وحده لا شريك له . إن عمل خالص لوجهك الكريم فتقبله منا قبولا حسنا . هذا البرنامج ما هو إلا فيض من غيث عبق النبوة الزكية العطرة الطاهرة وهو وقف لكل مسلم ... كما لا انسى من استلهمت منه فكرة البرنامج ( FoxOman ) عسى ان يكون في ميزان حسناته ... أخيرا : لا اريد مكنكم إلا دعوة صادقة في ظهر الغيب عسى الله يهدينا لما يحب ويرضى والدعاء لوالدي أن يرحمهما ويرحم جميع المسلمين الأحياء والاموات . أدعوا لي أن يرزقني ذرية صالحة تتقي الله فينا تحفظ كتابه ولا تخاف في الله لومة لائم . أدعوا لنا بالصلاح والتوفيق والهداية ... ولأمة محمد بالوحدة والرشاد والبعد عن الزيغ والتيه والضلال ... يا رب إرحمنا وأهدنا وأسترنا فوق الأرض وتحت الأرض ويوم العرض وأحسن خاتمتنا .... آمين آمين ... والحمد لله رب العالمين
  14. ألف ألف شكر سيدي المحترم على حسن مساعدتك ولكن عندي طلب ثاني لو مافيه ازعاج هل ممكن جعل الحكمة متحركة مثل فكرة حول البرنامج للأخ أبو حنين على العموم أخي عبد الله انت كفيت ووفيت
  15. السلام عليكم ارجوا من اخوتي الكرام مساعدتي في برمجة وتعديل هذا الطلب ملف به حكم وامثال أريد ظهورها في فورم وتتغير كل زمن معين من اختيار المبرمج وليكن مثلا ( 30 ثانية ) وشكرا سلفا Hikam.rar
  16. السلام عليكم ورحمة الله وبركاته اخواني اعزائي سادتي الكرام ... أساتذتي الأجلاء تحية عطرة وبعد طلب مني انشاء ملف لتوزيع الحراس على المراكز بعدل واحترت في آلية العمل حاولت ولم أفلح وها أنا ألجأ اليكم للمساعدة المطلوب ينقسم لجزئين رئيسيين : توزيع الحراس على المراكز حسب القطاعات ( بدلالة المدينة التي ينتمي لها القطاع ) : 1- من خلال الورقة المؤطرين يتم توزيع الأساتذة الحراس على المراكز - حيث يراعى في التوزيع قرب المركز من مقر سكنى الموظف . - لا يمكن للموظف الحراسة في نفس المؤسسة التي يعمل بها . أما الجزء الثاني : بعد توزيع الحراس يتم تقسيم أيام العمل على الحراس في نفس المركز ( بدلالة أيام العمل من الورقة المراكز ) - كذلك هنا نراعي تقسيم الأيام بالتساوي على كل الحراس والمؤطرين .... مثلا يعمل الكل 3 أو 4 أيام ( مع مراعات فرق يوم أو يومين على الأكثر ) أما المهم : التوفيق والعدل بين جميع الحراس ( المؤطرين ) ليكونوا سواسية في مجموع الأيام المسندة وحجم العمل كأن يعمل الكل 3 أو 4 أيام ( دائما مع مراعات يوم أو يومين على الأكثر كفرق ) وفي الأخير أشكركم وطبتم وطاب مسعاكم gardfiltre.rar
  17. مشكور أخي الكريم على الرد والاستجابة وجعل الله عملك في ميزان حسناتك وهو المطلوب اللسان يعجز عن الكلام والشكر العميق لهذا المنتدي واهله الطيبون الكرام الذين لا يبخلون علينا دائما نتعلم ولازلنا نتعلم منكم وبكم نرتقى
  18. السلام عليكم اخوتي الكرام توصلت لجزء من الحل في ملأ ComboBox1 ولكن بقيت لدى مشكلة الترحيل محتاجه ضروي .... رجائي ان اجد فيكم مساعدة كما عودتمونا دائما اخيرا شكرا .. وسابقي احاول طلب.rar
  19. السلام عليكم طلبي في غاية البساطة ولكنه من مجرد مبتدئ عند تحديد OptionButton1 أو OptionButton2 يتم ملأ ComboBox1 من المصدر : 1 - depens أو المصاريف (فقرة) 2 - recette أو المداخيل (فقرة) وعند الضغط على زر ترحيل القيمة يتم ترحيل القيمة الموجودة بـ : TextBox1 للعمود المقابل للفقرة ( الميزانية ) .... طلب.rar
  20. السلام عليكم يا جامعة الخير مشكروين عالجهود المبذولة منكم في سبيل العلم والمساعدة اليوم عندي سؤال مهم : -- هل يمكن عمل قوائم " Menu" في الفورم أو للاكسل مثل الموجدوة بالبرامج الأخرى مثلا : ملف - تحرير - معاينة ...... ويكون تحت المعاينة ملف1 ملف2 وهكذا ... هل هذا ممكن في الاكسل ام لا ...؟
  21. سيدي الكريم شكرا لاهتمامك وسرعة ردك جربت الكود ماشاء الله سلمت يداك وشكر الله سعيك
  22. السلام عليكم اخواني عندي ملف ولا اريد ان يظهر عند الفتح لذا راودتني فكرة طباعة محتوياته من خلال عمل فورم أقوم بالطباعة منه دون فتح الملف الأصلي المطلوب : عند فتح الفورم أريد طباعة الفواتير من الصفحة "Teste" المجال : a1:f37 دون أن يتم فتح الملف PrinTarek يعني الطباعة من خلال الفورم فقط دون ان يفتح الملف واخيرا مشكورين وجزاكم الله خيرا PrinTarek.rar
×
×
  • اضف...

Important Information