กดเพิ่มข้อมูลแล้วชื่อไม่ขึ้น
Posted: Sun Jul 13, 2014 2:03 pm
เซลล์ d3 และ e3 ได้มาจากการกรอกรหัสนักเรียนในช่อง b3 แล้วดึงมาจากซีส student แต่เมื่อกดปุ่มเพิ่มข้อมูลแล้วไม่ปรากฎชื่อ และห้อง ครับ
ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
Code: Select all
Sub add()
'
' add แมโคร
'
' แป้นพิมพ์ลัด: Ctrl+a
'
Application.Goto Reference:="master"
Selection.Copy
Application.Goto Reference:="mydata"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("a1").Select
Selection.PasteSpecial xlPasteValuesAndNumberFormats
Selection.PasteSpecial xlFormats
Application.CutCopyMode = False
Range("F3:I3").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C3").Select
End Sub