การกำหนดตำแหน่งเคอร์เซอร์

[suka]

เรียนอาจารย์และท่านผู้รู้ค่ะ

ต้องการให้เคอร์เซอร์วิ่งไปเซลล์ H1 เป็นค่าเริ่มต้นแทน I4 ตามรูปแนบต้องปรับอย่างไรคะ

[snasui]

สามารถใช้ Range("H1").Select เพื่อเลือก H1 ได้ครับ

[suka]

อาจารย์คะใช้ Range("H1").Select ได้ตามรูปแนบค่ะ
แต่หากต้องการให้เคอร์เซอร์ไปที่เซลล์ H1 แล้วคีย์ข้อมูลได้เลยโดยไม่ต้องคลิ๊กก่อนต้องปรับอย่างไรคะ

[snasui]

ไม่เข้าใจครับ คำว่าคีย์เลยคืออะไร ช่วยบรรยายเหตุการณ์นั้นให้เข้าใจด้วยครับ

[suka]

อาจารย์คะ ที่เซลล์ H1 เลื่อนลงตามรูปค่ะ ผู้ใช้ต้องการคีย์อักษร 2 ต้วแรกเพื่อเลือกชื่อที่ต้องการแต่ไม่สามารถคีย์ได้ค่ะ ต้องนำเคอร์เซอร์ไปวางแล้วคลิ๊กก่อนถึงจะคีย์ข้อมูลตามต้องการได้ค่ะ ความต้องการคือให้เคอร์เซอร์ไปที่ H1 แล้วสามารถพิมพ์อักษรได้เลยโดยไม่ต้องคลิ๊กก่อนค่ะ

[snasui]

ก็เลือกมาก่อนสักอันแล้วค่อยคีย์ หรือไม่ก็ยกเลิกไม่ให้ Dropdown ทำงาน

โดยหลักแล้วเมื่อ Dropdown ทำงานหมายถึงให้เลือก ไม่ใช่ให้คีย์ครับ

[suka]

อาจารย์คะ หากยกเลิกไม่ให้ Dropdown ทำงาน ผู้ใช้ก็ต้องคีย์ชื่อเองทั้งชื่อหรือคะ

[snasui]

ยกเลิกไม่ให้ Dropdown เปิดค้างไว้ เพราะถ้าเปิดไว้แล้วจะต้องเลือก ไม่ใช่คีย์ ถ้าไม่เลือกก็ต้องกดแป้น Esc เพื่อยกเลิก

ควรจะถามพร้อม Code ว่าได้เขียน Code กำหนดอะไรไว้ จะได้พูดและเข้าใจในเรื่องเดียวกัน

[suka]

Code ทั้งชุดค่ะอาจารย์ ใส่ Range("H1").Select ก่อน End Sub ค่ะ

Code: Select all

Sub ArBilling()
    Dim formBook As Workbook
    Dim wbShare As Workbook
    Dim wb As Workbook ' declare wb as workbook
    Dim wdShare As Workbook
    Dim wdShareOpen As Boolean
    Dim rSource As Range
    Dim rTarget As Range
    Dim rs As Range
    Dim rt As Range
    Dim i As Double
    Set formBook = ThisWorkbook
    Set wbShare = Workbooks("ArBillBookShare.xlsx")
    For Each wb In Workbooks ' loop wb not loop wdShare
        If wb.Name = "PoWbShare.xlsx" Then
            wdShareOpen = True
        End If
    Next wb
    If Not wdShareOpen Then
    End If
    Set wdShare = Workbooks("PoWbShare.xlsx") 'set wdShare after open not before open
    With formBook.Sheets("Form")
        Set rSource = .Range("B3:B50")
    End With
    With wdShare.Sheets("Sheet1")
        Set rTarget = .Range("E2", .Range("E" & Rows.Count).End(xlUp))
    End With
    With formBook.Sheets("Form")
        i = (.Range("P9") + .Range("M12"))
        If i <> .Range("J12") Then
            MsgBox "â»Ã´µÃǨ¨Ó¹Ç¹à§Ô¹áÅкѹ·Ö¡ãËÁè"
            Exit Sub
        End If
    End With
    Application.Calculation = xlCalculationManual
    For Each rs In rSource
        For Each rt In rTarget
            If rt = rs Then rt.Offset(0, 26) = "Y"
        Next rt
    Next rs
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = False
    Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    With formBook.Sheets("TemBilling")
    .Range("A2:O2").Resize(.Range("P1")).Copy
    End With
    wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp) _
        .Offset(1, 0).PasteSpecial xlPasteValues
    formBook.Sheets("Form").Range("H1,J4:O8,M12").ClearContents
    With formBook.Sheets("Form")
        .Range("i4") = .Range("i4") + 1
    End With
    Application.ScreenUpdating = True
        wbShare.Save
        wdShare.Save
        formBook.Save
        Range("H1").Select
End Sub

Code ที่ชีท Form ค่ะ

Code: Select all

If Not Intersect(Target, Range("H1")) Is Nothing Then
    Worksheets("Suppliers").Range("P1") = Target
    Target.Select
    If Len(Target) < 3 Then
        Application.SendKeys "%{DOWN}"
    End If
End If

[snasui]

Code ที่ทำให้เกิด Dropdown คือชุดนี้ ลองทดสอบลบทิ้งไปครับ

Code: Select all

If Len(Target) < 3 Then
    Application.SendKeys "%{DOWN}"
End If

[suka]

ลบ Code สามแถวทิ้งไปไม่เกิด Dropdownแล้วค่ะ

อาจารย์คะ หากจะปรับเปลี่ยนเป็นเมือมีการคีย์แล้ว Enter ให้เกิด Dropdown จะปรับ Code อย่างไรคะ

[snasui]

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

[suka]

อาจารย์คะ ลองบันทึก Macro แล้วได้ Code ตามด้านล่างนี้จะปรับใช้อย่างไรคะ

Code: Select all

Range("H1").Select
    ActiveCell.FormulaR1C1 = "เอ"

[snasui]

Code นั้นต้องการจะทำอะไรและต้องการจะปรับเป็นอะไรครับ

การดักการเปลียนแปลงในเซลล์ให้ใช้ Change Event ส่วนการแสดง Dropdown ก็ให้ใช้ Code เดิมครับ

[suka]

อาจารย์คะ การดักการเปลียนแปลงในเซลล์ H1 ใช้ Code นี้ได้ไหมคะ

Code: Select all

If Sheets("Form").Range("H1") <> "" Then
End If

[snasui]

สามารถใช้ได้ครับ แต่ต้องใช้กับ Change Event ครับ

[suka]

อาจารย์คะ ยังไม่เข้าใจการใช้ Change Event ค่ะ ขอรบกวนช่วยแนะนำการใช้ Change Event ค่ะ

[snasui]

คลิกคำว่า Change Event ในโพสต์ขอมผมด้านบน จะไปยัง Link ที่อธิบายเกี่ยวกับ Change Event ครับ

[suka]

อาจารย์คะขอรบกวนช่วยปรับ Code ทั้งสองใช้ร่วมกันที่ MainCode เพื่อการดักการเปลียนแปลงในเซลล์ H1 ชืท Form ฟ้องตามรูปแนบค่ะ

Code: Select all

Sub MainCode()
Call Workbook_SheetChange
Call ArBilling
End Sub

Code Change Event นำมาไว้ที่ Module ได้ไหมคะ

Code: Select all

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
      If Sheets("Form").Range("H1") <> "" Then
      End If
End Sub

ใช้กับ Code ด้านล่างนี้

Code: Select all

Sub ArBilling()
    Dim formBook As Workbook
    Dim wbShare As Workbook
    Dim wb As Workbook ' declare wb as workbook
    Dim wdShare As Workbook
    Dim wdShareOpen As Boolean
    Dim rSource As Range
    Dim rTarget As Range
    Dim rs As Range
    Dim rt As Range
    Dim i As Double
    Set formBook = ThisWorkbook
    Set wbShare = Workbooks("ArBillBookShare.xlsx")
    For Each wb In Workbooks ' loop wb not loop wdShare
        If wb.Name = "PoWbShare.xlsx" Then
            wdShareOpen = True
        End If
    Next wb
    If Not wdShareOpen Then
    End If
    Set wdShare = Workbooks("PoWbShare.xlsx") 'set wdShare after open not before open
    With formBook.Sheets("Form")
        Set rSource = .Range("B3:B50")
    End With
    With wdShare.Sheets("Sheet1")
        Set rTarget = .Range("E2", .Range("E" & Rows.Count).End(xlUp))
    End With
    With formBook.Sheets("Form")
        i = (.Range("P9") + .Range("M12"))
        If i <> .Range("J12") Then
            MsgBox "â»Ã´µÃǨ¨Ó¹Ç¹à§Ô¹áÅкѹ·Ö¡ãËÁè"
            Exit Sub
        End If
    End With
    Application.Calculation = xlCalculationManual
    For Each rs In rSource
        For Each rt In rTarget
            If rt = rs Then rt.Offset(0, 26) = "Y"
        Next rt
    Next rs
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = False
    Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    With formBook.Sheets("TemBilling")
    .Range("A2:O2").Resize(.Range("P1")).Copy
    End With
    wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp) _
        .Offset(1, 0).PasteSpecial xlPasteValues
    formBook.Sheets("Form").Range("H1,J4:O8,M12").ClearContents
    With formBook.Sheets("Form")
        .Range("i4") = .Range("i4") + 1
    End With
    Application.ScreenUpdating = True
        wbShare.Save
        wdShare.Save
        formBook.Save
        Range("H1").Select
End Sub

[snasui]

Change Event ไม่ต้องไป Call มันทำงานเลยเมื่อมีการเปลี่ยนแปลงค่าในเซลล์ครับ

ส่วน Code แสดง Dropdown ควรจะทราบได้เองว่า Code ไหน ถ้าไม่ทราบให้ย้อนกลับไปอ่านแล้วทำความเข้าใจที่ผมโพสต์ทุกความเห็นตั้งแต่โพสต์นี้ viewtopic.php?f=3&t=6180&p=39758#p39615 อย่างละเอียดครับ