: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
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

ต้องการสูตร Reset ค่าและเริ่มนับใหม่ แบบมีเงื่อนไข

ฟอรัมถาม-ตอบปัญหาการใช้งาน 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. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
nakhonchai
Member
Member
Posts: 67
Joined: Fri Jan 25, 2019 6:45 pm
Excel Ver: 2016

ต้องการสูตร Reset ค่าและเริ่มนับใหม่ แบบมีเงื่อนไข

#1

Post by nakhonchai »

สวัสดีครับ อาจารย์ พี่ๆทุกท่าน

รบกวนขอสูตร Reset และเริ่มนับใหม่ แบบมีเงื่อนไข โดยมีหลักการดังนี้ครับ
- เมื่อ Process "Blaking" ที่ Part Name "A" ผลิตครบตามเงื่อนไขที่กำหนดหรือมีการเปลี่ยนก่อนที่กำหนด (กำหนดเงื่อนไขไว้ที่ "D6") จะทำการใส่วันที่ ที่เปลี่ยน ที่ช่อง Change Date ครั้งที่ 1
และหากมีการเปลี่ยนอีก จะใส่วันที่ ที่เปลี่ยนในช่อง change date ครั้งที่ 2 และChange Date ครั้งที่ 3, ........ฯลฯ
- ทุกครั้งเมื่อมีการใส่วันที่ ที่ช่อง Change Date ครั้งที่ 1, Change Date ครั้งที่ 2, ........ฯลฯ ให้ทำการ reset ค่าที่ช่อง "E6" เป็น "0"
- เมื่อมีการผลิตต่อให้ช่อง "E6" เริ่มต้นนับค่า 1 ใหม่
- และเมื่อผลิตไปเรื่อยๆ หากมีการเปลี่ยนอีกและใส่วันที่ในช่อง change date ครั้งที่ 2 ก็จะ reset ค่าเป็น "0" อีก
- ทำแบบนี้ไปเรื่อยๆ

ผมลองใส่สูตรนี้ และเมื่อใส่วันที่ที่ช่อง Change Date มันลบสูตรที่ลิ้งค์ในช่อง "E6" หายไปด้วยครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$6" Then
    Range("E6").ClearContents
End If
If Target.Address = "$N$6" Then
    Range("E6").ClearContents
End If
If Target.Address = "$Q$6" Then
    Range("E6").ClearContents
End If
If Target.Address = "$T$6" Then
    Range("E6").ClearContents
End If
If Target.Address = "$W$6" Then
    Range("E6").ClearContents
End If
End Sub
#ขอบคุณอาจารย์ และพี่ๆ มากครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31176
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ต้องการสูตร Reset ค่าและเริ่มนับใหม่ แบบมีเงื่อนไข

#2

Post by snasui »

:D ที่เขียนมานั้นเรียกว่า Code จะไม่เรียกว่าสูตรครับ

ชวยแนบไฟล์ที่มี Code นั้นมาด้วย ไฟล์ที่จะแนบ Code ได้จะต้องมีนามสกุลเป็น .xlsm เช่นนี้เป็นต้นครับ
Top
nakhonchai
Member
Member
Posts: 67
Joined: Fri Jan 25, 2019 6:45 pm
Excel Ver: 2016

Re: ต้องการสูตร Reset ค่าและเริ่มนับใหม่ แบบมีเงื่อนไข

#3

Post by nakhonchai »

สวัสดีครับ อาจารย์

ขอโทษครับ
ผมแนบไฟล์ นามสกุล .xlsm มาให้ใหม่แล้วครับ
รบกวนอาจารย์ช่วยแนะนำด้วยครับ

ขอบพระคุณมากครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31176
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ต้องการสูตร Reset ค่าและเริ่มนับใหม่ แบบมีเงื่อนไข

#4

Post by snasui »

:D ยังไม่เข้าใจโจทย์ครับ

ดูไปทีละข้อครับ
- เมื่อ Process "Blaking" ที่ Part Name "A" ผลิตครบตามเงื่อนไขที่กำหนดหรือมีการเปลี่ยนก่อนที่กำหนด (เงื่อนไขกำหนดไว้ที่ "D7") จะทำการใส่วันที่เปลี่ยน ที่ช่อง Change Date ครั้งที่ 1 และหากมีการเปลี่ยนอีก จะใส่วันที่ ที่เปลี่ยนในช่อง change date ครั้งที่ 2 และChange Date ครั้งที่ 3, ........ฯลฯ
Part Name "A" เริ่มบรรทัดที่ 6 แต่หนดเงื่อนไขไว้ที่ D7 แล้ว Part Name "B" กำหนดเงื่อนไขไว้ที่เซลล์ไหนครับ

กรณีเปลี่ยนก่อนที่กำหนด โปรแกรมจะรู้ได้อย่างไรว่าเปลี่ยนก่อนครับ
Top
nakhonchai
Member
Member
Posts: 67
Joined: Fri Jan 25, 2019 6:45 pm
Excel Ver: 2016

Re: ต้องการสูตร Reset ค่าและเริ่มนับใหม่ แบบมีเงื่อนไข

#5

Post by nakhonchai »

สวัสดีครับ อาจารย์

ผมขอโทษครับผมอธิบายไม่ดี ลืมแก้ไขครับ
ผมแนบไฟล์แก้ไขให้ใหม่แล้วครับ
แถว Part Name "A"
- เมื่อ Process "Blaking" ที่ Part Name "A" ผลิตครบตามเงื่อนไขที่กำหนดหรือมีการเปลี่ยนก่อนที่กำหนด (เงื่อนไขกำหนดไว้ที่ "D6") จะทำการใส่วันที่เปลี่ยน ที่ช่อง Change Date ครั้งที่ 1 ที่ (K6)
และหากมีการเปลี่ยนอีก จะใส่วันที่ ที่เปลี่ยนในช่อง change date ครั้งที่ 2 ที่ (N6) และหากเปลี่ยนอีก ก็ใส่ที่ Change Date ครั้งที่ 3 ที่ (Q6) , ........แบบนี้ไปเรื่อยๆ
- ทุกครั้งเมื่อมีการใส่วันที่ ที่ช่อง Change Date ครั้งที่ 1ที่ (K6), Change Date ครั้งที่ 2 ที่ (N6), ........ฯลฯ ให้ทำการ reset ค่าที่ช่อง "E6" เป็น "0"
- เมื่อมีการผลิตต่อให้ช่อง "E6" เริ่มต้นนับค่า 1 ใหม่
- และเมื่อผลิตไปเรื่อยๆ หากมีการเปลี่ยนอีกและใส่วันที่ในช่อง change date ครั้งที่ 2 ก็จะ reset ค่าที่ช่อง "E6" เป็น "0" อีก

แถว Part Name "B"
- เมื่อ Process "Blaking" ที่ Part Name "B" ผลิตครบตามเงื่อนไขที่กำหนดหรือมีการเปลี่ยนก่อนที่กำหนด (เงื่อนไขกำหนดไว้ที่ "D7") จะทำการใส่วันที่เปลี่ยน ที่ช่อง Change Date ครั้งที่ 1 ที่ (K7)
และหากมีการเปลี่ยนอีก จะใส่วันที่ ที่เปลี่ยนในช่อง change date ครั้งที่ 2 ที่ (N7) และหากเปลี่ยนอีก ก็ใส่ที่ Change Date ครั้งที่ 3 ที่ (Q7) , ........แบบนี้ไปเรื่อยๆ
- ทุกครั้งเมื่อมีการใส่วันที่ ที่ช่อง Change Date ครั้งที่ 1 ที่ (K7), Change Date ครั้งที่ 2 ที่ (N7) , ........ฯลฯ ให้ทำการ reset ค่าที่ช่อง "E7" เป็น "0"
- เมื่อมีการผลิตต่อให้ช่อง "E7" เริ่มต้นนับค่า 1 ใหม่
- และเมื่อผลิตไปเรื่อยๆ หากมีการเปลี่ยนอีกและใส่วันที่ในช่อง change date ครั้งที่ 2 ก็จะ reset ค่าที่ช่อง "E7" เป็น "0" อีก
ขอบพระคุณมากครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31176
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ต้องการสูตร Reset ค่าและเริ่มนับใหม่ แบบมีเงื่อนไข

#6

Post by snasui »

:D ปัจจุบันเรื่องการ Clear ค่าทิ้งได้เขียนเอาไว้เองแล้วโดยใช้ Event Worksheet_Change

แต่ต้องอธิบายเพิ่มมาว่าการคีย์วันที่ตามคอลัมน์ต่าง ๆ ที่กล่าวมาใช้เหตุการณ์ใดเข้าไปตรวจสอบครับ

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

แนวทางหนึ่งของการเช็คว่าครบหรือไม่ครบสามารถใช้การ Loop เข้าไปตรวจสอบคอลัมน์ E ทีละค่าว่าเกินหรือไม่เกินไปจากค่าในคอลัมน์ D หากเท่ากับหรือเกินก็ถือว่าครบแล้ว จากนั้นค่อยไปใส่วันที่ในคอลัมน์ที่แจ้งมา

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

เบื้องต้นลองเขียนมาเองตามแนวทางนี้ก่อน ติดตรงไหนค่อยนำ Code นั้นมาถามกันต่อครับ
Top
Post Reply

Return to “Excel”