วาดเส้นตารางไปยัง sheet อื่นมีปัญหาครับ

[new_application]

รบกวนครับ ผมจะวาดเส้นตาราง โดยกรอกข้อมูลผ่าน sheet home ไปยัง sheet database

โดยคลิกที่ click --> เลือกจำนวนงานวิจัย --> 3 --> กรอกข้อมูล --> save
แต่เกิด error ขึ้น ต้องปรับหรือแก้ไขตรงไหนครับ

Code: Select all

Private Sub name_3_save_Click()
Dim i, x As Integer
Range(Cells(5, 3), Cells(16, 3)).Clear
i = 5
x = i
Worksheets("database").Cells(x, 3) = name31.Value
x = i + 1
Worksheets("database").Cells(x, 3) = name32.Value
x = i + 2
Worksheets("database").Cells(x, 3) = name33.Value
Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlEdgeLeft).Weight = xlThin
Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlEdgeTop).Weight = xlThin
Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlEdgeRight).Weight = xlThin
Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlEdgeBottom).Weight = xlThin
Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlInsideHorizontal).Weight = xlThin
Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlInsideVertical).Weight = xlThin
MsgBox "Saved", vbInformation, "Technology Selection"
three_tech.Hide
homepage.Show
End Sub

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub name_3_save_Click()
    Dim i, x As Integer
    Range(Cells(5, 3), Cells(16, 3)).Clear
    i = 5
    x = i
    Worksheets("database").Cells(x, 3) = name31.Value
    x = i + 1
    Worksheets("database").Cells(x, 3) = name32.Value
    x = i + 2
    Worksheets("database").Cells(x, 3) = name33.Value
    Worksheets("database").Select
    Range(Cells(i, 3), Cells(x, 3)).Select
    Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlEdgeLeft).Weight = xlThin
    Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlEdgeTop).Weight = xlThin
    Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlEdgeRight).Weight = xlThin
    Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlEdgeBottom).Weight = xlThin
    Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlInsideHorizontal).Weight = xlThin
    Worksheets("database").Range(Cells(i, 3), Cells(x, 3)).Borders(xlInsideVertical).Weight = xlThin
    MsgBox "Saved", vbInformation, "Technology Selection"
    three_tech.Hide
    homepage.Show
End Sub

[new_application]

ขอบคุณครับ