في ٢٣‏/٤‏/٢٠١٩ at 01:13, مجدى يونس said:

فورم اكسل استدعاء بيانات وصور العاملين

الفيديو

 

 

الصور

 

 

 

أحسنت استاذ مجدى بارك الله فيك

احسنت بارك الله فيك عمل رائع

زؤر زؤر زؤر سوباس برا كيان خؤشحالم.......سررت بلقائکم ھنا ... اھلا و سهلا بکم

بارك الله فيكم جميعا

استاذنا الكبير بارك الله فيك وفى اعمالك.........

بارك الله فيك اخي

للرفع

في 6/12/2010 at 17:02, الحسامي said:

السلام عليكم

ارفق لكم ملفات الموضوع كاملة بعد مشكلة المرفقات التي حدثت في المنتدى

HOSAMI IF THEN.rar

if then else.rar

if then else(hosami).rar

if then elseIF....المتعددة والمتشابكة.rar

case ...statment.rar

choose ...statment.rar

switch ...statment.rar

الجمل الشرطية كاملة (الحسامي).rar

في 6/8/2010 at 10:53, هشام شلبى said:

السلام عليكم

===========

فى اطار نفس الموضوع وقبل الانتقال الى موضوع اخر

اود اضافة بعض الاوامر المرتبطة ب CommandButton1_Click()

هذا زر امر طباعة

 

 

Private Sub CommandButton1_Click()

ActiveWorkbook.PrintOut

End Sub

هذا زر اختيار ورقة معينة ولتكن ورقة4

 

Private Sub CommandButton1_Click()

Sheets(ورقة4").Select

End Sub

امر حفظ

 

Private Sub CommandButton1_Click()

ActiveWorkbook.Save

End Sub

امر خروج

 

Private Sub CommandButton4_Click()

ActiveWorkbook.Close

End Sub

امر كتابة تاريخ اليوم فى خلية محددة

 

Private Sub CommandButton1_Click()

Range("A1") = Now

End Sub

امر معاينة

 

Private Sub CommandButton1_Click()

ActiveWindow.SelectedSheets.PrintPreview

End Sub

امر اظهار فورم

 

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

امر تحديد مدى معين

 

Private Sub CommandButton1_Click()

Columns("D:D").Select

End Sub

امر تحكم فى عرض عمود معين

 

Private Sub CommandButton1_Click()

    Columns("D:D").ColumnWidth = 2.50

End Sub

امر اخفاء عمود

 

Private Sub CommandButton1_Click()

    Columns("F:F").Select

    Selection.EntireColumn.Hidden = True

End Sub

امر تحديد صف

 

Private Sub CommandButton2_Click()

    Rows("8:8").Select

End Sub

امر تحديد عرض صف

 

Private Sub CommandButton2_Click()

    Rows("16:16").RowHeight = 2.24

End Sub

 

 

في 6/20/2010 at 01:03, يوسف عطا said:

 

 

عزيزى الغالى

وضعت هذا الكود

 

Private Sub Workbook_Open()

Select.("الشيت")Sheets

Columns("A:I").Select

Selection.EntireColumn.Hidden = True

Range("J5:J5").Select

End Sub

 

ما الخطأ الذى وقعت فيه هذه المرة

ولكنه لم يعمل أى شئ

أليس الكود مثل الكود الذى ذكرته حضرتك منذ أيام بالأعلى ؟؟

في 9/20/2015 at 13:59, أبو عبد الملك السوفي said:

ان لله وانا اليه راجعون

لله ما اعطى وله ما أخذ وكل شيئ عنده بمقدار

ان العين لتدمع وان القلب ليحزن وانا على فراقك يا عماد الحسامي لمحزونون

اللهم اغفر له وارحمه

في 10/29/2017 at 10:02, مجدى يونس said:

فورم طباعة الفورم بالكامل

الفيديو

 

 

'   لو الثلاثة فيهم بيانات
If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then
'oاختار لى اخر خلية فى العمود
x = Range("o" & Rows.Count).End(xlUp).Row
'اجعل الخلية الاولىمن التكست بوكس رقم 1
Range("o" & x + 1).Value = TextBox1.Value
'اعمل لى ازاحة عمود واحد ولكن فى نفس السطر
Range("o" & x + 1).Offset(0, 1).Value = TextBox2.Value
'اعمل لى ازاحة عمودين  ولكن فى نفس السطر
Range("o" & x + 1).Offset(0, 2).Value = TextBox3.Value
'ارسل لى رسالة بنعم او لا للطباعة
d = MsgBox("هل تريد الطباعة ", vbYesNo, "طباعة الفاتورة مع تحيات مجدى يونس ")
'لو المستخدم اختار زر نعم
If d = vbYes Then
'اطبع فورم رقم 3
UserForm3.PrintForm
'فرغ البيانات للتكست ال الثلاثة
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Else
'لو المستخدم اختار زر لا
If d = vbNo Then
'فرغ بيانات التكست الثلاثة
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
'غلق البيانات
End If
End If
Else
'لو لم ادخل بيانات فى التكست الثلاثة ارسل الرسالة التالية
MsgBox ("البيانات غير مكتملة")
End If
End Sub

 

في 12/25/2017 at 09:48, ahmed1987 said:

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

10 ساعات مضت, bin7shr said:

تفضل أخي الملف

التقويم الهجري2.rar

23 ساعات مضت, بشير الكيلاني said:

الأخوة الأعزاء الأفاضل

و هذه نسخة تقوم بالبحث بجزء من الكلمة سواء في أول الكلمة أو وسط الكلمة أو آخرها .

و دمتم ذخراً

New-Userform-Arabic.rar

في 5/6/2013 at 12:46, شوقي ربيع said:

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

Private Sub Rabie_SearchNom()
Dim M
listviwlist
With Me.ListView1
    With .ColumnHeaders
        .Clear
        
       .Add , , Feuil1.Range("a1"), 246
       
    End With
     .View = lvwReport
    .Gridlines = True
    .FullRowSelect = True
    .HideColumnHeaders = True
    .LabelEdit = 1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
End With

ListView1.ListItems.Clear
M = TextBox1.Text
If M = "" Then GoTo 1
With Feuil1
LR = .Cells(Rows.Count, 1).End(xlUp).Row
Set A = Feuil1.Range("a2:a" & LR).Find(M)
If Not A Is Nothing Then
F = A.Address
Do
If Application.WorksheetFunction.Search(M, A, 1) = 1 Then

With ListView1
.ListItems.Add , , A
End With

End If
Set A = Feuil1.Range("a2:a" & LR).FindNext(A)
Loop While Not A Is Nothing And A.Address <> F
End If
End With

1 End Sub

في 8/7/2010 at 17:06, عبدالله باقشير said:

السلام عليكم

 

 

 

بحث بثلاثة معايير حسب الاختيار

 

 

مع اضافة نتيجة البحث في الصف المحدد على الورقة النشطة

 

طلب لاحدهم جعلته هنا لتعم الفائدة

 

 

خبور خير

بحث بثلاثة معايير مع نسخ بيانات1.rar