Snasui Excel Forum

:D กรุณาแนบไฟล์ตัวอย่างที่มี Code นี้มาแล้วด้วยจะได้สะดวกต่อการตอบของเพื่อนสมาชิกครับ


ผมต้องแนบไฟล์แบบไหนครับ ถ้าเป็นไฟล์ .xlsm นี่แนบไม่ได้จริงๆครับ มีข้อมูลความลับของบริษัทครับ ถ้าเฉพาะ code นี้แนบได้ครับ แต่อาจจะงงๆหน่อยครับ


Sub Jan_I_N_B()
Dim CrntWorkBook As Workbook
Dim SourceBook As ...

ขออนุญาติยกตัวอย่างบางส่วนในโค้ดนะครับเพราะมันยาวแล้วเดี๋ยวจะงง

เช่น ในคอลัมน์ A1 มีค่าเท่ากับ 1

แล้วเราต้องการนำค่า "1" ในคอลัมน์ A1 ไปใช้ใน

1. ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Raw Data 3 Y].[Month].[Month]").VisibleItemsList = Array( _
"[Raw Data 3 Y].[Month].&[ 12 ...

1. ขอโทษครับ พอดีพิมพ์จนติดเลยลืมดูคำว่าครับ
2. ขอโทษครับ ผมพึ่งสมัครมาใช้เว็บบอร์ดนี้เพราะพึ่งหัดการใช้ VBA ครับ เลยไม่ค่อยรู้เรื่องว่าควรถามยังไงครับ
3. ขอบคุณสำหรับคำตอบนะครับ จะลองทำไปปรับใช้ดูครับ ผมมักจะงงเรื่อง " หรือ ' เสมอเลยครับ

คือผมเขียน VBA เพื่อเปิดไฟล์ excel อื่นขึ้นมา แล้วvlookupชีทงานปัจจุบันกับไฟล์ excel ที่เปิด code ดังนี้คับ

Sub Apr()
Dim CrntWorkBook As Workbook
Dim SourceBook As Workbook
Dim SourceRange As Range
Dim Destination As Range

Set CrntWorkBook = ActiveWorkbook

With Application.FileDialog ...