ใน Microsoft Excel

ฉันต้องการสร้างความสูงของสามแถวแรกและสี่คอลัมน์แรก (12 เซลล์ที่มุมบนซ้าย) เพื่อให้เซลล์เหล่านี้เป็นสี่เหลี่ยม สิ่งนี้สามารถทำได้?

น่าแปลกที่ Excel บอกว่า:

Row height: 15
Column width: 8.43

ดังนั้นสิ่งเหล่านี้จึงไม่ได้อยู่ในระดับเดียวกัน

ทำให้ทั้งคู่ 8.43 ให้สิ่งนี้กับฉัน:

ตอนนี้ฉันควรทำอย่างไร

อีกวิธีหนึ่ง ... เปลี่ยนมุมมองของคุณเป็นเค้าโครงหน้า สิ่งนี้จะเปลี่ยนขนาดกริดเป็นนิ้วจากนั้นคุณสามารถตั้งค่าทั้งความสูงและความกว้างเป็นค่าเดียวกันได้ (เช่น 25 นิ้ว) เค้าโครงหน้า IMO เป็นมุมมองมาตรฐานที่ดีที่สุดสำหรับการทำงานกับลักษณะที่ปรากฏของสเปรดชีต

นี่คือตัวอย่างที่มีมิติข้อมูลจริงสำหรับมุมมองทั้งสอง:

เลือกทั้งหมด (หรือแถว / คอลัมน์ที่คุณต้องการ) จากนั้นลากเพื่อปรับขนาดตามขนาดที่คุณต้องการ

1. ลากขอบของส่วนหัวของคอลัมน์เพื่อปรับขนาดความกว้างของคอลัมน์ เคล็ดลับเครื่องมือจะปรากฏขึ้นพร้อมกับจำนวนพิกเซลที่แน่นอน
2. จำค่าพิกเซล!
3. ลากขอบของส่วนหัวของแถวเพื่อปรับขนาดความสูงของแถวใช้วิธีเดียวกัน
4. ลากไปที่ค่าพิกเซลเดียวกัน

ทำ!

ความกว้างคอลัมน์ของ Excel วัดจากจำนวนศูนย์ (0) ที่สามารถใส่ลงในเซลล์ได้ในรูปแบบปกติ ในการแปลงเป็นคะแนน (การวัดความสูงของแถว) ให้ดู

http://www.dailydoseofexcel.com/archives/2004/06/01/column-widths-in-points/

หากคุณไม่ต้องการที่จะแน่นอนเพียงแค่ลูกตามัน หากคุณจำเป็นต้องอยู่ใกล้กว่าดวงตาให้ใส่สี่เหลี่ยมจากแถบเครื่องมือรูปวาดบนแผ่นงานของคุณแล้วกำหนดขนาด หากคุณต้องการ 10 x 10 ให้ใช้รหัสดังนี้:

sheet1.Shapes(1).Height = 10
sheet1.Shapes(1).Width = 10
sheet1.Shapes(1).Top = sheet1.Shapes(1).TopLeftCell.Top
sheet1.Shapes(1).Left = sheet1.Shapes(1).TopLeftCell.Left

จากนั้นคุณสามารถปรับขนาดแถวและคอลัมน์ของคุณให้พอดีกับสี่เหลี่ยมจัตุรัสและอ่านความสูงและความกว้างคอลัมน์

VBA ดูเหมือนจะเกินความจำเป็นเล็กน้อยสำหรับผลลัพธ์อย่างง่าย .. หากคุณคลิกค้างไว้เมื่อคุณลากเพื่อเปลี่ยนขนาดแถว / col ขนาดพิกเซลจะปรากฏในวงเล็บ หน่วยเหล่านี้จะไม่ถูกปรับสัดส่วนและดังนั้นหากคุณตั้งค่าขนาดแถวและคอลัมน์เป็นพิกเซลเท่ากันหน่วยเหล่านี้จะเป็นสี่เหลี่ยมจัตุรัส แน่นอนว่านี่เป็นกระบวนการแบบแมนนวล .. แต่คุณสามารถหาขนาดที่เท่ากันได้แล้วเลือกช่วงของแถว / คอลัมน์และตั้งค่าขนาดทั้งหมดในครั้งเดียว

หากคุณต้องการทำเพื่อทั้งแผ่นคุณสามารถใช้เคล็ดลับนี้ - ซึ่งอาจเป็นประโยชน์ต่อไป: คลิกที่กล่องทางด้านซ้ายของส่วนหัวคอลัมน์ A เพื่อเลือกเซลล์ทั้งหมด คลิกและลากหนึ่งในตัวแบ่งส่วนหัวคอลัมน์ตามขนาดที่คุณต้องการสังเกตจำนวนพิกเซลสำหรับความกว้างของเซลล์ที่เกิดขึ้น (ฉันใช้ Excel 2007 ซึ่งจะแสดงสิ่งนี้) ทำเช่นเดียวกันสำหรับตัวคั่นป้ายกำกับแถวหนึ่งจับคู่กับความกว้างคอลัมน์เป็นพิกเซล สิ่งนี้จะทำให้เซลล์ทั้งหมดในกล่องแผ่นงาน ซึ่งแน่นอนว่าไม่ใช่สิ่งที่คุณถาม แต่ฉันหวังว่าเคล็ดลับนี้จะใช้ได้กับเซลล์ย่อย น่าเสียดายที่มันไม่ได้

คุณต้องระวังว่าอะไรคือสแควร์ทางคณิตศาสตร์และสแควร์ที่เห็นต่างกันคืออะไร ไม่ใช่ว่าทุกจอภาพจะทำแบบเดียวกัน โดยทั่วไปแล้วพิกเซลจะกว้างกว่าความสูง

ดูภาพต่อไปนี้:

พิกเซลย่อยย่อยสีแดง, สีเขียวและสีน้ำเงินประกอบด้วยพิกเซลทั้งหมด อย่างที่คุณเห็นการรวมกันของ 3 นั้นกว้างกว่าความสูง 1 พิกเซลย่อย ในกรณีส่วนใหญ่ความแตกต่างนั้นบอบบางและคนส่วนใหญ่อาจไม่สังเกตเห็น อย่างไรก็ตามในบางกรณีคนทำ

ฉันพิจารณาว่าสแควร์สามารถทำได้ด้วยอัตราส่วนความสูง 7.25 แถวสำหรับทุก ๆ 1.0 ของความกว้างคอลัมน์

ที่จริงฉันมีปัญหาเดียวกันในอดีต สิ่งที่ดีที่สุดสำหรับฉันคือรหัส VBA ต่อไปนี้ ฉันพบความสัมพันธ์เชิงเส้นโดยลองผิดลองถูก

รหัสใช้งานได้กับเซลล์เดียว แต่ยังใช้สำหรับการเลือก ในกรณีหลังสี่เหลี่ยมจะขึ้นอยู่กับความกว้างหรือความสูงของการเลือกทั้งหมด

Sub MakeCellSquareByColumn()
    Selection.RowHeight = Selection.Width / Selection.Columns.Count
    Selection.ColumnWidth = (((Selection.Width / Selection.Columns.Count) / 0.75 - 5) / 7)
End Sub

Sub MakeCellSquareByRow()
    Selection.ColumnWidth = (((Selection.Height / Selection.Rows.Count) / 0.75 - 5) / 7)
    Selection.RowHeight = Selection.Height / Selection.Rows.Count
End Sub

คุณสามารถใส่แมโครเหล่านี้ลงในโมดูลและกำหนดปุ่มให้กับพวกมันในแถบเครื่องมือด่วน

โปรดทราบว่าสี่เหลี่ยมจะหายไป (ตามความกว้างของคอลัมน์ที่เปลี่ยนแปลง) เมื่อคุณเปลี่ยนประเภทแบบอักษรหรือขนาด นี่คือสาเหตุที่ Excel คำนวณความกว้างของคอลัมน์ ดู: https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel

รหัสต่อไปนี้ทำงานให้ฉัน

Sub Grid_Squares()
    With Cells(1, 1)
        Cells.RowHeight = .Width
        Cells.ColumnWidth = .ColumnWidth
    End With
End Sub

ผลลัพธ์:

นี่คือทางออก VBA

Private Sub MakeSquareCells()

'//  Create graph paper in Excel see    http://www.erlandsendata.no/english/index.php?d=envbawssetrowcol  if you want cm or inches


    Set Cursheet = ActiveSheet

    'don't drive the person crazy watching you work
    UpdateScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    With wksToHaveSquareCells
        .Columns.ColumnWidth = 5 '// minimum 2, max 400 ; above 7 --> zoom doesn't work nice
        .Rows.EntireRow.RowHeight = .Cells(1).Width
        '// ActiveWindow.Zoom = true
    End With

    Application.ScreenUpdating = UpdateScreen
    Cursheet.Activate           '// Reactivate sheet that has been active at entrance of this subroutine

End Sub

ก่อนอื่นให้เลือกเซลล์ที่คุณต้องการปรับขนาด จากนั้นบนHomeแท็บไปที่Cellsกล่องและคลิกFormatตัวเลือก ที่นี่คุณสามารถเปลี่ยนRow HeightและColumn Widthของเซลล์ที่เลือกได้ตามที่คุณต้องการ

ฉันต้องการสร้างตารางสี่เหลี่ยมที่สมบูรณ์แบบสำหรับโครงการเย็บผ้าและยังได้คำตอบแปลก ๆ สำหรับคำถามนี้ดังนั้นฉันจึงตัดสินใจเล่นด้วยตัวเองเพื่อหาคำตอบ ฉันค้นพบว่ามันเป็นไปไม่ได้ที่จะได้สแควร์ที่สมบูรณ์แบบ แต่ฉันเข้ามาใกล้ที่สุดเท่าที่จะทำได้

1. เน้นสี่เหลี่ยมที่คุณต้องการจัดรูปแบบ
2. ไปที่แท็บรูปแบบ
3. จัดรูปแบบความกว้างคอลัมน์ที่ 12.43
4. จากนั้นจัดรูปแบบความสูงของเซลล์เป็น 75.00

การใช้ไม้บรรทัดฉันพบว่าฉันเป็นเพียงเศษเสี้ยวที่ความยาว 7 และ 10 นิ้ว หวังว่านี่จะช่วยได้

ฉันใช้อัตราส่วน 5-1 / 3 ความสูงของแถวต่อความกว้างของคอลัมน์

ตัวอย่างเช่นทำให้แถวสูง 53.33 และความกว้างของคอลัมน์ 10 หรือ 106.66 และ 20 ตามลำดับและคุณจะอยู่ใกล้พอสำหรับงานรัฐบาล

ฉันเชื่อว่านี่เป็นวิธีแก้ปัญหาที่ง่ายที่สุด ...

วิธีนี้ใช้ไม้บรรทัด Excel ซึ่งทำให้เข้าใจง่ายขึ้น / ขนาดแถวและคอลัมน์ที่เข้าใจง่ายขึ้นและถูกต้องมากขึ้น

• เลือกมุมมองบน Ribbon
• ภายในมุมมองสมุดงานให้เลือกเค้าโครงหน้า
• หากไม้บรรทัดไม่ปรากฏให้เลือกช่องทำเครื่องหมายไม้บรรทัดภายในกลุ่มแสดง
• กดปุ่มเลือกทั้งหมด (มุมบนซ้ายใต้สมุดชื่อ)
• คลิกขวาที่แถวเลือกตัวเลือกการปรับขนาดแล้วป้อนค่าการวัดที่ต้องการ คลิกขวาและทำซ้ำสำหรับคอลัมน์

แค่นี้แหละ ผลที่ได้คือสิ่งที่ปรากฏเป็นสี่เหลี่ยมที่สมบูรณ์แบบ แม้แต่ตัวเลือกในการเปลี่ยนหน่วยการวัดภายในกลุ่ม Display ของแท็บ Advanced ใน Excel Options หวังว่านี่จะเป็นประโยชน์มากที่สุด! :)

คลิกและลากบนเส้นขอบระหว่างแถว หากต้องการปรับขนาดคอลัมน์ / แถวมากกว่าหนึ่งครั้งให้เลือกทั้งหมดคลิกขวาแล้วคลิก "ความสูงของแถว ... " และตั้งเป็นความสูงเดียวกันกับแถวที่มีความกว้าง

• เลือกคอลัมน์ (คลิกที่คอลัมน์ A จากนั้นกด shift ค้างไว้และคลิกที่ปลายอีกด้าน)

• คลิกขวาที่หนึ่งในคอลัมน์คลิกความกว้างของคอลัมน์จากนั้นป้อนค่าใหม่

• คุณสามารถทำเช่นเดียวกันกับแถวจากนั้นคลิกความสูงของแถวเพื่อรับความสูงของแถว

หากคุณต้องการให้แถวและคอลัมน์ดูเป็นสี่เหลี่ยมโปรดเลือกเซลล์ทั้งหมดที่คุณต้องการสร้างตารางและเปลี่ยนความสูงของแถวเป็น 28.8 และเปลี่ยนความกว้างของคอลัมน์เป็น 4.56

ทางออกที่ง่าย

• เลือกเซลล์ทั้งหมด
• ลากคอลัมน์ไปยังขนาดพิกเซลที่ต้องการ (คุณจะเห็นขนาดคอลัมน์ทั้งในจุดและพิกเซลขณะที่คุณลากและปรับขนาดคอลัมน์)
• ทำซ้ำสำหรับแถว (เลือกจำนวนพิกเซลเท่ากัน)
• สิ่งนี้จะช่วยให้คุณมีเซลล์ขนาดสี่เหลี่ยมจัตุรัสที่สมบูรณ์แบบในแผ่นงาน

Excel 2010 การปรับในมุมมองเค้าโครงหน้ากระดาษแล้วสลับกลับไปเป็นมุมมองปกติไม่ทำงาน ฉันสามารถตรวจสอบได้โดยใช้เครื่องมือวาดภาพและสร้างสี่เหลี่ยมที่สมบูรณ์แบบในมุมมองปกติ นี่เป็นวิธีที่ง่ายที่สุดในการทำให้สี่เหลี่ยมทุกขนาด

ความกว้างของคอลัมน์ = 2.71 ความสูงของแถว = 18

• เลือกทั้งหมด - Ctrl + A
• คลิกขวาที่ส่วนหัวของคอลัมน์และเลือกความกว้างของคอลัมน์
• ป้อนค่า = 4> ตกลง
• ที่นั่นคุณจะเห็นเซลล์ทั้งหมดในรูปทรงสี่เหลี่ยมจัตุรัสที่สมบูรณ์แบบ

นี่เป็นกลอุบายที่ใช้ VBA อย่างเป็นระเบียบ ตั้งค่าเครื่องแบบrowHeightจากนั้นใช้Widthคุณสมบัติ (ส่งคืนขนาดคอลัมน์เป็นจุด) และหารRowHeightด้วยเพื่อให้ได้อัตราส่วนความสูง / ความกว้างต่อหน่วยที่น้อยลง สร้างใหม่ColumnWidthที่คูณกับต้นฉบับColumnWidthเพื่อสร้างสี่เหลี่ยมทุกอย่าง

Sub makeSquares() 
Cells.RowHeight = 20
With Cells(1, 1)
W = .ColumnWidth
HWratio = .RowHeight / .Width
Cells.ColumnWidth = W * HWratio
End With
End Sub