Page 1 of 1
การบันทึกข้อมูลข้าม Sheet ต่อท้ายรายการที่มีอยู่แล้ว
Posted: Wed Aug 26, 2015 3:58 pm
by myjrcenter
ผมต้องการ สร้างปุ่มมาโคร เพื่อจะส่งข้อมูลในเซลล์ C8 ใน Sheet1 ไปเก็บไว้ใน Sheet2 ต่อกันไปเรื่อยๆ ต้องเขียนสูตรอย่างไรครับ รบกวนด้วยนะครับ
ทดสอบ บิลค่าไฟ.xlsm
Re: การบันทึกข้อมูลข้าม Sheet ต่อท้ายรายการที่มีอยู่แล้ว
Posted: Wed Aug 26, 2015 5:56 pm
by snasui
สำหรับ VBA ให้ทำตามกฎข้อ 5 ด้านบนครับ
Re: การบันทึกข้อมูลข้าม Sheet ต่อท้ายรายการที่มีอยู่แล้ว
Posted: Wed Aug 26, 2015 6:42 pm
by myjrcenter
ผมเขียน VBA โดยตรงไม่เป็น ครับอาจารย์ เคยแต่บันทึกมาโคร แล้วก็เข้าไปดูใน VBA
ส่วนปัญหาของผมนั้น ลองบันทึก มาโครแล้วได้แบบนี้ครับ
Sub Save()
'
' Save áÁâ¤Ã
'
'
Range("C8:I9").Select
ActiveCell.FormulaR1C1 = "|09940001655010002000986744158083117573"
With ActiveCell.Characters(Start:=1, Length:=39).Font
.Name = "Angsana New"
.FontStyle = "¸ÃÃÁ´Ò"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Sheets("Sheet2").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "|09940001655010002000986744158083117573"
Range("B3").Select
Sheets("Sheet1").Select
Range("C8:I9").Select
End Sub
มันเลยเหมือนจะไม่ตรงประเด็นซักหน่อย
ผมรับฝากชำระค่าไฟฟ้าอยู่บ้านนอกครับ ก็เลยอยากเก็บข้อมูลลูกค้าไว้หน่อย
รบกวนท่านผู้รู้ทั้งหลายชี้แนะด้วยนะครับ แต่ถ้าผิดเงื่อนไขยังไงก็ขออภัยด้วยครับ
Re: การบันทึกข้อมูลข้าม Sheet ต่อท้ายรายการที่มีอยู่แล้ว
Posted: Wed Aug 26, 2015 6:47 pm
by snasui
แนบ Code นั้นมาในไฟล์แล้วแนบไฟล์มาใหม่ด้วยครับ ทำตัวอย่างคำตอบที่ต้องการมาให้เห็นเด่นชัดว่าหาก Code ทำงานถูกต้องจะได้ผลลัพธ์เป็นอย่างไร จะได้เข้าใจตรงกัน
สำหรับการโพสต์ Code ให้กลับไปอ่านกฎที่ผมแจ้งไปอีกรอบเพื่อจะได้ทราบว่าการโพสต์ให้แสดงเป็น Code ทำเช่นไร เพื่อจะได้สะดวกในการอ่านและ Copy ไปทดสอบครับ
Re: การบันทึกข้อมูลข้าม Sheet ต่อท้ายรายการที่มีอยู่แล้ว
Posted: Wed Aug 26, 2015 9:41 pm
by myjrcenter
ขอโทษครับ ผมอาจไม่ค่อยเข้าใจเท่าไหร่ เอาใหม่
Code: Select all
Sub Save()
'
' Save áÁâ¤Ã
'
'
Range("C8:I9").Select
ActiveCell.FormulaR1C1 = "|09940001655010002000986744158083117573"
With ActiveCell.Characters(Start:=1, Length:=39).Font
.Name = "Angsana New"
.FontStyle = "¸ÃÃÁ´Ò"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Sheets("Sheet2").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "|09940001655010002000986744158083117573"
Range("B3").Select
Sheets("Sheet1").Select
Range("C8:I9").Select
End Sub
คือหลังจากกด ปุ่มบันทึกแล้ว ต้องการให้ข้อมูลจาก เซลล์ C8 ซึ่งเป็นหมายเลขบาร์โค๊ดของการไฟฟ้า ใน Sheet1 ไปจัดเก็บใน ใน Sheet2 เซลล์ B2,3,4 ต่อลงไปเรื่อยๆ ครับ
Re: การบันทึกข้อมูลข้าม Sheet ต่อท้ายรายการที่มีอยู่แล้ว
Posted: Thu Aug 27, 2015 10:27 am
by bank9597
ลองดูโค๊ดนี้ครับ
Code: Select all
Sub Save()
Sheets("Sheet1").Range("C8").Copy
With Sheets("Sheet2")
.Range("B" & .Range("B" & Rows.Count).End(xlUp).Row).Offset(1, 0).PasteSpecial xlPasteValues
End With
End Sub
Re: การบันทึกข้อมูลข้าม Sheet ต่อท้ายรายการที่มีอยู่แล้ว
Posted: Thu Aug 27, 2015 11:31 am
by myjrcenter
ได้แล้วครับ ขอบคุณมากๆครับ