Excel Forum

Private Sub CommandButton1_Click()
On Error Resume Next
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("DataInput")
'find first empty row in database
irow = ws.Cells(Rows.Count, 2)
'.End(xlUp).Offset(1, 0).Row
'copy the data to the database
For i = 1 To 11
ws.Cells(irow + i - 1, 2 ...

ลองปรับใช้ Code แล้วค่ะ ขึ้น Error ค่ะ

ภาพตัวอย่างค่ะ

ตอนนี้เขียน Code ให้สามารถเพิ่มข้อมูลได้แล้ว แต่อยากจะให้เพิ่มข้อมูลเป็น Column จนถึงแค่ TextBox 12 แล้ว TextBox17 ก็ขึ้นบบรรทัดใหม่ต่อลงมา ในหัวข้อ Item ต่อลงมา ต้องแก้ไข Code ยังไงค่ะ ใน Sheet DataInput

Private Sub CommandButton1_Click()
Dim irow, icol As Long
Dim ws As Worksheet
Set ws = Worksheets("DataInput")
'find first empty row in database
irow = ws.Cells(Rows.Count, 2)
.End(xlUp).Offset(1, 0).Row
'copy the data to the database
ws.Cells(irow, 2).Value = Me.Label23.Caption
ws.Cells ...

ขอบคุณอาจารย์มากๆค่ะ ได้ผลลัพธ์ตามต้องการแล้วค่ะ

ไฟล์ล่าสุดค่ะอาจารย์

ขึ้น Error แบบนี้ค่ะ

Private Sub ComboBox1_Change()
'Select Case ComboBox1.ListIndex
'Case 0
'a = "Other!A2:A100"
'ComboBox1.RowSource = a
'End Select
TextBox7.Value = Application.VLookup(Me.ComboBox1, Sheets("Other").Range("A2:A1000"), 2, False)
TextBox8.Value = Application.VLookup(Me.ComboBox1, Sheets("Other").Range ...

ให้เลือก list ใน Combobox แล้วสามารถโชว์ข้อมูล ใน textbox7-10 และ textbox12-15 ค่ะ

Private Sub ComboBox1_Change()
TextBox7.Value = Application.VLookup(Me.ComboBox1, Sheets("Other").Range("A2:E2"), 2, False)
TextBox8.Value = Application.VLookup(Me.ComboBox1, Sheets("Other").Range("A2:E2"), 3, False)
TextBox9.Value = Application.VLookup(Me.ComboBox1, Sheets("Other").Range("A2:E2 ...

รบกวนอาจารย์ช่วยดูหน่อยค่ะ

Private Sub ComboBox1_Change()
'Select Case ComboBox1.ListIndex
'Case 0
'a = "Other!A2:A100"
'ComboBox1.RowSource = a
'End Select
TextBox7.Value = Application.VLookup(Me.ComboBox1, Sheets("Other").Range("A:E"), 2, False)
TextBox8.Value = Application.VLookup(Me.ComboBox1, Sheets("Other").Range("A:E ...

รับทราบค่ะ

รบกวนสอบถามเพิ่มเติมนะค่ะ ถ้าจะทำให้โชว์ค่าใน TextBox เพิ่มเติม ต้องเขียน Code ยังไงค่ะ มันขึ้น Error ค่ะ ;( ต้องการให้โชว์ใน TextBox12-12 ค่ะ

ขอบคุณมากๆเลยค่ะ

ติดปัญหา Code error ค่ะ เขียน Code แล้ว ให้ข้อมูลใน sheet Other แสดงค่าใน ComboBox แต่ไม่สามารถบันทึกค่าลงใน sheet Database ได้ค่ะ

ขอบคุณค่ะ จะขอเข้าไปดู Code เพื่อปรับแก้ไขได้มั้ยค่ะ ในไฟล์ที่ส่งลิงค์มาให้ค่ะ

ต้องการให้ป้อนข้อมูลจากไฟล์ add ไปยังไฟล์ database ต้องเขียนโค้ดเพิ่มเติมยังไงค่ะ จากตัวอย่างที่ทำมาแค่ป้อนลงในไฟล์ add ค่ะ แล้วถ้าต้องการป้อนข้อมูลโดยไม่ต้องเปิดไฟล์ database ทำได้มั้ยค่ะ

ทำโปรแกรมนี้ ทำใน Excel โดยใช้ Macro ได้เลยเหรอค่ะ