مجموعة اكواد جميلة

[قنديل الصياد]

الكود الاول لتحديد مجموعة من الخلايا

Private Sub CommandButton1_Click()
 Range("A1:A5").Select

End Sub

الكود الثاني مسح بيانات خلايا معينة

Private Sub CommandButton2_Click()
Range("A1:A5").Clear
End Sub

الكود الثالث ادراج لون خط ولون خلفية لخلايا محددة

Private Sub CommandButton3_Click()
Randomize Timer
Dim i, j, k As Integer
i = Int(255 * Rnd) + 1
j = Int(255 * Rnd) + 1
k = Int(255 * Rnd) + 1
Cells(1, 1).Font.Color = RGB(i, j, k)
Cells(5, 1).Interior.Color = RGB(j, k, i)
End Sub

مرفق ملف به الاكواد

 

Book1.rar

 

 

 

 

 

 

 

 

 

[حمادة عمر]

[حمادة عمر]

[عبد الحميد شقير]

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

كل عام وأنت بكل خير ....عيد أضحي مبارك علي الأمة الإسلامية