Jak automatycznie zmienić rozmiar kształtu na podstawie / w zależności od określonej wartości komórki w programie Excel?

Jeśli chcesz automatycznie zmienić rozmiar kształtu na podstawie wartości określonej komórki, ten artykuł może Ci pomóc.

Automatycznie zmieniaj rozmiar kształtu na podstawie określonej wartości komórki za pomocą kodu VBA

Automatycznie zmieniaj rozmiar kształtu na podstawie określonej wartości komórki za pomocą kodu VBA

Niesamowity! Korzystanie z wydajnych kart w programie Excel, takim jak Chrome, Firefox i Safari!

Zaoszczędź 50% swojego czasu i zmniejszaj tysiące kliknięć myszą każdego dnia!

---

Poniższy kod VBA może pomóc w zmianie określonego rozmiaru kształtu na podstawie określonej wartości komórki w bieżącym arkuszu. Wykonaj następujące czynności.

1. Kliknij prawym przyciskiem myszy zakładkę arkusza z kształtem, którego rozmiar chcesz zmienić, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.

2. w Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod VBA do okna Code.

Kod VBA: Automatyczna zmiana rozmiaru kształtu na podstawie określonej wartości komórki w programie Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Row = 2 And Target.Column = 1 Then
        Call SizeCircle("Oval 2", Val(Target.Value))
    End If
End Sub
Sub SizeCircle(Name As String, Diameter)
    Dim xCenterX As Single
    Dim xCenterY As Single
    Dim xCircle As Shape
    Dim xDiameter As Single
    On Error GoTo ExitSub
    xDiameter = Diameter
    If xDiameter > 10 Then xDiameter = 10
    If xDiameter < 1 Then xDiameter = 1
    Set xCircle = ActiveSheet.Shapes(Name)
    With xCircle
        xCenterX = .Left + (.Width / 2)
        xCenterY = .Top + (.Height / 2)
        .Width = Application.CentimetersToPoints(xDiameter)
        .Height = Application.CentimetersToPoints(xDiameter)
        .Left = xCenterX - (.Width / 2)
        .Top = xCenterY - (.Height / 2)
    End With
ExitSub:
End Sub

Uwagi: W kodzie „Owalny 2”To nazwa kształtu, którego rozmiar zmienisz. I Rząd = 2, Kolumna = 1 oznacza, że ​​rozmiar kształtu „Owal 2” zostanie zmieniony na wartość z A2. Zmień je według potrzeb.

Aby automatycznie zmienić rozmiar wielu kształtów na podstawie różnych wartości komórek, zastosuj poniższy kod VBA.

Kod VBA: Automatycznie zmieniaj rozmiar wielu kształtów na podstawie różnych określonych wartości komórek w programie Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xAddress As String
    On Error Resume Next
    If Target.CountLarge = 1 Then
        xAddress = Target.Address(0, 0)
        If xAddress = "A1" Then
            Call SizeCircle("Oval 1", Val(Target.Value))
        ElseIf xAddress = "A2" Then
            Call SizeCircle("Smiley Face 3", Val(Target.Value))
        ElseIf xAddress = "A3" Then
            Call SizeCircle("Heart 2", Val(Target.Value))
        End If
    End If
End Sub

Sub SizeCircle(Name As String, Diameter)
    Dim xCenterX As Single
    Dim xCenterY As Single
    Dim xCircle As Shape
    Dim xDiameter As Single
    On Error GoTo ExitSub
    xDiameter = Diameter
    If xDiameter > 10 Then xDiameter = 10
    If xDiameter < 1 Then xDiameter = 1
    Set xCircle = ActiveSheet.Shapes(Name)
    With xCircle
        xCenterX = .Left + (.Width / 2)
        xCenterY = .Top + (.Height / 2)
        .Width = Application.CentimetersToPoints(xDiameter)
        .Height = Application.CentimetersToPoints(xDiameter)
        .Left = xCenterX - (.Width / 2)
        .Top = xCenterY - (.Height / 2)
    End With
ExitSub:
End Sub

Uwagi:

3. naciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.

Od teraz, gdy zmienisz wartość w komórce A2, rozmiar kształtu Oval 2 zostanie automatycznie zmieniony. Zobacz zrzut ekranu:

Lub zmień wartości w komórkach A1, A2 i A3, aby automatycznie zmienić rozmiar odpowiednich kształtów „Owal 1”, „Buźka 3” i „Serce 3”. Zobacz zrzut ekranu:

Uwagi: Rozmiar kształtu nie będzie się już zmieniać, gdy wartość komórki będzie większa niż 10.

Podobne artykuły:

• Jak dodać kursor myszy nad końcówką do określonego kształtu w programie Excel?
• Jak wypełnić kształt przezroczystym kolorem tła w programie Excel?
• Jak ukryć lub odkryć określony kształt na podstawie określonej wartości komórki w programie Excel?

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

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!

Czytaj więcej... Darmowe pobieranie... Zakup...