สอบถาม Code VB ให้เขียนสูตรลงในเซล

[tigerwit]

จากไฟล์ที่แนบมาต้องการใช้ Code เพื่อเขียนสูตรลงในเซลที่กำหนด
และสูตรที่เขียนมานั้นในงานไม่ได้ ต้องปรับ Code อย่างไรครับ

Code: Select all

Sub Edit_Fomula()
    Sheets("Main").Select
        ActiveSheet.Unprotect Password:="1"
            Range("B2").Select
                ActiveCell.FormulaR1C1 = "=Publish!J42"
            Range("C2").Select
                ActiveCell.FormulaR1C1 = "=Publish!J43"
        ActiveWorkbook.Save
        Application.ScreenUpdating = True
        ActiveSheet.Protect Password:="1"
        MsgBox "Update Complete"
End Sub

[puriwutpokin]

ปรับเป็น

Code: Select all

Sub Edit_Fomula()

    Sheets("Main").Select
        ActiveSheet.Unprotect Password:="1"
            Range("B2").Select
               ActiveCell.Formula = "='Publish'!" & "J42"
            Range("C2").Select
                ActiveCell.Formula = "='Publish'!" & "J43"
        ActiveWorkbook.Save
        Application.ScreenUpdating = True
        ActiveSheet.Protect Password:="1"
        MsgBox "Update Complete"
End Sub

[tigerwit]

ขอบคุณครับ