ขอความช่วยเหลือในเรื่องของวันที่หน่อยครับ

[namachi69]

สวัสดีครับ ตอนนี้ผมติดปัญาหาเรื่องการทำงานอย่างหนึ่งคือ
อยากให้วันที่ใน Column B เกิดขึ้นเอง เมื่อเราใส่ข้อมูลใน column A ปัจจุบันใช้สูตร =if(A2=0,"",today())
แต่เมื่อผ่านไปหนึ่งวันค่าของวันที่ก็จะเลื่อยตามไป พอจะมีวิธีใดแนะนำช่วยผมได้บ้าง หรือ พอจะมีโค๊ด VBA
ใดบ้างครับ ที่ช่วยให้วันใส่เอง และไม่เลื่อยเวลาที่ผ่านไปครับ

ขอบพระคุณมากนะครับที่ให้การช่วยเหลือ

แจ๊ค

[tupthai]

คงต้องใช้ vba ครับ ลองบันทึกมาโครดูครับ

[snasui]

ด้วยฟังก์ชั่นไม่ว่าจะเป็น Build-in Function หรือ User Define Function หรือ Excel 4 Macro Function คงไม่สามารถบังคับ Volatile Function เช่น Today(), Now() ฯลฯ ซึ่งเปลี่ยนแปลงไปตามเวลาให้คงที่ได้ เมื่อเกิดการคำนวณ เช่นกดแป้น F9 ก็จะแสดงสถานะ ณ ปัจจุบันที่ควรจะเป็นของ Function นั้น ๆ ครับ

การกำหนดวัน เวลาให้คงที่ คงต้องอาศัย VBA เข้ามาช่วย ซึ่งสามารถใช้ผ่าน Worksheet_Change Event ลองแทนที่ Code เดิมในชีท Warehouse ด้วย Code ด้านล่าง แล้วลอง Update เซลล์ใด ๆ ในคอลัมน์ A ดูครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(0, 1) = Date
    End If
End Sub

[namachi69]

ด้วยฟังก์ชั่นไม่ว่าจะเป็น Build-in Function หรือ User Define Function หรือ Excel 4 Macro Function คงไม่สามารถบังคับ Volatile Function เช่น Today(), Now() ฯลฯ ซึ่งเปลี่ยนแปลงไปตามเวลาให้คงที่ได้ เมื่อเกิดการคำนวณ เช่นกดแป้น F9 ก็จะแสดงสถานะ ณ ปัจจุบันที่ควรจะเป็นของ Function นั้น ๆ ครับ

การกำหนดวัน เวลาให้คงที่ คงต้องอาศัย VBA เข้ามาช่วย ซึ่งสามารถใช้ผ่าน Worksheet_Change Event ลองแทนที่ Code เดิมในชีท Warehouse ด้วย Code ด้านล่าง แล้วลอง Update เซลล์ใด ๆ ในคอลัมน์ A ดูครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(0, 1) = Date
    End If
End Sub

ขอบพระคุณมากเลยครับอาจารย์สามารถใช้ได้ตรงตามจุดประสงค์เลยครับ

[Khamtun]

เรียน อาจารย์และผู้รู้ทุกท่าน

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

ด้วยความนับถือ

[snasui]

วันที่ในคอลัมน์ L ต้องการให้แสดงเนื่องจากเหตุการณ์ใดครับ เช่น เลือกวันที่ในคอลัมน์ K แล้วค่อยแสดงวันที่ปัจจุบันในเซลล์ที่ตรงกันในคอลัมน์ L เช่นนี้เป็นต้น

[Khamtun]

วันที่ในคอลัมน์ L ต้องการให้แสดงเนื่องจากเหตุการณ์ใดครับ เช่น เลือกวันที่ในคอลัมน์ K แล้วค่อยแสดงวันที่ปัจจุบันในเซลล์ที่ตรงกันในคอลัมน์ L เช่นนี้เป็นต้น

เรียน อาจารย์

คอลัมน์ L ต้องการให้แสดงวันที่ปัจจุบันเมื่อคอลัมน์ I มีสถานะ " ส่งแล้ว" ครับ

ด้วยความนับถือ

[snasui]

ที่แจ้งมานั้นทราบอยู่แล้วครับ ดูเหตุการณ์แล้วน่าจะเกิดเพียงครั้งเดียวเมื่อทำข้อมูล ไม่ได้มีการเกิดซ้ำ คงไม่ต้องใช้ VBA ครับ เพราะการใช้ VBA จะตรวจสอบทุกครั้งที่ Run ซึ่งจะได้วันที่ปัจจุบันเมื่อ Run Code ซึ่งอาจจะไม่ตรงกับที่ต้องการ สำหรับปัญหานี้เขียนสูตรเสร็จแล้วก็ Copy สูตรเป็น Value ได้เลย หากไม่ตรงกับที่ต้องการ ช่วยอธิบายวิธีการทำงานมาอย่างละเอียด จะได้ทราบว่าเกิดเหตุการณ์ใดจึงให้แสดงวันที่ในคอลัมน์ L ครับ