Ինչպե՞ս ինքնաբերաբար փոխել ձևի չափը `հիմնված / կախված Excel- ում նշված բջջային արժեքից:

Եթե ​​ցանկանում եք ավտոմատ կերպով փոխել ձևի չափը ՝ ելնելով նշված բջիջի արժեքից, այս հոդվածը կարող է օգնել ձեզ:

Ավտոմատ փոխել ձևի չափը ՝ ելնելով նշված բջջային արժեքից, VBA կոդով

Ավտոմատ փոխել ձևի չափը ՝ ելնելով նշված բջջային արժեքից, VBA կոդով

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

---

Հաջորդ VBA կոդը կարող է օգնել ձեզ փոխել որոշակի ձևի չափը `ելնելով ընթացիկ աշխատանքային թերթում նշված բջջային արժեքից: Խնդրում եմ, արեք հետևյալ կերպ.

1. Աջ կտտացրեք թերթիկի ներդիրին, որի չափը պետք է փոխեք, և կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. 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

ՆշումԿոդում `«Օվալ 2”Այն ձևի անունն է, որը դուք կփոխեք դրա չափը: Եվ Տող = 2, Սյունակ = 1 նշանակում է, որ «Օվալ 2» ձևի չափը կփոխվի A2- ի արժեքով: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:

Բջջի տարբեր արժեքների վրա հիմնված բազմաթիվ ձևերի ավտոմատ չափափոխման համար խնդրում ենք կիրառել ստորև նշված VBA կոդը:

VBA կոդ. 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

Նշումներ:

3. Մամուլ ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, երբ A2 բջիջում փոխում եք արժեքը, Օվալ 2 ձևի չափը ավտոմատ կերպով փոխվում է: Տեսեք,

Կամ փոխեք A1, A2 և A3 բջիջների արժեքները `համապատասխանաբար« Օվալ 1 »,« ileպտացող դեմք 3 »և« Սրտ 3 »համապատասխան ձևերը չափափոխելու համար: Տեսեք,

ՆշումՁևի չափը այլևս չի փոխվի, երբ բջջի արժեքը 10-ից մեծ է:

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս ավելացնել մկնիկը հուշում Excel- ի որոշակի ձևի վրա:
• Ինչպե՞ս լրացնել ձևը Excel- ում թափանցիկ ֆոնի գույնով:
• Ինչպե՞ս թաքցնել կամ ցուցադրել որոշակի ձև Excel- ում նշված բջջային արժեքի հիման վրա:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...