Excel Forum

รบกวนอาจารย์ทุกท่าน

ผมอยากจะทำการแก้ไขข้อมูลข้าม Sheet จากไฟล์ตัวอย่างในSheet Input ที่ แก้ไขข้อมูลเครื่อง ผมต้องการแก้ไข Computermodel ตามที่ต้องการและกดปุ่ม แก้ไขข้อมูล computermodel ที่ผมได้พิมพ์ลงไปก็จะไปบันทึกว่าที่ Sheet 1 คอลัม D ครับ

ตัวอย่าง ผมต้องการแก้ไขCOMPUTER MODEL ของเครื่อง LOCATION คือ FINANCE และ POSITION คือ FINANCE CONTROLLER และแก้ไข madel computer เครื่องเก่าจะเป็น SVOA INSPIRE INS-760XXX-601 ให้เป็น MAC Probook โดยการกดปุ่ม แก้ไขข้อมูล ครับ

Code ที่เขียนมาแล้วอยู่ที่ Module ไหน ชื่อว่าอะไร ติดขัดบรรทัดใดครับ

snasui wrote: Code ที่เขียนมาแล้วอยู่ที่ Module ไหน ชื่อว่าอะไร ติดขัดบรรทัดใดครับ

เรียนอาจารย์ snasui

ผมยังไม่ได้เขียนโค็ดเลยครับ โค้ดที่เป็นการบันทึกผมก็ไปก็อบเขามาครับ

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

ลองดูตัวอย่างหนึ่งตาม Link นี้ครับ viewtopic.php?f=3&t=1568

snasui wrote:snasui

เรียนอาจารย์ snasui

ใน Sheet Input ในส่วนแก้ไขข้อมูลเครื่อง ผมต้องการเอา เมนู Position คือ FINANCE CONTROLLER นำไปค้นหาใน Sheet1 ถ้าตรงกันให้ Copy เมนู COMPUTER MODEL ไปว่างแทนที่ COMPUTER MODEL ตัวเก่า ในSheet1
เมื่อผมคลิกปุ่มแก้ไข แล้วจะcopyใน Sheet1 แต่มันจะcopyไม่ต้องตำแหนงที่ต้องการครับ

รบกวนอาจารย์ช่วยดูโค้ดให้ด้วยครับ

ไฟล์ครับ

ตัวอย่าง Code ลองปรับใช้ดูครับ

snasui wrote: ตัวอย่าง Code ลองปรับใช้ดูครับ

Code: Select all

Sub Edit()
    Dim ValForFind As String
    Dim r As Range
    Dim i As Integer
    ValForFind = Sheets("Input").Range("b8").Value
    Set r = Sheets("Sheet1").Columns("d:d").Find(ValForFind, LookIn:=xlValues)
    If r Is Nothing Then
        MsgBox "Not found"
        Exit Sub
    Else
        i = r.Address
    End If
    Worksheets("input").Range("c8").Copy
    Worksheets("Sheet1").Range("D" & i).PasteSpecial xlPasteValues, Transpose:=True
    Application.CutCopyMode = False
    MsgBox "Update data has finished."
End Sub

อาจารย์ snasui
รบกวนอธิบายโค้ดให้ผมด้วยได้ไหมครับ
ขอบคุณมากครับอาจารย์

ควรยกมาถามเฉพาะส่วนที่ไม่เข้าใจครับ

snasui wrote: ควรยกมาถามเฉพาะส่วนที่ไม่เข้าใจครับ

Sub Edit()
Dim ValForFind As String
Dim r As Range
Dim i As Integer
ValForFind = Sheets("Input").Range("b8").Value8
Set r = Sheets("Sheet1").Columns("d:d").Find(ValForFind, LookIn:=xlValues) //ผมไม่เข้าใจตรงส่วนนี้ครับคำสั่ง Set r คืออะไร
If r Is Nothing Then
MsgBox "Not found"
Exit Sub
Else
i = r.Address // i มันเก็บค่าอะไรและ r.address มีไว้ทำไมครับ
End If
Worksheets("input").Range("c8").Copy
Worksheets("Sheet1").Range("D" & i).PasteSpecial xlPasteValues, Transpose:=True // .Range("D" & i) ค่าของอะไรครับ
Application.CutCopyMode = False
MsgBox "Update data has finished."
End Sub

รบกวนด้วยครับอาจารย์

brakubra wrote:Set r = Sheets("Sheet1").Columns("d:d").Find(ValForFind, LookIn:=xlValues) //ผมไม่เข้าใจตรงส่วนนี้ครับคำสั่ง Set r คืออะไร

เป็นการ Assign เซลล์ที่ค้นพบค่าตัวแปร ValForFind ให้เป็น Range

brakubra wrote:i = r.Address // i มันเก็บค่าอะไรและ r.address มีไว้ทำไมครับ

Code นี้ผมเขียนผิด จริง ๆ ต้องการจะเขียนเป็นi = r.Row ซึ่งหมายถึงให้ตัวแปร i มีค่าเท่ากับบรรทัดของตัวแปร r ส่วน r.address หมายถึงตำแหน่งของตัวแปร r เช่น $D$20 เช่นนี้เป็นต้น

brakubra wrote:.Range("D" & i) ค่าของอะไรครับ

เมื่อ i คือค่าบรรทัด .range("d" & i) จึงหมายถึงคอลัมน์ D บรรทัดที่เป็นค่าของ i ครับ

snasui wrote:

brakubra wrote:Set r = Sheets("Sheet1").Columns("d:d").Find(ValForFind, LookIn:=xlValues) //ผมไม่เข้าใจตรงส่วนนี้ครับคำสั่ง Set r คืออะไร

เป็นการ Assign เซลล์ที่ค้นพบค่าตัวแปร ValForFind ให้เป็น Range

brakubra wrote:i = r.Address // i มันเก็บค่าอะไรและ r.address มีไว้ทำไมครับ

Code นี้ผมเขียนผิด จริง ๆ ต้องการจะเขียนเป็นi = r.Row ซึ่งหมายถึงให้ตัวแปร i มีค่าเท่ากับบรรทัดของตัวแปร r ส่วน r.address หมายถึงตำแหน่งของตัวแปร r เช่น $D$20 เช่นนี้เป็นต้น

brakubra wrote:.Range("D" & i) ค่าของอะไรครับ

เมื่อ i คือค่าบรรทัด .range("d" & i) จึงหมายถึงคอลัมน์ D บรรทัดที่เป็นค่าของ i ครับ

ขอบพระคุณมากครับอาจารย์สำเร็จแล้วครับ