Jak zmienić wartość komórki, klikając komórkę?
Czy możemy zmienić wartość komórki, klikając komórkę w programie Excel? Na przykład, gdy klikniesz określoną komórkę A1, za pierwszym razem wyświetli się tekst „Excel”, jeśli ponownie klikniesz A1, zostanie wyświetlony tekst „Word”, a po kliknięciu zostanie wyświetlony tekst „Outlook” komórka po raz trzeci. W tym przypadku wartość w komórce A1 będzie powtarzać się z „Excel” na „Word” na „Outlook” na „Excel” …… jak pokazano na poniższym zrzucie ekranu:
Zmień wartość komórki, klikając komórkę z kodem VBA
Zmień wartość komórki, klikając komórkę z kodem VBA
Aby zakończyć to zadanie w programie Excel, poniższy kod VBA może ci pomóc, wykonaj następujące czynności:
1. Kliknij prawym przyciskiem myszy kartę arkusza, którą chcesz zmienić wartość komórki, klikając i wybierz Wyświetl kod z menu kontekstowego oraz w otwartym Microsoft Visual Basic for Applications w oknie, skopiuj i wklej następujący kod do pustego modułu:
Kod VBA: Zmień wartość komórki, klikając komórkę:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
Application.EnableEvents = False
With Target
If .Address = Range("A1").Address Then
Select Case .Value
Case "Excel"
.Value = "Word"
Case "Word"
.Value = "Outlook"
Case "Outlook"
.Value = "Excel"
Case Else
.Value = "Word"
End Select
End If
End With
Range("A2").Select
Application.EnableEvents = True
End Sub
Note: W powyższym kodzie, A1 to komórka, w której chcesz zmienić wartość, klikając „przewyższać","słowo","Outlook”To wartości komórek, które chcesz wyświetlać cyklicznie, możesz je zmienić według potrzeb.
2. Po wklejeniu kodu zapisz kod i zamknij okno. Teraz, gdy klikniesz komórkę A1 po raz pierwszy, od razu pojawi się tekst „Excel”, kliknij go ponownie, pojawi się tekst „Word”, tekst „Outlook” pojawi się, jeśli klikniesz go po raz trzeci, zobacz zrzut ekranu:
Więcej powiązanych artykułów:
Jak filtrować dane, klikając zawartość komórki w programie Excel?
Jak sortować dane kolumn, klikając nagłówek w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!