Excel 2003でフォントの色に基づいて特別な値を貼り付けるVBAの式

Question

VBAを使用して呼び出されたときにシート内のすべてのセルがスキャンされ、セルのフォントの色が紫色である場合）、それはそのセルをコピーし、特別な数だけをペーストしてフォントの色を黒に変えます。私はそれを少し試してみましたが、私は頭がおかしいので、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