VBA-Formel für Excel 2003 zum Einfügen spezieller Werte basierend auf der Schriftfarbe

Question

Ich versuche, VBA zu verwenden, um ein Makro zu erstellen, das bei Aufruf alle Zellen im Blatt scannt und die Zellenschriftfarbe violett ist (13), wird diese Zelle kopiert, und spezielle Paste nur die Nummer zurück und drehen Sie die Schriftfarbe schwarz. Ich habe ein bisschen damit experimentiert, aber ich bin in meinem Kopf, also, wenn Sie irgendwelche empfohlenen Seiten haben, um VBA zu lernen, würde ich das auch schätzen.

Answer 1

Sie können fast alles tun, indem Sie einfach Dinge tun und sie mit dem Makrorecorder aufzeichnen und die Ergebnisse sehen. Dies ist nicht, wie Sie sollte, dies zu tun, sondern ist ein einfaches Beispiel

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