Snasui Excel Forum

snasui wrote: Sun Jan 13, 2019 12:30 pm การเลือกค่าเดิมก็ต้องบอกโปรแกรมด้วยว่าค่าเดิมอยู่ที่ไหน ในปัจจุบันไม่ได้เขียน Code เช่นนั้นไว้ ต้องเขียนเพิ่มเข้าไปก่อน ไม่เช่นนั้นโปรแกรมจะทราบได้อย่างไรว่าให้วางตรงบรรทัดเดิมครับ

ปกติการทำเช่นนี้เราจะตรวจสอบเสียก่อนว่าค่าที่เราเลือกนั้นมีอยู่แล้วหรือไม่ หากมีแล้วเมื่อบันทึกจะบันทึกกลับไปยังตำแหน่งเดิม หากยังไม่มีจึงจะนำไปวางต่อจากบรรทัดที่มีข้อมูล

การจะหาว่ามีหรือไม่มี ตัวอย่าง Code ครับ

Code: Select all

dim y as long
'Other code
If Application.Countif(Range("b1:b10000"),Me.ComboBox1.Text) > 0 then
    y = application.match(Me.ComboBox1.Text,range("b1:b100000"),0)[/c]
    range("b" & y).value = Me.ComboBox1.Text
end if
'Other code

ในการสอบถามปัญหาควรแนบไฟล์ Excel พร้อม Code ที่เขียนมาเองแล้วด้วยเสมอจะได้สะดวกในการตอบของเพื่อนสมาชิก สามารถทำความเข้าใจได้รวดเร็วและตอบได้ตรงประเด็นกว่าการเขียนบรรยายมาโดยไม่มีไฟล์แนบครับ

snasui wrote: Sun Jan 13, 2019 12:53 pm นำสิ่งที่ผมตอบไปมาปรับใช้ก่อน ติดแล้วค่อยถามกันต่อครับ

jupiter5369 wrote: Sun Jan 13, 2019 12:57 pm ใส่ไปแล้วครับ ยังบ่ได้

Dim y As Long
If Application.CountIf(Range("b1:b10000"), Me.ComboBox1.Text) > 0 Then
    y = Application.Match(Me.ComboBox1.Text, Range("b1:b100000"), 0)
    Range("b" & y).Value = Me.ComboBox1.Text
Else
    Range("b100000").End(xlUp).Offset(1, 0).Select
    Selection = Me.ComboBox1.Text
End If