Jak změnit hodnotu buňky kliknutím na buňku?
Je možné změnit hodnotu buňky kliknutím na buňku v aplikaci Excel? Například když poprvé kliknete na konkrétní buňku A1, zobrazí se text „Excel“, pokud znovu kliknete na A1, zobrazí se text „Word“ a po kliknutí na tento text se zobrazí „Outlook“. buňka potřetí. V tomto případě se hodnota v buňce A1 bude opakovat od „Excel“ do „Word“ do „Outlook“ do „Excel“ ……, jak ukazuje následující snímek obrazovky:
Změňte hodnotu buňky kliknutím na buňku s kódem VBA
Změňte hodnotu buňky kliknutím na buňku s kódem VBA
Chcete-li dokončit tento úkol v aplikaci Excel, může vám pomoci následující kód VBA, postupujte takto:
1. Klikněte pravým tlačítkem na kartu listu, kterou chcete změnit hodnotu buňky kliknutím na, a vyberte Zobrazit kód z kontextového menu a v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:
Kód VBA: Změňte hodnotu buňky kliknutím na buňku:
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
Poznámka: Ve výše uvedeném kódu, A1 je buňka, kde chcete změnit hodnotu kliknutím, “vynikat","Slovo","výhled„Jsou hodnoty buněk, které chcete opakovaně zobrazovat, můžete je podle potřeby změnit.
2. Po vložení kódu jej uložte a zavřete okno. Když nyní poprvé kliknete na buňku A1, zobrazí se text „Excel“ najednou, znovu na něj kliknete, objeví se text „Word“, text „Outlook“ se zobrazí, pokud na něj kliknete potřetí, viz screenshot:
Další související články:
Jak filtrovat data pouhým kliknutím na obsah buňky v aplikaci Excel?
Jak třídit data sloupců kliknutím na záhlaví v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!