สอบถามการเขียน VBA เพื่อเรียกข้อมูลมาแก้ไขครับ

[khainui]

กำลังหัดการเขียน VBA อยู่ครับ

เลยลองทำไฟล์บันทึกชื่อรายการหนังไว้ โดยด้านซ้ายเป็นสูตรการค้นหาข้อมูลในหนัง
ด้านขวาด้านบนเป็นการบันทึกชื่อรายการหนังเข้าฐานข้อมูล ซึ่งสามารถบันทึกชื่อไปยัง Sheet MOVIE โดยถ้าคีย์ CODE ซ้ำ จะทำ msg box แสดงว่าเลขที่นี้มีแล้ว
ถ้าลบข้อมูล จะมี msg box ถ้า CODE นั้นไม่มีในฐานข้อมูล

ทีนี้อันล่าง (หรือในอันเดียวกับตัวบันทึกข้อมูลก็ได้ครับ) อยากให้สามารถดึงข้อมูลโดยใช้ CODE เป็นตัวดึงมา และแก้ไขไขข้อมูลพร้อมบันทึกกลับไปที่ตำแหน่งเดิม
ยังทำไม่ได้ซักที รบกวนขอคำสั่ง VBA ที่ถูกต้องด้วยครับ

[snasui]

ลองเพิ่ม Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
If Range("i2") = "" Then Exit Sub
If Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues) Is Nothing Then
MsgBox "ไม่มีเลขที่นี้!"
Else
i = Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues).Row
Worksheets("movie").Range("B" & i).Resize(1, 5).Copy
Worksheets("ค้นหา บันทึก").Range("I2").PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
MsgBox "Get data has finished."
End If
End Sub

Private Sub CommandButton2_Click()
If Range("i2") = "" Then Exit Sub
If Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues) Is Nothing Then
MsgBox "ไม่มีเลขที่นี้!"
Else
i = Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues).Row
Worksheets("ค้นหา บันทึก").Range("I2:I6").Copy
Worksheets("movie").Range("B" & i).PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
MsgBox "Update data has finished."
End If
End Sub

โดย CommmandButton1 จะเป็นการดึงข้อมูลตาม Code ที่ต้องการมาแสดง ส่วน CommmandButton2 จะเป็นการบันทึกข้อมูลกลับลงไปที่เดิมเพื่อแทนที่ข้อมูลเดิม

[khainui]

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

[khainui]

Code: Select all

i = Worksheets("movie").Columns("b:b").Find(Range("i2"), LookIn:=xlValues).Row
Worksheets("movie").Range("B" & i).Resize(1, 5).Copy
Worksheets("ค้นหา บันทึก").Range("I2").PasteSpecial xlPasteValues, Transpose:=True

คำสั่งสามแถวนี้ทำงานอย่างไรครับ โดยเฉพาะความหมายของคำสั่งช่วงหลังครับ

Code: Select all

lookin:=xlvalues).row
resize(1,5).copy
transpose:=true

[snasui]

lookin:=xlvalues).row
resize(1,5).copy
transpose:=true

1. .row เป็นการบอกว่าอยู่บรรทัดที่เท่าไร
2. resize(1,5) เป็นการบอกว่าให้ปรับขนาดเป็น 1 บรรทัด 5 คอลัมน์
3. .copy คือสั่งให้ Copy
4. transpose:=true เป็นการสั่งให้สลับแกน

[daopuprang09]

คุณ khainui ค่ะ ตัวแปร amount คุณสร้างมาจากตรงไหนอะคะ

[snasui]

ตัวแปร amount ที่กล่าวถึงดูจากโพสต์ไหนครับ