Excel Forum

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

ไม่สามารถช่วยได้เนื่องจากเข้าไม่ถึงแหล่งข้อมูลครับ

Group นี้สำหรับ Power BI ครับ

Data Studio ของ Google จะอยู่ที่หมวด Other และจากปัญหาที่ถามมาลองตรวจสอบว่า Scope ของข้อมูลที่นำมาแสดงใน Chart ครอบคลุมข้อมูลทั้งหมดที่จะนำมาใช้แล้วหรือไม่ เนื่องจากไม่สามารถตรวจสอบให้ได้จึงตอบได้แต่ภาพรวมเท่านั้นครับ

ที่ 31 เป็นต้นไป จะเป็น List ของ Combobox อื่นๆ ที่ไม่ได้ยกตัวอย่าง :D จะเป็นบรรทัดที่เท่าไรและมีอีกกี่บรรทัดก็ไม่ใช่ประเด็น ถ้าเข้าใจ Code ก็สามารถปรับใช้ได้ ที่สำคัญปรับใช้ง่ายมาก สงสัยหรือไม่เข้าใจบรรทัดไหนควรถามบรรทัดนั้นครับ หากศึกษาแล้วไม่เข้าใจควรเปลี่ยนวิธีการออกแบบไม่ให้ข้อมูลซ้อน ๆ กัน ให...

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

ลองปรับมาเอง ติดตรงไหนค่อยถามกันต่อ ใน Code ที่ตอบไปมันมีตัวเลขที่พอจะเดาได้ว่าให้ขยายไปถึงไหน น่าจะสังเกตได้ไม่ยากครับ

ผมต้องทดสอบอย่างไรให้พบปัญหานั้น ช่วยลำดับมาให้ด้วยจะได้เข้าถึงปัญหาโดยไวครับ

:D ตัวอย่างการปรับ Code ครับ Private Sub ComboBox1_Change() Dim u As Range, r As Range ComboBox2.Clear With ComboBox2 Select Case ComboBox1 Case "SUR" With Sheet1 For Each u In .Range("C2", .Range("C" & .Rows.Count).End(xlUp)) With Sheet2.ComboBox2 .AddItem u.Value ...

ถ้ายังตั้งใจแขียน "แล้ว" เป็น "แร้ว" มาอีกสักรอบผม Block นะครับ

ไม่เข้าใจ กรุณาอธิบายมาใหม่ครับ

:D ตัวอย่างคำถามที่อ่านแล้วเข้าใจคือ ต้องการเพิ่มรายการเข้าไปใน ComboBox2 จากการเลือก ComboBox1 ปัจจุบันบัญหาคือรายการที่เพิ่มเข้าไปใน ComboBox2 มีการเรียงรายการแบบสลับคอลัมน์แทนที่จะเรียงรายการไปทีละคอลัมน์ เช่น นำรายการในคอลัมน์ A มาเรียงให้หมดก่อนแล้วตามด้วยรายการในคอลัมน์ B เช่นนี้เป็นต้น วิธีกา...

ไม่เข้าใจว่าต้องการจะทำอะไร ช่วยอธิบายมาพอสังเขป

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

ช่วยโพสต์ให้เป็นไปตามกฎการใช้บอร์ดข้อ 1 ด้านบน แล้วแจ้งมาใหม่ครับ

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ B2 คีย์ =IF(A2="ร","รอตัดสิน",IF(A2="มส","ไม่มีสิทธิ์สอบ",IF(A2>=4,"ดีเยี่ยม",IF(A2>=3.5,"ดีมาก",IF(A2>=3,"ดี",IF(A2>=2.5,"ค่อนข้างดี",IF(A2>=2,"ปานกลาง",IF(A2>=1.5,"พอใช...

:D ตัวอย่าง การปรับ Code ลองประยุกต์ใช้ดูครับ 'Other code' Dim x As Object Dim str As String For Each x In frmForm.Frame5.Controls If x.Value = True Then str = x.Name Exit For End If Next Set sh = ThisWorkbook.Sheets(x) 'Other code ในโอกาสถัดไปกรุณาระบุรายละเอียดให้ครบว่า Code อยู่ที่ Module ไหน ชื่...

:D คำว่าเมื่อค่าเปลี่ยนไปแสดงว่าต้องมีค่าเดิมให้เทียบ ค่าเดิมจะต้องถูกพักไว้ใน Object ใด ๆ ยกตัวอย่างเช่นใน H2 เมื่อมีการเลือกค่าใหม่จะนำ H1 ไปเที่ยบกับ H2 ถ้าค่าเปลี่ยนไปจึงจะยกเลิกการซ่อน สามารถเลือกใช้ Calculate Event เพื่อทดแทน Change Event ที่ไม่ทำงานกรณีมี Link ค่าลักษณะนี้ครับ Code ด้านล่างเป...

ตัวอย่างการปรับ Code ครับ

ตัวอย่างสูตรตามด้านล่างครับ

1. ที่ B26 คีย์
   =IFERROR(INDEX($B$6:$B$20,AGGREGATE(15,6,(ROW($B$6:$B$20)-ROW($B$6)+1)/($D$6:$D$20>0),ROWS(B$27:B27))),"")
   Enter > Copy ลงด้านล่าง
2. ที่ C26 คีย์
   =SUMIFS($D$6:$D$20,$B$6:$B$20,B26)
   Enter > Copy ลงด้านล่าง

:D เกิดจากหัว Report มีหลายบรรทัด มีการ Merge เอาไว้ การหาค่าบรรทัดว่างเพื่อวางข้อมูลจะผิดพลาด วิธีการด้านล่างเป็นการปรับตัวแปรให้เป็นบรรทัดที่พร้อมวางข้อมูลครับ 'Other code For Each s In Worksheets If s.Name <> M.Name Then 'ª×èÍäÁèµÃ§¡Ñ¹ s.Range("A1:Z1").Copy lr = M.Range("C34")...

:D ตัวอย่างสูตรตามด้านล่างแบบกระจายวิธีคิดครับ ที่ C2 คีย์ =TEXT(A2,"yymm")+0 Enter > Copy ลงด้านล่าง ที่ D2 คีย์ =WEEKNUM(A2) Enter > Copy ลงด้านล่าง ที่ E2 คีย์ =DAY(A2) Enter > Copy ลงด้านล่าง ที่ F2 คีย์ =AGGREGATE(15,6,$E$2:$E$114/(($C$2:$C$114=C2)*($D$2:$D$114=D2)),1) Enter > Copy ลง...