ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/
ควรกลับไปแจ้งผลในกระทู้นั้นด้วยตามกฎข้อ 6 ด้านบนครับ ผมนำกระทู้มารวมกันให้แล้ว เนื่องจากเป็นงานเดิม และเป็นการถามต่อจากกระทู้เดิม หากถามว่าแก้ตรงไหนก็ต้องแก้ทั้งชุดครับ สำหรับการแก้ไขข้อมูลเราสามารถทำได้หลายแบบครับ เช่น เขียน Code สำหรับตรวจสอบข้อมูลว่าข้อมูลที่แก้อยู่ในบรรทัดใด ก็ให้นำข้อมูลที่แก้แล้วไปวางทีบรรทัดนั้น หรือ Loop เพื่อนำข้อมูลที่แก้แล้วไปวางทีเดิมApplication.Match(...) เข้ามาช่วยได้ครับ ตัวอย่าง Code ด้านล่างเป็นการ Loop เพื่อแก้ไขข้อมูลครับ
Code: Select all
Private Sub CommandButton1_Click()
Dim rAll As Range, r As Range
With Sheets("Data")
Set rAll = .Range("a2", .Range("a" & Rows.Count).End(xlUp))
For Each r In rAll
If CStr(r) = ComboBox1.Text Then
r.Offset(0, 1) = TextBox1.Text
r.Offset(0, 2) = TextBox2.Text
Exit For
End If
Next r
End With
Unload Me
End SubCode: Select all
Private Sub CommandButton1_Click()
Dim rAll As Range, r As Range
With Sheets("Data2")
Set rAll = .Range("a3", .Range("a" & Rows.Count).End(xlUp))
For Each r In rAll
If CStr(r) = ComboBox1.Text Then
r.Offset(0, 1) = TextBox1.Text
r.Offset(0, 2) = TextBox2.Text
r.Offset(0, 3) = TextBox3.Text
r.Offset(0, 4) = TextBox4.Text
r.Offset(0, 5) = TextBox5.Text
r.Offset(0, 6) = TextBox6.Text
r.Offset(0, 7) = TextBox7.Text
r.Offset(0, 8) = TextBox8.Text
r.Offset(0, 9) = TextBox9.Text
r.Offset(0, 10) = TextBox10.Text
r.Offset(0, 11) = TextBox11.Text
r.Offset(0, 12) = TextBox12.Text
r.Offset(0, 13) = TextBox13.Text
r.Offset(0, 14) = TextBox14.Text
r.Offset(0, 15) = TextBox15.Text
r.Offset(0, 16) = TextBox16.Text
r.Offset(0, 17) = TextBox17.Text
r.Offset(0, 18) = TextBox18.Text
r.Offset(0, 19) = TextBox19.Text
r.Offset(0, 20) = TextBox20.Text
r.Offset(0, 21) = TextBox21.Text
r.Offset(0, 22) = TextBox22.Text
r.Offset(0, 23) = TextBox23.Text
r.Offset(0, 24) = TextBox24.Text
r.Offset(0, 25) = TextBox25.Text
r.Offset(0, 26) = TextBox26.Text
r.Offset(0, 27) = TextBox27.Text
r.Offset(0, 28) = TextBox28.Text
r.Offset(0, 29) = TextBox29.Text
r.Offset(0, 30) = TextBox30.Text
r.Offset(0, 31) = TextBox31.Text
r.Offset(0, 32) = TextBox32.Text
r.Offset(0, 33) = TextBox33.Text
r.Offset(0, 34) = TextBox34.Text
r.Offset(0, 35) = TextBox35.Text
r.Offset(0, 36) = TextBox36.Text
r.Offset(0, 37) = TextBox37.Text
r.Offset(0, 38) = TextBox38.Text
r.Offset(0, 39) = TextBox39.Text
Exit For
End If
Next r
End With
Unload Me
End Sub
ค่าในคอลัมน์ A ควรเป็นข้อมูลประเภทเดียวกัน ไม่ใช่เป็น Text บ้าง Number บ้างClng ทิ้งไปแล้วทดสอบดูใหม่