Note: The other languages of the website are Google-translated. Back to English
English English

วิธีแทรกช่องทำเครื่องหมายหลายช่องใน Excel อย่างรวดเร็ว

เราจะแทรกช่องทำเครื่องหมายหลายช่องใน Excel อย่างรวดเร็วได้อย่างไร? โปรดทำตามวิธีการที่ยุ่งยากเหล่านี้ใน Excel:

แทรกช่องทำเครื่องหมายหลายช่องด้วย Fill Handle

แทรกช่องทำเครื่องหมายหลายช่องด้วยรหัส VBA

แทรกและลบช่องทำเครื่องหมายหลายช่องได้ด้วยคลิกเดียวโดยใช้ Kutools for Excel


ลูกศรสีฟ้าฟองขวา แทรกช่องทำเครื่องหมายหลายช่องด้วย Fill Handle

ใน Excel Fill Handle เป็นฟังก์ชันที่มีประสิทธิภาพในการทำสิ่งต่างๆ สามารถเติมช่องทำเครื่องหมายได้เช่นกัน ขั้นแรกคุณต้องแทรกช่องทำเครื่องหมาย ดำเนินการดังต่อไปนี้:

1. คลิก ผู้พัฒนา ในแถบเมนูจากนั้นคลิก สิ่งที่ใส่เข้าไปแล้วเลือกภาพช่องทำเครื่องหมายด้านล่าง การควบคุมแบบฟอร์ม. ดูภาพหน้าจอ:

doc-insert-multiple-checkboxes1

2. คลิกรูปภาพช่องทำเครื่องหมายแล้วคุณจะเห็นตัวชี้เครื่องหมายบวกคลิกที่ที่คุณต้องการเพิ่มช่องทำเครื่องหมาย

doc-insert-multiple-checkboxes2

3. เลือกกล่องกาเครื่องหมายและย้ายไปยังเซลล์จากนั้นลบชื่อของกล่องกาเครื่องหมาย

4. จากนั้นเลือกเซลล์ที่ช่องทำเครื่องหมายอยู่จากนั้นลากจุดจับเติมเหนือช่วงของเซลล์ที่คุณต้องการเติม ดูภาพหน้าจอ:

doc-insert-multiple-checkboxes3


แทรกช่องทำเครื่องหมายหลายช่องในการเลือกได้ด้วยคลิกเดียว:

Kutools สำหรับ Excel's กล่องกาเครื่องหมายแทรกแบทช์ ยูทิลิตี้สามารถช่วยให้คุณแทรกช่องทำเครื่องหมายหลายช่องพร้อมกันได้อย่างรวดเร็ว คลิกเพื่อดาวน์โหลดคุณลักษณะนี้ฟรี

doc ใส่ช่องทำเครื่องหมายหลายช่อง 10

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!


ลูกศรสีฟ้าฟองขวา แทรกช่องทำเครื่องหมายหลายช่องด้วยรหัส VBA

หากคุณคิดว่าวิธีแรกค่อนข้างยุ่งยากรหัส VBA ต่อไปนี้สามารถช่วยให้คุณแทรกช่องทำเครื่องหมายหลายช่องได้อย่างง่ายดายและรวดเร็ว

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

Sub InsertCheckBoxes()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

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

doc-insert-multiple-checkboxes4

3. จากนั้นคลิก OKช่องทำเครื่องหมายถูกแทรกในช่วงอย่างเรียบร้อยและสวยงาม ดูภาพหน้าจอ:

doc-insert-multiple-checkboxes5


ลูกศรสีฟ้าฟองขวา แทรกช่องทำเครื่องหมายหลายช่องด้วย Kutools for Excel

ที่นี่ฉันสามารถแนะนำวิธีที่ง่ายและสะดวกในการแทรกช่องทำเครื่องหมายหลายช่องKutools สำหรับ Excelเดียวกันกับที่ กล่องกาเครื่องหมายแทรกแบทช์ คุณสามารถแทรกช่องทำเครื่องหมายลงในเซลล์ว่างหรือเซลล์ที่มีข้อมูลได้

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน.

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามขั้นตอนต่อไปนี้:

1. เลือกช่วงของเซลล์ที่คุณต้องการแทรกช่องทำเครื่องหมาย

2. คลิก Kutools > สิ่งที่ใส่เข้าไป > กล่องกาเครื่องหมายแทรกแบทช์ดูภาพหน้าจอ:

doc-insert-multiple-checkboxes06

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

แทรกช่องทำเครื่องหมายลงในเซลล์ว่าง แทรกช่องทำเครื่องหมายลงในเซลล์ข้อมูล
doc-insert-multiple-checkboxes7 doc-insert-multiple-checkboxes8

เคล็ดลับ หากคุณต้องการลบช่องทำเครื่องหมายหลายช่องอย่างรวดเร็วโปรดลองใช้ไฟล์ Kutools สำหรับ Excel's ลบกล่องกาเครื่องหมาย ดังที่แสดงในภาพหน้าจอต่อไปนี้ ฟังก์ชั่นเต็มรูปแบบโดยไม่มีข้อ จำกัด ใน 60 วัน โปรดดาวน์โหลดและทดลองใช้ฟรีทันที.

doc-insert-multiple-checkboxes9

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!


ลูกศรสีฟ้าฟองขวา แทรกและลบช่องทำเครื่องหมายหลายช่องด้วย Kutools for Excel

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

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

วิธีลบช่องทำเครื่องหมายหลายช่องใน Excel อย่างรวดเร็ว


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (51)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มาโครที่ยอดเยี่ยมที่ทำงานอย่างสวยงามเพื่อแทรกกล่องกาเครื่องหมายลงในช่วงที่เลือกอย่างรวดเร็วและง่ายดาย ขอบคุณ. คุณจะพิจารณาแสดงตัวอย่างของมาโครเพื่อแทรกในช่วงที่เลือกรายการดรอปดาวน์แบบกำหนดเองที่มีสามตัวเลือก: "ใช่" "ไม่" และ "อาจจะ" หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทริคเยี่ยม...ผมสนุกกับมัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำไมถึงมีเด็กผู้ชายคนเดียวในชั้นเรียนนี้ ????
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]ทำไมชั้นนี้มีเด็กผู้ชายคนเดียว????โดย Daniel[/quote] :lol: นั่นเป็นเพียงการสาธิตเท่านั้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
งานมาโครที่ยอดเยี่ยมเพิ่มช่องทำเครื่องหมายในเซลล์ ขอบคุณ :-)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
งานที่ยอดเยี่ยม ขอบคุณครับ :roll:
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เจ๋ง! ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อฉันทำเช่นนี้ ทุกอย่างทำงานได้ดี (ขอบคุณ!) ยกเว้นเมื่อเลือกช่องทำเครื่องหมาย จะมีสีเติมสีเหลืองในเซลล์โดยอัตโนมัติ ทำอย่างไรถึงจะเจอแต่กล่องที่ไม่ได้เติมสี? ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]เมื่อฉันทำสิ่งนี้ ทุกอย่างทำงานได้ดี (ขอบคุณ!) ยกเว้นเมื่อเลือกช่องทำเครื่องหมาย จะมีสีเติมสีเหลืองในเซลล์โดยอัตโนมัติ ทำอย่างไรถึงจะเจอแต่กล่องที่ไม่ได้เติมสี? ขอบคุณ!โดย #ฌอน[/quote] เพียงแค่เปลี่ยนบรรทัดตามที่กล่าวในความคิดเห็น: .FormatConditions(1).Interior.ColorIndex = 6 'เปลี่ยนสีอื่นเมื่อทำเครื่องหมาย ปล่อยทิ้งไว้โดยสมบูรณ์ หากคุณไม่ต้องการเปลี่ยนสี ไชโย!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันทำไปแล้ว แต่เมื่อฉันตรวจสอบหนึ่ง boc ทั้งหมดจะถูกตรวจสอบด้วยกัน ฉันจะแยกพวกเขาได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสใช้งานได้ดีมาก! ฉันแก้ไขสีตอนนี้ ฉันต้องการจัดช่องกาเครื่องหมายไว้ตรงกลางในแต่ละเซลล์ คิดเห็นไหมว่าฉันจะต้องแก้ไขอะไรสำหรับสิ่งนั้น ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]โค้ดใช้ดีมาก! ฉันแก้ไขสีตอนนี้ ฉันต้องการจัดช่องกาเครื่องหมายไว้ตรงกลางในแต่ละเซลล์ คิดเห็นไหมว่าฉันจะต้องแก้ไขอะไรสำหรับสิ่งนั้น ขอบคุณ!By ไวโอเล็ต[/quote] สำหรับแต่ละ Rng ใน WorkRng ด้วย Ws.CheckBoxes.Add((Rng.Offset(0, 1).Left - Rng.Left) / 2 + Rng.Left - CkBoxSize, Rng.Top, 0.33, Rng.Height ) .Characters.Text = Rng.Value End With
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันทำให้ฉันมีข้อผิดพลาดเมื่อเปิดขึ้นมาว่าต้องแก้ไขข้อผิดพลาดหรือไม่? ความช่วยเหลือใด ๆ ? หากมีคนต้องการช่วย ฉันจะโพสต์รายงานที่ฉันได้รับจาก Microsoft office
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
กล่องกาเครื่องหมายไปเล็กน้อยเมื่อคุณคัดลอกด้วยเซลล์ที่เชื่อมโยง ฉันต้องเขียนบางสิ่งเพื่อรีเซ็ตการลิงก์เมื่อฉันต้องการคัดลอกเซลล์เหล่านั้นไปที่อื่น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เราสามารถกรองกล่องกาเครื่องหมายเหล่านั้นได้หรือไม่? โดยทั่วไปแสดงเฉพาะผู้ที่เข้าร่วม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เราสามารถกรองกล่องกาเครื่องหมายเหล่านั้นได้หรือไม่ โดยทั่วไปแสดงเฉพาะผู้ที่เข้าร่วม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช่ทั้งหมด ช่องทำเครื่องหมายไม่ขึ้นกับเซลล์จริงๆ โดยทั่วไปจะลอยอยู่เหนือสเปรดชีตและเชื่อมโยงกับเซลล์โดยแทรกค่า True และ False เมื่อคลิก (หรือ N/A หากคุณกำหนดให้เป็นช่องทำเครื่องหมายสามสถานะ) แต่เมื่อคุณกรองใน excel มันจะซ่อนแถวเฉพาะ มันจะไม่ซ่อนกล่องกาเครื่องหมาย ฉันไม่แนะนำให้กรองด้วยมาโครนี้จริงๆ สิ่งแปลกๆ จะเกิดขึ้น และคุณอาจไม่ทราบว่ามีกล่องกาเครื่องหมายหลายกล่องวางทับกัน หรือกล่องกาเครื่องหมายสองกล่องเชื่อมโยงกับเซลล์หนึ่งเซลล์ และเซลล์หนึ่งลิงก์กับช่องทำเครื่องหมายไม่มีช่องกาเครื่องหมาย สิ่งที่ฉันมักจะทำคือ ฉันจะสร้างรายการและแทนที่จะทำเครื่องหมาย ฉันจะพิมพ์ 1 หรือ 0 ลงในเซลล์ที่อยู่ติดกันแล้วรวมทั้งหมด คุณยังสามารถ pivot table ของสิ่งต่างๆ ได้หากข้อมูลของคุณมีความซับซ้อน ตัวอย่างเช่น สมมติว่าคุณมีคอลัมน์อื่นที่มีเพศของผู้เข้าร่วมประชุม คุณสามารถคิดได้ว่ามีผู้ชายกี่คนและผู้หญิงเข้าร่วมกี่คน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก! สำหรับช่องทำเครื่องหมาย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีให้ข้อความในช่องทำเครื่องหมายเป็นข้อความของเซลล์ที่เลือกหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช่. ใช่มี. ย่อมมีหนทางเสมอ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[อ้าง]ใช่ ใช่มี. ย่อมมีหนทางเสมอโดย Danny[/quote] ตกลง ฉันจะทำสิ่งนี้ให้สำเร็จได้อย่างไร ฉันไม่ชำนาญในไวยากรณ์ excel ฉันได้ลอง .text และ .value แล้ว (สำหรับ c ในโค้ดด้านบน) ด้วยผลลัพธ์ที่ไม่ถูกต้อง ฉันได้ลองหลายสิ่งหลายอย่างที่ปกติแล้วจะได้ผลแต่ไม่มีโชค ฉันมีรายการหัวข้อย่อยขนาดใหญ่ของรายการที่ฉันต้องการแทนที่สัญลักษณ์แสดงหัวข้อย่อยด้วยกล่องกาเครื่องหมายและมีค่าและข้อความของกล่องนั้นเป็นข้อความดั้งเดิมของรายการสัญลักษณ์แสดงหัวข้อย่อย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เฮ้พวก มันมีประโยชน์มาก ขอบคุณ! คำถามสั้นๆ ฉันไม่มีประสบการณ์กับเรื่องแบบนี้เลย ถ้าเป็นเรื่องงี่เง่าก็ขออภัย! ฉันต้องการเพียงแค่มีกล่องกาเครื่องหมาย (ไม่จริงหรือเท็จ) และฉันต้องการให้ช่องเป็นสีเหลืองเมื่อไม่ได้ทำเครื่องหมายแต่ไม่มีการเติมเมื่อทำเครื่องหมายเพื่อระบุว่านักเรียนที่ยังไม่ได้ส่งแบบร่างและการประเมิน ฯลฯ นี่ใช่หรือไม่ เป็นไปได้? ใครช่วยกรุณาโพสต์รหัสจริงสำหรับสิ่งนี้หรือแนะนำฉันผ่านมัน ขอบคุณมากล่วงหน้า!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีเปลี่ยนที่อยู่อ้างอิงสำหรับช่องทำเครื่องหมายหลายช่อง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีสเปรดชีต excel ที่มีคำถามจากนั้นทางขวาคือคอลัมน์อื่น "การควบคุมตามที่กำหนด, คอลัมน์ f และ G พร้อมช่องกาเครื่องหมายที่ทำเครื่องหมายแล้ว, คอลัมน์ F ใช่ หรือคอลัมน์ G ไม่ใช่ ฉันเพียงต้องการใช้ตัวกรองเพื่อรับ แต่ละม้วนที่มีเครื่องหมาย แต่ตัวกรองไม่เห็นเครื่องหมาย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีเปลี่ยนที่อยู่เซลล์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Sub RelinkCheckBoxes() 'คุณเลือกเซลล์ที่มีช่องทำเครื่องหมายที่ทำหน้าที่แปลก ๆ 'จากนั้นคุณเรียกใช้แมโคร 'มันเปลี่ยนช่องทำเครื่องหมายเหล่านั้นเพื่อให้เซลล์ที่เชื่อมโยงสอดคล้องกับเซลล์ด้านล่าง 'นอกจากนี้ยังทำให้ข้อความในกล่องกาเครื่องหมายเปลี่ยนเป็นข้อความในเซลล์ Dim ckbox As Shape Dim rngLinkedCell As Range ถ้า ActiveSheet.CheckBoxes.Count = 0 จากนั้นออกจาก Sub 'ทดสอบการเลือกที่เป็นช่วง ถ้า TypeName(Selection) "Range" จากนั้นออกจาก Sub สำหรับแต่ละ ckbox ใน ActiveSheet.Shapes 'ทดสอบว่ารูปร่างนั้นเป็นตัวควบคุม ถ้า ckbox.Type = msoFormControl จากนั้น 'ทดสอบว่าตัวควบคุมนั้นเป็นช่องทำเครื่องหมาย ถ้า ckbox.FormControlType = xlCheckBox จากนั้น 'ค้นหาเซลล์ใต้ช่องทำเครื่องหมายที่อยู่ภายในส่วนที่เลือก ตั้งค่า rngLinkedCell = Application.Intersect(ckbox.TopLeftCell, Selection) 'กำหนด ที่อยู่ลิงก์ใหม่และเปลี่ยนชื่อช่องทำเครื่องหมายให้ตรงกัน ถ้าไม่ใช่ rngLinkedCell ก็ไม่มีอะไร ckbox .OLEFormat.Object.LinkedCell = rngLinkedCell.Address .Name = rngLinkedCell.Address .TextFrame.Characters.Text = rngLinkedCell.Text End With End If End If End If Next
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสใช้งานได้ดี ขอขอบคุณ!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ