ถามครับ-สอนเขียนcode Addครั้งเดียวให้เก็บข้อมูล2Sheetด้วยคร

[sdmania]

คำถามหลัก อยู่ที่Sheet2-1 ครับ
ถามว่า เมื่อกรอกข้อมูลเสร็จแล้ว กดButtonทีเดียวจะให้ส่งข้อมูลไปที่Sheet1และSheet3พร้อมกันต้องเขียนcodeอย่างไรครับ

[snasui]

Sheet3 ไม่ทราบว่าได้เปลี่ยนชื่อเป็นชีทใดครับ

[sdmania]

ขออภัยอย่างยิ่งครับ

เอาตัวนี้เลยครับ question2-3 ตัวนี้เลยครับ

[bank9597]

ลองตามนี้ดูครับ
ที่ Module2 วางโค๊ดนี้ครับ

Code: Select all

Sub sheet2_1_Click()
If Range("A3") <> "" And Range("B3") <> "" And Range("C3") <> "" And Range("D3") <> "" Then
    Sheets("Sheet2-1").Range("A3:D3").Copy
    Sheets("Sheet1").Range("A" & Rows.Count) _
        .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If

If Range("A3") <> "" And Range("B3") <> "" And Range("C3") <> "" And Range("D3") <> "" Then
    Sheets("Sheet2-1").Range("A3:D3").Copy
    Sheets("Sheet3").Range("A" & Rows.Count) _
        .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Sheets("Sheet2-1").Range("A3:D3") _
       .SpecialCells(xlCellTypeConstants).ClearContents
    MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
Else
    MsgBox ("¤Ø³ÂѧãÊè¢éÍÁÙÅäÁè¤Ãº")
    Range("A3").Activate
End If
End Sub

หากไม่ถูกใจ ก็ลองปรับดูน่ะครับ

[snasui]

แถมครับ

Code: Select all

Sub RecordData()
   Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp) _
       .Offset(1, 0).Resize(, 4) = Sheets("Sheet2-1").Range("A3:D3").Value
   Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp) _
       .Offset(1, 0).Resize(, 4) = Sheets("Sheet2-1").Range("A3:D3").Value
End Sub

[bank9597]

สั้นมากเลย อิอิ

[sdmania]

ขอบคุณครับผม ทั้งอาจารย์และคุณbankเลยครับ