Excel Forum

ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/

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

http://snasui.com/viewtopic.php?t=4545

Page 1 of 1

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

Posted: Wed Apr 10, 2013 8:40 am
by djung
คือผมต้องการให้ vba ดึงข้อมูลจาก Sheet menu มาแสดง โดยที่ปลายไม่กำหนดตายตัวอาจจะเป็น sheet2 หรือ sheet 3 หรือ sheet 4 ก็ได้ให้แสดงค่าใน B2
แต่ข้อมูลที่ต้องการนำมาแสดงอยู่ใน A2 sheet menu ครับ :shock:

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

Posted: Wed Apr 10, 2013 9:46 am
by joo
:D ลองแบบนี้ดูครับ

Code: Select all

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

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

Posted: Wed Apr 10, 2013 1:55 pm
by 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

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

Posted: Wed Apr 10, 2013 6:02 pm
by yoguzaa
tupthai wrote:จากคำถาม ให้ดึงข้อมูลจาก เซลล์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)

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

Posted: Wed Apr 10, 2013 6:46 pm
by joo
:o :lol: :D :thup: :cp: เหนือคำบรรยายครับท่าน

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

Posted: Wed Apr 10, 2013 9:11 pm
by djung
ขอบคุณทุุกคำตอบครับสำเร็จแล้วครับ

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

Posted: Sat Apr 02, 2016 3:48 pm
by sbac2558
tupthai wrote:จากคำถาม ให้ดึงข้อมูลจาก เซลล์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 ค่ะ
ขออนุญาตยืมไฟล์นะค่ะ :)

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

Posted: Sat Apr 02, 2016 4:20 pm
by snasui
:D สามารถทำได้หลายวิธีครับ

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

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

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

Posted: Sat Apr 02, 2016 9:40 pm
by sbac2558
อาจารย์ค่ะเมื่อนำ code ไปดัดแปลงใช้กับไฟล์งานจริงแล้วขึ้นเตือน Debug และมีป๊อปอัพเด้งขึ้นมาในลักษณะนี้เกิดจากสาเหตุอะไรค่ะ

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

Posted: Sat Apr 02, 2016 9:44 pm
by snasui
:D ช่วยจับมาเฉพาะ Error จะได้ช่วยอ่านได้ว่าโปรแกรมฟ้องอะไรครับ

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

Posted: Sat Apr 02, 2016 10:03 pm
by sbac2558
Run-time error '1004':
การดำเนินการนี้จะต้องให้เซลล์ที่ถูกผสานมีขนาดเดียวกัน

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

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

Posted: Sat Apr 02, 2016 10:15 pm
by snasui
:D แสดงว่าไฟล์จริงมีการ Merge เซลล์เอาไว้ด้วย ลองทำตัวอย่างที่เหมือนไฟล์จริงแล้วแนบไฟล์นั้นพร้อม Code ที่ปรับมาเองแล้วมาอีกทีครับ

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

Posted: Sat Apr 02, 2016 10:23 pm
by sbac2558
ใช่คะไฟล์จริงมีการผสานเซลล์ ส่วนไฟล์ที่ใช้ครั้งแรกไม่มีการผสานเซลล์ อาจารย์ต้องการให้หนูเอา code มาลองทำแบบผสานกับไฟล์ที่ใช้ครั้งแรกใช่ไหมค่ะ ;)

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

Posted: Sat Apr 02, 2016 10:27 pm
by snasui
:D ต้องการให้ทำตัวอย่างให้เหมือนกันกับที่ต้องการจะใช้จริงแล้วแนบไฟล์นั้นมาใหม่ จะได้ตอบให้ตรงประเด็น จะได้ลดความยุ่งยากในการปรับใช้เองครับ

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

Posted: Sat Apr 02, 2016 10:29 pm
by sbac2558
รับทราบค่ะ :thup:

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

Posted: Sat Apr 02, 2016 11:17 pm
by sbac2558
ได้ลองทำแล้วค่ะในไฟล์ตัวอย่างนะค่ะ แต่ยังงงว่าทำไมเซลล์ A4 ในชีท data ถึงเกิดช่องว่าง และอีกอย่างคือตอนอ้างเซลล์เริ่มต้นที่ต้องการคัดลอกข้อมูลนั้นไม่ได้อ้างรวมหัวตารางแต่ตอนข้อมูลที่ดึงมาไว้ในชีท data นั้นมันมีหัวตารางมาด้วยค่ะ

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

Posted: Sun Apr 03, 2016 5:30 am
by snasui
:D ที่เป็นเช่นนั้นเพราะว่าโจทย์เดิมไม่ใส่หัวคอลัมน์เข้ามาด้วย ผมจึงเขียน 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

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

Posted: Sun Apr 03, 2016 1:16 pm
by sbac2558
นี้เป็นไฟล์งงานจริงนะค่ะ ซึ่งก่อนหน้านี่ได้ลองทำให้ไฟล์ตัวอย่างเหมือนไฟล์จริงแล้ว แต่ไม่สามารถทำงานได้เช่นเดียวกันค่ะ ตัวcodeอยู่ใน module2 ค่ะ :cry:

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

Posted: Sun Apr 03, 2016 2:59 pm
by snasui
:lol: ตามที่กล่าวมาว่าทำตัวอย่างให้เหมือนกันที่ใช้จริงนั้น ขอแจ้งว่าไม่เหมือน ดังนั้น 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
All times are UTC+07:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited