Jeśli chcesz skopiować konkretną sformatowaną komórkę lub kolorowe komórki z jednej kolumny do następnej, ten artykuł jest dla Ciebie. W tym artykule dowiemy się, jak kopiować kolorowe komórki za pomocą kodu VBA.
Poniżej znajduje się migawka danych, które mamy, tj. Kolumna A zawiera dane z kilkoma żółtymi komórkami.
Aby wyodrębnić dane, które są podświetlone tylko na żółto; musimy utworzyć UDF, aby pokazać kolorowe komórki tylko w kolumnie B
- Aby utworzyć funkcję zdefiniowaną przez użytkownika, wykonaj następujące czynności:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Jesteśmy zobowiązani do skopiowania poniższego kodu w standardowym module
Funkcja IsYellow(ByRef r As Range)
Jeśli r.Interior.ColorIndex = 6 Wtedy
IsŻółty = r.Wartość
W przeciwnym razie
IsYellow = vbNullString
Zakończ, jeśli
Koniec funkcji
- W komórce B1 formuła będzie =Jest żółty(A1)
Powyższy kod jest specjalnie dopasowany do koloru nr 6, który jest przeznaczony tylko dla koloru żółtego. W związku z tym udf wyodrębni tylko wartości zawierające kolor#6.
W przypadku, gdy chcemy wyodrębnić komórki w kolorze czerwonym, musimy sprawdzić wyznaczony numer koloru i po prostu zastąpić go żółtym numerem koloru.
W ten sposób możemy pobrać komórki koloru żółtej czcionki za pomocą kodu vba.
Pobierz - wyodrębnij indeks określonych kolorów za pomocą VBA - xlsm