Page 1 of 1
เราใช้แมโคร ส่งข้อมูลข้ามsheetได้ไหมครับ
Posted: Mon Oct 10, 2011 12:37 pm
by sdmania
ผมได้ลองทำ userform แต่ข้อมูลที่ให้กรอกมันเยอะ(ผู้กรอกต้องการfont24 มันเลยบีีบพื้นที่ไม่พอ)
ผมเลยคิดว่า ถ้าทำแมโครส่งข้อมูลที่อยู่ในเซล จากsheet2 ไปsheet1 จะได้ไหมครับ
Re: เราใช้แมโคร ส่งข้อมูลข้ามsheetได้ไหมครับ
Posted: Mon Oct 10, 2011 1:16 pm
by snasui
ทำได้ครับ ลองบันทึก Macro ดู ติดตรงไหนสอบถามมาได้ครับ
Re: เราใช้แมโคร ส่งข้อมูลข้ามsheetได้ไหมครับ
Posted: Mon Oct 10, 2011 3:06 pm
by sdmania
รบกวนอาจาย์ชี้แนะด้วยครับ เริ่มกันที่ sheet2 เมื่อกดปุ่มแล้ว จะส่งมาที่sheet1ครับ
มีคำถาม 2 ข้อครับ
1.การกำหนดช่วงrangeมีวิธีย่อกว่านี้ไหมครับ หรือทำทีละคอลมน์ a2 b2 c2 d2 ....bh2
2.การส่งข้อมูล จาก sheet2ไปยังsheet1 ทำยังไงให้ข้อมูลล่าสุดไปอยู่แถวล่างสุดครับ
Private Sub btnAdd_Click()
Dim IntRows As Long
Dim n As Range, sn As Range
IntRows = Rows.Count
Set n = Range("A" & IntRows).End(xlUp).Offset(1, 0)
Set sn = n.Offset(0, 1)
n = txtName.Text
sn = txtSurname.Text
End Sub
เอาสูตรนี้มาปรับใช้ยังไงดีครับ
Re: เราใช้แมโคร ส่งข้อมูลข้ามsheetได้ไหมครับ
Posted: Mon Oct 10, 2011 3:16 pm
by snasui
กรณีนี้ไม่ได้เกี่ยวข้องกับค่า Y ครับ
ดูตัวอย่างการปรับ Code ตามด้านล่างครับ
Code: Select all
Private Sub btnAdd_Click()
Dim IntRows As Long
Dim n As Range, sn As Range
IntRows = Rows.Count
With Sheets("Sheet1")
Set n = .Range("A" & IntRows).End(xlUp).Offset(1, 0)
End With
Set sn = Sheets("Sheet2").Range("A2:BH2")
sn.Copy
n.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Re: เราใช้แมโคร ส่งข้อมูลข้ามsheetได้ไหมครับ
Posted: Mon Oct 10, 2011 3:26 pm
by sdmania
ขอบคุณครับอาจารย์ ผ่านฉลุยเลยครับ
