Формула VBA для Excel 2003 для вставки специальных значений на основе цвета шрифта

Question

Я пытаюсь использовать VBA для создания макроса, который при вызове сканирует все заполненные ячейки на листе и если цвет шрифта ячеек фиолетовый (13), он скопирует эту ячейку, а специальную вставку вернет только номер и повернет цвет шрифта черный. Я немного экспериментировал с этим, но я нахожусь над моей головой, поэтому, если у вас есть рекомендованные страницы, чтобы узнать vba, я бы тоже это оценил.

Answer 1

Вы можете делать почти все это, просто делая что-то и записывая их с помощью макрорекордера и видя результаты. Это не то, как вы должны сделать это, но это простой пример

Sub setPurpleValues() 
Dim myStr As String 
For Each cell In Range("A2:Z100") 
    If cell.Font.ColorIndex = 13 Then myStr = cell.Value Else myStr = "No" 
'MsgBox (myStr) 
    If myStr <> "No" Then 
    cell.Value = myStr 
    cell.Font.ColorIndex = 1 
    End If 
Next cell 
End Sub