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

am3h80

عضو جديد 01
  • Posts

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

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

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

6 Neutral

عن العضو am3h80

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

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب
  • البلد
    الاسكندرية

وسائل التواصل

  • Yahoo
    am3h80

اخر الزوار

725 زياره للملف الشخصي
  1. جزاك الله كل خير علي هذا المجهود الرائع وجعله في ميزان حسناتك
  2. اتقدم بخالص الشكر والتقدير لأاستاذنا الفاضل علي أحمد علي علي المجهوذ المبذول ولكني أرغب في الأستفسار عند تطبيق الأكواد سالفة الذكر لم يتم حفظ الأكواد بVBA كأن لم يتم كتابة الكود نهائياً وفي بعض الأحيان يتم حذف الملف ؟ يرجي توضيح ذلك مع العلم باني اقوم بحفظ الملف مرة اخري
  3. في ظل التطور التكنولوجي في اغلب الشركات وتوافر البنية التحتية لتكنولوجيا المعلومات ( من أجهزة حاسب ألي وسيرفرات وإيملات وشبكة داخلية مرتبطه بشبكة الانترنت ) ومع توافر وسائل كثيرة لبرمجة النماذج الالكترونية. وقد فكرت منذ اشهر بتلك الفكرة موضوع حديثكم هذا فيمكن عمل صفحات نت ديناميكية باي لغة برمجة ويب وتثبيتها علي سيرفر الشركة ونظرا لتوافر الأجهزة لاغلب الموظفين المربوطة بسرفر واحد مع استخدام برتوكول TCP Fتحديد رقم تعريف لكل جهاز يكون الإعتماد وفقا ip لكل جهاز ويتم انشاء 3 جداول جدول لتقديم الطلبات من الموظف ويتم ترحيل بيانات الطلب الي الجدول المناسب حسب رؤية المدير بالقبول او الرفض جدول رفض الطلبات من المدير جدول قبول الطلبات من المدير
  4. مجهود رائع ... جعله الله في ميزان حسناتك وبالتوفيق دائماً
  5. أحسنت التفسير أستاذنا الفاضل ..... تحياتي
  6. مضي من الدهر 3 سنوات ولكن العمل ما زال بارك الله فيك ويما نشرت وجعله في ميزان جسناتك
  7. عزيزي @haitham rasheed تم عمل تعديل بسيط تفضل أخي كارت الصنف.xlsm
  8. عزيزي @alma_fandi تحت امرك بما أستطيع... تحياتي واحترامي للمجهود المبذول في تطوير أعمالك
  9. عزيزي @alma_fandi الكود يعمل بشكل طبيعي عند كتابة اسم المؤسسة في التكست بوكس تظهر المؤسسة المراد البحث عنها واقترح بان يتم تغيير التكست بوكس إلي كومبو بوكس وتحميل أسماء المؤسسات به حتي يمكن للمستخدم تحديد المؤسسة المرادة دون أي أخطاء إملائية في كتابة اسم المؤسسة وهذا هو كود تحميل الكومبو بوكس الخاص بالفورمة 'The Excel workbook and worksheets that contain the data, as well as the range placed on that data ' Dim wbBook As Workbook Dim WS As Worksheet Dim rnData As Range 'Variant to contain the data to be placed in the combo box. Dim vaData As Variant 'Initialize the Excel objects Set WS = ThisWorkbook.Worksheets("sheet1") 'Set the range equal to the data, and then (temporarily) copy the unique values of that data to the L column. With WS Set rnData = .Range(.Range("b3"), .Range("b200").End(xlUp)) rnData.AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=.Range("z1"), _ Unique:=True 'store the unique values in vaData vaData = .Range(.Range("z2"), .Range("z200").End(xlUp)).Value 'clean up the contents of the temporary data storage .Range(.Range("z1"), .Range("z200").End(xlUp)).ClearContents End With 'display the unique values in vaData in the combo box already in existence on the worksheet. With ComboBox3 '.Clear .List = vaData .ListIndex = -1 End With كما اقترح عمل كومبو بوكس أخر يتم إضافة فيه تواريخ أسم المؤسسة المختارة لسهولة الاستخدام
  10. موضوع في غاية الروعة والكنز في التعليم بارك الله في كل من ساهم في نشر اي كود وجعله في ميزان حسناته تحياتي للجميع
  11. بارك الله فيك وجعله في ميزان حسناتك استاذنا الفاضل
  12. بنفس اسمي هنا علي اي موقع
×
×
  • اضف...

Important Information