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

วิธีล้างเนื้อหาเซลล์ที่ระบุหากค่าของเซลล์อื่นเปลี่ยนแปลงใน Excel

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

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


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


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

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

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

รหัส VBA: ล้างเนื้อหาของเซลล์ที่ระบุหากค่าของเซลล์อื่นเปลี่ยนแปลง

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Range("C1:C3").ClearContents
    End If
End Sub

หมายเหตุ: ในโค้ด B2 คือเซลล์ที่คุณจะล้างเนื้อหาของเซลล์ตามและ C1: C3 คือช่วงที่คุณจะล้างเนื้อหา โปรดเปลี่ยนตามที่คุณต้องการ

3 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

จากนั้นคุณจะเห็นเนื้อหาในช่วง C1: C3 จะถูกล้างโดยอัตโนมัติเมื่อค่าในเซลล์ A2 เปลี่ยนแปลงดังภาพด้านล่างที่แสดง


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


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (35)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสเพื่อล้างเซลล์หากการเปลี่ยนแปลงอื่นใช้งานได้ดี !!!! แต่ฉันต้องการให้มันทำงานในทางกลับกัน ..... รหัสนั้นเขียนอย่างไร ??


ขอบคุณสำหรับความช่วยเหลือของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียนสก็อตต์
คุณหมายถึงอะไรทำงานในทางกลับกัน? เมื่อล้างเนื้อหาของเซลล์บางเซลล์ด้วยตนเอง (C1:C3) ให้ล้างเนื้อหาของเซลล์ A2 โดยอัตโนมัติหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีสิ่งนี้ใช้ได้กับเซลล์ต้นทางคงที่เท่านั้น (A2) สิ่งนี้แบบไดนามิกเช่นซอร์สเป็นเซลล์ตัวแปรได้อย่างไร ฉันพยายามเขียน
A=activecell.row
ถ้าไม่ตัดกัน(เป้าหมาย ช่วง("A"& A)) ก็ไม่มีอะไรทั้งนั้น
Range("C1:C3")).ClearContents
End If

สิ่งนี้ควรทำงานเกี่ยวกับ activecell (เช่นการเลือก) แต่ไม่ทำงาน
ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอให้เป็นวันที่ดี,
โปรดลองใช้โค้ด VBA ด้านล่าง ขอบคุณสำหรับความคิดเห็นของคุณ.

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
ถ้า (ไม่ตัดกัน (เป้าหมาย แถว(1)) ไม่มีอะไรเลย) และ (Target.Count = 1) แล้ว
Range("C1:C3")).ClearContents
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันกำลังมองหาวิธีที่จะล้างช่วงของเซลล์ข้อมูลเมื่อมีการป้อน "x" ลงในเซลล์บางเซลล์ ฉันใช้สูตรข้างต้นและทำงานได้อย่างสมบูรณ์แบบสำหรับหนึ่งแถวนั้น ปัญหาคือต้องขยายออกไปหลายแถว ตัวอย่างเช่น หากป้อน "x" ใน "D13" ฉันต้องล้างช่วง J:13 - v:13 ฉันยังต้องการให้สิ่งนี้เกิดขึ้นหากป้อน x ใน "D14" เช่นเดียวกับที่ฉันต้องการช่วง d:14 - v:14 ให้ถูกล้าง มีวิธีเขียนว่า? ขอบคุณสำหรับความช่วยเหลือของคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี มันไม่ได้ผลสำหรับฉัน ไม่มีอะไรเปลี่ยนแปลงแต่ไม่มีข้อผิดพลาดอย่างใดอย่างหนึ่ง เคล็ดลับอะไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดี,
ขออภัยในความไม่สะดวก. คุณจะให้เวอร์ชัน Office ของคุณหรือไม่ ขอบคุณสำหรับความคิดเห็นของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ในกรณีของ A2 ฉันจะอ้างอิงเซลล์จากเวิร์กชีตอื่นได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีใดในการทำเช่นนี้โดยไม่มี VBA?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีโซเนีย
ไม่พบวิธีแก้ปัญหาใด ๆ ยกเว้น VBA ขอบคุณสำหรับความคิดเห็นของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะใช้รหัส VBA ใดหากมีตารางและต้องการช่องว่างหลายช่อง

ตารางของฉันคือ B3:E7 หากเนื้อหาในคอลัมน์ B ถูกล้าง ฉันต้องการล้างข้อมูลในคอลัมน์ C, D, E สำหรับแถวนั้น ฉันมีด้านล่างสำหรับแถว 3 แต่ต้องการเหมือนกันในแถว 4,5,6 และ 7

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
ถ้าไม่ตัดกัน(เป้าหมาย ช่วง("B3")) ก็ไม่มีอะไรแล้ว
Range("C3:E3")).ClearContents
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แล้วหนึ่งจะล้างเนื้อหาของเซลล์ใด ๆ ในดับเบิลคลิกได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คุณจะทำซ้ำโค้ดสำหรับเซลล์มากกว่าหนึ่งเซลล์ในตัวอย่างได้อย่างไร เช่น ถ้าฉันลบเนื้อหาของเซลล์ a4 & a5 ฉันต้องการล้างเนื้อหา b4:z4 & b5:z5 ตามลำดับ ฉันต้องทำเช่นนี้ สำหรับสเปรดชีตขนาดใหญ่ที่มี 1000 แถว คำแนะนำใด ๆ ที่จะได้รับการชื่นชมอย่างมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Julian ฉันกำลังมองหาสิ่งเดียวกัน โปรดแจ้งให้เราทราบหากคุณมีวิธีแก้ปัญหานี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
กรุณาเปลี่ยนตัวเลขตามความเหมาะสม
Dim ฉันเป็นจำนวนเต็ม
Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
สำหรับ i = 2 ต้องการ 10
lookrange = "A" & i
contentrange = "B" & i & ":" & "C" & i
ถ้าไม่ตัดกัน(เป้าหมาย, ช่วง(ระยะมอง)) ก็ไม่มีอะไรทั้งนั้น
ช่วง (ช่วงเนื้อหา). เนื้อหาที่ชัดเจน
End If
ต่อไปฉัน
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี sagarsrinivas0312 ขอบคุณมากสำหรับรหัสนี้ ฉันกำลังค้นหาวิธีแก้ปัญหานี้เป็นเวลา XNUMX สัปดาห์แล้ว!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันเยี่ยมมาก ขอบคุณ ฉันจะทำสิ่งนี้หลายครั้งได้อย่างไร ... เพื่อล้างเซลล์อื่นตามคอลัมน์อื่น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
riusciresti a scrivermelo ใน modo che debba solo fare coopia ed incolla?
ไม่ใช่ riesco veramente a farlo funzionare

Grazie mille
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ฉันกำลังพยายามล้างเซลล์พิเศษของคอลัมน์ A และ B หากพบเซลล์ว่างในคอลัมน์ C ของชีตชื่อ "ขายแล้ว" และมาโครทำงานจากชีตที่ชื่อ "ใบแจ้งหนี้"

ฉันได้รับโค้ดด้านล่างจากไซต์ช่วยเหลือแต่ไม่ได้สิ่งที่ต้องการ
โปรดช่วยฉันเกี่ยวกับเรื่องนี้ ภาพหน้าจอแนบสิ่งที่ฉันต้องการ

ผลรวมเคลียร์()

สลัว g ตราบ
สำหรับ g = 2 ถึง ActiveSheet.UsedRange.Rows.Count
ถ้า Cells(g, "C")).Value = "" แล้ว
เซลล์(g, "A")).ClearContents
เซลล์(g, "B")).ClearContents

End If
ต่อไป
ผลรวมสุดท้าย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดูเหมือนว่าจะใช้ไม่ได้หากเนื้อหาของเซลล์ที่ระบุถูกควบคุมโดยเซลล์บนชีตอื่น มีการแก้ไขสำหรับสิ่งนี้หรือไม่?
ตัวอย่างการใช้ชื่อเซลล์ของคุณ
หากเซลล์ "A2" คือ (=sheet1[@[a5]] และตัวเลขนี้เปลี่ยนแปลงในแผ่นที่ 1 แสดงว่าเปลี่ยนเนื้อหาของ A2 จะไม่ล้างเนื้อหาในช่วงที่ระบุ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แผ่นงานย่อยส่วนตัว_Activate()
ถ้า Range("S2") <> Range("A2").Value แล้ว
ช่วง ("S2") = ช่วง ("A2") .Value
Range("d2:g2")).ClearContents
End If
'S2' สามารถแทนที่ด้วยเซลล์ใดๆ นอกช่วงข้อมูล สิ่งที่ VBA กำลังทำอยู่คือการอัปเดตข้อมูลสำหรับ 'S2' โดยอัตโนมัติ จากนั้นข้อมูลที่กำลังอัปเดตคือสิ่งที่ควบคุมช่วงที่คุณระบุและจะล้างข้อมูลหรือไม่
นี่เป็นวิธีเดียวที่ฉันพบว่าทำได้สำเร็จเมื่อใช้เซลล์ที่อ้างอิงทั้งในและนอกเวิร์กชีต
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่ใช่สิ่งที่ฉันต้องการ แต่ไปที่นั่น ฉันมีเซลล์ว่าง E3 ฉันมีข้อมูลใน B3 เมื่อฉันใส่ข้อมูลลงใน E3 ถ้ามันเหมือนกับ B3 แล้ว B3 จะถูกลบหวังว่าคุณจะช่วยฉันได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะล้างเนื้อหาในเซลล์ที่ระบุหากเซลล์ทริกเกอร์มีจำนวนเฉพาะ? สมมติว่า เซลล์ A1 = 1 ให้ล้างเซลล์ A2:A4 หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีครับทุกคน

Besoin d'aide, j'ai besoin d'effacer le contenu d'une cellule de la colonne "I" si la cellule (de la même ligne) de la colonne "O" =0, สภาพแวดล้อม 2000 lignes avec des titres tout le 10 lignes สิ่งแวดล้อม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,

แค่มองหาวิธีง่ายๆ ในการสร้าง ดังนั้นหาก "B2" เลือก "ใช่" จากรายการตรวจสอบข้อมูล เซลล์ B3 จะล้างข้อมูลนั้น... และในทางกลับกัน ถ้า "B3" เลือก "ใช่" จาก รายการตรวจสอบข้อมูล เซลล์ "B2" จะล้างข้อมูล

เป็นพื้น B2 or B3 สามารถบอก "ใช่"(จากรายการตรวจสอบข้อมูล) แต่ไม่เคยพร้อมกัน หนึ่งควรล้างอีกอันหนึ่ง.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเจฟฟ์
รหัส VBA ต่อไปนี้สามารถช่วยคุณได้ กรุณาให้มันลอง
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220721
If Target.Cells.Count > 1 Then Exit Sub
    If (Not Intersect(Target, Range("B2")) Is Nothing) And (Target.Value = "Yes") Then
        Range("B3").ClearContents
        Else
        If (Not Intersect(Target, Range("B3")) Is Nothing) And (Target.Value = "Yes") Then
        Range("B2").ClearContents
    End If
    End If
End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Buongiorno, avrei bisogno di cancellare una serie di caselle (un rettangolo, quindi su più righe e colonne) ในฐาน al valore di un'altra cella es: se la cella A2 è ด้อยกว่า di 12, il quadrato con vertici opposto C2 : F4 venga cancellato.
ขอบคุณมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ปิเอโตร
ขออภัย ฉันไม่ค่อยเข้าใจคำถามของคุณ คุณรังเกียจที่จะอัปโหลดภาพหน้าจอของข้อมูลของคุณหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Помогите с решением, VBA не знаю. Мне нужно при изменении ячейки удалить данные из другой и чтобы это дейстовало на весь столбец.
Меняю А2 удаляется из G2, меняю А3 удаляется из G3, меняю A6 удаляется из G6 และ т.д.

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
ถ้าไม่ตัดกัน(เป้าหมาย, ช่วง("A2")) ก็ไม่มีอะไรทั้งนั้น
Range("G2")).ClearContents
End If
ย่อยสิ้นสุด


Данный код хорош для одной ячейки, а как его размножить на все ячейки столбца?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี นาตาเลีย
รหัส VBA ต่อไปนี้สามารถช่วยคุณแก้ปัญหาได้ กรุณาให้มันลอง

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20221013
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("A:A")
    Set xRight = Target.Offset(0, 6)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.ClearContents
    End If
End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

ซู พังก์ 3
Die Taste "Andere" ค้นหา ich nicht auf meiner Windows Tastatur. Ich Habe Strg, Alt, Tab... allerdings die Taste Andere gibt es auf meiner ลิ้มรส leider nicht.

Lieben Grüß Mathias
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี มาติอัส
หากคุณไม่พบคีย์ที่เกี่ยวข้องบนแป้นพิมพ์ คุณเพียงแค่คลิก ลด ปุ่มใน หน้าต่างแอปพลิเคชัน Microsoft Visual Basic เพื่อบันทึกรหัสแล้วปิดหน้าต่างนี้ด้วยตนเอง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
รหัสด้านล่างใช้งานได้ตามที่โฆษณา แต่เกิดปัญหาดังต่อไปนี้:

ประการแรก เมื่อปรับขนาดตารางเป้าหมาย ข้อมูลตารางทั้งหมดจะถูกล้าง และ ทั้งหมดยกเว้นส่วนหัวของคอลัมน์ 1 จะถูกติดป้ายกำกับใหม่เป็น "คอลัมน์1, คอลัมน์2 เป็นต้น และสมุดงานจะบันทึกอัตโนมัติและยกเลิกการเลิกทำ

ประการที่สอง เมื่อลบแถวของตารางใด ๆ ฉันได้รับ "ข้อผิดพลาดรันไทม์ 1004 (Method Offset of object Range ล้มเหลว


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F3:F500")) Is Nothing Then
     Target.Offset(0, 1).ClearContents
    ElseIf Not Intersect(Target, Range("G3:G500")) Is Nothing Then
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, 2).ClearContents
    ElseIf Not Intersect(Target, Range("H3:H500")) Is Nothing Then
        Target.Offset(0, 1).ClearContents
    End If
End Sub


มีความคิดอะไรผิดหรือเปล่า?

ขอบคุณล่วงหน้า!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hola, estoy trabajando una base de datos en OFFICE ONLINE a traves de ONEDRIVE, quiero que al PONER "CANCELADO" o "NOSHOW" elimine el contenido de la fila seleccionada.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแองเจิ้ล
รหัส VBA ไม่ทำงานใน Office Online ขออภัยในความไม่สะดวก.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ