Page 1 of 1
สอบถาม Code VBA ถ้า Column A มีข้อมูล ที่ Column B ต้องระบุค่า Yes หรือ No
Posted: Sun May 31, 2020 12:53 pm
by shevy
ถ้า Column A มีข้อมูล ที่ Column B จะต้องระบุค่า Yer หรือ No ถ้าไม่ระบุค่าที่ Column B จะมี Pop up แจ้งเตือนตอนที่จะทำการปิด excel คะ
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Sheet1").Range("B1").Value = "" Then
Cancel = True
MsgBox "B1 not blank"
Else
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub
Re: สอบถาม Code VBA ถ้า Column A มีข้อมูล ที่ Column B ต้องระบุค่า Yes หรือ No
Posted: Sun May 31, 2020 6:08 pm
by snasui
กรุณาแนบตัวอย่างไฟล์ Excel ที่เขียน Code นี้เอาไว้แล้วมาด้วยจะได้สะดวกต่อการตอบของเพื่อนสมาชิกครับ
Re: สอบถาม Code VBA ถ้า Column A มีข้อมูล ที่ Column B ต้องระบุค่า Yes หรือ No
Posted: Sun May 31, 2020 8:34 pm
by shevy
แนบไฟล์แล้วค่ะ ขอบคุณค่ะ
Re: สอบถาม Code VBA ถ้า Column A มีข้อมูล ที่ Column B ต้องระบุค่า Yes หรือ No
Posted: Sun May 31, 2020 9:26 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.CountIfs(Sheets("Sheet1").Range("A2:A10000"), "<>", _
Sheets("Sheet1").Range("B2:B10000"), "=") Then
Cancel = True
MsgBox "B1 not blank"
Else
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub
โอกาสถัดไปกรุณาโพสต์ Code ให้เป็นข้อความ Code เหมือนที่ผมโพสต์มานี้ ดูวิธีการได้ที่กฎการใช้บอร์ดข้อ 5 ด้านบนครับ
Re: สอบถาม Code VBA ถ้า Column A มีข้อมูล ที่ Column B ต้องระบุค่า Yes หรือ No
Posted: Tue Jun 02, 2020 8:42 am
by shevy
ทำได้แล้วค่ะ ขอบคุณค่ะ
Code: Select all
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.CountIfs(ActiveSheet.Range("A6:A10000"), "<>", _
ActiveSheet.Range("B6:B10000"), "=") Then
Cancel = True
MsgBox "Column B not blank"
Else
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub