Ինչպե՞ս ինքնաբերաբար փոխել ձևի չափը `հիմնված / կախված Excel- ում նշված բջջային արժեքից:
Եթե ցանկանում եք ավտոմատ կերպով փոխել ձևի չափը ՝ ելնելով նշված բջիջի արժեքից, այս հոդվածը կարող է օգնել ձեզ:
Ավտոմատ փոխել ձևի չափը ՝ ելնելով նշված բջջային արժեքից, VBA կոդով
Ավտոմատ փոխել ձևի չափը ՝ ելնելով նշված բջջային արժեքից, VBA կոդով
Հաջորդ 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-ից մեծ է:
Listուցակեք և արտահանեք բոլոր ձևերը Excel- ի ընթացիկ աշխատանքային գրքում.
The Արտահանել գրաֆիկա օգտակարությունը Excel- ի համար նախատեսված գործիքներ կօգնեն ձեզ արագորեն թվարկել բոլոր ձևերը ընթացիկ աշխատանքային գրքում, և բոլորը կարող եք միանգամից արտահանել որոշակի թղթապանակ, քանի որ ստորև նշված էկրանի նկարը: Ներբեռնեք և փորձեք հիմա: (30 օր անվճար երթուղի)
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս ավելացնել մկնիկը հուշում Excel- ի որոշակի ձևի վրա:
- Ինչպե՞ս լրացնել ձևը Excel- ում թափանցիկ ֆոնի գույնով:
- Ինչպե՞ս թաքցնել կամ ցուցադրել որոշակի ձև Excel- ում նշված բջջային արժեքի հիման վրա:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: