Ինչպե՞ս Excel- ում բջջի չափը դնել սմ-ով (սանտիմետր):
Աշխատաթերթում տողի բարձրության և սյունի լայնության լռելյայն միավորները նախադրված են, իսկ սյունակի լռելյայն լայնությունը ՝ 8.38 նիշ, իսկ տողի կանխադրված բարձրությունը ՝ 12.75 միավոր: Եվ Excel- ում ձեզ համար դժվար է շարքի բարձրությունը կամ սյունի լայնությունը դյույմներով կամ սանտիմետրերով սահմանել: Բայց երբեմն անհրաժեշտ է բարձրությունը և լայնությունը փոխել սանտիմետրերի ՝ ինչ-որ նպատակով: Ինչպե՞ս կարող էիք լուծել այս խնդիրը:
Սահմանեք բջիջի չափը սմ (սանտիմետր) VBA կոդով
Excel- ի համար նախատեսված Kutools- ի հետ բջիջների չափը սահմանեք սմ (սանտիմետր)
Սահմանեք բջիջի չափը սմ (սանտիմետր) VBA կոդով
Excel- ի գործառույթներով չեք կարող բարձրությունը և լայնությունը սանտիմետրերով սահմանել, բացառությամբ VBA կոդի օգտագործման: Ստորև ներկայացված երկու կոդերը կօգնեն ձեզ սահմանել սյունակի լայնությունը և շարքի բարձրությունը: Կատարեք հետևյալ կերպ.
1. Ընտրեք այն բջիջները, որոնք ցանկանում եք դրանք սանտիմետրերով սահմանել:
2: սեղմեք Երեվակիչ > Visual Basic, նոր Microsoft Visual Basic հավելվածների համար պատուհանը կցուցադրվի, կտտացրեք Տեղադրել > Մոդուլներև մուտքագրեք հետևյալ կոդը Մոդուլում.
Տողի բարձրությունը սանտիմետրերով սահմանելու համար `
Sub RowHeightInCentimeters()
Dim cm As Single
cm = Application.InputBox("Enter Row Height in Centimeters", _
"Row Height (cm)", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
End Sub
3. Այնուհետեւ կտտացրեք ծածկագիրը կատարելու համար: Եվ արագ տուփ դուրս կգա, որպեսզի ասվի, որ մուտքագրեք տողի մի շարք բարձրություն: Տեսեք,
Նշումձեր մուտքագրած համարը պետք է պակաս լինի 15-ից: Եվ այս VBA կոդը չի փոխի տողի բարձրությունը, եթե այս երկխոսության դաշտում մուտքագրեք 0:
4: սեղմեք OK, Եվ ընտրված բջիջների շարքի բարձրությունը դրված է 2 սանտիմետրով: Տեսեք,
Եթե ցանկանում եք սյունակի լայնությունը դնել սանտիմետրերի վրա, կարող եք մուտքագրել հետևյալ կոդը.
Սյունակի լայնությունը սանտիմետրերով սահմանելու համար `
Sub ColumnWidthInCentimeters()
Dim cm As Single, points As Integer, savewidth As Integer
Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer
Dim Count As Integer
Application.ScreenUpdating = False
cm = Application.InputBox("Enter Column Width in Centimeters", _
"Column Width (cm)", Type:=1)
If cm = False Then Exit Sub
points = Application.CentimetersToPoints(cm)
savewidth = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 255
If points > ActiveCell.Width Then
MsgBox "Width of " & cm & " is too large." & Chr(10) & _
"The maximum value is " & _
Format(ActiveCell.Width / 28.3464566929134, _
"0.00"), vbOKOnly + vbExclamation, "Width Error"
ActiveCell.ColumnWidth = savewidth
Exit Sub
End If
lowerwidth = 0
upwidth = 255
ActiveCell.ColumnWidth = 127.5
curwidth = ActiveCell.ColumnWidth
Count = 0
While (ActiveCell.Width <> points) And (Count < 20)
If ActiveCell.Width < points Then
lowerwidth = curwidth
Selection.ColumnWidth = (curwidth + upwidth) / 2
Else
upwidth = curwidth
Selection.ColumnWidth = (curwidth + lowerwidth) / 2
End If
curwidth = ActiveCell.ColumnWidth
Count = Count + 1
Wend
End Sub
Excel- ի համար նախատեսված Kutools- ի հետ բջիջների չափը սահմանեք սմ (սանտիմետր)
Վերոնշյալ կոդերով բջիջների չափը կարող եք սահմանել միայն սանտիմետրերով, այսօր ես ձեզ կներկայացնեմ բազմաֆունկցիոնալ գործիք, Excel- ի համար նախատեսված գործիքներ որը ոչ միայն կարող է սահմանել բջիջների չափը սանտիմետրերով, այլ նաև դյույմներով, ֆունտով և պիքսելներով:
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: | ||
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)
1. Նշեք այն բջիջները, որոնք ցանկանում եք դրանք դնել սանտիմետրերի վրա:
2: սեղմեք Kutools > Format > Adjust Cell Size, տես նկարի նկարը.
3. Մեջ Adjust Cell Size երկխոսության տուփ, ընտրեք Unit type Ձեզ անհրաժեշտ է և նշեք այն Row height և Column width - ից Set values Բաժին. Տեսեք,
4. Այնուհետեւ կտտացրեք OK or Դիմել, Դուք կստանաք բջիջներ 2 սմ շարքի բարձրությամբ և 3 սմ սյունակի լայնությամբ:
Excel- ի համար նախատեսված Kutools- ի հետ բջիջների չափը սահմանեք սմ (սանտիմետր)
Excel- ի համար նախատեսված գործիքներ. 300 + գործառույթ, որը դուք պետք է ունենաք Excel- ում, 30 օր անվճար փորձն այստեղից: |
Առնչվող հոդվածներ քանակը:
Սահմանեք սյունակի լայնությունը և շարքի բարձրությունը մի տիրույթի համար
Ինչպե՞ս Excel- ում մի քանի բջիջներ քառակուսացնել:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: