البحث في الموقع
Showing results for tags 'معرفة كود اللون'.
تم العثور علي 1 نتيجه
-
أرفع اليكم هذا الكود لمعرفة رقم بعض الألوان،كل لون و رقمه تحته 'هذا الماكرو يطبق فقط على الورقة 2 ()Sub coloration r = 2 c = 2 Sheets(2).Range("a:q").ClearContents Sheets(2).Range("a:q").ClearFormats For i = i To 56 Sheets(2).Cells(r, c).Interior.ColorIndex =i Sheets(2).Cells(r + 1, c).Value = i Sheets(2).Cells(r + 1, c).Select ( With Selection.Borders(xlEdgeLeft .LineStyle = xlContinuous End With ( With Selection.Borders(xlEdgeTop .LineStyle = xlContinuous End With (With Selection.Borders(xlEdgeBottom .LineStyle = xlContinuous End With (With Selection.Borders(xlEdgeRight End With (With Selection.Borders(xlInsideVertical .LineStyle = xlContinuous End With (With Selection.Borders(xlInsideHorizontal .LineStyle = xlContinuous End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .ReadingOrder = xlContext End With c = c + 1 If c > 13 Then c = 2 r = r + 3 End If Next End Sub
