على

مشكور اخي الكريم ماقصرت

بارك الله فيك وجزاك الله كل خير

السلام عليكم

ما شاء الله لا قوة الا بالله

لدي ملف اكسل عبارة عن دليل هاتف بالفيجوال بيسك

اريد عكس الليست بوكس من اليسار الي اليمين لتلائم الشكل باللغة العربية

وكذلك اضافة تنبيه لزر الحذف عند حذف سجل

بارك الله لكم

الملف مرفق

دليل الهاتف.xlsm

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

مشكور جدا يا اخ بن علية حاجي

هذا هو المطلوب بارك الله فيك وجزاك الله عنا خيرا

السلام عليكم

استخدمت الدالة AGGREGATE

لفرز البيانات من ورقة الي ورقة اخرى واريد استخدام الملف للعمل غلي الاكسل 2007

لكن هذه الدالة غير متوفرة بالاكسل 2007

فهل من بديل لها بالاكسل 2007 ؟

المطلوب موضح بالملف المرفق

Ex1.rar

اخي انظر للملف المرفق ممكن يفيدك

وهو عبارة عن قالب جاهز

وفقك الله

TS103987167-2.rar

الاخ والاستاذ شوقي ربيع

ماشاء الله عليك

تمت التجربة واكثر من رائع بارك الله فيط وزادك علما

اخي الكريم

هل من الممكن شرح مبسط لما تم لجعل البيانات من اليمين لليسار

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

معلش ارهقتك بطلباتي لكن كرمك هو الذي شجعني

جزاك الله كل خير

ممكن اخي ترفق ملف تجربتك لتعم الفائدة

لانني حاولت وصادفتنى بعض الاخطاء

اين يتم وضع الكود بالتحديد رجاء

السلام عليكم

استاذ عبدالله باقشير

هذا بالضبط ماكنت ابحث عنه بالملف الذى ارفقته حضرتك

ماشاء الله ابداع

تعديل في حالة تكرار الكود ولكني ارغب في تعديل بعض الخلايا فقط وباقى الخلايا ثابتة

فهل هذا ممكن

جزاك الله خير

السلام عليكم

لدى عمل اتممته بفضل من الله وعمل الفورم والبحث

ولكن لذى مشكلة لم اجد لهل حل فهل من مساعدة رحم الله والديكم

فى سجلات موظفين للاجازات لكل موظف اكثر من سجل والبحث يتم برقم الموظف

فعند تعديل سجل بالليست بوكس يتم تعديل كافة السجلات

والمطلوب تعديل السجل المحدد فقط

مرفق صورة للتوضيح والكود :

Private Sub SaveCommandButton_Click()
Dim i As Integer
For i = 2 To 6000
If FileFind.Text = Cells(i, 3) Then
Cells(i, 4) = TextBox2.Text
Cells(i, 5) = TextBox3.Text
Cells(i, 6) = TextBox4.Text
Cells(i, 8) = TextBox6.Text
End If
Next
MsgBox "تم التعديل بنجاح"
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.FileFind.Value = ""

ListBox1.Clear
Me.FileFind.SetFocus
End Sub

السلام عليكم

اريد شرح وتوضيح لهدا الكود لم يعمل معي لاظهار

صفوف الليست بوكس في التكست بوكسات بالفورم

ما الخطاء

Sub ListBox1_Click()
On Error Resume Next
FileTextBox.Visible = True
TybeTextBox.Visible = True
DaysTextBox.Visible = True
FromTextBox.Visible = True
ToTextBox.Visible = True
NotesTextBox.Visible = True
CommandButton1.Visible = True
DeleCommandButton.Visible = True
SaveCommandButton.Enabled = False
ii = 3
For i = 0 To Me.ListBox1.ColumnCount
Me.Controls("TextBox" & ii).Value = Me.ListBox1.List(ListBox1.ListIndex, i)
ii = ii + 1
Next
End Sub
 

مشكور اخي جلال ماقصرت

بارك الله فيك

جزاكم الله خيرا استاذ عبدالله

علي مجهوداتكم الرائعة

ارغب باظهار نتائج البحث بلست بوكس والتعديل عليها

لانه لكل رقم اكثر من سجل

وبارك الله فيكم

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

استعملت اكواد ولم تشتغل معي وبعدة محاولات ولم اعرف اين الخطاء

وهي اظهار نتائج البحث في التكست بوكس والتعديل عليها بواسطة زر الحفظ

وكذلك زر الحذف لحذف سجل معين

جزاكم الله خيرا

وارحب بأي اضافة او رأي من حضراتكم استاذنا الكريم

Vacation15.rar

>>>>>>>>

الله المستعان

up

up

up

up

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

بالملف المرفق وهو عبارة عن سجل اجازات للموظفين بفورم لادخال البيانات وفورم بحث للاستعلام

اطلب من اخوتنا بالمنتدى القاء نظرة لافادتي افادكم الله

ارغب بتعديل التاريخ بفورم التسجيل ليظهر بتاريخ اليوم

وهل يمكن ادخال البيانات فى حالة الخلايا المؤمنة وحماية الورقة؟

وهل يمكن دمج فورم الادخال وفورم البحث بفورم واحد؟

ولكم جزيل الشكر

والله الموفق

اجازات.rar

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

إن شاء الله خير

39تحميل ولا رد

غير معقول

افيدونى افادكم الله

up

up