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

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

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    السلام عليكم احبائي في الله ابو انصار - عبدالله المجرب - سعد عابد كل عام وانتم بخير تقبلوا تحياتي وشكري
  2. عبدالله باقشير
    جزاك الله خيرا اثابك الله على دعائك لي واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري
  3. عبدالله باقشير
    Sub KH_START() Dim r As Integer r = ActiveCell.Row If Cells(r, "A") <> "" And Cells(r, "A") > 0 Then Cells(r, "I") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$E$11" Cells(r, "J") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$G$11" Cells(r, "K") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$A$15" Cells(r, "L") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$F$11" Else Range("I" & r).Resize(1, 4).ClearContents End If End Sub
  4. عبدالله باقشير
    اكرمك الله الكود من صنع يديك اما الباقي شي لا يذكر جزاك الله خيرا
  5. عبدالله باقشير
    الكود خاص بالورقة مع الازرار اي في حدث الورقة اضغط زر وضع التصميم وانسخ الازرار والصقها في ملفك وانسخ اكود الورقة وضعها في حدث الورقة في ملفك
  6. عبدالله باقشير
    عيدكم مبارك اكيد الكمبيوتر حقك ما فيه لسان ههههههههههههههه هذه الاكواد قليلة الاستخدام خبرتنا فيها بسيطة مش عارف ايش الخلل عندك
  7. عبدالله باقشير
    Private Sub Worksheet_Selectionchange(ByVal Target As Range) Dim r As Integer If Not Intersect(Target, Range("A5:A3000")) Is Nothing Then r = Target.Row If Cells(r, "A") <> "" And Cells(r, "A") > 0 Then Cells(r, "I") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$E$11" Cells(r, "J") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$G$11" Cells(r, "K") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$A$15" Cells(r, "L") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$F$11" Else Range("I" & r).Resize(1, 4).ClearContents End If End If End Sub
  8. عبدالله باقشير
    السلام عليكم على السريع اربط الكود التالي بزر للتجربة جربه على 5 صفوف كما هو معمول بالكود ادناه اذا مشى الحال معاك زيد الصفوف حسب مبتغاك Sub KH_START() Dim r As Integer For r = 5 To 10 If Cells(r, "A") <> "" And Cells(r, "A") > 0 Then Cells(r, "I") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$E$11" Cells(r, "J") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$G$11" Cells(r, "K") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$A$15" Cells(r, "L") = "='D:\CCV_MOJ\data\[" & Cells(r, "A") & ".xlsb]" & Cells(r, "A") & "'!$F$11" Else Range("I" & r).Resize(1, 4).ClearContents End If Next End Sub
  9. عبدالله باقشير
    السلام عليكم هذه تجربة الكود في حدث ورقة1 غير بداية الكود معطياتك ' نطاق الكلام Private Const AdrRng As String = "A2:B6" ''''''''''''''''''''''''''''''''' ' خلية مكان الايقاف Private Const Adr As String = "K1" ''''''''''''''''''''''''''''''''' المرفق 2003 KH_SPEEK2.rar
  10. عبدالله باقشير
    تقبل الله منا ومنكم وجعلنا ممن ينظر اليهم الرحمن فيقول ( اذهبوا مغفور لكم ) وعيدكم مبارك وجزاكم الله خيرا على كلماتكم الطيبة تقبل تحياتي وشكري
  11. عبدالله باقشير
    تقبل الله منا ومنكم وجعلنا ممن ينظر اليهم الرحمن فيقول ( اذهبوا مغفور لكم ) وعيدكم مبارك وجزاكم الله خيرا على كلماتكم الطيبة ولكم مثل دعائكم اضعاف مضاعفة تقبل تحياتي وشكري
  12. عبدالله باقشير
    وجزاك خيرا تقبل تحياتي وشكري
  13. عبدالله باقشير
    تقبل الله منا ومنكم وجعلنا ممن ينظر اليهم الرحمن فيقول ( اذهبوا مغفور لكم ) وعيدكم مبارك وجزاكم الله خيرا على كلماتكم الطيبة تقبل تحياتي وشكري
  14. عبدالله باقشير
    تقبل الله منا ومنكم وجعلنا ممن ينظر اليهم الرحمن فيقول ( اذهبوا مغفور لكم ) وعيدكم مبارك وجزاكم الله خيرا على كلماتكم الطيبة تقبل تحياتي وشكري
  15. عبدالله باقشير
    تقبل تحياتي وشكري
  16. عبدالله باقشير
    تقبل الله منا ومنكم وجعلنا ممن ينظر اليهم الرحمن فيقول ( اذهبوا مغفور لكم ) وعيدكم مبارك وجزاكم الله خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة انه سميع الدعاء وكل عام وانتم بخير تقبل تحياتي وشكري
  17. عبدالله باقشير
    تقبل الله منا ومنكم وجعلنا ممن ينظر اليهم الرحمن فيقول ( اذهبوا مغفور لكم ) وعيدكم مبارك وجزاكم الله خيرا على كلماتكم الطيبة ويسعدني تواجدكم تقبل تحياتي وشكري
  18. عبدالله باقشير
    تقبل الله منا ومنكم وجعلنا ممن ينظر اليهم الرحمن فيقول ( اذهبوا مغفور لكم ) وعيدكم مبارك وجزاكم الله خيرا على كلماتكم الطيبة تقبل تحياتي وشكري
  19. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته تقبل الله منا ومنكم وجعلنا ممن ينظر اليهم الرحمن فيقول ( اذهبوا مغفور لكم ) وعيدكم مبارك
  20. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته عيدكم مبارك وكل عام وانتم بخير شرح امكانيات الفورم وكيفية الاستخدام: 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss .kh_SetAddrss "مثال1", "C10:AO10" اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. . kh_SetAddrss "مثال2", "C4:H4", "B4" 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب القائمة وتفصل بين الكلمات بالعلامة + 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 ----------------------------------------------------------------------------------------------------- هذه الامكانية غفلنا عن ذكرها : 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا: "E15,C15,H15:AX15" اول عمود هو E ----------------------------------------------------------------------------------------------------- المرفق 2003-2007 فورم ادخال و تعديل مرن.rar الاصدار الثاني http://www.officena.net/ib/index.php?showtopic=48811 الاصدار الثالث: http://www.officena....showtopic=51955
  21. عبدالله باقشير
    الكود اشتغل جزاك الله خيرا هل تعمل على طلب الاخ يوسف ؟
  22. عبدالله باقشير
    الظاهر ارسلت الكود وانا اكتب المشاركة اعلاه لحظة اجرب
  23. عبدالله باقشير
    السلام عليكم والله نشمي اخي عباد جزاك الله خيرا واذا كان المسار هذا غير موجود الملف \Speech\Common الملفان غير موجودان ما الحل
  24. عبدالله باقشير
    وعليكم السلام اخي عباد شكرا جزيلا نفذت الخطوات لكن الملف هذا مش موجود عندي في المسار الي حددته والخطا يوجهنا الى الفورم الذي صورته اعلاه اعمل صورة للفورم في جهازك مثل ما اوضحت متظرك
  25. عبدالله باقشير
    السلام عليكم ضبطها يدويا بادخال مسافات يمين ويسار حتى تناسب ذوقك هذه بعض الثوابت جربها vbTab vbVerticalTab vbCrLf vbCr vbNewLine
×
×
  • اضف...

Important Information

  I accept