提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or
0
0
0
s2smodern

如何在Excel中以厘米(厘米)為單位設置單元格大小?

在工作表上,預設行高和列寬的默認單位,默認列寬為8.38個字符,默認行高為12.75個點。 而在Excel中,您很難以英寸或厘米為單位設置行高或列寬。 但是,有時您需要將高度和寬度更改為厘米以達到某種目的。 你怎麼能解決這個問題?

使用VBA代碼以厘米(厘米)為單位設置單元格大小

使用Kutools for Excel將單元格尺寸設置為厘米(厘米)好idea3

輕鬆將多個工作表/工作簿合併到一張工作表或工作簿中

將多個工作表或工作簿合併為一個工作表或工作簿可能在Excel中很有用,但使用 Combine 功能在Kutools for Excel中,您可以將幾十張工作表/工作簿合併到一個工作表或工作簿中,而且,只能通過幾次點擊將工作表合併到一個工作表中。 點擊60天免費試用!
結合床單
Kutools for Excel:擁有超過200便利的Excel加載項,可以在60天免費試用,不受限制。

箭頭藍色右泡 使用VBA代碼以厘米(厘米)為單位設置單元格大小

選項卡式瀏覽和編輯多個Excel工作簿/ Word文檔,如Firefox,Chrome,Internet瀏覽10!

您可能熟悉在Firefox / Chrome / IE中查看多個網頁,並通過輕鬆單擊相應的選項卡在它們之間切換。 此處,Office選項卡支持類似的處理,允許您在一個Excel窗口或Word窗口中瀏覽多個Excel工作簿或Word文檔,並通過單擊其選項卡輕鬆切換它們。 點擊免費試用Office Tab!

擅長

除了使用VBA代碼之外,您不能使用Excel的函數以厘米為單位設置高度和寬度。 以下兩個代碼可以幫助您設置列寬和行高。 做如下:

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。 然後點擊 DOC-乘法計算-3 按鈕來執行代碼。 並彈出一個提示框告訴你輸入一些行高。 看截圖:

DOC-設置小區大小cm1

注意:您輸入的號碼必須小於15。 如果在此對話框中輸入0,則此VBA代碼不會更改行高。

4。 點擊 OK。 所選單元格的行高已用2厘米設置。 看截圖:

DOC-設置小區大小cm2 -2 DOC-設置小區大小cm3

如果要以厘米為單位設置列寬,則可以輸入以下代碼:

以厘米為單位設置列寬的代碼:

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

箭頭藍色右泡 使用Kutools for Excel將單元格尺寸設置為厘米(厘米)

使用上面的代碼,您只能以厘米為單位設置單元格大小,今天我將向您介紹一個多功能工具, Kutools for Excel 它不僅可以以厘米為單位設置單元尺寸,還可以以英寸,磅和像素為單位設置單元尺寸。

Kutools for Excel, 與以上 200 方便的功能,使您的工作更輕鬆。

安裝後 Kutools for Excel,請按照以下步驟操作:(免費下載Kutools for Excel!)

1.Highlight您希望以厘米為單位設置它們的單元格。

2。 點擊 Kutools > Format > Adjust Cell Size,看截圖:

doc設置單元格大小cm9

3。 在裡面 Adjust Cell Size 對話框中選擇 Unit type 你需要並指定 Row height - Column widthSet values 部分。 看截圖:

doc以厘米為單位設置單元大小5

4。 然後點擊 OK or 應用。 您將獲得具有2 cm行高和3cm列寬的單元格。

DOC-設置小區大小cm6


箭頭藍色右泡 使用Kutools for Excel將單元格尺寸設置為厘米(厘米)

Kutools for Excel:200 +函數您必須在Excel中, 從這裡60天免費試用。

相關文章:

設置範圍的列寬和行高

如何在Excel中平方多個單元格?


推薦的生產力工具

Office Tab

金星1 帶上方便的選項卡到Excel和其他Office軟件,就像Chrome,Firefox和新的Internet Explorer一樣。

Kutools for Excel

金星1 驚人! 提高您在5分鐘的生產力。 不需要任何特殊技能,每天保存兩個小時!

金星1 200 Excel的新功能,讓Excel變得簡單而強大:

  • 合併單元格/行/列而不丟失數據。
  • 合併和合併多個工作表和工作簿。
  • 比較範圍,複製多個範圍,將文本轉換為日期,單位和貨幣轉換。
  • 按顏色計算,分頁小計,高級分類和超級篩選,
  • 更多選擇/插入/刪除/文本/格式/鏈接/評論/工作簿/工作表工具...

Excel的Kutools屏幕截圖

BTN閱讀更多 BTN下載 btn購買

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Iverson Farias Costa · 3 years ago
    Thank you. I used your idea to compare ColumnWidth and Width, and it was very helpful. I did this function in Object Pascal and want to share it with you. Thanks.

    procedure ActiveCellColumnWidthInCentimeters(ExcelApp: Variant; CM: Double);
    var
    dColumnWidth, dWidth, points: Double;
    begin
    dColumnWidth := ExcelApp.ActiveCell.ColumnWidth;
    dWidth := ExcelApp.ActiveCell.Width;
    points := ExcelApp.CentimetersToPoints(CM);

    ExcelApp.ActiveCell.ColumnWidth := ((points * dColumnWidth) / dWidth);
    end;
  • To post as a guest, your comment is unpublished.
    dm · 3 years ago
    Seems redundant.

    Just go into the regular column size dialogue and add "cm" after typing the size.
  • To post as a guest, your comment is unpublished.
    Sani · 4 years ago
    Needed this badly. [b]Thank you so much![/b]
  • To post as a guest, your comment is unpublished.
    MrsJennyk · 4 years ago
    Wow - that is awesome! I needed to set cells to print at a certain size. I have never been able to figure out how to do that before. Yay for VBA!