: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

ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
9tchai
Member
Member
Posts: 45
Joined: Sun Nov 20, 2016 8:58 am

ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#1

Post by 9tchai »

สูตร IF ผสมอื่นๆ ด้วยครับ
You do not have the required permissions to view the files attached to this post.
User avatar
parakorn
Gold
Gold
Posts: 1223
Joined: Thu Mar 14, 2013 9:41 am
Location: Central Chaengwattana[Tops]
Excel Ver: 365
Contact:

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#2

Post by parakorn »

แนบไฟล์ตัวอย่างมาด้วยเพื่อให้เพื่อนๆเข้าถึงปัญหาได้ง่าย และ สะดวกต่อการตอบคำถามครับ
9tchai
Member
Member
Posts: 45
Joined: Sun Nov 20, 2016 8:58 am

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#3

Post by 9tchai »

ตัวอย่าง1.xls
แนบไฟล์ตัวอย่าง มาแล้วครับ ขอบคุณล่วงหน้าครับผม
You do not have the required permissions to view the files attached to this post.
9tchai
Member
Member
Posts: 45
Joined: Sun Nov 20, 2016 8:58 am

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#4

Post by 9tchai »

*ขอเพิ่มเติมเงื่อนไข ข้อ 1-2 นิดนึ่งครับ*
จริงๆ เงื่อนไข คือ
1 แถวแรกของคอลัมน์ จะต้องดู X สีเดียวกันในคอลัมน์ก่อนหน้า แถวที่สอง ถ้ามี X จะเป็น -1 ทั้งหมด ยกเว้นแต่ ถ้าไม่มี = 1
2 แถวสองของคอลัมน์ทั้งหมด ถ้าเกิด X จะต้องดู X สีเดียวกันในคอลัมน์ก่อนหน้า แถวที่สอง ถ้ามี X = 1 ถ้าไม่มี = -1
3 แต่ตั้งแถวที่สาม สี่ เรื่อยไป ถ้าเกิด X ผลลัพธ์ = 1
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#5

Post by snasui »

:D ตัวอย่างวิธีเขียนสูตรเฉพาะบางเซลล์ตามด้านล่าง ลองประยุกต์ใช้ดูครับ
  1. ที่ B12 คีย์
    =IF(AND(D2="x",B2="x"),1,IF(E1="x",-1,""))
    Enter > Copy ลงด้านล่าง
  2. ที่ B13 คีย์
    =IF(AND(D2="x",D3="x"),1,IF(AND(E2="x",C2="x"),1,IF(AND(E2="x",C2<>"x"),-1,"")))
    Enter > Copy ลงด้านล่าง
  3. ที่ B14 คีย์
    =IF(AND(E3="x",E2="x"),1,IF(F1="x",-1,""))
    Enter > Copy ลงด้านล่าง
9tchai
Member
Member
Posts: 45
Joined: Sun Nov 20, 2016 8:58 am

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#6

Post by 9tchai »

ขอบคุณมากครับอาจารย์ นำไปประยุกต์ใช้ได้แล้วครับ
9tchai
Member
Member
Posts: 45
Joined: Sun Nov 20, 2016 8:58 am

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ / เข้าใจมากขึ้นแล้ว แต่ติดเรื่องดึงเซลล์มาเรียงกัน

#7

Post by 9tchai »

ตัวอย่าง1.xls
ต้องการทำสูตรดึงค่าเซลล์มาเรียงต่อกัน และเปลี่ยนสี ไปในคอลัมน์ A
You do not have the required permissions to view the files attached to this post.
User avatar
logic
Gold
Gold
Posts: 1510
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#8

Post by logic »

ลองดูครับ :P

B11 =IF(ROWS(B$11:B11)<=SUMPRODUCT(--($D$11:$R$19&""<>0)),INDEX($D$11:$R$19,INT((ROWS(B$11:B11)-1)/COLUMNS($D$11:$R$11))+1,MOD((ROWS(B$11:B11)-1),COLUMNS($D$11:$R$11))+1),"") Enter คัดลอกสูตรไปด้านล่างเยอะ ๆ ตามที่คิดว่าเรียงข้อมูลหมดแล้ว (สูตรนี้เรียงข้อมูลให้อยู่ในคอลัมน์เดียว)

A11 =IF(ROWS(A$11:A11)<=COUNT($D$11:$R$19),INDEX($B$11:$B$100,SMALL(IF($B$11:$B$100<>"",ROW($B$11:$B$100)-ROW($B$11)+1),ROWS($B$11:B11))),"") Ctrl+Shift+Enter คัดลอกสูตรลงด้านล่าง อ่านเรื่อง Ctrl+Shift+Enter ที่นี่ viewtopic.php?f=6&p=81118#p81118
9tchai
Member
Member
Posts: 45
Joined: Sun Nov 20, 2016 8:58 am

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#9

Post by 9tchai »

ตัวอย่าง1.xls
ขอบคุณมากครับ ผมลองทำแล้ว แต่ยังไม่ใช่ ยังมีสูตรผิดพลาดบางประการครับ ลองดูในไฟล์แนบครับ

=IF(ROWS(B$11:B11)<=SUMPRODUCT(--($D$11:$R$19&""<>0)),INDEX($D$11:$R$19,INT((ROWS(B$11:B11)-1)/COLUMNS($D$11:$R$11))+1,MOD((ROWS(B$11:B11)-1),COLUMNS($D$11:$R$11))+1),"")
You do not have the required permissions to view the files attached to this post.
User avatar
logic
Gold
Gold
Posts: 1510
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#10

Post by logic »

ไม่ผิดครับ ผมให้ทำทั้งสองสูตร สูตรแรกเป็นคอลัมน์ช่วย สูตรที่สองคือผลลัพธ์ อ่านดูใหม่ครับ :P
9tchai
Member
Member
Posts: 45
Joined: Sun Nov 20, 2016 8:58 am

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#11

Post by 9tchai »

ขอโทษครับ ผมลองหลายครั้งแล้ว แต่ก็ยังมีส่วนผิดพลาดครับ ลองดูตัวอย่างที่ผมทำล่าสุด ในไฟล์แนบครับ
ตัวอย่าง1.xls
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#12

Post by snasui »

:D ตัวอย่างการปรับสูตรตามด้านล่างครับ
  1. ที่ B11 คีย์
    =IF(ROWS(B$11:B11)<=SUMPRODUCT(--($D$11:$R$19&""<>0)),INDEX($D$11:$R$19,MOD((ROWS(B$11:B11)-1),ROWS($D$11:$D$19))+1,INT((ROWS(B$11:B11)-1)/ROWS($D$11:$D$19))+1),"")
    Enter > Copy ลงด้านล่าง
  2. ที่ A11 คีย์
    =IF(ROWS(A$11:A11)<=COUNT($D$11:$R$19),INDEX($B$11:$B$1000,SMALL(IF($B$11:$B$1000<>"",ROW($B$11:$B$1000)-ROW($B$11)+1),ROWS($B$11:B11))),"")
    Ctrl+Shift+Enter > Copy ลงด้านล่าง

!
Note: Ctrl+Shift+Enter
เป็นการสร้างสูตร Array โดยสามารถเลือกดำเนินการตามข้อ 1 หรือ 2 ด้านล่าง
  1. กรณีคีย์สูตรเอง เมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น
    Ctrl และ Shift พร้อมกันค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array
  2. กรณี Copy สูตรไปวางให้กดแป้น F2 เพื่อทำการ Edit Cell นั้นก่อน
    จากนั้นกดแป้น Ctrl และ Shift พร้อมกันค้างไว้แล้วตามด้วย Enter เพื่อสร้างเป็นสูตร Array
  3. หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)}
    ปีกกานี้ไม่สามารถคีย์เข้าไปเอง จะต้องมาด้วยการกดแป้น Ctrl+Shift+Enter เท่านั้น
    ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง
  4. การแก้ไขเปลี่ยนแปลงสูตร Array จะต้องกดแป้นให้รับสูตรด้วย Ctrl+Shift+Enter ทุกครั้ง
9tchai
Member
Member
Posts: 45
Joined: Sun Nov 20, 2016 8:58 am

Re: ช่วยด้วยครับท่านอาจารย์ มึนงงแล้วครับ

#13

Post by 9tchai »

ขอบคุณมากครับ ท่านอาจารย์สันติพงศ์ รบกวนท่านอีกแล้ว ได้สูตรถูกต้อง ตามที่ต้องการเลยครับ
Post Reply