| Maxs | Дата: Понедельник, 24.12.2012, 12:05 | Сообщение # 1 |
|
Admin
Группа: Администраторы
Сообщений: 76
Статус: Offline
| все ПРОПИСНЫЕ БУКВЫ ( на кнопку)
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 23
For j = 1 To 23
Cells(i, j) = UCase(Cells(i, j))
Next j
Next i
End Sub
|
| |
|
|
| Maxs | Дата: Понедельник, 24.12.2012, 15:01 | Сообщение # 2 |
|
Admin
Группа: Администраторы
Сообщений: 76
Статус: Offline
| покраска ячеек по содержимому
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
For i = 3 To 25
For j = 2 To 45
If Cells(i, j) = "1" Then Cells(i, j).Interior.Color = RGB(255, 0, 0)
If Cells(i, j) = "2" Then Cells(i, j).Interior.Color = RGB(255, 165, 0)
If Cells(i, j) = "3" Then Cells(i, j).Interior.Color = RGB(255, 255, 0)
If Cells(i, j) = "4" Then Cells(i, j).Interior.Color = RGB(0, 255, 0)
If Cells(i, j) = "5" Then Cells(i, j).Interior.Color = RGB(0, 204, 255)
If Cells(i, j) = "6" Then Cells(i, j).Interior.Color = RGB(0, 0, 255)
If Cells(i, j) = "6" Then Cells(i, j).Font.Color = RGB(255, 255, 255)
If Cells(i, j) = "7" Then Cells(i, j).Interior.Color = RGB(128, 0, 128)
If Cells(i, j) = "8" Then Cells(i, j).Interior.Color = RGB(153, 51, 0)
If Cells(i, j) = "9" Then Cells(i, j).Interior.Color = RGB(255, 0, 255)
If Cells(i, j) = "10" Then Cells(i, j).Interior.Color = RGB(255, 153, 0)
If Cells(i, j) = "11" Then Cells(i, j).Interior.Color = RGB(153, 204, 0)
If Cells(i, j) = "12" Then Cells(i, j).Interior.Color = RGB(128, 128, 0)
If Cells(i, j) = "13" Then Cells(i, j).Interior.Color = RGB(0, 128, 0)
If Cells(i, j) = "14" Then Cells(i, j).Interior.Color = RGB(0, 128, 128)
If Cells(i, j) = "15" Then Cells(i, j).Interior.Color = RGB(153, 51, 102)
If Cells(i, j) = "16" Then Cells(i, j).Interior.Color = RGB(51, 51, 153)
If Cells(i, j) = "16" Then Cells(i, j).Font.Color = RGB(255, 255, 255)
If Cells(i, j) = "17" Then Cells(i, j).Interior.Color = RGB(121, 121, 121)
If Cells(i, j) = "17" Then Cells(i, j).Font.Color = RGB(255, 255, 255)
If Cells(i, j) = "18" Then Cells(i, j).Interior.Color = RGB(0, 0, 0)
If Cells(i, j) = "18" Then Cells(i, j).Font.Color = RGB(255, 255, 255)
Next j
Next i
For i = 2 To 22 Step 3
For j = 2 To 45
Cells(i, j).Interior.Color = RGB(192, 192, 192)
Next j
Next i
End Sub
|
| |
|
|
