Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน สมัครสมาชิก

วิธีซ่อนแถวอัตโนมัติหากเซลล์ว่างในคอลัมน์

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

ซ่อนแถวอัตโนมัติหากเซลล์ว่างในคอลัมน์ที่มีรหัส VBA

ลูกศรสีฟ้าฟองขวา ซ่อนแถวอัตโนมัติหากเซลล์ว่างในคอลัมน์ที่มีรหัส VBA

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

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

รหัส VBA: ซ่อนแถวอัตโนมัติหากเซลล์ว่างในคอลัมน์:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

doc ซ่อนแถวอัตโนมัติ 1

หมายเหตุ: ในโค้ดด้านบน A1: A20 คือรายการข้อมูลที่มีเซลล์ว่างที่คุณต้องการซ่อนอัตโนมัติ

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

doc ซ่อนแถวอัตโนมัติ 2

 

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

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

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab

 

จัดเรียงความคิดเห็นโดย
เก่ามาก่อน
ใหม่ก่อน
ความคิดเห็น (32)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มด
มด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันใช้ excel 2016 และใช้งานไม่ได้ ฉันได้รับข้อความแสดงข้อผิดพลาดของซินแท็กซ์ คุณช่วยได้ไหม
ตอบ
0
0
สกายหยาง
สกายหยาง     มด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคุณมด

โค้ดด้านบนทำงานได้ดีใน Excel 2016 ของฉัน คุณเปลี่ยนการอ้างอิงเซลล์ในโค้ดตามความต้องการของคุณหรือไม่
ตอบ
รายงาน
0
0
Lars
Lars
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้รับข้อผิดพลาดรันไทม์ '13':



พิมพ์ไม่ตรงกัน



ใครก็ได้ช่วยที???
ตอบ
0
0
อเล็กซ์
อเล็กซ์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสามารถหยุดไม่ให้มาโครนี้ทำงานโดยอัตโนมัติหลังจากกดปุ่ม Enter ได้หรือไม่ ฉันสามารถแนบไปกับปุ่มเพื่อซ่อนเฉพาะเซลล์เมื่อฉันคลิกได้หรือไม่
ตอบ
0
0
Devin
Devin     อเล็กซ์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีใครเคยคิดออกไหม? ฉันก็อยากจะรู้.
ตอบ
0
0
สำหรับขาย
สำหรับขาย     Devin
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีใครคิดคำตอบยัง?
ตอบ
0
0
อันเดรีย
อันเดรีย     สำหรับขาย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คำถามเดียวกันที่นี่
ตอบ
0
0
สกายหยาง
สกายหยาง     อันเดรีย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน,
หากต้องการซ่อนแถวที่คอลัมน์ใดคอลัมน์หนึ่งมีเซลล์ว่างโดยใช้ปุ่ม โปรดดำเนินการดังนี้:
ขั้นแรก คุณควรแทรกปุ่มคำสั่งจากแท็บนักพัฒนาซอฟต์แวร์
จากนั้นใช้รหัส VBA ต่อไปนี้สำหรับปุ่มคำสั่ง (หมายเหตุ: โปรดเปลี่ยนการอ้างอิงเซลล์ a1:a20 เป็นของคุณเอง)

คำสั่งย่อยส่วนตัวButton1_Click()
Dim rng เป็นช่วง x เป็นช่วง
ตั้งค่า rng = ช่วง ("a1:a20")
Application.ScreenUpdating = เท็จ
สำหรับแต่ละ x ใน rng
ถ้า Len(x.Text) = 0 แล้ว
x.EntireRow.Hidden = จริง
อื่น
x.EntireRow.Hidden = เท็จ
End If
ถัดไป x
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

โปรดลอง หวังว่าจะช่วยคุณได้!
ดูไฟล์แนบ (1 / 5)
ตอบ
รายงาน
0
0
ชินเม ซัลเป
ชินเม ซัลเป
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีซ่อนแถวอัตโนมัติหากเซลล์ว่างใน 2 คอลัมน์ที่แตกต่างกันด้วยรหัส VBA
ตอบ
0
0
สกายหยาง
สกายหยาง     ชินเม ซัลเป
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สาลี่
หากต้องการซ่อนแถวหากเซลล์ว่างใน 2 คอลัมน์ที่แตกต่างกันโดยอัตโนมัติ โปรดใช้รหัสต่อไปนี้:

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
Dim xRg, xCell เป็นช่วง
Dim xRgs, xRgArea เป็นช่วง
ตั้งค่า xRgs = ช่วง ("A1:A22,D1:D22")
Application.ScreenUpdating = เท็จ
เมื่อเกิดข้อผิดพลาด GoTo Ctn
สำหรับแต่ละ xRgArea ใน xRgs.Areas
แก้ไขข้อบกพร่อง พิมพ์ xRgArea.Address
สำหรับแต่ละ xRg ใน xRgArea.Columns
สำหรับแต่ละ xCell ใน xRg.Rows
ถ้า xCell.Value = "" แล้ว
xCell.EntireRow.Hidden = จริง
ไปที่ Ctn
ElseIf ไม่ใช่ xCell.EntireRow.Hidden แล้ว
xCell.EntireRow.Hidden = เท็จ
End If
กล่อง:
ต่อไป
ต่อไป
ต่อไป
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

คุณสามารถเปลี่ยนการอ้างอิงเซลล์ตามความต้องการของคุณได้
โปรดลอง!
ตอบ
รายงาน
0
0
فتحى السعيد
فتحى السعيد
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
بسم الله وجزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود حذف الصف يبطأ الشيت بطريقة طويملم جع
ตอบ
0
0
อชิณตา ปานเด
อชิณตา ปานเด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อยากทราบว่าโค้ดจะใช้งานได้ไหม ถ้าเซลล์ว่างเนื่องจากสูตร ?
ตอบ
0
0
สกายหยาง
สกายหยาง     อชิณตา ปานเด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี อชิตา
โค้ด VBA ด้านบนนี้ใช้กับเซลล์ว่างด้วยเนื่องจากเป็นผลลัพธ์ของสูตร คุณสามารถลองใช้ได้ ขอขอบคุณ!
ตอบ
รายงาน
0
0
หยอกล้อ
หยอกล้อ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สูตรนี้ใช้เพื่อซ่อนเซลล์โดยยึดตามข้อมูลในตอนเริ่มต้น แต่จะไม่เปิดเผยเซลล์ซ้ำหากเนื้อหาของเซลล์เปลี่ยนไป ฉันต้องการให้เปิดเผยเซลล์ใหม่ที่เต็มไปด้วยข้อมูล (ซึ่งเกิดขึ้นผ่านการค้นหาเซลล์) ฉันจะทำสิ่งนี้ได้อย่างไร
ตอบ
0
0
เทมโป
เทมโป     หยอกล้อ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Bom dia, esta é minha necessidade ตัมเบม.

Preciso ocultar e quando a célula สำหรับ preenchida (uso uma fórmula que preenche a mesma se houver valor em outra planilha) seja reexibida a linha novamente de forma automática.

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

ถ้าเซลล์ D2:D55 = ""
แล้วก็ Hide.EntireRow

ถ้าเซลล์ D2:D55 = "มีค่าใดๆ"
จากนั้น Show.EntireRow

ได้อย่างไร
ตอบ
0
0
สกายหยาง
สกายหยาง     คชา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคชา คุณเพียงแค่ต้องเปลี่ยนการอ้างอิงเซลล์ในโค้ดเป็นช่วงเซลล์ของคุณเองดังนี้: แผ่นงานย่อยส่วนตัว_เปลี่ยน (ByVal Target As Range)
'Updateby Extendoffice
Dim xRg เป็นช่วง
Application.ScreenUpdating = เท็จ
สำหรับแต่ละ xRg ในช่วง ("D2:D55")
ถ้า xRg.Value = "" แล้ว
xRg.EntireRow.Hidden = จริง

อื่น
xRg.EntireRow.Hidden = เท็จ
End If
ถัดไป xRg
Application.ScreenUpdating = จริง
End Sub หลังจากใส่โค้ดแล้ว อย่าลืมดับเบิลคลิกเซลล์ใดก็ได้ แล้วกดปุ่ม Enter เพื่อให้โค้ดมีผล
ตอบ
รายงาน
0
0
เคน
เคน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีที่ง่ายที่สุดในการเลิกทำการซ่อนอัตโนมัติคืออะไร
ตอบ
0
0
บินห์
บินห์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี mình có dùng 2 code trong 1 file excel (1 code là của bạn) với mục đích in ra những bản riêng biệt và không bị thừa dòng trống Khi mình ấn ใน từng bản thì ok nhưng nếu ใน 1 รหัส ซ่อน không có tác dụng, bạn xem giúp mình với nhé, mình cảm ơn!

ย่อย PRINT_PRINT()
Dim rng เป็นช่วง x เป็นช่วง
ตั้งค่า rng = ช่วง ("a16:a23")
Application.ScreenUpdating = เท็จ
สำหรับแต่ละ x ใน rng
ถ้า Len(x.Text) = 0 แล้ว
x.EntireRow.Hidden = จริง
อื่น
x.EntireRow.Hidden = เท็จ
End If
ถัดไป x
Application.ScreenUpdating = จริง


สลัว p1, p2, ฉัน&
p1 = Sheet1.Range("O1")).Value
p2 = Sheet1.Range("O2")).Value
ถ้า IsNumeric(p1) = False หรือ IsNumeric(p2) = False แล้ว
tb = MsgBox("รหัส phai la so.", , "Thông báo")
ออกจาก Sub
End If
ถ้า p1 > p2 แล้ว
tb = MsgBox("ดังนั้นโค้ด sau phai >= ดังนั้นโค้ด truoc.", , "Thông báo")
ออกจาก Sub
End If
ถ้า p1 < 1 หรือ p2 < 1 แล้ว
tb = MsgBox("รหัส phai >= 1.", , "Thông báo")
ออกจาก Sub
End If
ถ้า p1 <= p2 แล้ว
สำหรับผม = p1 ถึง p2
Sheet1.Range("M2")).Value = i
Sheet1.PrintOut
ต่อไป
End If
ย่อยสิ้นสุด
ตอบ
0
0
โมนิกา โรดริเกซ เปเรซ
โมนิกา โรดริเกซ เปเรซ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hola,Necesito crear una macro que me oculte una columna.Sería así: en la primera fila poner un 1 a las columnas que no quiero ocultar และ no poner ningún valor a las columnas que quiero ocultar. Estoy haciendo el siguiente código, pero no se en que fallo:
ย่อยตาคอลัมน์บาป 1()
Application.ScreenUpdating = เท็จ
สำหรับแต่ละ rango ในคอลัมน์
ถ้า rango = "" แล้ว
rangeo.EntireColumn.Hidden = จริง
อื่น
rango.EntireColumn.Hidden = เท็จ
End If
ต่อไป rango
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ตอบ
0
0
Jolsen2011
Jolsen2011
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีนี้ใช้ได้ผลดีสำหรับฉัน โดยจะซ่อนแถวและเปิดขึ้นเมื่อค่าของฉันเปลี่ยนไปตามสูตร คำถามที่ฉันมีคือแผ่นงานของฉันยาว 104 แถว มันหมุนเล็กน้อยทุกครั้งที่ฉันคลิกเซลล์ มีวิธีใดบ้างที่จะเร่งความเร็วการเปลี่ยนแปลงเมื่อเปิดใช้งาน หรือเป็นคอมพิวเตอร์ของฉัน ขอบคุณ!
ตอบ
รายงาน
0
0
Cathy
Cathy
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการซ่อนแถวอัตโนมัติหากคอลัมน์ E ว่างเปล่าหรือ 0
ตอบ
0
0
Cathy
Cathy
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หากค่าในคอลัมน์ E ว่างเปล่าหรือ 0 ฉันต้องการให้แถวซ่อนอัตโนมัติ หากค่าใน E เปลี่ยนเป็นอย่างอื่นที่ไม่ใช่ค่าว่างหรือ 0 ฉันต้องการให้แสดง รายงาน 1500 แถว
ตอบ
0
0
สกายหยาง
สกายหยาง     Cathy
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณ Cathy
หากต้องการซ่อนแถวโดยอัตโนมัติตามเซลล์ว่างหรือค่า 0 โปรดใช้รหัส vba ด้านล่าง:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("E1:E1500")
            If (xRg.Value = "") Or (xRg.Value = "0") Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub


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

หากต้องการซ่อนแถวที่มีช่องทำเครื่องหมาย บทความด้านล่างอาจช่วยคุณได้:
วิธีซ่อนช่องทำเครื่องหมายเมื่อซ่อนแถวใน Excel

โปรดลอง หากคุณยังมีคำถามอื่นๆ โปรดแสดงความคิดเห็นที่นี่
ตอบ
รายงาน
0
0
อาซาฟ
อาซาฟ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อรันโค้ดใน office 2013/2019/2021 มันใช้งานได้ แต่ใช้เวลามากเกินไปในการทำให้เสร็จ (เพียง 95 แถวในการซ่อน)
คุณจะเร่งความเร็วนี้ได้อย่างไร
ขอบคุณ!
ตอบ
0
0
สกายหยาง
สกายหยาง     อาซาฟ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีอาซาฟ
โค้ดนี้ทำงานได้ดีในไฟล์ Excel ของฉัน คุณสามารถอัปโหลดไฟล์แนบในสมุดงานที่นี่ได้ ถ้าคุณไม่ว่าอะไร เพื่อให้เราสามารถช่วยในการตรวจสอบปัญหา

ขอขอบคุณ!
ตอบ
รายงาน
0
0
ชยาฟีตรี นูรจานาห์
ชยาฟีตรี นูรจานาห์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
apakah ada rumus lain?, saya berharap baris kosong itu akan terhapus saat mencetak ไฟล์ menjadi PDF tapi tampilan di excelnya tetap
ตอบ
0
0
สกายหยาง
สกายหยาง     ชยาฟีตรี นูรจานาห์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณนุรจนา
ในการแก้ปัญหาของคุณ ก่อนอื่น คุณควรซ่อนแถวว่าง จากนั้นพิมพ์ข้อมูล หลังจากพิมพ์ข้อมูล คุณต้องยกเลิกการซ่อนแถวว่างอีกครั้ง กรุณาทำดังนี้:
1. ใช้สูตรนี้: =COUNTA(A2:E2) ข้างข้อมูลของคุณ ดูภาพหน้าจอ:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png
2. จากนั้นกรอง Helper ใหม่ คอลัมน์ว่าง ซ่อนแถวค่าทั้งหมด 0 แถว ดูภาพหน้าจอ:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png
3. จากนั้น คุณควรซ่อนคอลัมน์ว่างใหม่ และพิมพ์ข้อมูล หลังจากพิมพ์เวิร์กชีตแล้ว โปรดยกเลิกตัวกรองเพื่อยกเลิกการซ่อนแถวว่างตามที่คุณต้องการ
โปรดลอง หวังว่าจะช่วยคุณได้!
ตอบ
รายงาน
0
0
เวียน แมคนามารา
เวียน แมคนามารา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันมีปัญหากับ "การทำงานอัตโนมัติ" ของมาโคร ฉันกำลังค้นหาวิธีที่โค้ดจะทำงานเป็นกระบวนการอัตโนมัติโดยไม่ต้องใช้มาโคร "ด้วยตนเอง" ฉันใช้รหัสของคุณในแบบของฉันเองเนื่องจากฉันพบปัญหาในการใช้รหัสของคุณ นี่คือตัวแปรของฉัน:

ซับ HideRows()
Dim xRg เป็นช่วง
Application.ScreenUpdating = เท็จ
สำหรับแต่ละ xRg In Range("A3:A800")
ถ้า (xRg.Value = "") แล้ว
xRg.EntireRow.Hidden = จริง
อื่น
xRg.EntireRow.Hidden = เท็จ
End If
ถัดไป xRg
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

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

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

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL