วิธีกำหนดปุ่มคีย์บอร์ดให้มาโครทำงานและล้างหน้าบันทึกข้อมูล

[snasui]

อ่านตามที่โปรแกรมฟ้องก็จะเข้าใจได้ทันทีว่าเกิดจากอะไรครับ

[suka]

ค่ะอาจารย์ น่าอายจังลืมอ่านที่โปรแกรมฟ้อง พอเห็นแถบสีเหลืองก็จับมาถามทันทีค่ะ

อาจารย์คะ แก้โค๊ดและรันแล้วติดตามรูปแนบค่ะ
การ Set r ต้องการให้โค๊ดรู้หากชีท Form เลขที่ในเซลล์ N2 มีตรงกับ
Set r = formBook.Sheets("Form").Range("N2")

ที่สมุดงาน1ชืท Sheet1 คอลัมน์ B มีแล้วไม่ต้อง Copy ค่ะ ต้องปรับโค๊ดอย่างไรคะ
i = Application.Match(r, .Range("B:B"), 0)

[snasui]

ที่ติดเพราะว่า Match แล้วไม่เจอ

จาก Code นี้ i = Application.Match(r, .Range("B:B"), 0) เป็นการหาค่า r จาก .range("b:b") ว่าอยู่ในลำดับเท่าไร หากหาไม่เจอก็จะฟ้องตามภาพ หากหาเจอ ค่า i ก็จะเป็นค่าลำดับที่เจอ

หากต้องการจะตรวจสอบว่าเจอแล้วไม่ต้อง Copy สามารถใช้การนับเข้ามาช่วยแทนได้

Code: Select all

'Other code
If Application.Countif(.Range("B:B"),r) = 0 then
   'Copy
end if
'Other code

[suka]

อาจารย์คะ โค๊ดด้านล่างนี้รันแล้วติดตามรูปแนบค่ะ ไม่ทราบจะแก้อย่างไรคะ

Code: Select all

Sub MainCode()
        Dim formBook As Workbook
        Dim wdShare As Workbook
        Dim response As Integer
        Dim r As Range
        Set r = formBook.Sheets("Form").Range("N2")
        If Application.CountIf(wdShare.Sheets("Sheet1").Range("B:B"), r) = 0 Then
            response = MsgBox("Are you sure that you want to Copy this workbook ? Please Confirm", vbYesNo)
                If response = vbYes Then
                    Application.ScreenUpdating = False
                    Call SArBookShare
                    Call BeenArL
                    Application.ScreenUpdating = True
                End If
            End If
End Sub

[snasui]

formBook คือไฟล์ชื่ออะไร ได้ Assign ค่าให้กับ formBook แล้วยังครับ

[suka]

แจ้งผลค่ะหลังจากที่กำหนดตัวแปรและกำหนดช่วงให้กับโปรแกรมแล้ว สามารถรันโปรแกรมได้ตามต้องการแล้วค่ะ

ขอขอบพระคุณอาจารย์อย่างยิ่งค่ะ ใจดีคอยช่วยเหลือและใจเย็นเต็มใจที่จะถ่ายทอดความรู้ให้คำแนะนำมาโดยตลอดค่ะ
และ ขอขอบคุณคุณ BTR เจ้าของกระทู้นี้ด้วยค่ะ