อยากสร้างกล่องข้อความขึ้นมาแจ้งเตือนตามเงื่อนไขที่กำหนดไว้(VBA)
Posted: Thu Sep 08, 2016 9:12 pm
เรียนทุกท่าน
ผมได้ทำ VBA ลบแถวที่มีค่าเป็น 0 หรือไม่มีค่าใดๆ ในเซลล์ที่กำหนดไว้ระหว่าง A10 ถึง A20
แต่พอใส่จำนวนสินค้า ในเซลล์ A10ถึงA20ทุกเซลล์เป็นค่าใดๆ เช่น 1,2,6,7 มันจะมีกล่องข้อความขึ้นมาแจ้ง "run-time error '1004':
"No cells werw found."
แต่ผมอยากให้มีกล่องข้อความขึ้นมาแจ้งเตือนตามที่เรากำหนดโดยมีเงื่อนไขตามด้างล่างนี้
ถ้ากรณี เซลล์ระหว่าง A10 ถึง A20 มีค่าใดๆ เช่น 1,2,5 ตั้งแต่เซลล์ระหว่าง A10 ถึง A20 ที่ไม่ใช่ 0 หรือค่าว่างเปล่า
อยากให้มีกล่องข้อความโชว์ขึ้นมาแจ้งเตือน "จำนวนสินค้าเต็มทุกรายการ" โดยที่เราเลือกปิดกล่องข้อความที่เครื่องหมาย X ด้านบนขวามือ
ผมได้แนบไฟล์ excel มาให้ด้วยครับ
โดยโค้ดที่เขียนไว้ดังนี้
รบกวนทุกท่านช่วยดูโค้ดด้วยครับ ขอบคุณครับ
ผมได้ทำ VBA ลบแถวที่มีค่าเป็น 0 หรือไม่มีค่าใดๆ ในเซลล์ที่กำหนดไว้ระหว่าง A10 ถึง A20
แต่พอใส่จำนวนสินค้า ในเซลล์ A10ถึงA20ทุกเซลล์เป็นค่าใดๆ เช่น 1,2,6,7 มันจะมีกล่องข้อความขึ้นมาแจ้ง "run-time error '1004':
"No cells werw found."
แต่ผมอยากให้มีกล่องข้อความขึ้นมาแจ้งเตือนตามที่เรากำหนดโดยมีเงื่อนไขตามด้างล่างนี้
ถ้ากรณี เซลล์ระหว่าง A10 ถึง A20 มีค่าใดๆ เช่น 1,2,5 ตั้งแต่เซลล์ระหว่าง A10 ถึง A20 ที่ไม่ใช่ 0 หรือค่าว่างเปล่า
อยากให้มีกล่องข้อความโชว์ขึ้นมาแจ้งเตือน "จำนวนสินค้าเต็มทุกรายการ" โดยที่เราเลือกปิดกล่องข้อความที่เครื่องหมาย X ด้านบนขวามือ
ผมได้แนบไฟล์ excel มาให้ด้วยครับ
โดยโค้ดที่เขียนไว้ดังนี้
Code: Select all
Sub ÊÕèàËÅÕèÂÁ¼×¹¼éÒ1_Click()
Dim rng As Range
For Each rng In Sheets("sheet1").Range("a10", "a20")
If rng.Value = 0 Then
rng.Value = ""
End If
Next rng
Sheets("sheet1").Range("a10", "a20").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub