Snasui Excel Forum

:D ลองดักด้วย [c]On Error Resume Next[/c] เข้าไปก่อนบรรทัด [c]with[/c] ดูก่อน ได้ผลเป็นอยา่งไรแจ้งด้วยครับ

[quote=snasui post_id=104631 time=1603810833 user_id=2]
:D ตัวอย่างการปรับ Code ครับ

[code]'Other code
With Sheets("GAP")
Range("C1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
ActiveSheet.Range("$W$4:$AP$400").AutoFilter Field:=13, Criteria1:="<>"
MsgBox "วางข้อมูลเรียบร้อย ALC โปรดตรวจสอบข้อมูลอีกครั้ง", vbInformation, "ข้อความประกาศ"
If .Range("c1").Value = "" Then
MsgBox "Please copy first.", vbExclamation
End If
End With
'Other code[/code]
[/quote]
ผมได้ลอง Code ที่อาจารย์ปรับ Code มาลองดูมารันแล้ว error สาเหตุมาจาก สมมุติเราลืม Copy ข้อมูลมาแล้วมากดรันเลย
ไม่มีข้อมูล Copy ใน Clipboard จึงทำให้เปิดการ error ครับ
แนวทางแก้ : อยากให้เวลาเรากดรันทั้งๆยังไม่มีข้อมูล Copy ใน Clipboard มีข้อความแจ้งเตือนหรือไม่เกิดอะไรขึ้นเลยครับ ขอบคุณครับ
ตัวอย่างรูปครับ
[img]https://www.img.in.th/images/62b73bb7d18785301e30d510e147f376.png[/img]

[img]https://www.img.in.th/images/0aae2e10b5adc7aa7c3f419ab69d5304.png[/img]

'Other code
With Sheets("GAP")
    Range("C1").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveSheet.Range("$W$4:$AP$400").AutoFilter Field:=13, Criteria1:="<>"
    MsgBox "วางข้อมูลเรียบร้อย ALC โปรดตรวจสอบข้อมูลอีกครั้ง", vbInformation, "ข้อความประกาศ"
    If .Range("c1").Value = "" Then
        MsgBox "Please copy first.", vbExclamation
    End If
End With
'Other code

:D ตัวอย่างการปรับ Code ครับ

[code]'Other code
With Sheets("GAP")
Range("C1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
ActiveSheet.Range("$W$4:$AP$400").AutoFilter Field:=13, Criteria1:="<>"
MsgBox "วางข้อมูลเรียบร้อย ALC โปรดตรวจสอบข้อมูลอีกครั้ง", vbInformation, "ข้อความประกาศ"
If .Range("c1").Value = "" Then
MsgBox "Please copy first.", vbExclamation
End If
End With
'Other code[/code]

Sub Paste()
 Range("C1").Select
    With Sheets("GAP")
    If Application.CutCopyMode Then
    Range("C1").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveSheet.Range("$W$4:$AP$400").AutoFilter Field:=13, Criteria1:="<>"
    MsgBox "วางข้อมูลเรียบร้อย ALC โปรดตรวจสอบข้อมูลอีกครั้ง", vbInformation, "ข้อความประกาศ"
        Else
    MsgBox "Please copy first.", vbExclamation
    End If
End With
End Sub

ปัญหาเมื่อเรา Copy จากไฟล์ Word ที่นามสกุล (.rtf) ที่เปิดไฟล์แล้วกด Ctrl + C แล้วมา กดวางปุ่มวางใน Excel ต้องกำหนดค่า Code VBA
ยังไงครับ กำหนดแล้วค่าที่เรา Copy ใน Code แล้วข้อมูลไม่มาครับ ขอแนวทาง Code ด้วยครับอาจารย์.
[code]Sub Paste()
Range("C1").Select
With Sheets("GAP")
If Application.CutCopyMode Then
Range("C1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
ActiveSheet.Range("$W$4:$AP$400").AutoFilter Field:=13, Criteria1:="<>"
MsgBox "วางข้อมูลเรียบร้อย ALC โปรดตรวจสอบข้อมูลอีกครั้ง", vbInformation, "ข้อความประกาศ"
Else
MsgBox "Please copy first.", vbExclamation
End If
End With
End Sub[/code]