Page 1 of 1

บันทึกข้อมูลจาก userform ที่ sheet data

Posted: Mon Feb 17, 2014 9:58 pm
by san02551
ผมต้องการบันทึกข้อมูลจาก userform ไปที่ sheet data
ผมต้องทำหลาย ฟอร์ม และบันทึก ไปแต่ละ sheet
เพราะข้อมูลใน userform เดียว อาจเก็บไว้หลาย sheet

Re: บันทึกข้อมูลจาก userform ที่ sheet data

Posted: Mon Feb 17, 2014 10:25 pm
by san02551
แนบไฟล์เพิ่มครับ พอคลิก บันทึกแล้ว ไม่ต้องโชว์ Sheet data ครับ

Re: บันทึกข้อมูลจาก userform ที่ sheet data

Posted: Mon Feb 17, 2014 10:35 pm
by snasui
:D การใช้ VBA จำเป็นต้องเขียนมาเองก่อน ติดตรงไหนสามารถถามกันมาได้เรื่อย ๆ ครับ

Re: บันทึกข้อมูลจาก userform ที่ sheet data

Posted: Mon Feb 17, 2014 10:57 pm
by san02551
บันทึกไฟล์ผิดครับ ขอโทษด้วย

Re: บันทึกข้อมูลจาก userform ที่ sheet data

Posted: Mon Feb 17, 2014 11:21 pm
by snasui
:D ลองปรับเป็นด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim r As Long
    With Sheets("data")
        r = .Range("a" & Rows.Count).End(xlUp).Row + 1
        .Cells(r, 1) = TextBox1.Text
        .Cells(r, 2) = ComboBox1.Text
        .Cells(r, 3) = TextBox2.Text
        .Cells(r, 4) = TextBox3.Text
        .Cells(r, 5) = TextBox4.Text
    End With
End Sub

Re: บันทึกข้อมูลจาก userform ที่ sheet data

Posted: Mon Feb 17, 2014 11:28 pm
by san02551
ทำได้แล้วครับ ตอนนี้กำลังทำฟอร์มบันทึกข้อมูล ให้กับสำนักงานที่ดินอยู่ครับ เสร็จแล้จะขออนุญาต เผยแพร่ครับ กำลังปรับปรุงโปรแกรม ครับ