Excel Forum

ขอบพระคุณอย่างสูงค่ะอาจารย์

สวัสดีค่ะ
จากไฟล์ที่ได้หาค่าเฉลี่ยในปุ่ม ค่าเฉลี่ยรายห้อง Module1 ได้แล้วแต่เมื่อทำค่าเฉลี่ยรายด้าน มันรันไม่ได้ จากโค้ดใน Module2 รบกวนช่วยดูcode ที่เขียนในModule2 ให้หน่อยน่ะค่ะ ซึ่งต้องการผลรวมตั้งแต่ AR4 ถึง AR ตัวสุดท้ายที่มีข้อมูลอยู่ค่ะ แถบสีเหลืองค่ะ

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

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

รับทราบค่ะ

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

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

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

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

สวัสดีค่ะอาจารย์
จากไฟล์ที่แนบมานะค่ะหนูต้องการดึงข้อมูลจาก เซลล์ A3 จนถึง D9 ในsheet ชื่อ menu sheet ไปยัง เซลล์ A3 จนถึง D9 ในsheet ชื่อ data ค่ะ แต่จากcode ที่อยู่ในไฟล์ทำได้แค่เซลล์ รบกวนหน่อยนะค่ะ

ขอบคุณค่ะ

ขอบคุณมากนะค่ะอาจารย์ รันได้ตามต้องการแล้วค่ะ หนูต้องการตั้งกระทู้ใหม่เกี่ยวกับการดึงข้อมูลจากsheet ไปอีก sheet หนูต้องทำตั้งกระทู้ใหม่หรือต่อกระทู้นี้เลยค่ะ ขอบคุณค่ะ

จากคำถาม ให้ดึงข้อมูลจาก เซลล์A2 ของชีท menu sheet มาไว้ที่ B2ของชีทที่เปิดใช้งานอยู่ ใช้code i = 2 Range("B" & i).Value = Sheets("menu sheet").Range("A2").Value หรือ เลือกใช้ 5 code ด้านล่างนี้อันไดอันหนึ่ง เพราะมีความหมายอย่างเดียวกัน Range("B2").Value ...

อ่อ ขอโทษด้วยค่ะ :( ได้นำไปใช้แต่ในส่วนของคอลัมน์มันมีปัญหาอยู่คือเมื่อมีการเพิ่มคำถามหรือคอลัมน์ไม่สามารถรันได้เพราะได้กำหนดค่าตายตัวไว้เมื่อนำcode ต้องการให้มันวนทั้งคอลัมน์และแถว โดยการเพิ่ม lastcol เข้าไปแต่ไม่สามารถทำงานได้ จึงได้ลองปรึกษาอาจารย์ที่ควบคุมโปรเจ็คดูอาจารย์แนะนำให้เขียนแบบแนวทางนี...

สวัสดีค่ะ
ตามไฟล์ที่แนบไปนะค่ะ ต้องการให้มันวนคอลัมน์และแถวเพื่อเก็บค่าเฉลี่ยได้เรื่อยๆค่ะ แต่พอรันมันขึ้น Debug แต่มีค่าเฉลี่ยขึ้นมาซึ่งไม่รู้ว่ามาจากส่วนไหน รบกวนดูให้หน่อยนะค่ะ ขอบคุณมากๆค่ะ

สวัสดีค่ะอาจารย์ Sub aver() Dim allRng As Range, r As Range 'Range คือชนิดข้อมูลรึเปล่าค่ะหนูยังไม่ได้เรียนRangeในเรื่องของการประกาศตัวแปรก็เลยยังไม่เข้าใจ code บรรทัดนี้ค่ะ Dim lastRow As Long, st As String 'ตัวแปรlastRow ใช้ในการนับแถวลงมาใช้เก็บข้อมูลแบบตัวเลขจำนวนเต็มส่วนตัวแปร st ใช้ในการเก็บค่...

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

อาจารย์ค่ะ รบกวนอาจารย์อธิบายตัวแปรแต่ละตัวว่ามันเป็นตัวแปรของอะไรเก็บค่าตัวไหนอยู่ หนูอยากลองแก้ไข code ดูแต่แก้ไม่ถูกเพราะไม่รู้ว่าตัวแปรนั้นเป็นตัวแปรของอะไรค่ะ

ขอบคุณมากนะค่ะ เดี๋ยวจะลองทำก่อนมีปัญหายังไงจะมาต่อกระทู้นะค่ะ
*รบกวนอาจารย์อธิบายCode ทีส่งมาให้สักนิดได้ไหมค่ะ บางบรรทัดยังไม่เข้าใจว่าCode บรรทัดนี้คือการทำอะไร อยากขออนุญาติรบกวนให้อาจารย์อธิบายให้หน่อยได้ไหมค่ะ อีกอย่างหนูอยากเข้าใจในส่วนของCode ด้วยค่ะ

สอบถามเพิ่มเติมอีกนิดนึงนะค่ะ จากที่อาจารย์แนะวิธีแก้ปัญหานั้น :arrow: แก้ปัญหาโดยการหาคอลัมน์แรกรวมทั้งสุดท้ายด้วย Code คือการเขียน code ในการหาคอลัมน์แรกจนถึงคอลัมน์สุดท้ายว่ามีกี่คอลัมน์รึเปล่าค่ะ หนูเข้าใจถูกไหมค่ะ :D แล้วในส่วนของ code หาคอลัมน์นี่หนูจะต้องลบ code ที่มีอยู่ในส่วนไหนออกบ้างค่ะต้...

ขออนุญาตถามในส่วนของ Code นะค่ะ :D ตัวอย่าง Code ครับ Dim allRng As Range, r As Range Dim lastRow As Long, st As String Dim rh As Range, mt As Long With ActiveSheet lastRow = .Range("a" & .Rows.Count).End(xlUp).row Set allRng = .Range("ap4", .Range("ba" & lastR...