السلام عليكم و رحمة الله
هذا برنامج بسيط للبحث في قوائم التلاميذ و فيه خيارات البحث حسب الاسم او اللقب او مهنة الاب او اسم الاب يمكن استعماله في المدرسة او في برنامج آخر خاص بالموظفين او العمال
تحياتي للجميع .
السلام عليكم و رحمة الله
هذه محاولة مني أرجو من الاخوة الكرام الاطلاع عليها و إبداء الرأي فيها و هي البحث في آيات القرآن الكريم و لمن وجد خطأ يرجى تصحيحه و ابلاغي بذلك لأتداركه و أصححه
شكرا للجميع
القرآن.rar
الاخفاء
Private Sub CommandButton1_Click()
For i = 1 To 255
If Cells(2, i) = "مج" Or Cells(2, i) = "مج كلى" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
End Sub
الاظهار
Private Sub CommandButton2_Click()
For i = 1 To 255
If Cells(2, i) = "مج" Or Cells(2, i) = "مج كلى" Then
Columns(i).EntireColumn.Hidden = False
End If
Next
End Sub
شيت1.rar