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

จะซ่อนหรือยกเลิกการซ่อนปุ่มคำสั่งตามค่าเซลล์ที่ระบุใน Excel ได้อย่างไร

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

ซ่อนหรือเลิกซ่อนปุ่มคำสั่งตามค่าเซลล์ที่ระบุด้วยรหัส VBA


ซ่อนหรือเลิกซ่อนปุ่มคำสั่งตามค่าเซลล์ที่ระบุด้วยรหัส VBA


คุณสามารถเรียกใช้โค้ด VBA ด้านล่างเพื่อซ่อนหรือยกเลิกการซ่อนปุ่มคำสั่งตามค่าเซลล์ที่ระบุใน Excel

1. คลิกขวาที่แท็บแผ่นงานซึ่งมีปุ่มคำสั่งที่คุณต้องการเพื่อแสดงซ่อนจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา

2. ในการโผล่ขึ้นมา Microsoft Visual Basic สำหรับแอปพลิเคชัน คัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ รหัส หน้าต่าง

รหัส VBA: ซ่อนหรือเลิกซ่อนปุ่มคำสั่งตามค่าเซลล์ที่ระบุ

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
        Me.CommandButton1.Visible = True
    Else
        Me.CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในรหัส เซลล์ (1, 1), 1 และ ปุ่มคำสั่ง1 ระบุว่า CommandButton1 จะถูกซ่อนเมื่อเซลล์ A1 มีหมายเลข 1 และแสดงหากเซลล์ A1 มีค่าอื่น ๆ ยกเว้นหมายเลข 1 ดูภาพหน้าจอด้านล่าง และคุณสามารถเปลี่ยนแปลงได้ตามความต้องการของคุณ


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


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (11)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
hola que tal, tengo un boton con macro, que me devuelve a una hoja 'เมนู', pero no quiero que ese boton aparezca en la hoja menu como le puedo hacer?'


ไชโย -
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โฮลา เซบัสเตีย,

Donde debería ส่วนใหญ่rarse?
- Uno es la hoja de เมนู
- El botón está integrado en una hoja แตกต่าง, ไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้ใส่รหัสนี้และป้อนชื่อปุ่มของฉัน (เสร็จสิ้น) อ้างอิงเซลล์อ้างอิง (P11 - 16, 11) แต่ทุกครั้งที่ฉันเปลี่ยนแปลงเซลล์อ้างอิง (P11) ฉันได้รับข้อผิดพลาดในการคอมไพล์และจะเน้นที่ ส่วน ".Finish" ของโค้ด ดูเหมือนจะหมายถึงชื่อปุ่มที่ฉันป้อน "Finish" ไม่พบในเวิร์กชีต ฉันยืนยันแล้ว ทั้งในพื้นที่ดรอปดาวน์ทางด้านซ้ายของแถบสูตรและในพื้นที่ "กำหนดชื่อ" บนแท็บสูตรว่าที่จริงแล้วชื่อปุ่มของฉันคือ "เสร็จสิ้น" แต่ก็ยังใช้งานไม่ได้


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

ฉันยังใหม่กับ VBA ฉันได้ใส่รหัสนี้ลงใน Excel ใหม่แล้ว One CommnadButton บน Sheet1 แต่รหัสใช้งานไม่ได้

ฉันต้องทำอะไรก่อนนี้หรือไม่?


ขอบคุณล่วงหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
Application.ScreenUpdating = เท็จ
ถ้า Cells(1, 1).Value <> "1" แล้ว
Me.Shapes("ปุ่ม 1").Visible = True
อื่น
Me.Shapes("ปุ่ม 1") สิ้นสุด If
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ด้วยเหตุผลบางอย่างหลังจากที่ปุ่มเปลี่ยนจากล่องหนกลับเป็นมองเห็น ปุ่มจะไม่ทำงานอีกต่อไป ถ้าฉัน alt + F11 ในโค้ด ให้เลือก XXX() ย่อยและรันด้วย F5 โค้ดนี้ใช้ได้กับมาโครของฉัน ทำไมมันไม่ทำงานเมื่อฉันคลิกปุ่มอีกต่อไป? ในคุณสมบัติ 'เปิดใช้งาน' ถูกตั้งค่าเป็นจริง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
hola, el codigo esta bien? es que no me funciona y ya Intente Varias cosas para que funcione y nana, อายุดาโดยโปรดปราน es que lo necesito para algo importante :c
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hello!
ภาษาอังกฤษทั้งหมด como puedo hacer para que el boton comando aparezca o desaparezca segun ข้อมูล otra hoja?
ตัวอย่าง está muy bueno, pero las celdas son de la misma hoja donde esta el boton. Yo necesito ocultar un boton segun ข้อมูลของ otra hoja

ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
สมมติ ค่าที่ใช้แสดงหรือซ่อนปุ่มคำสั่งอยู่ใน A1 of Sheet1และปุ่มคำสั่งอยู่ใน Sheet2. กรุณาเปิด Sheet1 คลิกขวาที่แท็บแผ่นงานแล้วคลิก ดูรหัส. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน ให้คัดลอกโค้ด VBA ต่อไปนี้ลงในหน้าต่าง Sheet1 (รหัส) จากนั้นกดปุ่ม อื่น ๆ + F11 คีย์เพื่อปิด
หมายเหตุ: กรุณาเปลี่ยนเซลล์ (1, 1) "1"และ"Sheet2"ตามที่คุณต้องการ
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
        Sheets("Sheet2").CommandButton1.Visible = True
    Else
        Sheets("Sheet2").CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ