วิธีการสร้างเซลล์หลายเซลล์ใน Excel

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

จัดตารางเซลล์หลายเซลล์โดยลากขอบคอลัมน์และแถว

สร้างเซลล์หลายเซลล์ด้วย Kutools for Excel

สี่เหลี่ยมหลายเซลล์ด้วยรหัส VBA

จัดตารางเซลล์หลายเซลล์โดยลากขอบคอลัมน์และแถว

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

1. กด Ctrl + เพื่อเน้นทั้งแผ่นงาน

2- วางเคอร์เซอร์ไว้ที่ขอบระหว่างคอลัมน์ A และคอลัมน์ B เคอร์เซอร์จะเปลี่ยนเป็นลูกศรคู่สีดำ ลากแล้วคุณจะเห็นตัวเลขสองตัว เช่น "ความกว้าง: 8.43 (64พิกเซล)" ลากขึ้นไปตามตัวเลขที่คุณต้องการ ในตัวอย่างนี้ ฉันจะลากขึ้นไปที่ "ความกว้าง: 13.57 (100 พิกเซล)"

3- จากนั้นวางเคอร์เซอร์ไว้ที่ขอบระหว่างแถวที่ 1 และแถวที่ 2 ขณะที่เคอร์เซอร์เปลี่ยนเป็นลูกศรคู่สีดำ ให้ลากและวางตัวเลขในพิกเซลให้ตรงกับหมายเลขพิกเซลที่ได้ในขั้นตอนที่ 2 จะได้ "ความสูง 75.00" (100 พิกเซล)"

เมื่อคุณปล่อยเมาส์ คุณจะมีเซลล์สี่เหลี่ยมทั้งแผ่นขนาด 100 * 100 พิกเซล ดูภาพหน้าจอ:

สร้างเซลล์หลายเซลล์ด้วย Kutools for Excel

โค้ดด้านบนมีข้อจำกัดบางประการ และใช้หน่วยเป็นนิ้วเท่านั้น หากต้องการสร้างเซลล์สี่เหลี่ยมจัตุรัสขนาด 5×5 ซม. ใน Excel จะต้องทำอย่างไร

หากคุณติดตั้ง Kutools for Excel ปัญหานี้จะแก้ไขได้อย่างง่ายดาย

1. เน้นเซลล์ที่คุณต้องการให้เป็นรูปสี่เหลี่ยมจัตุรัส

2. คลิก Kutools > ตัวแปลงช่วง > ปรับขนาดเซลล์ดูภาพหน้าจอ:

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

4. คลิก OK or สมัครสมาชิกเซลล์ที่เลือกถูกเปลี่ยนเป็นสี่เหลี่ยม 2 * 2 ซม.

สี่เหลี่ยมหลายเซลล์ด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณแก้ปัญหานี้ได้

1. เลือกเซลล์ที่คุณต้องการทำให้เป็นสี่เหลี่ยมจัตุรัส

2. คลิก ผู้พัฒนา > ของ Visual Basic และใหม่ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นให้คลิก สิ่งที่ใส่เข้าไป > โมดูลและใส่รหัสต่อไปนี้ลงในโมดูล:

Sub MakeSquare()
'Updated by Extendoffice 2024/07/15
Dim WPChar As Double
Dim DInch As Double
Dim Temp As String
Temp = InputBox("Height and width in inches?")
DInch = Val(Temp)
If DInch > 0 And DInch < 2.5 Then
For Each c In ActiveWindow.RangeSelection.Columns
WPChar = c.Width / c.ColumnWidth
c.ColumnWidth = ((DInch * 72) / WPChar)
Next c
For Each r In ActiveWindow.RangeSelection.Rows
r.RowHeight = (DInch * 72)
Next r
End If
End Sub

3. จากนั้นคลิกปุ่ม ปุ่มเพื่อเรียกใช้โค้ด กล่องพร้อมท์จะปรากฏขึ้นเพื่อเตือนให้คุณป้อนหมายเลขที่คุณต้องการ ดูภาพหน้าจอ:

4. จากนั้นคลิก OKเซลล์ที่เลือกจะเป็นรูปสี่เหลี่ยมจัตุรัสแล้ว

บทความที่เกี่ยวข้อง:

• วิธีกำหนดขนาดเซลล์เป็นซม. (เซนติเมตร) ใน Excel