:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
anucha171
Member
Member
Posts: 8
Joined: Mon Oct 22, 2018 10:31 pm

ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#1

Post by anucha171 »

เมื่อบันทึกข้อมูลบ้านเลขที่ ที่มีเครื่องหมาย / เมื่อไปยังหน้าแก้ไขข้อมูลแล้วเลือกบ้านเลขที่ ที่มีเครื่องหมาย / จะเกิด run-tie error 13 Type mismatch นะครับ

Code: Select all

Private Sub btnexit_Click()
Unload Rec_frm
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1.Value <> "" Then
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA2")
Dim i As Integer
i = Application.Match(VBA.CLng(Me.ComboBox1.Value), sh.Range("B:B"), 0)
Me.TextBox2.Value = sh.Range("C" & i).Value
Set sh = ThisWorkbook.Sheets("DATA2")

i = Application.Match(VBA.CLng(Me.ComboBox1.Value), sh.Range("B:B"), 0)
Me.TextBox3.Value = sh.Range("D" & i).Value
Me.TextBox4.Value = sh.Range("E" & i).Value
Me.TextBox5.Value = sh.Range("F" & i).Value
Me.TextBox6.Value = sh.Range("G" & i).Value
Me.TextBox7.Value = sh.Range("H" & i).Value
Me.TextBox8.Value = sh.Range("I" & i).Value
Me.TextBox9.Value = sh.Range("J" & i).Value
Me.TextBox10.Value = sh.Range("K" & i).Value
Me.TextBox11.Value = sh.Range("L" & i).Value
Me.TextBox12.Value = sh.Range("M" & i).Value
Me.TextBox13.Value = sh.Range("N" & i).Value
Me.TextBox14.Value = sh.Range("O" & i).Value
Set sh = ThisWorkbook.Sheets("DATA2")
End If
End Sub

Private Sub CommandButton1_Click()

'''''''''' Check The duplicate EMP ID
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA2")
Dim n As Long

n = Application.Match(VBA.CLng(Me.ComboBox2.Value), sh.Range("B:B"), 0)

sh.Range("B" & n).Value = Me.ComboBox2.Value
sh.Range("C" & n).Value = Me.TextBox2.Value
sh.Range("D" & n).Value = Me.TextBox3.Value
sh.Range("E" & n).Value = Me.TextBox4.Value
sh.Range("F" & n).Value = Me.TextBox5.Value
sh.Range("G" & n).Value = Me.TextBox6.Value
sh.Range("H" & n).Value = Me.TextBox7.Value
sh.Range("I" & n).Value = Me.TextBox8.Value
sh.Range("J" & n).Value = Me.TextBox9.Value
sh.Range("K" & n).Value = Me.TextBox10.Value
sh.Range("L" & n).Value = Me.TextBox11.Value
sh.Range("M" & n).Value = Me.TextBox12.Value
sh.Range("N" & n).Value = Me.TextBox13.Value
sh.Range("O" & n).Value = Me.TextBox14.Value

Me.ComboBox2.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
 MsgBox "·Ó¡Òúѹ·Ö¡¢éÍÁÙŨӹǹ˹èÇ¡ÒÃãªé¹éÓÃÒÂà´×͹àÃÕºÃéÍÂáÅéÇ", vbInformation
 
End Sub


Private Sub CommandButton2_Click()

Me.ComboBox2.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
End Sub

Private Sub Update_Click()
Recupdate.Show
End Sub

Private Sub UserForm_Activate()
With Me.ComboBox1

End With
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA")
Dim i As Integer
Me.ComboBox1.Clear
Me.ComboBox1.AddItem ""
For i = 4 To sh.Range("B" & Application.Rows.Count).End(xlUp).Row
Me.ComboBox1.AddItem sh.Range("B" & i).Value
Next i

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "¡´»ØèÁ ÍÍ¡ à·èÒ¹Ñ鹤ÃѺ !!!"
  End If
End Sub[attachment=0]ระบบบันทึกใหม่.xlsm[/attachment]
You do not have the required permissions to view the files attached to this post.
Top
User avatar
Serverchita
Bronze
Bronze
Posts: 296
Joined: Wed Nov 18, 2015 1:28 pm
Excel Ver: 365

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#2

Post by Serverchita »

1. แก้ไข Code ในหน้า Add ตรง Me.TextBox1.Value เป็น Me.TextBox1

Code: Select all

Private Sub CommandButton1_Click()
If Me.TextBox1.Value <> "" Then
    Dim irow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("DATA")
    Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
    '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.TextBox1
    ws.Cells(irow, 5).Value = Me.TextBox2.Value
    ws.Cells(irow, 3).Value = Me.TextBox3.Value
    ws.Cells(irow, 4).Value = Me.TextBox4.Value
    ws.Cells(irow, 6).Value = Me.TextBox5.Value
       ws.Cells(irow, 7).Value = Me.TextBox6.Value
    ws.Cells(irow, 8).Value = Me.TextBox7.Value
    
    Unload Me
    Add_frrm.Show
    Else
    MsgBox "¡ÃسÒÃкت×è͹Ó˹éÒ¡è͹¤ÃѺ", vbCritical
    End If
End Sub
2. แก้ไข Code ในหน้าแก้ไข i = Application.Match(VBA.CLng(Me.ComboBox1.Value), sh.Range("B:B"), 0) เป็น i = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)

Code: Select all

Private Sub ComboBox1_Change()
If Me.ComboBox1.Value <> "" Then
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA")
Dim i As Integer
i = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
Me.TextBox2.Value = sh.Range("E" & i).Value
Me.TextBox3.Value = sh.Range("C" & i).Value
Me.TextBox4.Value = sh.Range("D" & i).Value
Me.TextBox5.Value = sh.Range("F" & i).Value
Me.TextBox6.Value = sh.Range("G" & i).Value
Me.TextBox7.Value = sh.Range("H" & i).Value
End If
End Sub
เพื่อให้ Format เป็นรูปแบบเดียวกันครับ
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
Top
anucha171
Member
Member
Posts: 8
Joined: Mon Oct 22, 2018 10:31 pm

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#3

Post by anucha171 »

ขอบคุณมากครับแก้ได้แล้วครับ
Top
anucha171
Member
Member
Posts: 8
Joined: Mon Oct 22, 2018 10:31 pm

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#4

Post by anucha171 »

มีปัญหาเพิ่มครับ นึกว่าแก้ได้แล้ว แต่ปัญหา คือ ตอนเราเลือกบ้านเลขที่ ที่มีเครื่องหมาย / มันเลือกได้ แต่บ้านเลขที่ๆไม่มีเครื่องหมายทับมัน run time eror

Code: Select all

Private Sub btnexit_Click()
Unload Update
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1.Value <> "" Then
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA")
Dim i As Integer
i = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
Me.TextBox2.Value = sh.Range("E" & i).Value
Me.TextBox3.Value = sh.Range("C" & i).Value
Me.TextBox4.Value = sh.Range("D" & i).Value
Me.TextBox5.Value = sh.Range("F" & i).Value
Me.TextBox6.Value = sh.Range("G" & i).Value
Me.TextBox7.Value = sh.Range("H" & i).Value
End If
End Sub

Private Sub CommandButton1_Click()
''''''''''Validation''''''''''

If Me.TextBox2.Value = "" Then
MsgBox "¡ÃسÒãÊèª×è͹ÒÁ-Ê¡ØÅ", vbCritical
Exit Sub
End If

If Me.TextBox4.Value = "" Then
MsgBox "¡ÃسÒÃкطÕèÍÂÙè»Ñ¨¨ØºÑ¹", vbCritical
Exit Sub
End If

'''''''''' Check The duplicate EMP ID
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA")
Dim n As Long
i = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
sh.Unprotect "1234"
sh.Range("B" & n).Value = Me.ComboBox1.Value
sh.Range("E" & n).Value = Me.TextBox2.Value
sh.Range("C" & n).Value = Me.TextBox3.Value
sh.Range("D" & n).Value = Me.TextBox4.Value
sh.Range("F" & n).Value = Me.TextBox5.Value
sh.Range("G" & n).Value = Me.TextBox6.Value
sh.Range("H" & n).Value = Me.TextBox7.Value
sh.Protect "1234"
Me.ComboBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""

 MsgBox "ä´é·Ó¡Òúѹ·Ö¡¢éÍÁÙÅ·Õèà»ÅÕè¹á»Å§á¡éä¢áÅéÇ", vbInformation
 
End Sub


Private Sub CommandButton2_Click()

Me.ComboBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""

End Sub



Private Sub Frame1_Click()

End Sub

Private Sub UserForm_Activate()
With Me.ComboBox1

End With
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA")
Dim i As Integer
Me.ComboBox1.Clear
Me.ComboBox1.AddItem ""
For i = 4 To sh.Range("B" & Application.Rows.Count).End(xlUp).Row
Me.ComboBox1.AddItem sh.Range("B" & i).Value
Next i

End Sub


Private Sub UserForm_Click()
Dim sh
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "¡´»ØèÁ ÍÍ¡ à·èÒ¹Ñ鹤ÃѺ !!!"
  End If
End Sub
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31175
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#5

Post by snasui »

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

Code: Select all

'Other code
Set sh = ThisWorkbook.Sheets("DATA")
Dim i As Integer
If Not IsNumeric(Me.ComboBox1.Text) Then
    i = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
Else
    i = Application.Match(CLng(Me.ComboBox1.Value), sh.Range("B:B"), 0)
End If
'Other code
Top
anucha171
Member
Member
Posts: 8
Joined: Mon Oct 22, 2018 10:31 pm

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#6

Post by anucha171 »

รบกวนครับอาจารย์ เอาcode ไปใส่ในหน้าupdate แล้วแก้ได้ครับ แต่พอกดบันทึก มันขึ้นrun time error 1004 Method "Range" of object _worksheets falied ปล.ผมกำลังพยายามศึกษาVba พึ่งเริ่มต้นศึกษานะครับ ขอบคุณครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31175
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#7

Post by snasui »

:D การเกิด Error ลักษณะนั้นโปรแกรมจะแจ้งให้ทราบว่าติดปัญหาที่บรรทัดไหน ให้ตรวจสอบบรรทัดนั้น

ที่ผมทดสอบพบ Error คือบรรทัดนี้ sh.Range("B" & n).Value = Me.ComboBox1.Value เพราะค่า n เป็น 0 จึงไม่สามารถเข้าถึง B0 เพราะเซลล์จะเริ่มจาก 1 นั่นคืออย่างน้อยต้องเป็น B1 ไม่ใช่เป็น B0 ครับ
Top
anucha171
Member
Member
Posts: 8
Joined: Mon Oct 22, 2018 10:31 pm

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#8

Post by anucha171 »

ขอบคุณครับ
Top
anucha171
Member
Member
Posts: 8
Joined: Mon Oct 22, 2018 10:31 pm

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#9

Post by anucha171 »

รบกวนอาจารย์อีกครั้งครับ ตอนนี้ผมแก้ปัญหาเบื้องต้นได้แล้ว จากคำแนะนำของท่านอาจารย์ และทดสอบการบันทึกข้อมูลจนแน่ใจว่าไม่เกิด error หรือ Bug แล้ว แต่สิ่งที่อยากรบกวนอาจารย์คือ ทำอย่างไร ที่จะให้ Combobox ในหน้า update เมื่อเลือกบ้านเลขที่ๆซ้ำกันแล้ว ให้ข้อมูลรายชื่อ ที่บ้านเลขที่ซ้ำกันทั้งหมดขึ้นมาให้เราเลือกต่อไปอีกนะครับ จากไฟล์ที่แนบมา เมื่อเราเลือกบ้านที่ซ้ำกัน ก็จะปรากฎเฉพาะคนที่ซ้ำกันที่อยู่ลำดับแรก เมื่อแก้ไข หรือเลือกคนที่ซ้ำกันลำดับต่อมา เมื่อแก้ไขข้อมูลแล้วก็ยังไปเป็นการแก้ข้อมูลของบ้านเลขที่ๆซ้ำกันในลำดับแรกนะครับ

Code: Select all

Private Sub btnexit_Click()
Unload Update
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1.Value <> "" Then
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA")
Dim i As Integer
i = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
Me.TextBox2.Value = sh.Range("E" & i).Value
Me.TextBox3.Value = sh.Range("C" & i).Value
Me.TextBox4.Value = sh.Range("D" & i).Value
Me.TextBox5.Value = sh.Range("F" & i).Value
Me.TextBox6.Value = sh.Range("G" & i).Value
Me.TextBox7.Value = sh.Range("H" & i).Value
End If
End Sub

Private Sub CommandButton1_Click()
''''''''''Validation''''''''''

If Me.TextBox3.Value = "" Then
MsgBox "กรุณาใส่ชื่อนาม-สกุล", vbCritical
Exit Sub
End If



'''''''''' Check The duplicate EMP ID
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA")
Dim n As Long

n = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
sh.Unprotect "12345"
sh.Range("B" & n).Value = Me.ComboBox1.Value
sh.Range("E" & n).Value = Me.TextBox2.Value
sh.Range("C" & n).Value = Me.TextBox3.Value
sh.Range("D" & n).Value = Me.TextBox4.Value
sh.Range("F" & n).Value = Me.TextBox5.Value
sh.Range("G" & n).Value = Me.TextBox6.Value
sh.Range("H" & n).Value = Me.TextBox7.Value
sh.Protect "12345"
Me.ComboBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""

 MsgBox "ได้ทำการบันทึกข้อมูลที่เปลี่ยนแปลงแก้ไขแล้ว", vbInformation
 
End Sub


Private Sub CommandButton2_Click()

Me.ComboBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
End Sub



Private Sub UserForm_Activate()
With Me.ComboBox1

End With
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("DATA")
Dim i As Integer
Me.ComboBox1.Clear
Me.ComboBox1.AddItem ""
For i = 4 To sh.Range("B" & Application.Rows.Count).End(xlUp).Row
Me.ComboBox1.AddItem sh.Range("B" & i).Value
Next i

End Sub


Private Sub UserForm_Click()
Dim sh
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "กดปุ่ม ออก เท่านั้นครับ !!!"
  End If
End Sub
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub
You do not have the required permissions to view the files attached to this post.
Top
astalavista
Member
Member
Posts: 48
Joined: Tue Oct 03, 2017 11:05 am

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#10

Post by astalavista »

ลองปรับที่
sub ComboBox1_Change()
จาก

Code: Select all

i = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
เป็น

Code: Select all

i = Me.ComboBox1.ListIndex + 3
และ sub CommandButton1_Click()
จาก

Code: Select all

n = Application.Match(Me.ComboBox1.Value, sh.Range("B:B"), 0)
เป็น

Code: Select all

n = Me.ComboBox1.ListIndex + 3
Top
anucha171
Member
Member
Posts: 8
Joined: Mon Oct 22, 2018 10:31 pm

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#11

Post by anucha171 »

เดี๋ยวจะลองดูครับ แล้วจะมาบอกผลนะครับ
Top
anucha171
Member
Member
Posts: 8
Joined: Mon Oct 22, 2018 10:31 pm

Re: ขอความช่วยเหลือแก้ไขสูตรหน่อยครับ

#12

Post by anucha171 »

ลองแล้วครับใช้ได้ผลครับ ขอบคุณมาก แล้วจะลองวางcodeทั้งระบบดูก่อนนะครับว่าจะมี error หรือbug แล้วจะมารายงานผลครับ
Top
Post Reply

Return to “Excel”