ต้อการให้ vba ดึงข้อมูลจาก sheet menu มาแสดง

[djung]

คือผมต้องการให้ vba ดึงข้อมูลจาก Sheet menu มาแสดง โดยที่ปลายไม่กำหนดตายตัวอาจจะเป็น sheet2 หรือ sheet 3 หรือ sheet 4 ก็ได้ให้แสดงค่าใน B2
แต่ข้อมูลที่ต้องการนำมาแสดงอยู่ใน A2 sheet menu ครับ

[joo]

ลองแบบนี้ดูครับ

Code: Select all

Sub record_data()
Range("B2").Select
ActiveCell.FormulaR1C1 = "='menu sheet'!RC[-1]"

[tupthai]

จากคำถาม ให้ดึงข้อมูลจาก เซลล์A2 ของชีท menu sheet มาไว้ที่ B2ของชีทที่เปิดใช้งานอยู่
ใช้code

Code: Select all

   
   i = 2
   Range("B" & i).Value = Sheets("menu sheet").Range("A2").Value

หรือ เลือกใช้ 5 code ด้านล่างนี้อันไดอันหนึ่ง เพราะมีความหมายอย่างเดียวกัน

Code: Select all

 
   Range("B2").Value              = Sheets("menu sheet").Range("A2").Value
   Cells(2, 2).Value              = Sheets("menu sheet").Cells(2, 1).Value
   Cells(2, "B").value            = Sheets("menu sheet").Cells(2, "A").Value
   Cells(1, 1).Offset(1, 1).Value = Sheets("menu sheet").Cells(2, 1).Value
   Cells(1, 1).Offset(1, 1).Value = Sheets("menu sheet").Cells(1, 1).Offset(1, 0).Value

[yoguzaa]

จากคำถาม ให้ดึงข้อมูลจาก เซลล์A2 ของชีท menu sheet มาไว้ที่ B2ของชีทที่เปิดใช้งานอยู่
ใช้code

Code: Select all

   
   i = 2
   Range("B" & i).Value = Sheets("menu sheet").Range("A2").Value

หรือ เลือกใช้ 5 code ด้านล่างนี้อันไดอันหนึ่ง เพราะมีความหมายอย่างเดียวกัน

Code: Select all

 
   Range("B2").Value              = Sheets("menu sheet").Range("A2").Value
   Cells(2, 2).Value              = Sheets("menu sheet").Cells(2, 1).Value
   Cells(2, "B").value            = Sheets("menu sheet").Cells(2, "A").Value
   Cells(1, 1).Offset(1, 1).Value = Sheets("menu sheet").Cells(2, 1).Value
   Cells(1, 1).Offset(1, 1).Value = Sheets("menu sheet").Cells(1, 1).Offset(1, 0).Value

ขอบคุณ คุณ tupthai ครับ บอกวิธีการเขียนคำสั่ง VBA ที่เกี่ยวข้องกับการระบุตำแหน่งของข้อมูล ทุกรูปแบบเลย

เพื่อนๆคนไหน เหมาะที่จะใช้แบบไหนเลือกได้ตามต้องการ สำหรับผม ขออนุญาต จด ก่อน ครับ ^_^ (y)

[joo]

เหนือคำบรรยายครับท่าน

[djung]

ขอบคุณทุุกคำตอบครับสำเร็จแล้วครับ

[sbac2558]

จากคำถาม ให้ดึงข้อมูลจาก เซลล์A2 ของชีท menu sheet มาไว้ที่ B2ของชีทที่เปิดใช้งานอยู่
ใช้code

Code: Select all

   
   i = 2
   Range("B" & i).Value = Sheets("menu sheet").Range("A2").Value

หรือ เลือกใช้ 5 code ด้านล่างนี้อันไดอันหนึ่ง เพราะมีความหมายอย่างเดียวกัน

Code: Select all

 
   Range("B2").Value              = Sheets("menu sheet").Range("A2").Value
   Cells(2, 2).Value              = Sheets("menu sheet").Cells(2, 1).Value
   Cells(2, "B").value            = Sheets("menu sheet").Cells(2, "A").Value
   Cells(1, 1).Offset(1, 1).Value = Sheets("menu sheet").Cells(2, 1).Value
   Cells(1, 1).Offset(1, 1).Value = Sheets("menu sheet").Cells(1, 1).Offset(1, 0).Value

แล้วถ้าต้องการดึงมาทั้งคอลัมน์ล่ะค่ะ อย่างเช่น ต้องการดึงข้อมูลจากคอลัมน์ A2 จนถึง A6 ของชีท menu sheet มาไว้ที่ B2 ลงไปจนถึง B6 ของชีท data ค่ะ
ขออนุญาตยืมไฟล์นะค่ะ

[snasui]

สามารถทำได้หลายวิธีครับ

ตัวอย่างเช่น

Code: Select all

i = 2
Do While Sheets("menu sheet").Range("a" & i) <> ""
    Range("B" & i).Value = Sheets("menu sheet").Range("A" & i)
    i = i + 1
Loop

หรือเช่น

Code: Select all

Sheets("menu sheet").Range("a2").CurrentRegion.Copy
Sheets("data").Range("b2").PasteSpecial xlPasteValues
Application.CutCopyMode = False

[sbac2558]

อาจารย์ค่ะเมื่อนำ code ไปดัดแปลงใช้กับไฟล์งานจริงแล้วขึ้นเตือน Debug และมีป๊อปอัพเด้งขึ้นมาในลักษณะนี้เกิดจากสาเหตุอะไรค่ะ

[snasui]

ช่วยจับมาเฉพาะ Error จะได้ช่วยอ่านได้ว่าโปรแกรมฟ้องอะไรครับ

[sbac2558]

Run-time error '1004':
การดำเนินการนี้จะต้องให้เซลล์ที่ถูกผสานมีขนาดเดียวกัน

มันขึ้นแบบนี้ค่ะ เมื่อกี้ลองทำกับไฟล์งานอื่นพอนำมาใช้กับไฟล์งานจริงเป็นแบบนี้ค่ะ

[snasui]

แสดงว่าไฟล์จริงมีการ Merge เซลล์เอาไว้ด้วย ลองทำตัวอย่างที่เหมือนไฟล์จริงแล้วแนบไฟล์นั้นพร้อม Code ที่ปรับมาเองแล้วมาอีกทีครับ

[sbac2558]

ใช่คะไฟล์จริงมีการผสานเซลล์ ส่วนไฟล์ที่ใช้ครั้งแรกไม่มีการผสานเซลล์ อาจารย์ต้องการให้หนูเอา code มาลองทำแบบผสานกับไฟล์ที่ใช้ครั้งแรกใช่ไหมค่ะ

[snasui]

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

[sbac2558]

รับทราบค่ะ

[sbac2558]

ได้ลองทำแล้วค่ะในไฟล์ตัวอย่างนะค่ะ แต่ยังงงว่าทำไมเซลล์ A4 ในชีท data ถึงเกิดช่องว่าง และอีกอย่างคือตอนอ้างเซลล์เริ่มต้นที่ต้องการคัดลอกข้อมูลนั้นไม่ได้อ้างรวมหัวตารางแต่ตอนข้อมูลที่ดึงมาไว้ในชีท data นั้นมันมีหัวตารางมาด้วยค่ะ

[snasui]

ที่เป็นเช่นนั้นเพราะว่าโจทย์เดิมไม่ใส่หัวคอลัมน์เข้ามาด้วย ผมจึงเขียน Code เสมือนว่า Copy ไปทั้งหมด

หากจะ Copy ไปเฉพาะข้อมูลสามารถปรับ Code เป็นด้านล่างครับ

Code: Select all

Sheets("menu sheet").Range("a3").CurrentRegion.Offset(2, 0).Copy
Sheets("data").Range("a3").PasteSpecial xlPasteValues
Application.CutCopyMode = False

[sbac2558]

นี้เป็นไฟล์งงานจริงนะค่ะ ซึ่งก่อนหน้านี่ได้ลองทำให้ไฟล์ตัวอย่างเหมือนไฟล์จริงแล้ว แต่ไม่สามารถทำงานได้เช่นเดียวกันค่ะ ตัวcodeอยู่ใน module2 ค่ะ

[snasui]

ตามที่กล่าวมาว่าทำตัวอย่างให้เหมือนกันที่ใช้จริงนั้น ขอแจ้งว่าไม่เหมือน ดังนั้น Code ที่ให้ไปจึงใช้งานไม่ได้เป็นเรื่องปกติที่จะเป็นเช่นนั้นครับ

จากตัวอย่างล่าสุดแสดงให้เห็นว่าไม่ได้นำข้อมูลทุกคอลัมน์ไปใช้ในชีตปลายทาง แต่ Code ที่ผมให้ไปจะนำข้อมูลต้นทางไปใช้ทุกคอลัมน์ ในโอกาสถัดไปควรแจ้งสิ่งที่ต้องการมาอย่างละเอียดครับ

จากตัวอย่างล่าสุดในชีตต้นทางคือชีต student มีข้อมูลตั้งแต่บรรทัดที่ A3:C14 แต่ปลายทางที่ต้องการทำไปวางคือชีต classroom มีพื้นที่ให้วางแค่ A4:C11 การวางเช่นนั้นจะทำให้คำว่า "ค่าเฉลี่ยแต่ละด้าน" จะถูกลบทิ้งไป หากจะให้คงไว้ ลองปรับ Code ดูเองก่อนครับ

ปกติหาผมตอบไปแล้วจะต้องปรับ Code มาเองก่อนทุกครั้ง จะได้ทราบว่าได้ลองทำเองแล้ว สำหรับครั้งนี้ผมจะอนุโลมให้สักครั้งหนึ่ง

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

With Sheets("student")
    .Range("a3", .Range("a" & .Rows.Count).End(xlUp)).Resize(, 3).Copy
End With
Sheets("classroom").Range("a4").PasteSpecial xlPasteValues
Application.CutCopyMode = False