วิธีการวนรอบเซลล์ใน Excel

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

วงกลมรอบเซลล์ที่มีรูปร่างเป็นวงรี

วงกลมรอบเซลล์ด้วย VBA

วงกลมรอบเซลล์ที่มีรูปร่างเป็นวงรี

หากต้องการวงกลมรอบเซลล์คุณต้องแทรกรูปวงรี

1 คลิก สิ่งที่ใส่เข้าไป > รูปร่างและเลือก รูปไข่ รูปร่างจาก รูปร่างพื้นฐาน ในรายการ ดูภาพหน้าจอ:

2. วาดวงรีเป็นวงกลมรอบเซลล์ที่คุณต้องการ ดูภาพหน้าจอ:

3. คลิกขวาที่รูปร่างและเลือก จัดรูปแบบรูปร่าง จากเมนูบริบท

4 ใน จัดรูปแบบรูปร่าง โต้ตอบ (หรือ จัดรูปแบบรูปร่าง บานหน้าต่าง) คลิก ใส่ แล้วลากลูกศรของ ความโปร่งใส ไปทางขวาเพื่อให้แน่ใจว่า 100% แสดงในกล่องข้อความ ดูภาพหน้าจอ:

5. ปิดกล่องโต้ตอบ ตอนนี้คุณจะเห็นว่ามีวงกลมรอบเซลล์

ปลาย: ตามค่าเริ่มต้น รูปร่างจะย้ายและปรับขนาดตามเซลล์

วงกลมรอบเซลล์ด้วย VBA

หากคุณต้องการวนรอบเซลล์อย่างรวดเร็วคุณสามารถใช้รหัส VBA

1. เลือกเซลล์ที่คุณต้องการวงกลมแล้วกด Alt + F11 คีย์ร่วมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล และคัดลอกรหัส VBA ต่อไปนี้ไปยังหน้าต่างที่โผล่ขึ้นมา

VBA: วงกลมรอบเซลล์

Sub DrawCircle()
	'Updateby20141105
	Dim Arng As Range
	Dim WorkRng As Range
	Set WorkRng = Application.Selection
	For Each Arng In WorkRng.Areas
		With Arng
			x = Arng.Height * 0.1
			y = Arng.Width * 0.1
			Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
			Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
			With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
				.Interior.ColorIndex = xlNone
				.ShapeRange.Line.Weight = 1.25
			End With
		End With
	Next
	WorkRng.Select
End Sub

3 กด F5 คีย์หรือคลิก วิ่ง เพื่อเรียกใช้รหัส VBA ตอนนี้เซลล์ที่เลือกจะวนอยู่

ทิปส์:

(1) หากคุณเลือกเซลล์ที่อยู่ติดกันหลายเซลล์ในขั้นตอนแรกมาโคร VBA นี้จะวนรอบเซลล์เหล่านี้ด้วยกัน

(2) หากคุณเลือกเซลล์ที่ไม่ติดกันหลายเซลล์ในขั้นตอนแรกมาโคร VBA นี้จะวนรอบแต่ละเซลล์ทีละเซลล์