วาดเส้นตารางไปยัง sheet อื่นมีปัญหาครับ
Posted: Sun Feb 09, 2014 10:43 pm
รบกวนครับ ผมจะวาดเส้นตาราง โดยกรอกข้อมูลผ่าน sheet home ไปยัง sheet database
โดยคลิกที่ click --> เลือกจำนวนงานวิจัย --> 3 --> กรอกข้อมูล --> save
แต่เกิด error ขึ้น ต้องปรับหรือแก้ไขตรงไหนครับ
โดยคลิกที่ 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
ลองปรับ Code เป็นตามด้านล่างครับ