Snasui Excel Forum

eunmii

ขอขอบคุณมากๆเลยค่าาาา

eunmii

ขอโทษอีกครั้งค่ะ แนบไฟล์ใหม่แล้วค่ะ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, b
a = Range("N2:N499")
b = Range("O2:O499")
    If a > b Then
    MsgBox (" MAXIMUM")
     End If
End Sub

eunmii

ขอโทษด้วยค่ะ ต้องการเปรียบเทียบระหว่าง 2 คอลัมน์ คือ N,O
ถ้าค่าในคอลัมน์ N มากกว่า ค่าในคอลัมน์ O ต้องการให้ขึ้นข้อความแจ้งเตือนค่ะ
แต่ไม่สามารถใส่สูตร range กำหนดช่วงได้ค่ะ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b
a = Sheet6.Range("N2:N")
b = Sheet6.Range("O2:O")
If a > b Or ...

eunmii

สอบถามค่ะ ต้องการทำ Msgbox เงื่อนไขเปรียบเทียบคอลัมน์ 2 คอลัมน์
เช่น ถ้า ค่าใน column A > column B ให้ถึงกล่องข้อความแจ้งเตือนค่ะ
โดยค่าใน column B มาจากการใช้สูตร Vlookup ค่ะ
ทดลองใช้ code ดังกล่าวขึ้นกล่องข้อความแจ้งเตือนสำหรับคอลัมน์ใดคอลัมน์หนึ่งเท่านั้นอ่ะค่ะ

Private Sub Worksheet_Change(ByVal ...

Snasui Excel Forum

File Anatomy Add-in: แก้ปัญหาไฟล์ Excel ช้า แฮงก์ และไม่เสถียร อย่างมืออาชีพ

Search found 4 matches

Re: Msgbox เงื่อนไขเปรียบเทียบคอลัมน์ 2 คอลัมน์

Re: Msgbox เงื่อนไขเปรียบเทียบคอลัมน์ 2 คอลัมน์

Re: Msgbox เงื่อนไขเปรียบเทียบคอลัมน์ 2 คอลัมน์

Msgbox เงื่อนไขเปรียบเทียบคอลัมน์ 2 คอลัมน์