Post Top Ad
Your Ad Spot
الأربعاء، 21 فبراير 2018
تلوين الخلية الفعالة – Active Cell
فعِّل برنامج VBA بالضغط على Atl + F11 من لوحة المفاتيح لديك والصق الكود التالي في ورقة العمل التي تعمل عليها (التي تريد استخدام الكود فيها).
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
' اجعل جميع خلايا ورقة العمل الحالية بدون لون
Cells.Interior.ColorIndex = 0
' لون الخلية الفعالة باللون ذو الكود 8
Target.Interior.ColorIndex = 8
Application.ScreenUpdating = True
End Sub
تلوين كامل سطر وعمود الخلية الفعالة – Active Cell:
تلوين كامل سطر وعمود الخلية الفعالة
يمكنك اسخدام الكود التالي في حال أردت أن تلوِّن كامل سطر وعمود الخلية الفعالة – Active Cell.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' اجعل جميع خلايا ورقة العمل الحالية بدون لون
Cells.Interior.ColorIndex = 0
With Target
' لون كامل سطر الخلية الفعالة
.EntireRow.Interior.ColorIndex = 8
' لون كامل عمود الخلية الفعالة
.EntireColumn.Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub
تلوين سطر وعمود الخلية الفعالة – Active Cell (النطاق مابين الخلية الفعالة و اسم السطر والعمود):
تلوين جزء من سطر وعمود الخلية الفعالة
من خلال الكود التالي, يمكنك تلوين جزء من سطر وعمود الخلية الفعالة– Active Cell والواقع مابين الخلية الفعالة– Active Cell واسم السطر أو العمود.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As
Integer, j As Integer
' اجعل جميع خلايا ورقة العمل الحالية بدون لون
Cells.Interior.ColorIndex = 0
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
' لون عمود الخلية الفعالة مابين الخلية الفعالة واسم العمود
For i = 1 To rowNumberValue
Cells(i, columnNumberValue).Interior.ColorIndex = 6
Next i
' لون سطر الخلية الفعالة مابين الخلية الفعالة واسم العمود
For j = 1 To columnNumberValue
Cells(rowNumberValue, j).Interior.ColorIndex = 6
Next j
End Sub
Tags
اكواد ماكرو#
محاسبه#
Share This
About admin
محاسبه
التسميات:
اكواد ماكرو,
محاسبه
الاشتراك في:
تعليقات الرسالة (Atom)
Post Top Ad
Your Ad Spot
Author Details
??? ??? ??? ?????? ?? ??? ????? ????? ??? ??????? ????? ?????? ????? ?????ً،??? ???? ???? ?????? ?? ???? ??? ?????? ???? ????? ?? ?? ???? ?? ????? ?? ???????? ???? ????? ??? ??????? ????? ???? ?? ????، ??? ???? ???? ?? ??? ?????? ??? ?? ????? ??? ????? ??? ???? ????? ?? ?????، ??? ????، ??? ????، ?? ??? ??? ?????. ???? ????? ???ً ?????ً ??????ً.
ليست هناك تعليقات:
إرسال تعليق