Excel Forum

รบกวนถามเพิ่มเติมค่ะ
ถ้าต้องการนับคำที่นอกเหนือจากในตัวอย่างต่อไปนี้ต้องใช้สูตรแบบไหนค่ะ
ชุดหดและเก่าตามสภาพ
ชุดเปื่อยขาด เนื่องจากการซัก
ชุดขาดตามรอยตะเข็บ
เดินทางไปทำงานต่างจังหวัด/ต่างประเทศ

ตรงนี้ทำได้แล้ว ขอบคุณค่ะ รบกวนถามต่อค่ะ ช่วยดูโค้ดที่แนบมาให้หน่อยค่ะ :arrow: Userform3 :arl: ถ้าอยากให้เลือกข้อมูลใน combobox1 กับ combobox2 แล้วแสดงข้อมูลคงเหลือจากชีท 2 ตามหัวข้อที่เลือกต้องแก้ไขตรงไหนเพิ่มค่ะ Private Sub btsearch_Click() 'On Error Resume Next If ComboBox1 = "" Or Comb...

ลองทำตามที่ค้นหาข้อมูลดูแล้ว ขึ้นแบบนี้ใน module คืออะไรค่ะ

snasui wrote: เคยบันทึก Macro หรือไม่ครับ

ไม่เคยค่ะ

snasui wrote: การลบแล้วข้อมูลอื่นมาแทนแสดงว่าเป็นการลบแล้วให้ Shift ไปทางใดทางหนึ่ง กรณีลบแล้วต้องการให้ Shift ขึ้นด้านบนลองบันทึัก Macro แล้วดู Code และนำมาปรับใช้ดูก่อน ติดแล้วค่อยถามกันครับ

คือยังไงค่ะ ไม่ค่อยเข้าใจที่บอกมา

ลบข้อมูลที่ต้องการได้แล้วค่ะ แต่ทำไมพอลบข้อมูลสุดท้ายแล้วจะมีข้อมูลของคอลลัมน์อื่นมาแทนที่ค่ะ
เช่น ลบไซส์เสื้อ SSP(FF) แล้ว ไซส์กางเกง 32" ก็จะมาแทนที่ค่ะ ทุกข้อมูลที่อยู่ข้างๆกันก็จะมาแทนที่เรื่อยๆค่ะ เพราะอะไรค่ะ

ตอนกดปุ่ม save , Delete ค่ะ ปัญหาที่ Userform1 ค่ะ
พอเลือกข้อมูลเรียบร้อยแล้ว กดปุ่ม save ต้องรอให้รันอีกนานเลยค่ะจนกว่าจะบันทึกได้
ปุ่มลบก็เช่นกันค่ะ เมื่อเลือกข้อมูลที่ต้องการลบแล้วกดปุ่ม Delete แล้วก็ต้องรอนานเหมือนกันกว่าจะลบสำเร็จค่ะ

ตรงนี้ทำได้แล้วค่ะ แต่ถ้าอยากให้กดได้แค่ครั้งเดียวหรือต่อให้กดหลายๆครั้งก็จะไม่แสดงข้อมูลเดิมซ้ำอีกต้องแกตรงไหนค่ะ

ได้แล้วค่ะ รบกวนดูโค้ดให้หน่อยค่ะว่าทำไมตอนรันโปรแรมถึงประมวลผลช้าค่ะ

ไฟล์แนบค่ะ

ลบข้อมูลได้แล้วค่ะ แต่มันไม่ขึ้นแจ้งเตือนว่าต้องการลบข้อมูลหรือเปล่าค่ะ รบกวนดูโค้ดให้หน่อยค่ะ :arrow: สอบถามเพิ่มค่ะ ที่มันประมวลผลช้าเป็นเพราาะอะไรค่ะ :arl: Private Sub CommandButton6_Click() 'On Error Resume Next Dim id As String Dim rowselect As Long If TextBox7.Text = "" Then MsgBox (...

ทำได้แล้ว ขอบคุณมากๆค่ะ

ตรงนี้ทำได้แล้ว รบกวนดูสูตรในชีท 4 ให้ด้วยค่ะ ที่มัน Error เพราะอะไรค่ะ?

ทำได้แล้ว ขอบคุณมากค่ะ
ขออณุญาติถามต่อค่ะ รบกวนดูสูตรในชีท Stock_Uniform ให้หน่อยค่ะ ถ้าต้องการเอาแค่ข้อมูลของคนที่อยู่ในชีทการเบิกที่มีเฉพาะสถานะ"มารับแล้ว" ต้องเพิ่มตรงไหนค่ะ

If txtsearch.Text = "" Or Commonth.Text = "" Then MsgBox "Please fill the complete data" Exit Sub End If Dim found As Boolean Dim txt As String Dim r As Range Dim nRow As String Dim rall As Range 'For Each r In Sheet9.Columns(1).SpecialCells(xlCellTypeConstants) Sheet9...

Private Sub CommandButton6_Click() 'On Error Resume Next If TextBox7.Text = "" Then MsgBox ("Please select data") Exit Sub Else Dim id As String Dim rowselect As String If id = TextBox7.Text Then Exit Sub Else rowselect = WorksheetFunction.CountIf(Worksheets("การเบิก")...

ลบรายการที่เลือกค่ะ เช่น เลือก XXL พอกดปุ่ม Delete XXL ก็ถูกลบค่ะ

คือ ดูข้อมูลในคอลลัมน์ F กับ G แล้วให้แสดงแค่ประเภทเสื้อค่ะ
ตัวอย่างตามไฟล์แนบค่ะ

รบกวนสอบถามเพิ่มเติมค่ะ ถ้าต้องการให้ข้อมูลในคอลัมน์ K ชีท "การเบิก" แสดงเฉพาะประเภทเสื้อต้องแก้ตรงไหนเพิ่มค่ะ
สูตรเดิมค่ะ =IF(F2="","",LEFT(F2,SEARCH(",",F2)-1))

ตรงปุ่ม ADD ทำได้แล้วขอบคุณมากๆค่ะ รบกวนสอบถามต่อค่ะ :D รบกวนช่วยดูโค้ดในปุ่ม Delete Private Sub CommandButton3_Click() Dim lng As Long Answer = MsgBox("Are you sure you want to delete data from database?", 4 + 48, "Delete database") If Answer = 6 Then lng = Application.Match(Lis...