ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#1
Post
by วังวู ช่ง Tue May 09, 2017 1:46 pm
เรียนทุกท่านครับ ช่วยเขียนสูตรให้หน่อยครับ
You do not have the required permissions to view the files attached to this post.
ZEROV
Member
Posts: 73 Joined: Thu Jun 03, 2010 6:31 pm
#2
Post
by ZEROV Tue May 09, 2017 8:25 pm
=DATE(2017,ROWS($A$1:A1),1)-MID(1200000,MOD(DATE(2017,ROWS($A$1:A1),1),7)+1,1)
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#3
Post
by วังวู ช่ง Wed May 10, 2017 10:21 am
ตามที่ถามถือว่าใช้ได้แล้วครับ ขอบคุณมากครับ แต่ปัญหาอยู่ที่ว่า ถ้าเปลี่ยนแปลงวัน/เดือน/ปี คำตอบออกมาจะไม่ตรงตามต้องการครับ
You do not have the required permissions to view the files attached to this post.
ZEROV
Member
Posts: 73 Joined: Thu Jun 03, 2010 6:31 pm
#4
Post
by ZEROV Wed May 10, 2017 11:52 am
D1=A1*(MOD(A1,7)>1)
ZEROV
Member
Posts: 73 Joined: Thu Jun 03, 2010 6:31 pm
#5
Post
by ZEROV Wed May 10, 2017 12:56 pm
แก้วันที่จากสูตรเดิมก็ได้21 )-MID(1200000,MOD(DATE(2017,ROWS($A$1:A1),21 ),7)+1,1)
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#6
Post
by วังวู ช่ง Wed May 10, 2017 9:54 pm
ZEROV wrote: D1=A1*(MOD(A1,7)>1)
ขอบคุณมากครับ ใช้ได้ครับ
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#7
Post
by วังวู ช่ง Wed May 10, 2017 9:55 pm
ZEROV wrote: แก้วันที่จากสูตรเดิมก็ได้21 )-MID(1200000,MOD(DATE(2017,ROWS($A$1:A1),21 ),7)+1,1)
ขอบคุณมากครับได้ตามต้องการครับ
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#8
Post
by วังวู ช่ง Thu May 11, 2017 10:11 am
ZEROV wrote: แก้วันที่จากสูตรเดิมก็ได้21 )-MID(1200000,MOD(DATE(2017,ROWS($A$1:A1),21 ),7)+1,1)
รบกวนอีกหน่อยครับ เมื่อเราเปลี่ยนแปลงเดือน จะคำนวนไม่ออกครับ
You do not have the required permissions to view the files attached to this post.
ZEROV
Member
Posts: 73 Joined: Thu Jun 03, 2010 6:31 pm
#9
Post
by ZEROV Thu May 11, 2017 12:55 pm
กรุณาอธิบายปัญหาให้ชัดเจนด้วยครับ
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#10
Post
by วังวู ช่ง Thu May 11, 2017 5:37 pm
ZEROV wrote: กรุณาอธิบายปัญหาให้ชัดเจนด้วยครับ
ครับผม ปัญหาอยู่ที่ว่า สูตรที่ท่านเขียนมานี้ ถ้าเป็นวันที่ 21/02/2017 จะออกมาตรงความต้องการครับ แต่ถ้าเปลี่ยนมาเป็น 21/05/2017 หรือ เดือน 3,4,5... ผลออกมาไม่ตรงความต้องการครับ
ความหมายคือว่า เมื่อเราเปลี่ยนแปลงเดือน ผลออกมาไม่ตรงความต้องการครับ
ZEROV
Member
Posts: 73 Joined: Thu Jun 03, 2010 6:31 pm
#11
Post
by ZEROV Thu May 11, 2017 7:10 pm
ตรงไหนไม่ตรงตามที่ต้องการครับ
Date.png
You do not have the required permissions to view the files attached to this post.
ZEROV
Member
Posts: 73 Joined: Thu Jun 03, 2010 6:31 pm
#12
Post
by ZEROV Thu May 11, 2017 9:19 pm
ถ้าต้องการเริมต้นที่เดือน 5A5 ),21)-MID(1200000,MOD(DATE(2017,ROWS($A$1:A5 ),21),7)+1,1)+4 ,21)-MID(1200000,MOD(DATE(2017,ROWS($A$1:A1)+4 ,21),7)+1,1)
snasui
Site Admin
Posts: 30738 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#13
Post
by snasui Thu May 11, 2017 10:15 pm
วังวู ช่ง wrote: ตามที่ถามถือว่าใช้ได้แล้วครับ ขอบคุณมากครับ แต่ปัญหาอยู่ที่ว่า ถ้าเปลี่ยนแปลงวัน/เดือน/ปี คำตอบออกมาจะไม่ตรงตามต้องการครับ
อีกตัวอย่างสูตรครับ
เซลล์ E1 คีย์
=Iferror(SMALL(IF(WEEKDAY($A$1:$A$28,2)<6,$A$1:$A$28),ROWS(E$1:E1)),"")
Ctrl+Shift+Enter > Copy ลงด้านล่าง
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#14
Post
by วังวู ช่ง Wed May 17, 2017 9:19 am
ขอบคุณทุกๆท่านครับ ลองก่อนครับ ไงจะแจ้งให้ครับ
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#15
Post
by วังวู ช่ง Wed May 17, 2017 11:01 am
snasui wrote:
อีกตัวอย่างสูตรครับ
เซลล์ E1 คีย์
=Iferror(SMALL(IF(WEEKDAY($A$1:$A$28,2)<6,$A$1:$A$28),ROWS(E$1:E1)),"")
Ctrl+Shift+Enter > Copy ลงด้านล่าง[/quote]
ขอโทษครับ ไม่รู้จะอธิบายอย่างรัยครับ ความต้องการเป็นดั่งนี้ครับท่าน อาจารย์
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30738 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#16
Post
by snasui Wed May 17, 2017 9:03 pm
ตามสูตรที่ผมตอบไปผิดพลาดตรงไหน อย่างไร นำสูตรนั้นไปใช้แล้วแจ้งที่ยังติดปัญหา จะได้ดูต่อไปจากนั้นครับ
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#17
Post
by วังวู ช่ง Mon May 29, 2017 4:03 pm
snasui wrote: ตามสูตรที่ผมตอบไปผิดพลาดตรงไหน อย่างไร นำสูตรนั้นไปใช้แล้วแจ้งที่ยังติดปัญหา จะไ้ดดูต่อไปจากนั้นครับ
ความหมายคือว่า
ที่ A1 เราเปลี่ยนแปลง วันเดือนปีตลอดครับ และ มีแต่ Cell A1 เท่านั้นครับ ที่ A2,A3,A4........... ไม่มีวันเดือนปีครับ ต้องการให้ออกตาม Column F ครับ
รบกวนครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30738 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#18
Post
by snasui Mon May 29, 2017 11:07 pm
ตัวอย่างการปรับสูตรครับ
เซลล์ E1 คีย์
=DATE(YEAR($A$1),MONTH($A$1)+ROWS(E$2:E2)-1,21)-LOOKUP(WEEKDAY(DATE(YEAR($A$1),MONTH($A$1)+ROWS(E$2:E2)-1,21),2),{1,6,7},{0,1,2})
Enter > Copy ลงด้านล่าง
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#19
Post
by วังวู ช่ง Tue May 30, 2017 6:47 am
snasui wrote: ตัวอย่างการปรับสูตรครับ
เซลล์ E1 คีย์
=DATE(YEAR($A$1),MONTH($A$1)+ROWS(E$2:E2)-1,21)-LOOKUP(WEEKDAY(DATE(YEAR($A$1),MONTH($A$1)+ROWS(E$2:E2)-1,21),2),{1,6,7},{0,1,2})
Enter > Copy ลงด้านล่าง
ครับ แบบนี้เลยครับท่านอาจารย์ ตรงความต้องการเลยครับ ขอบคุณมากครับ
วังวู ช่ง
Silver
Posts: 800 Joined: Thu May 31, 2012 2:27 pmLocation: LaosExcel Ver: MS Excel for office 365 MSO
Contact:
#20
Post
by วังวู ช่ง Sat Oct 21, 2017 9:38 pm
รบกวนถามต่ออีกครับ
You do not have the required permissions to view the files attached to this post.
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ 
