เพื่อมุ่งให้เกิดคุณภาพจากการอบรมสูงสุด Excel Expert Training ให้การอบรม Excel กลุ่มเล็กๆ ไม่เกิน 6 คนทุกคนสามารถเรียนรู้ Excel อย่างใกล้ชิด จะมาคนเดียวหรือมาเป็นกลุ่มแล้วนัดวันอบรมแบบส่วนตัวก็ได้ ผู้เข้าอบรมทุกคนสามารถติดตามเนื้อหาที่อบรมได้อย่างชัดเจนจากจอภาพด้านหน้าของตัวเอง
Results 1 to 7 of 7

Thread: การอ้างอิง Range ระหว่าง Sheet

  1. #1
    Nongmod
    Guest

    Smile การอ้างอิง Range ระหว่าง Sheet

    1. ผมมีปัญหาเวลาเขียน Code อ้างอิง Range ระหว่างสอง Sheet ซึ่งรูปแบบการเขียนต้องเป็นแบบไหนครับ
    Range(Cells(i, 59), Cells(i, 69)) = Sheets("shortage").Range(Cells(RowRef, 10), Cells(RowRef, 29)).Value
    ซึ่งในตัวอย่างข้างบนไม่สามารถใช้ได้ครับ รบกวนขอคำแนะนำด้วยครับ
    2. คล้ายๆกับคำถามแรกครับแต่เป็นการ Find ข้าม Sheet โดยที่ไม่ต้องไปเลือก sheet ที่ต้องการ Find ทำได้ไหมครับ
    ปกติผมจะเขียนแบบนี้ครับ
    Sheets(2).select ' ต้องการหาที่ Sheet2 ซึ่งไม่ใช่ active sheet ซึ่งผมต้องการยกเลิกบรรทัดนี้ครับ
    Columns("A:A").select
    RowRef = selection.Find(What:=PartNo, After:=ActiveCell).Row
    รบกวนขอคำแนะนำด้วยครับ

  2. #2
    อรวีร์
    Guest

    Evaluate( )

    ข้อ 1 ก่อนค่ะ ลองใช้แบบนี้ดูค่ะ
    Range(Cells(i, 59), Cells(i, 69)).Value = Evaluate("shortage!J" & RowRef & ":AC" & RowRef).Value

  3. #3
    อรวีร์
    Guest

    Set Range=Workbook.Worksheet.Range.Find( )

    ข้อ 2 ค่ะ
    Dim FoundCell As Range
    Set FoundCell = Sheets(2).Columns(1).Find(What:=PartNo)
    If FoundCell Is Nothing Then
    MsgBox "ค้นหา " & PartNo & " ไม่พบค่ะ"
    Else
    RowRef = FoundCell.Row
    End If

  4. #4
    Nongmod
    Guest
    ขอบคุณมากๆครับ จะลองนำไปใช้ดูนะครับ

  5. #5
    Nongmod
    Guest
    Quote Originally Posted by อรวีร์ View Post
    ข้อ 1 ก่อนค่ะ ลองใช้แบบนี้ดูค่ะ
    Range(Cells(i, 59), Cells(i, 69)).Value = Evaluate("shortage!J" & RowRef & ":AC" & RowRef).Value
    ผมรบกวนถามเพิ่มนะครับ ในกรณีที่ คอลัมน์ไม่คงที่เราจะแทนค่าด้วยตัวแปลยังไงครับ ซึ่งตัวแปลรับค่ามาเป็นตัวเลขครับ

  6. #6
    อรวีร์
    Guest

    Smile

    SourceRow = i
    SourceCol = 59
    RowRef = 4
    FromCol = 10
    ToCol = 29
    Addr = Range(Cells(RowRef, FromCol), Cells(RowRef, ToCol)).Address
    Range(Cells(SourceRow, SourceCol), Cells(SourceRow, SourceCol + (ToCol - FromCol))).Value = Evaluate("shortage!" & Addr).Value

  7. #7
    Nongmod
    Guest
    คุณอรวีขอบคุณมกาๆเลยครับ ผมเคยใช้ address แล้วแต่เกิดปัญหาจึงคิดว่าใช้ไม่ได้
    แต่เมื่อลองดู Code ของคุณอรวีร์แล้ว ทำให้นึกออกว่า Object ที่ผมเลือกค้างอยู่คือ Chart ทำให้ใช้ไม่ได้ จึงเกิด Error 1004

Similar Threads

  1. ระหว่าง Access กับ Excel อันไหนเหมาะกว่า
    By Mainie in forum Excel Expert Forum Library 2012 - 2007
    Replies: 1
    Last Post: 4 Nov 2009, 08:01
  2. การใช้ Formula ระหว่าง 2 Textbox
    By nurak in forum Excel Expert Forum Library 2012 - 2007
    Replies: 5
    Last Post: 20 Apr 2009, 22:59
  3. link ข้อมูล ระหว่าง Sheet
    By -SP- in forum Excel Expert Forum Library 2012 - 2007
    Replies: 6
    Last Post: 6 Oct 2008, 13:20
  4. Replies: 2
    Last Post: 19 Aug 2008, 11:15
  5. การอ้างอิง Define Name จาก file อื่น
    By kobchoal in forum Excel Expert Forum Library 2012 - 2007
    Replies: 1
    Last Post: 20 Jun 2008, 11:02

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •