:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

Search found 1506 matches

by logic
Fri May 26, 2023 11:33 am
Forum: Excel
Topic: ใส่ลำดับอัตโนมัติ
Replies: 8
Views: 671

Re: ใส่ลำดับอัตโนมัติ

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

F2 =IF(COUNTIFS(B$2:B2,B2,C$2:C2,C2,D$2:D2,D2,E$2:E2,E2)=1,MAX(F$1:F1)+1,LOOKUP(2,1/((B$1:B1=B2)*(C$1:C1=C2)*(D$1:D1=D2)*(E$1:E1=E2)),F$1:F1))
A2 =TEXT(F2,"""LEU-""000000")

คัดลอกทั้งสองสูตรลง
by logic
Fri May 26, 2023 10:54 am
Forum: Excel
Topic: ใส่ลำดับอัตโนมัติ
Replies: 8
Views: 671

Re: ใส่ลำดับอัตโนมัติ

เรียงข้อมูลตมคอลัมน์ a:d เสียใหม่ก็จะได้คำตอบแล้วครับ
by logic
Fri May 26, 2023 8:42 am
Forum: Excel
Topic: ใส่ลำดับอัตโนมัติ
Replies: 8
Views: 671

Re: ใส่ลำดับอัตโนมัติ

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

A2 =IF(B2&C2&D2&E2=B1&C1&D1&E1,A1,TEXT(IFERROR(--RIGHT(A1,6),0)+1,"""LEU-""000000"))

จากนั้นคัดลอกสูตรลง 😏
by logic
Thu May 25, 2023 8:15 pm
Forum: Excel
Topic: ต้องการหาเวลาการทำโอทีของแต่ละเรทครับ
Replies: 4
Views: 295

Re: ต้องการหาเวลาการทำโอทีของแต่ละเรทครับ

เข้าใจว่าเป็นแบบนี้

G2 =MIN(E2-"17:15",2/24)
H2 =MAX(0,F2-G2)

คัดลอกสูตรลงด้านล่างและจัดรูปแบบเป็น h:mm:ss หากจะใช้แบบทศนิยมค่อยเพิ่มคอลัมน์แสดงผลต่างหากน่าจะดีกว่าครับ 😁
by logic
Thu May 25, 2023 7:56 pm
Forum: Excel
Topic: ต้องการ copy ข้อมูลมาต่อๆ กันไปเรื่อยๆ
Replies: 14
Views: 1116

Re: ต้องการ copy ข้อมูลมาต่อๆ กันไปเรื่อยๆ

บรรทัดที่ 5 ไม่มีสูตร พอคัดลอกไปบรรทัดที่ 6 กลับมีสูตร ไปเอาสูตรมาจากไหนครับ

ที่บอกว่าใช้ A1 เป็นเงื่อนไข ก็ไม่เห็นมีบรรทัดไหนตรงกับค่าใน A1 :flw:
by logic
Fri Mar 17, 2023 3:36 pm
Forum: Excel
Topic: ดึงข้อมูลจากเว็บที่ต้อง login ก่อน ลง excel
Replies: 1
Views: 230

Re: ดึงข้อมูลจากเว็บที่ต้อง login ก่อน ลง excel

ล็อคอินอัตโนมัติก็ต้อง VBA ตามกฎคือต้องเขียนมาก่อน ถ้าจะดูว่าเขียนแบบไหนก็ไปที่นี่มีตัวอย่างหลายเจ้าครับ https://www.youtube.com/results?search_ ... to+website
by logic
Mon Feb 20, 2023 6:09 am
Forum: Excel
Topic: ดึงข้อมูลบรรทัดสุดท้าย ที่ไม่ใช่ 0
Replies: 5
Views: 297

Re: ดึงข้อมูลบรรทัดสุดท้าย ที่ไม่ใช่ 0

ลองแบบนี้ครับ 😉

B8 =LOOKUP(2,1/B1:B7,B1:B7) คัดลอกไปทางขวา
by logic
Mon Feb 06, 2023 3:35 pm
Forum: Excel
Topic: ตัดข้อมูลเอาเฉพาะตัวเลขที่อยู่ด้านขวาของข้อความ
Replies: 2
Views: 224

Re: ตัดข้อมูลเอาเฉพาะตัวเลขที่อยู่ด้านขวาของข้อความ

ลองดูครับ

B2 =LOOKUP(9.99999999999999E+307,--RIGHT(A2,ROW($A$2:$A$10)-ROW($A$2)+1)) คัดลอกสูตรลง
by logic
Wed Feb 01, 2023 1:04 pm
Forum: Excel
Topic: VBA สำหรับการฟิลเตอร์ข้อมูล
Replies: 6
Views: 536

Re: VBA สำหรับการฟิลเตอร์ข้อมูล

เครื่องหมายฟันหนูเป็นอักษรแปลกๆ ผมคีย์เข้าไปเองใหม่แล้วทำงานได้ครับ 👇

Code: Select all

ActiveSheet.ListObjects("NewData").Range.AutoFilter Field:=2, _
Criteria1:=[A1] & "*", Operator:=xlFilterValues
by logic
Wed Dec 14, 2022 11:36 am
Forum: Excel
Topic: สูตรการคิดคะแนน IF
Replies: 4
Views: 424

Re: สูตรการคิดคะแนน IF

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

F7 =IF(F7>=I2,"4",IF(F7>=I3,"3",IF(F7>=I4,"2",IF(F7>=I5,"1","0"))))
by logic
Wed Dec 14, 2022 11:29 am
Forum: Excel
Topic: การดึงข้อมูล
Replies: 2
Views: 372

Re: การดึงข้อมูล

ที่เคยทำก็เขียน vba ไปดึงค่าออกมา คำค้นก็แนว ๆ นี้ครับ https://www.google.com/search?q=vba+get ... e&ie=UTF-8
by logic
Wed Dec 14, 2022 11:27 am
Forum: Excel
Topic: excel problem
Replies: 2
Views: 346

Re: excel problem

I guess,

D3 =AGGREGATE(14,6,RIGHT($A$2:$A$49,10)/(RIGHT($A$2:$A$49,10)+0<=TODAY()),1)
E2 =INDEX(B2:B49,MATCH("*"&TEXT(D3,"dd-mm-yyyy"),A2:A49,0))

Hope this help.
by logic
Tue Oct 25, 2022 9:54 am
Forum: Excel
Topic: สูตร ไม่ต้องแสดงผลลัพธ์ซ้ำลงมา
Replies: 1
Views: 162

Re: สูตร ไม่ต้องแสดงผลลัพธ์ซ้ำลงมา

ลองดูครับ

L6 =IF(J6+K6,LOOKUP(2,1/(L$5:L5<>""),L$5:L5)+K6-J6,"") คัดลอกสูตรลง
by logic
Thu Aug 11, 2022 6:36 pm
Forum: Excel
Topic: การเรียงลำดับตามชื่อ (ไม่ยึดคำนำหน้านาม)
Replies: 5
Views: 605

Re: การเรียงลำดับตามชื่อ (ไม่ยึดคำนำหน้านาม)

ก็แค่ทำเอาไว้เรียง เรียงเสร็จจะลบทิ้งทีหลังก็ได้นี่ครับ
by logic
Thu Aug 11, 2022 4:42 pm
Forum: Excel
Topic: การเรียงลำดับตามชื่อ (ไม่ยึดคำนำหน้านาม)
Replies: 5
Views: 605

Re: การเรียงลำดับตามชื่อ (ไม่ยึดคำนำหน้านาม)

แบบนี้ได้ไหมครับ

C2 =RIGHT(B2,MIN(LEN(SUBSTITUTE(B2,{"นาง";"นาย";"นางสาว"},"")))) คัดลอกสูตรลงแล้วเรียงด้วยคอลัมน์นี้
by logic
Thu Aug 11, 2022 4:33 pm
Forum: Excel
Topic: ขอสอบถามเรื่อง SumProduct ครับ
Replies: 3
Views: 490

Re: ขอสอบถามเรื่อง SumProduct ครับ

แบบนี้หรือเปล่าครับ

G3 =SUMPRODUCT(--(A2:A256>="1/8/2022"+0),--(A2:A256<="31/8/2022"+0),--((ISNUMBER(MATCH(TRIM($B$2:$B$256),{"251","1970"},0)))+ISNUMBER(SEARCH("B025",$B$2:$B$256))),--($B$2:$B$256<>"B0250111"),C2:C256)
by logic
Tue Jul 19, 2022 11:44 am
Forum: Excel
Topic: ขอวิธีการแยกข้อความ
Replies: 4
Views: 510

Re: ขอวิธีการแยกข้อความ

ลองดูครับ

B1 =MID(A1,FIND("AG1",A1),FIND("PA_",A1)-5-FIND("AG1",A1)) คัดลอกสูตรลง
by logic
Tue Jul 19, 2022 11:00 am
Forum: Excel
Topic: ขอวิธีการแยกข้อความ
Replies: 4
Views: 510

Re: ขอวิธีการแยกข้อความ

ใช้ Mid ครับ

B1 =MID(A1,FIND("AG1",A1),100) คัดลอกสูตรลง
by logic
Fri Jul 08, 2022 11:22 am
Forum: Excel
Topic: VBA ต้องการ Copy ข้อมูลจากไฟล์แรก ไปเก็บใน define names ไฟล์สองปรับโค้ดอย่างไรครับ
Replies: 3
Views: 273

Re: VBA ต้องการ Copy ข้อมูลจากไฟล์แรก ไปเก็บใน define names ไฟล์สองปรับโค้ดอย่างไรครับ

น่าจะแบบนี้ Workbooks(fso.GetFileName(nameSvFile)).Worksheets("Sheet1").Names("MaiAge").Value = _ Workbooks(fso.GetFileName(nameSvFile)).Worksheets("Sheet1").Names("MaiAge").Value & " " & Workbooks("ชื่อไฟล์ที่สอง").Worksheets("...