Page 1 of 1
ผมทำpick form drop down list เพื่อlinkสองเอกสาร
Posted: Wed Aug 22, 2012 12:41 am
by sahavit
ในเอกสารhydrogen กับ oxygen ผมใส่คำสั่งmacro ไว้และในcell h2 ผมทำ pick form drop down listไว้ คือผมอยากทำlink
เช่น ถ้าผมเลือกhydrogen ให้run macro จากsheet hydrogen แล้วทำการส่งค่าจากsheet hydrogen จาก cell r8-r13 ครับไปยังในsheet1ที่cell d2-d6ครับ
Re: ผมทำpick form drop down list เพื่อlinkสองเอกสาร
Posted: Wed Aug 22, 2012 2:16 am
by bank9597
ลองใช้โค๊ดนี้ดูครับ
สร้างโมดูล 1 โมดูล แล้วใช้โค๊ดนี้ดูครับ
Code: Select all
Sub MoveData()
Sheets("Sheet1").Range("D2:D6").ClearContents
If Sheets("Sheet1").Range("F2") = "oxygen" Then
Sheets("oxygen").Range("R8:R13").Copy
Sheets("Sheet1").Range("D2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Else
Sheets("hydrogen").Range("R8:R13").Copy
Sheets("Sheet1").Range("D2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End If
End Sub
ในชีท Sheet1 วางโค๊ดนี้ครับ
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("F2")) Is Nothing Then
Call MoveData
End If
End Sub
Re: ผมทำpick form drop down list เพื่อlinkสองเอกสาร
Posted: Wed Aug 22, 2012 9:20 am
by sahavit
ในsheet 1 เมื่อทำการเลือกสารที่ต้องการปรากฏว่าโปรแกรมเตือนว่า complie error : end if without blok if
Re: ผมทำpick form drop down list เพื่อlinkสองเอกสาร
Posted: Wed Aug 22, 2012 9:38 am
by snasui
ผมทดสอบแล้วไม่พบปัญหาที่แจ้งมาครับ ช่วย Run ทีละ Step (ไปที่ VBE แล้วเลือก Code ที่ต้องการแล้วกดแป้น F8 ซ้ำ ๆ) แล้วจับภาพมาให้ดูว่า Error ตรงบรรทัดไหนของ Code
Re: ผมทำpick form drop down list เพื่อlinkสองเอกสาร
Posted: Thu Aug 23, 2012 2:20 am
by sahavit
ขอบคุณครับ