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

วิธีเพิ่มขนาดแบบอักษรรายการแบบเลื่อนลงใน Excel

doc เพิ่มขนาดตัวอักษรรายการแบบเลื่อนลง 1

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

เพิ่มขนาดตัวอักษรของรายการแบบเลื่อนลงด้วยรหัส VBA เพื่อขยายการซูม


เพิ่มขนาดตัวอักษรของรายการแบบเลื่อนลงด้วยรหัส VBA เพื่อขยายการซูม

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

1. ไปที่เวิร์กชีตที่มีรายการดรอปดาวน์ที่คุณต้องการเพิ่มขนาดฟอนต์

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

รหัส VBA: เพิ่มขนาดตัวอักษรของรายการแบบเลื่อนลงเพื่อขยายการซูมเซลล์

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

3. จากนั้นบันทึกและปิดรหัสนี้ตอนนี้เมื่อคุณคลิกเซลล์รายการแบบหล่นลงการซูมของเซลล์จะขยายใหญ่ขึ้นและรายการแบบหล่นลงจะปรากฏให้ใหญ่ขึ้น แต่เมื่อคุณคลิกเซลล์อื่นที่ไม่มีรายการแบบเลื่อนลง การซูมเซลล์จะเป็นปกติ

หมายเหตุ: ในโค้ดด้านบน xZoom = 130 จะเปลี่ยนการซูมเซลล์รายการแบบเลื่อนลงเป็น 130คุณสามารถเปลี่ยนตัวเลขซูมนี้ได้ตามต้องการ


สร้างรายการแบบหล่นลงด้วยช่องทำเครื่องหมายใน Excel

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


การสาธิต: เพิ่มขนาดตัวอักษรของรายการแบบเลื่อนลงด้วยรหัส VBA เพื่อขยายการซูม


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (27)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดังนั้น โค้ดนี้จะทำให้การซูมทั้งแผ่น ไม่ใช่แค่กล่องดรอปดาวน์ นอกจากนี้ยังแจ้งว่า "ไม่สามารถบันทึก...... โครงการ VB ในสมุดงานที่ถูกปิดใช้งานแมโคร" อื่น ๆ. ถ้าฉันต้องล่าขุมทรัพย์ครึ่งเอเคอร์เพื่อให้ได้คำตอบที่สมบูรณ์สำหรับปัญหานี้ นี่ไม่ใช่คำตอบ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]ดังนั้น โค้ดนี้ทำให้การซูมทั้งแผ่น ไม่ใช่แค่ช่องแบบเลื่อนลง นอกจากนี้ยังแจ้งว่า "ไม่สามารถบันทึก...... โครงการ VB ในสมุดงานที่ถูกปิดใช้งานแมโคร" อื่น ๆ. ถ้าฉันต้องล่าขุมทรัพย์ครึ่งเอเคอร์เพื่อให้ได้คำตอบที่สมบูรณ์สำหรับปัญหานี้ นี่ไม่ใช่คำตอบโดย Michael[/quote] เพียงบันทึกเวิร์กบุ๊กเป็น xlsm แล้วทำตามขั้นตอนอีกครั้ง BTW ฉันลองแล้วและไม่ได้ผลสำหรับฉันเลย การซูมยังคงอยู่ที่ 100%
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้ Office 2016 และใช้กล่องดรอปดาวน์ ฉันลองใช้ "เพิ่มขนาดแบบอักษรของรายการดรอปดาวน์ด้วยโค้ด VBA เพื่อขยายการซูม" แต่ใช้งานไม่ได้ มีอะไรอีกบ้างที่ฉันควรทำเพื่อให้มันทำงาน ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เช่นเดียวกับคำแนะนำ คุณต้องเปลี่ยนการซูมจาก "100" เป็น "130" หรือซูมแบบอื่นเพื่อดูการเปลี่ยนแปลง อย่างไรก็ตาม ความคิดเห็นที่ 1 นั้นถูกต้องตรงที่มันไม่ได้เพียงแค่เปลี่ยนเมนูแบบเลื่อนลง แต่เมื่อคุณคลิกที่เซลล์ มันจะซูมทั้งแผ่น 130% เพื่อซูมเข้าในเซลล์นั้น ไม่ค่อยมีประโยชน์เพราะคุณต้องซูมออกทุกครั้ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หรือเลือกเซลล์อื่นในสมุดงานเพื่อคืนเป็น 100 ตามที่ระบุไว้ใน Macro

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)'updateby Extendoffice 20160530 เกิดข้อผิดพลาด GoTo LZoom Dim xZoom As Long xZoom = 100 ถ้า Target.Validation.Type = xlValidateList จากนั้น xZoom = 130LZoom: ActiveWindow.Zoom = xZoomEnd Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี แค่สงสัยว่าทำไมคุณลักษณะนี้จึงหายไปหลังจากบันทึกไฟล์และเปิดใหม่อีกครั้ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Noel คุณควรบันทึกไฟล์ Excel เป็นรูปแบบสมุดงานที่เปิดใช้งาน Excel Macro
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Dzięki za podpowiedź
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณครับ ใช้งานได้ดีครับ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้ใช้ไม่ได้สำหรับฉัน ฉันวางข้อความตามคำแนะนำ เมื่อฉันคลิกที่เมนูแบบเลื่อนลงขนาดตัวอักษรจะเท่ากัน เมื่อฉันคลิกที่เซลล์อื่น สเปรดชีตทั้งหมดอาจมีขนาดเพิ่มขึ้น 30% ถ้าเป็นไปได้อยากหาทางแก้ไขจริงๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หลังจากใช้รหัสนี้แล้ว ฉันไม่สามารถใช้คีย์ย้อนกลับใน Excel ได้ ฉันจะโค้ด (ติดตั้ง) ส่งคืนคีย์ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
การซูมทั้งแผ่นเป็น 130%
ฉันจะเพิ่มเฉพาะเมนูแบบเลื่อนลงได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเดฟ
หากต้องการเพิ่มเฉพาะเมนูแบบเลื่อนลง นี่คือวิธีแก้ไขปัญหาชั่วคราว

ขั้นแรก หลังจากแทรกรายการดรอปดาวน์ในเวิร์กชีตของคุณแล้ว คุณควรแทรกกล่องคำสั่งผสม (ตัวควบคุม ActiveX) จากนั้นใช้โค้ด VBA ต่อไปนี้ในโค้ดโมดูลแผ่นงาน:

Dim xRg เป็นช่วง
ComboBox1_Change() ย่อยส่วนตัว
เกี่ยวกับข้อผิดพลาดต่อไป
xRg.Value = Me.ComboBox1.Text
ย่อยสิ้นสุด
แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
เกิดข้อผิดพลาด GoTo LblExit
ด้วย Me.ComboBox1
.Visible = เท็จ
ถ้า Target.Validation.Type = xlValidateList แล้ว
Target.Validation.InCellDropdown = เท็จ
.ListWidth = 120
.ListFillRange = ""
.ListFillRange = Target.Validation.Formula1
.Left = Target.Left
.Top = Target.Top
.Width = Target.ความกว้าง
.ความสูง = เป้าหมาย ความสูง
.Font.Size = 16
.Visible = จริง
ตั้งค่า xRg = เป้าหมาย
End If
จบด้วย
Lbl ทางออก:
ย่อยสิ้นสุด

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

โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อัจฉริยะ! ขอบคุณสกายหยาง! ขอบคุณมากสำหรับวิธีการของคุณ! ทำงานเหมือนมีเสน่ห์!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณช่วยอธิบายทีละขั้นตอนสำหรับหุ่นจำลองได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ITALO
1. แทรกรายการแบบหล่นลงที่คุณต้องการในแผ่นงานของคุณ
2 จากนั้นแทรกกล่องคำสั่งผสม (ตัวควบคุม ActiveX) โดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องคำสั่งผสม (ตัวควบคุม ActiveX) จากนั้นลากเมาส์เพื่อวาดวัตถุกล่องคำสั่งผสม
3. จากนั้น คลิกขวาที่เวิร์กชีตที่คุณใช้อยู่ เลือก ดูโค้ด และวางโค้ดด้านบนลงในโมดูล
4. ในที่สุด คลิก Design Mode ใต้แท็บ Developer เพื่อปิดการใช้งาน
5. ตอนนี้ เมื่อคุณคลิกเซลล์รายการแบบหล่นลง กล่องคำสั่งผสมจะปรากฏขึ้น และขนาดแบบอักษรในเมนูแบบเลื่อนลงจะเพิ่มขึ้นตามที่คุณต้องการ
โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะใช้ขนาดการเปลี่ยนแปลงแบบอักษรนี้กับคอลัมน์เดียวได้อย่างไร ฉันมีหลายคอลัมน์ที่มีกล่องดรอปดาวน์ และฉันต้องการเปลี่ยนขนาดแบบอักษรเพียงคอลัมน์เดียวเท่านั้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คำถามที่ฉันเพิ่งวางรหัสลงในหน้าต่างโมดูลเปล่า (คลิกขวาในรหัสมุมมอง) เมื่อฉันบันทึกเป็นฟังก์ชันที่ดีที่ดี แต่เมื่อฉันปิดไฟล์และเปิดใหม่อีกครั้ง รหัสหายไปและไม่มีการขยายรายการแบบเลื่อนลงอีกต่อไป ขอทราบวิธีตั้งค่าการใช้งานถาวรได้หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเอซ
ในการบันทึกโค้ด คุณควรบันทึกไฟล์ Excel เป็นรูปแบบเวิร์กบุ๊กที่ใช้ Excel Macro-Enabled โปรดลอง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีหลายดรอปดาวน์และต้องการเพียงอันเดียวที่ใหญ่กว่านี้ ที่เหลือคือใช่/ไม่ใช่ แต่รหัสที่คุณแบ่งปันกำลังทำเช่นนี้กับพวกเขาทั้งหมด ฉันจะใช้เฉพาะรายการดรอปดาวน์เดียวเท่านั้นได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีอีวอนเน่
หากต้องการใช้รหัสกับเซลล์เดียวเท่านั้น รหัสต่อไปนี้อาจช่วยคุณได้: (หมายเหตุ: ในรหัสให้เปลี่ยนเซลล์ I2 ไปยังการอ้างอิงเซลล์ของคุณเอง)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    Dim xRg As Range
    xZoom = 100
    Set xRg = Range("I2")
    If Not Intersect(Target, xRg) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then xZoom = 130
    End If
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณสำหรับคำแนะนำในการซูมขนาดแบบอักษรในช่องแบบเลื่อนลง มันทำเคล็ดลับ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Ocurre al revés. Al dar clic en cualquiera celda se agranda, pero no en la lista desplegable y no vuelve al tamaño ดั้งเดิม Uso Excel 2010. แก้ปัญหาอย่างไร?มันเกิดขึ้นอีกทางหนึ่ง การคลิกที่เซลล์ใด ๆ จะเป็นการขยาย แต่ไม่ใช่รายการดรอปดาวน์และจะไม่กลับไปเป็นขนาดดั้งเดิม ฉันใช้ Excel 2010 วิธีแก้ปัญหา?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เราสามารถทำสิ่งนี้กับดรอปบ็อกซ์หลาย ๆ อันได้หรือไม่? ถ้าไม่เช่นนั้นขั้นตอนสำหรับดรอปบ็อกซ์หลายรายการคืออะไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Ale po zamknięciu pliku ฉัน ponownym go otwarciu ไปยัง rozwiązanie już nie działa
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โอเค. Trzeba zapisać plik z obsługą มากรา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเพื่อน,
คุณพูดถูก เราจำเป็นต้องบันทึกไฟล์ที่เปิดใช้งานมาโครเพื่อให้โซลูชันสามารถทำงานได้ มีวันที่ดี

ขอแสดงความนับถือ
แมนดี้
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ