Page 1 of 1
code vba ข้อมูล
Posted: Thu Aug 08, 2024 6:03 pm
by Thitaporn7799
อาจารย์ขอคำแนะนำด้วยค่ะ
หนูกรอกข้อมูลที่ ชีท label_in จำนวน 14 รายการ
แล้วต้องการให้บันทึกที่ชีท data ทั้ง 14 รายการ
หนูกด Add แล้ว บันทึก รายการมาแค่บรรทัดเดียว
ต้องเขียน code vba เพิ่มอย่างไรค่ะ เพื่อให้บันทึกทั้งหมดที่เราคีย์ข้อมูลค่ะ
Re: code vba ข้อมูล
Posted: Thu Aug 08, 2024 7:11 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
Sub Button2_Click()
Dim i As Integer
Sheets("Label_in").Select
Range("B5").Select
i = 3
Do Until ActiveCell.Value = ""
Sheets("Data").Range("B" & i).Value = Selection.Value
Sheets("Data").Range("C" & i).Value = Selection.Offset(0, 4).Value
Sheets("Data").Range("D" & i).Value = Selection.Offset(0, 5).Value
Sheets("Data").Range("E" & i).Value = Selection.Offset(0, 6).Value
Sheets("Data").Range("I" & i).Value = Selection.Offset(0, 7).Value
ActiveCell.Offset(1, 0).Activate
i = i + 1
Loop
Sheets("Label_in").Select
Range("B5:B5000").Value = ""
End Sub
Re: code vba ข้อมูล
Posted: Fri Aug 09, 2024 7:40 am
by Thitaporn7799
ได้แล้วค่ะ ขอบคุณค่ะ อาจารย์
Re: code vba ข้อมูล
Posted: Fri Aug 09, 2024 8:17 am
by Thitaporn7799
อาจารย์มีคำถามเพิ่มค่ะ
ถ้าเรากด Add แล้วบันทึกไปแล้ว ข้อมูลถูกต้องแล้ว
หากมีข้อมูลใหม่จะบันทึกอีก ต้องการบันทึกเพิ่ม ในแถวถัดไป
ข้อมูลที่คีย์เพิ่ม ไม่แสดงแถวถัดไปค่ะ บันทึกทับของเก่าเลย ต้องแก้ โค๊ดอย่างไรค่ะ
Re: code vba ข้อมูล
Posted: Fri Aug 09, 2024 9:04 am
by snasui
กรุณาลองแก้มาเองก่อน ติดแล้วค่อยถามกันต่อครับ
Re: code vba ข้อมูล
Posted: Fri Aug 09, 2024 12:57 pm
by Thitaporn7799
ได้แล้วค่ะ ขอบคุณค่ะ อาจารย์