كود بعض الألوان في اكسل

[سليم حاصبيا]

أرفع اليكم هذا الكود لمعرفة رقم بعض الألوان،كل لون و رقمه تحته

 

 

'هذا الماكرو يطبق فقط على الورقة 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

تم تعديل مارس 7, 2014 بواسطه سليم حاصبيا

[حمادة عمر]

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

علي حبك لافادة الجميع باي معلومة لديك

وهذا هو الكود مطبق علي مثال للتوضيح

 

Book1.rar

[حمادة عمر]

وهذ الملف ايضا

 

untitled.rar

[أبو حنــــين]

و هذا كود مختصر

Sub sColor()
c = 2: r = 2
For i = 1 To 56
With Cells(r, c)
.Interior.ColorIndex = i: .Borders.Value = 1: .Value = i
c = c + 1
If c > 9 Then
c = 2
r = r + 2
End If
Next
End Sub