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

طريقة جديدة للاضافة والتعديل


الردود الموصى بها

الى اعضاء هذا المنتددى ومشرفية والقائمين علية

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

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

بارك الله فيك اخي الكريم ولكن لدى مشكلة في الملف بسبب السطر المكتوب باللون المختلف ارجو افادتي حيث انني اعمل على اوفيس 2007

Private Sub UserForm_Initialize()

On Error Resume Next

Dim mycol As Collection

Dim myrng As Range

Set mycol = New Collection

For Each myrng In Range("ÇáÇÓãÇá3")

mycol.Add myrng.Value, myrng.Text

Next myrng

For 1 = 1 To mycol.Count

If mycol.Item(I) = "" Then mycol.Remove I

Me.ComboBox2.AddItem mycol(I)

Next I

End Sub

رابط هذا التعليق
شارك

امسح الكود واستبدله بهذا

ربما يعمل معاك عند إثبات متغير


Private Sub UserForm_Initialize()

On Error Resume Next

Dim mycol As Collection

Dim myrng As Range

Dim I%

Set mycol = New Collection

For Each myrng In Range("الاسماء3")

mycol.Add myrng.Value, myrng.Text

Next myrng

For I = 1 To mycol.Count

If mycol.Item(I) = "" Then mycol.Remove I

Me.ComboBox2.AddItem mycol(I)

Next I

End Sub

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته اخي الكريم اشكر لك تفاعلك وبالفعل جاءت بالنتيجة المطلوبة وارجو منك ان سمح لك الوقت في توضيح الفروق الجوهرية في الاكواد داخل اوفيس 2003 و 2007 والتي تتسبب في اظهار رسالة الخطأ

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

رابط هذا التعليق
شارك

يا اخوان جزاكم الله خير الجزاء على هذا الجهد ولكن ممكن العمل مثل ما طلبت اذا امكن

يعني تظهر الــ Listbox ثم عند اختيار اي موظف تظهر بياناته الشخصية وبعد ذلك الاضافة ارجو الرد

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information