Jak ustawić rozmiar komórki w cm (centymetrach) w programie Excel?
W arkuszu są wstępnie ustawione domyślne jednostki wysokości wiersza i szerokości kolumny, a domyślna szerokość kolumny to 8.38 znaku, a domyślna wysokość wiersza to 12.75 punktu. W programie Excel trudno jest ustawić wysokość wiersza lub szerokość kolumny w calach lub centymetrach. Ale czasami w jakimś celu trzeba zmienić wysokość i szerokość na centymetry. Jak możesz rozwiązać ten problem?
Ustaw rozmiar komórki w cm (centymetrach) za pomocą kodu VBA
Ustaw rozmiar komórki w cm (centymetrach) za pomocą Kutools for Excel
Ustaw rozmiar komórki w cm (centymetrach) za pomocą kodu VBA
Nie możesz ustawić wysokości i szerokości w centymetrach za pomocą funkcji programu Excel, z wyjątkiem używania kodu VBA. Poniższe dwa kody mogą pomóc w ustawieniu szerokości kolumny i wysokości wiersza. Wykonaj następujące czynności:
1. Wybierz komórki, dla których chcesz ustawić je w centymetrach.
2. kliknij Deweloper > Visual Basic, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka > Modułi wprowadź następujący kod do modułu:
Kod do ustawiania wysokości rzędu w centymetrach:
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. Następnie kliknij przycisk, aby wykonać kod. Pojawi się okienko z poleceniem wprowadzenia liczby wysokości wiersza. Zobacz zrzut ekranu:
Note: wprowadzana liczba musi być mniejsza niż 15. Ten kod VBA nie zmieni wysokości wiersza, jeśli wpiszesz 0 w tym oknie dialogowym.
4. kliknij OK. Wysokość wierszy wybranych komórek została ustawiona na 2 centymetry. Zobacz zrzut ekranu:
Jeśli chcesz ustawić również szerokość kolumny w centymetrach, możesz wprowadzić następujący kod:
Kod do ustawienia szerokości kolumny w centymetrach:
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
Ustaw rozmiar komórki w cm (centymetrach) za pomocą Kutools for Excel
Dzięki powyższym kodom możesz ustawić rozmiar komórki tylko w centymetrach, dziś przedstawię Ci wielofunkcyjne narzędzie, Kutools dla programu Excel który nie tylko może ustawić rozmiar komórki w centymetrach, ale także w calach, funtach i pikselach.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. | ||
Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności:(Bezpłatne pobieranie Kutools dla programu Excel teraz!)
1. Podświetl komórki, które chcesz ustawić w centymetrach.
2. kliknij Kutools > Format > Adjust Cell Sizezobacz zrzut ekranu:
3. w Adjust Cell Size w oknie dialogowym wybierz Unit type potrzebujesz i określ Row height i Column width od Set values Sekcja. Zobacz zrzut ekranu:
4. Następnie kliknij OK or Aplikuj. Otrzymasz komórki o wysokości wiersza 2 cm i szerokości kolumny 3 cm.
Ustaw rozmiar komórki w cm (centymetrach) za pomocą Kutools for Excel
Kutools dla programu Excel: funkcje 300 +, które musisz mieć w programie Excel, 30-dniowy bezpłatny okres próbny stąd. |
Podobne artykuły:
Ustaw szerokość kolumny i wysokość wiersza dla zakresu
Jak wyrównać wiele komórek 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!