กำหนดให้มีใส่ข้อมูลก่อนเท่านั้น ถ้าไม่มีให้ขึ้น vba msgbox เตือน

[chinnapong]

Code: Select all

Sub p()
    Range("A1").Select
    Windows("Book1.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

ปัญหาคือ พอกดที่ตอนยังไม่กด Ctrl + C ข้อมูลมา และ พอจะมากดปุ่มให้วางให้มันขึ้น Error ผมอยากให้เมื่อกดปุ่ม วางแล้วข้อมูลที่ยังไม่ Ctrl + C มันขึ้นเตือน msgbox ให้Coppyก่อนที่จะกดวางข้อมูลครับ

ขอบคุณครับ.

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Range("A1").Select
Windows("Book1.xlsm").Activate
If Application.CutCopyMode Then
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Else
    MsgBox "Please copy first.", vbExclamation
End If

[chinnapong]

ตัวอย่าง Code ครับ

Code: Select all

Range("A1").Select
Windows("Book1.xlsm").Activate
If Application.CutCopyMode Then
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Else
    MsgBox "Please copy first.", vbExclamation
End If

ขอบคุณครับผมกำลังฝึกฝนครับ