:!: โปรดทราบ Image
    1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
    2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
      1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
      2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
    3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
    4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
    5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ ==> กำหนดขนาดตัวอักษรใน Browser Image

ขอทราบวิธีเขียน VBA ให้ไปเลือกเปิด SheetตามCell ที่เราระบุชื่อเอาไว้ค่ะ

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
commongirl
Member
Member
Posts: 8
Joined: Sat May 14, 2016 9:53 am
Contact:

ขอทราบวิธีเขียน VBA ให้ไปเลือกเปิด SheetตามCell ที่เราระบุชื่อเอาไว้ค่ะ

#1

Postby commongirl » Sat May 14, 2016 10:07 am

เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ
รบกวนหน่อยนะคะ
พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ ><
1.ตรง Sheets("Packing list_1").Select
2.ตรง Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate

Code: Select all

Sub Macro7()
        Range("D10:q23").Copy
       
        Workbooks.Open Filename:=Cells(2, "X")
        Sheets("Packing list_1").Select
       
        Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate
        Range("D19").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
End Sub

User avatar
bank9597
Guru
Guru
Posts: 3857
Joined: Wed Aug 17, 2011 11:49 am
Contact:

Re: ขอทราบวิธีเขียน VBA ให้ไปเลือกเปิด SheetตามCell ที่เราระบุชื่อเอาไว้ค่ะ

#2

Postby bank9597 » Sat May 14, 2016 11:34 am

commongirl wrote:เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ
รบกวนหน่อยนะคะ
พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ ><
1.ตรง Sheets("Packing list_1").Select
2.ตรง Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate

Code: Select all

Sub Macro7()
        Range("D10:q23").Copy
       
        Workbooks.Open Filename:=Cells(2, "X")
        Sheets("Packing list_1").Select
       
        Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate
        Range("D19").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
End Sub


ลองปรับโค๊ดตามนี้ครับ

Code: Select all

Public Sub CopyPaste()
       
    Range("D10:q23").Copy
       
    Workbooks.Open Filename:=Cells(2, "X")
   
    ActiveWorkbook.Sheets("Packing list_1").Range("D19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub
Forum Rules
  1. อย่าใช้ภาษาแชทในการตอบ-ถาม
  2. ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
  3. ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
  4. ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
  5. หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
  6. แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ

commongirl
Member
Member
Posts: 8
Joined: Sat May 14, 2016 9:53 am
Contact:

Re: ขอทราบวิธีเขียน VBA ให้ไปเลือกเปิด SheetตามCell ที่เราระบุชื่อเอาไว้ค่ะ

#3

Postby commongirl » Sat May 14, 2016 1:00 pm

bank9597 wrote:
commongirl wrote:เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ
รบกวนหน่อยนะคะ
พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ ><
1.ตรง Sheets("Packing list_1").Select
2.ตรง Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate

Code: Select all

Sub Macro7()
        Range("D10:q23").Copy
       
        Workbooks.Open Filename:=Cells(2, "X")
        Sheets("Packing list_1").Select
       
        Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate
        Range("D19").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
End Sub


ลองปรับโค๊ดตามนี้ครับ

Code: Select all

Public Sub CopyPaste()
       
    Range("D10:q23").Copy
       
    Workbooks.Open Filename:=Cells(2, "X")
   
    ActiveWorkbook.Sheets("Packing list_1").Range("D19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub


ขอบคุณมากเลยค่า แต่ยังไม่ได้ค่ะ ><
เดียอยากให้ตรง Sheets("Packing list_1").Select
ซึ่งคำว่า Packing list_1 ซึ่งเดียระบุชื่อไว้ที่ Cells(2, "V") เผื่อเวลาเดียอยากจะเลือกชีท Packing list_2 แทน ก็เปลี่ยนคำที่ Cells(2, "V") แล้วสามารถหาเลยค่ะ

User avatar
bank9597
Guru
Guru
Posts: 3857
Joined: Wed Aug 17, 2011 11:49 am
Contact:

Re: ขอทราบวิธีเขียน VBA ให้ไปเลือกเปิด SheetตามCell ที่เราระบุชื่อเอาไว้ค่ะ

#4

Postby bank9597 » Sat May 14, 2016 2:43 pm

ผมไม่เห็นไฟล์ตัวอย่าง ยังไงลองปรับเอาจากตัวอย่างโค๊ดนี้ดูครับ


Code: Select all

Public Sub CopyPaste()
   
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim strWbName As String
    Dim strShName As String
    Dim strPath As String
   
    Set wb1 = ThisWorkbook
   
    wb1.Sheets(1).Range("A2:A10").Copy
    strWbName = wb1.Sheets(1).Range("B2")
    strShName = wb1.Sheets(1).Range("C2")
    strPath = "C:\Users\Kwan\Desktop\" & strWbName & ".xlsx"
       
    Workbooks.Open Filename:=strPath
   
    ActiveWorkbook.Sheets(strShName).Range("A1").PasteSpecial xlPasteValues
   

End Sub
You do not have the required permissions to view the files attached to this post.
Forum Rules
  1. อย่าใช้ภาษาแชทในการตอบ-ถาม
  2. ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
  3. ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
  4. ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
  5. หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
  6. แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ

commongirl
Member
Member
Posts: 8
Joined: Sat May 14, 2016 9:53 am
Contact:

Re: ขอทราบวิธีเขียน VBA ให้ไปเลือกเปิด SheetตามCell ที่เราระบุชื่อเอาไว้ค่ะ

#5

Postby commongirl » Sun May 15, 2016 9:10 am

bank9597 wrote:ผมไม่เห็นไฟล์ตัวอย่าง ยังไงลองปรับเอาจากตัวอย่างโค๊ดนี้ดูครับ


Code: Select all

Public Sub CopyPaste()
   
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim strWbName As String
    Dim strShName As String
    Dim strPath As String
   
    Set wb1 = ThisWorkbook
   
    wb1.Sheets(1).Range("A2:A10").Copy
    strWbName = wb1.Sheets(1).Range("B2")
    strShName = wb1.Sheets(1).Range("C2")
    strPath = "C:\Users\Kwan\Desktop\" & strWbName & ".xlsx"
       
    Workbooks.Open Filename:=strPath
   
    ActiveWorkbook.Sheets(strShName).Range("A1").PasteSpecial xlPasteValues
   

End Sub


เกือบได้แล้วค่ะ แต่ติดตรงนี้ พยายามปรับดูแล้วก็ยังทำไม่ได้ ต้องขอรบกวนอีกครั้งค่ะ ><
Image

Code: Select all

Option Explicit
Public Sub CopyPaste()
   
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim strWbName As String
    Dim strShName As String
    Dim strPath As String
   
    Set wb1 = ThisWorkbook
   
    wb1.Sheets(2).Range("D10:Q23").Copy
    strWbName = wb1.Sheets(2).Range("U4")
    strShName = wb1.Sheets(2).Range("V2")
    strPath = "C:\Users\h390260\Desktop\Draft invoice\13May\05\" & strWbName & ".xlsm"
       
    Workbooks.Open Filename:=strPath
   
    ActiveWorkbook.Sheets(strShName).Range("D19").PasteSpecial xlPasteValues
   
End Sub

commongirl
Member
Member
Posts: 8
Joined: Sat May 14, 2016 9:53 am
Contact:

Re: ขอทราบวิธีเขียน VBA ให้ไปเลือกเปิด SheetตามCell ที่เราระบุชื่อเอาไว้ค่ะ

#6

Postby commongirl » Sun May 15, 2016 11:05 am

คุณ bank9597
เดียสามารถทำได้แล้วค่ะ ลองเปิดปิดใหม่ทั้งหมดค่ะ - -
ขอบพระคุณมากๆเลยนะคะ ^^


Return to “Excel”

Who is online

Users browsing this forum: Google Feedfetcher, Google [Bot] and 30 guests