สอบถามการบันทึกรายการเว้นวรรคเฉพาะที่ และเพิ่มเติมภายหลัง

[keay44]

สวัสดีค่ะขอสอบถามการทำไฟล์บันทึกข้อมูลลูกค้า แต่ติดปัญหาตรงที่อยากให้เว้นบางคอลัมภ์ เพื่อมากรอกข้อมูลภายหลัง เนื่องจากบางคอลัมภ์ที่จะลงข้อมูลจะมาไม่พร้อมเพียงกัน จึงอยากให้ช่วยแนะนำปรับโค๊ด เว้นเฉพาะคอลัมภ์ที่ต้องการ
ตัวอย่าง ไฟล์ทีแนบมานี้
1. จะเริ่มต้นลงข้อมูลตาม sheet1 จนครบแต่จะเว้นช่อง((หมายเหตุ คอมลัมภ์ C14 )) เนื่องจากยังไม่มีเอกสาร (จึงขอสอบถามเพิ่มเติมหากเราได้เอกสารมาจะนำมากรอกข้อมูลตามหลังได้หรือไม่ ทำอย่างไร) เช่น ในตัวอย่าง ช่องหมายเหตุลำดับแรกช่อง K ใส่ข้อมูลว่ารับเงินแล้ว ปกติจะ ctrl+f หาชื่อรหัสลูกค้า แล้วมาลงช่องหมายเหตุว่ารับเงินแล้ว
2. เมื่อเราลงบันทึกข้อมูลจาก Sheet1 และเมื่อกด Save จะปรากกฎข้อมูลไปยัง sheet 2 เราจะเว้นช่องที่ไฮไลท์สีเหลืองไว้ (ช่อง J) ได้หรือไม่เนื่องจากมีการคำนวนสูตรวัน

Code: Select all

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Range("C5:C14").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues, Transpose:=True

Sheets("Sheet1").Select
[B2:M15].ClearContents
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
    ActiveWorkbook.Save
    Range("C5:C13").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial xlPasteValues, Transpose:=True
    Sheets("Sheet1").Select
    Range("C14").Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 10).Select
    Selection.PasteSpecial xlPasteValues
    Sheets("Sheet1").Select
    [B2:M15].ClearContents
End Sub

[keay44]

สวัสดีค่ะ อาจารย์ เราสามารถเว้นช่อง I เพิ่มเติมอีกช่องได้ไหมค่ะ ให้สามารถยืดหยุ่น เนื่องจากไฟล์งานอาจมีปรับขยับช่อง

[snasui]

การเขียน Code คือการเขียนโปรแกรม แทบจะไม่มีอะไรที่ทำไม่ได้ครับ

ลองปรับตรง .Offset(x,y) แล้วสังเกตดูผล ปรับปรุงมาองก่อน ติดตรงไหนค่อยถามกันต่อครับ