Excel Forum

:D ผมไม่ดูภาพที่แนบไว้ที่อื่น กรุณาอ่านกฎการใช้บอร์ดข้อ 4 ด้านบนอีกครั้งครับ

ตัวอย่าง Code การตรวจสอบว่าซ้ำหรือไม่ซ้ำ หากซ้ำจะมีการถามว่ายอมให้ซ้ำหรือไม่


Dim rngEmpAll As Range, rsp As Integer
Dim iCount As Integer
If Target.Value = "" Then Exit Sub
With Me
Set rngEmpAll = .Range("b2", .Range ...

เงื่อนไขคือเวลา add ข้อมูลไปแล้วถ้ามีค่าซ้ำกันจะแจ้ง msgbox ถ้าไม่ซ้ำก็สามารถ add ได้ตามปกติ แต่พบปัญหาว่าพบค่าซ้ำหรือไม่ซ้ำก็แจ้ง msgbox ตลอด ลองพยายามแก้ code สรุปว่าพบค่าซ้ำหรือไม่ซ้ำ msgbox ก็จะไม่ขึ้นทั้งคู่ รบกวนดู code ให้หน่อยครับว่าควรปรับตรงไหนอย่างไรบ้าง ขอบคุณครับ

รูปประกอบครับ
https ...

แชร์โค้ดครับ

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If Not IsNumeric(Me.TextBox1.Text) Then
MsgBox "please input number format"
Keycode = 0
TextBox1.Text = ""
TextBox1.SetFocus
End If
End If
End Sub

astalavista wrote: Wed Nov 07, 2018 4:15 pm Keycode ใน sub นี้ น่าจะหมายถึงรหัส ASCII ของ keyboard ที่กดลงไปครับ โดย 0 = null
ลองเปิด google แล้ว search ว่า ascii เพื่อดูข้อมูลเพิ่มเติมครับ

ขอบคุณสำหรับแนวทางครับ

astalavista wrote: Wed Nov 07, 2018 4:05 pm ลองเพิ่ม KeyCode = 0 เพื่อเคลียการกด enter
เข้าไปหลังบรรทัด MsgBox ดูครับ

ได้แล้วครับ อยากทราบความหมายของ keycode = 0 ครับ
แล้วจะมีหมายเลขอื่นๆ อีกมั้ยครับ ขอบคุณครับ

สวัสดีครับ
อยากทราบว่าทำไมเวลากำหนด setfocus ที่ตัวเองถึงไม่โฟกัสครับ กลับไปโฟกัสอีกอัน อย่างเช่น ตั้ง setfocus ที่ textbox1 แต่กลับโฟกัสที่ Textbox2 แทน ต้องแก้ไขอย่างไรครับ ขอบคุณครับ

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 ...

เอาโค้ดมาแชร์ครับ


Private Sub CommandButton1_Click()
If TextBox2.Text = "" Then
MsgBox "please input format : dd/mm/yyyy"
TextBox2.Text = ""
TextBox2.SetFocus
Else
If TextBox2.Text <> Format(TextBox2.Text, "dd/mm/yyyy") Then
MsgBox "please input format : dd/mm/yyyy"
TextBox2.Text ...

puriwutpokin wrote: Mon Nov 05, 2018 1:21 pm

apforever wrote: Mon Nov 05, 2018 1:10 pm

puriwutpokin wrote: Mon Nov 05, 2018 12:37 pm

ลองแทรกตัวนี้ใต้ หัวโค้ด

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
'Other Code...

ได้แล้วครับ ขอบคุณครับ
ความหมายของโค้ดนี้คือทำงานต่อไปโดยที่ไม่สนใจ error ใช่มั้ยครับ

ใช่ครับ

ขอบคุณครับ

สวัสดีครับ
ผมเขียนให้ Textbox รับค่าเข้ามาเป็นวันที่แล้ว ที่นี้ติดปัญหาตรงที่ว่าเวลารับค่าวันที่ที่ไม่มีในปฎิทิน เช่น 32/10/2018 เป็นต้น โปรแกรมจะขึ้น Error อยากทราบมีมีวิธีแก้ได้อย่างไรครับ ขอบคุณครับ

Private Sub CommandButton1_Click()
If TextBox2.Text <> Format(TextBox2.Text, "dd/mm/yyyy ...

สวัสดีครับ
ผมเขียนให้ Textbox รับค่าเข้ามาเป็นวันที่แล้ว ที่นี้ติดปัญหาตรงที่ว่าเวลารับค่าวันที่ที่ไม่มีในปฎิทิน เช่น 32/10/2018 เป็นต้น โปรแกรมจะขึ้น Error อยากทราบมีมีวิธีแก้ได้อย่างไรครับ ขอบคุณครับ

Private Sub CommandButton1_Click()
If TextBox2.Text <> Format(TextBox2.Text, "dd/mm/yyyy") Then ...

ได้แล้วครับ ต้องเปลี่ยนไปใช้ Event KeyDown และตั้ง Scanner ให้มีการ Enter 1 ครั้งเวลายิงบาร์โค้ด แล้วเขียนสูตรให้เข้าเงื่อนไขหลังจาก Enter แล้ว เลยนำโค้ดมาแชร์กันเผื่อเป็นประโยชน์สำหรับใครหลายๆ คนครับ


Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If ...

snasui wrote: Tue Oct 02, 2018 7:30 pm ลองปรับตัวยิง Barcode ไม่ให้เกิด Enter แล้วทดสอบดูใหม่ครับ

ขอบคุณครับ จะลองปรับดูครับ

:D ตัวอย่างการปรับ Code ครับ


Private Sub TextBox2_Change()
Application.EnableEvents = False
If TextBox1.Text = TextBox2.Text Then
TextBox3.Text = "True"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
Else
TextBox3.Text = "False"
If TextBox3.Text = "False" Then
TextBox2.Text ...

ผมต้องการรับค่าบาร์โค้ดแล้วเทียบค่า 2 ค่าจากนั้นให้ผลลัพธ์แสดงที่ textbox3
ถ้าค่าตรงกันให้ textbox3 แสดงคำว่า TRUE พร้อมเคลียร์ค่า textbox1,textbox2 ออก และให้โฟกัสที่ textbox1 เพื่อรับค่ามาเทียบใหม่
ถ้าไม่ตรงกันให้ textbox3 แสดงคำว่า FALSE พร้อมเคลียร์ค่าที่ textbox2 ออก และให้โฟกัสที่ textbox2 เพ ...