ช่วยเหลือเรื่องโค้ด VBA หน่อยนะค้ะ

[nichakant]

ขอโทษนะคะ คือต้องการค้นหาข้อมูลโดยใช้ VBA ในการค้นหา คือ
ทำร้านหนังสือ ที่มีการเพิ่มข้อมูลรายการหนังสือ และการค้นหารายการหนังสือที่มีอยู่
- มีฐานข้อมูลอยุ่ที่ชีส database และ ที่ต้องการค้นหาอยู่ใน finddata
- อยากทราบว่าจะใช้โค้ดอะไรในการค้น เมื่อเรากรอกข้อมูล( keyword) ตัวใดตัวหนึ่งที่มีในฐานข้อมูลชีส Database เมื่อค้นหาเจอก็จะมาแสดงรายละเอียดทั้งหมดที่มีคีย์นั้นอยู่ *** คือพยายามทำหลายรอบแล้วยังไม่ได้เลยค่ะ :'( ขอช่วยด้วยน้ะค้ะ

มีไฟล์แนบมาด้วยค่ะ

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Public Sub search()
    Dim input1 As Range, iRow As Long
    Dim tempRow As Long, cell As Range
    Set input1 = Worksheets(1).Range("b1")
    Worksheets(1).Range("a2").Resize(1000, 10).ClearContents
    For Each cell In Worksheets(2).UsedRange.Offset(1, 0)
        If cell.Value = input1.Value Then
            iRow = cell.row
            If iRow <> tempRow Then
                Worksheets(2).Cells(cell.row, 1).Resize(1, 7).Copy
                With Worksheets(1)
                    .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                End With
            End If
            tempRow = iRow
        End If
    Next cell
End Sub

[nichakant]

ขอบคุณมากนะค่ะ.
อยากทราบว่าหากต้องการใส่พวกคีย์หลัก เช่น เขียนใน B1 ว่า กระต่าย พอกดปุ่ม ค้นหา มันจะทำการตรวจสอบข้อมูล หากข้อมูลใดที่มีคำว่า กระต่าย อยู่จะนำมาโชว์ จะต้องเขียนโค้ดเพิ่มเติมตรงไหนหรอค้ะ ?

* ขอช่วยอธิบายโค้ดในส่วนของการค้นหา (Finddata)ด้วยได้ไหมค่ะ พอดีว่าอาจารย์ยังไม่เคยสอนเลยค่ะ *

[niwat2811]

Code: Select all

Sub test()
Dim input1 As Range
Dim rcell As Range
Dim lr As Long
Set input1 = Sheets("Finddata").Range("B1")
lr = Range("A" & Rows.Count).End(xlUp).row
If lr > 2 Then
    Sheets("Finddata").Range("A3", Range("A" & Rows.Count).End(xlUp)).Resize(, 5).ClearContents
End If
For Each rcell In Sheets("Database").Range("A8", Sheets("Database").Range("A" & Rows.Count).End(xlUp))
    If rcell.Value Like "*" & input1.Value & "*" Then
        rcell.Resize(1, 5).Copy
        With Sheets("Finddata")
            .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        End With
    End If
Next rcell
Application.CutCopyMode = False
End Sub

แบบนี้ใช้ได้ตามต้องการไหมครับ

[nichakant]

โค้ดที่ค้นหาที่ให้มาได้รันแล้ว รันได้ค้ะ
แต่ต้องการเพิ่มโค้ด VBA ในการแก้ไขหรืออัปเดตข้อมูลของหนังสือ โดยการกรอกใน textbox1 ใน userform1 แล้วจากนั้นแสดงผลรายละเอียดต่างใน textbox อื่น ๆ ด้านล่างค้ะ > เมื่อกดป่มบันทึกข้อมูล ข้อมูลในฐานข้อมูลก็จะมีการเปลี่ยนแปลงตามที่เราได้แก้ไข

[nichakant]

ไฟล์แนบค่ะ

[snasui]

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

[nichakant]

ในไฟล์ที่แนบไป โค้ดที่นำจากของคนอื่นมาแก้ไขแล้ว มันแก้ไขไม่ได้ โค้ดอาจจะผิดอยู่.
โค้ดจะอยู่ใน Userform1 ในปุ่มค้นหา

ที่ต้องการคือ เมื่อกรอกรหัสหนังสือใน textbox1 แล้วกดค้นหา
ข้อมูลรายละเอียดต่าง ๆ จะมาแสดงตาม textbox ด้านล่างเพื่อทำการแก้ไขข้อมูล
เมื่อกด บันทึกข้อมูล > ข้อมูลใน Database ก็จะเปลี่ยนไปตามที่แก้ไขค่ะ

[snasui]

ตัวอย่าง Code สำหรับการแสดงข้อมูลใน TextBox ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click() ' ¤é¹ËҢͧ userform1
    On Error Resume Next
    Set myRange = Worksheets(2).Range("A:H")
    TextBox2.Value = Application.WorksheetFunction.VLookup(TextBox1.Text, myRange, 1, False)
    TextBox3.Value = Application.WorksheetFunction.VLookup(TextBox1.Text, myRange, 2, False)
    TextBox4.Value = Application.WorksheetFunction.VLookup(TextBox1.Text, myRange, 3, False)
    'Other code
End Sub

ส่วนการ Update ข้อมูลให้เขียนมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

[nichakant]

ลองปรับตามที่อาจารย์บอกได้แล้วค่ะ
แต่ในปุ่มบันทึกข้อมูลที่ให้มันทำการเปลี่ยนแปลงข้อมูลตามที่แก้ไข ใช้โค้ด vba อะไรหรอค่ะ

[snasui]

แต่ในปุ่มบันทึกข้อมูลที่ให้มันทำการเปลี่ยนแปลงข้อมูลตามที่แก้ไข ใช้โค้ด vba อะไรหรอค่ะ

ต้องศึกษามาเอง เขียนมาก่อน ติดแล้วค่อยถามกันต่อ การถามตอบ VBA ต้องเป็นไปตามกฎการใช้บอร์ดข้อ 5 ด้านบน คือให้เขียนมาก่อนในทุกเรื่องที่ถามเมื่อติดปัญหาแล้วค่อยถามกัน เขียนได้เท่าไรก็เท่านั้น หากเขียนไม่ได้ให้ศึกษามาก่อนตามลำดับ

คำถามในความหมายว่า "เขียนอย่างไร" โดยที่ไม่ได้ลองเขียนมาเองก่อนนั้นจะไม่ได้รับคำตอบ เพราะผู้ที่ตอบให้โดยไม่คำนึงถึงกฎข้อ 5 ด้านบนจะโดนผมลงโทษได้ครับ

[nichakant]

โค้ด vba ในส่วนของการบันทึกข้อมูลอยู่ใน userform 1 ในปุ่มบันทึกข้อมูล

แต่รันไม่ได้ค้ะ ' ช่วยแนะนำเรื่องโค้ดปุ่มบันทึกข้อมูล
>เราได้เลือกรายละเอียดที่ต้องการแก้ไขโดยใส่รหัสหนังสือไปใน textbox1
> เมื่อเราทำการแก้ไขในส่วนที่ต้องการแล้ว เมื่อกดบันทึกข้อมูล ข้อมูล/รายละเอียดที่เราแก้ไขในส่วนหน้าของฐานข้อมูล (Database) ก็จะเปลี่ยนไปตามที่เราแก้ไข

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton2_Click() ' บันทึกข้อมูลหลังจากแก้ไข
    Dim recdRow As Long
    recdRow = Application.Match(TextBox1.Text, Sheets("Database").Range("a:a"), 0)
    With Sheets("database")
        .Cells(recdRow, 2).Value = TextBox2.Text
        'Other code
        .Cells(recdRow, 7).Value = TextBox10.Text
    End With
End Sub

[nichakant]

ทำการรันได้แล้วค่ะ ขอบคุณน้ะค่ะ

[nichakant]

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

[snasui]

คำว่า "ชีส" ที่ถูกต้อง "ชีต" หรือ "ชีท"

สำหรับการเพิ่มรายการใน Combobox ลองศึกษาดูจาก Link นี้ครับ ComboBox with AddItem

[nichakant]

เรื่อง Combobox ตอนนี้ได้แล้วค่ะอาจารย์
อาจารย์ช่วยแนะนำ code(ในฟอร์ม) เรียกปฏิทินขึ้นมา แล้วเมื่อกดเลือกวันที่ตามที่ต้องการ ค่าจะมาแสดงใน textbox สำหรับโชว์วันที่ ค้ะ

[snasui]

วิธีการค้นดูจาก Link นี้ครับ viewtopic.php?f=2&t=232

สำหรับการค้นหาแบบ Advanced ของ Forum นี้สามารถค้นได้จากหน้านี้ครับ
search.php

ส่วนของปฎิทินใน Excel 2010 ขึ้นมา ถูกถอดออกไปแล้ว ที่เคยถามตอบกันไปส่วนใหญ่จะใช้กับ Excel 2003 ครับ

[nichakant]

อาจารย์ค้ะ ต้องการให้ค้นหาคีย์หลักได้ เช่น ในฐานข้อมูลมีชื่อหนังสือว่า ระบบปฏิบัติการ
> ในช่อง B1 กรอกค้นหา เราสามารถกรอกคีย์เวิร์ดได้ กรณีที่จำชื่อหนังสือไม่ได้ผู้ใช้อาจจะกรอกว่า ระบบ
> เมื่อกดค้นหา โค้ดก็จะทำการตรวจสอบข้อมูลหรือรายละเอียดที่มีคำว่า ระบบ หรือคำใกล้เคียง นำมาโชว์

โค้ดอยู่ใน worksheet finddata ในปุ่ม ค้นหาค้ะ

[snasui]

Code ที่แนบมาไม่พบว่าได้ปรับมาเองแล้วยังเป็น Code ที่ผมเขียนให้ตามโพสต์ด้านบน

ให้ลองปรับมาเองก่อน ติดแล้วค่อยถามกันต่อครับ