Jak ustawić dynamiczną nazwę przycisku polecenia w programie Excel?
W tym artykule mowa jest o dynamicznej zmianie nazwy przycisku polecenia wraz ze zmianą określonej wartości komórki. Na przykład, jeśli wartość w komórce A1 zostanie zmieniona na „test”, nazwa określonego przycisku polecenia zostanie automatycznie zmieniona na „test”.
Uczyń nazwę przycisku polecenia dynamiczną z wartością komórki według kodu VBA
Uczyń nazwę przycisku polecenia dynamiczną z wartością komórki według kodu VBA
Poniższy kod VBA może pomóc w utworzeniu dynamicznej nazwy przycisku polecenia z określoną wartością komórki w arkuszu. Wykonaj następujące czynności.
1. kliknij Deweloper > wstawka > Przycisk polecenia (formant ActiveX) aby wstawić przycisk polecenia do arkusza. Zobacz zrzut ekranu:
2. Po wstawieniu przycisku polecenia kliknij prawym przyciskiem myszy kartę arkusza i kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy, jak pokazano na poniższym zrzucie ekranu:
3. W otwarciu Microsoft Visual Basic for Applications okno, skopiuj i wklej poniższy kod VBA do okna.
Kod VBA: Uczyń nazwę przycisku polecenia dynamiczną z wartością komórki
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
xStr = Target.Text
End If
End Sub
Note: w kodzie CommandButton1 to nazwa przycisku, którego nazwa ma być dynamiczna, a A1 to komórka, w której automatycznie odniesiesz wartość do nazwy przycisku.
4. wciśnij inny + Q klawisze, aby wyjść z Microsoft Visual Basic for Applications okno.
5. Wyłącz tryb projektowania, klikając Deweloper > Tryb projektowania.
Od tego momentu nazwa przycisku polecenia będzie zmieniana dynamicznie wraz z określoną wartością komórki w arkuszu.
Jak pokazano na zrzucie ekranu poniżej, gdy wartość komórki A1 zostanie zmieniona, nazwa przycisku polecenia zostanie automatycznie zmieniona na tę samą wartość.
Podobne artykuły:
- Jak używać przycisku polecenia, aby zapisać aktywny arkusz roboczy jako plik PDF w programie Excel?
- Jak automatycznie wstawić pusty nowy wiersz za pomocą przycisku polecenia 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!