คลิกเลือกคำตอบแล้วเวลาหยุดเดิน

[pimwalan]

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

[snasui]

ไม่มีวิธีทำให้เวลาเดินต่อเนื่องในขณะ Edit Cell ครับ

[pimwalan]

แล้วกรณีที่คนที่ 1 เล่นครบ 5 ช่องแล้วคลิกคำตอบที่เซลล์ k 14 เสร็จ แล้วต้องการให้แสดงข้อความ ว่า "คนที่ 2 เริ่มเล่นเกม" จะต้องแก้ไขโค้ดอย่างไรคะ คุณคนควน ขอรบกวนชี้แนะด้วยคะ

[snasui]

เปิด VBE เพิ่ม Code ด้านล่างเข้าไปที่ Sheet1 ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$K$14" Then
        MsgBox "คนที่สองเริ่มเล่น"
    End If
End Sub

[pimwalan]

คุณคนควนคะ ดิฉันได้สร้างปุ่มมาหนึ่งปุ่ม คือปุ่ม คลิกเพื่อเล่นเกมต่อไป กรณีเมื่อเล่นเกมเสร็จแล้วเวลายังไม่หมด เพื่อไม่ต้องการให้รอจนเวลาหมด แต่พอเวลาหมดมันก็ไปที่sheet 2 อัตโนมัติ ปัญหาคือ เวลาเราคลิกปุ่มเกมต่อไป เวลา Sheet 1 ยังคงเดินอยู่ อยากจะให้เมื่อเราคลิกปุ่มเกมต่อไป ให้ Sheet1 reset ตัวเองเป็นค่าเริ่มต้น 00:00:00 เราต้องแก้ไขยังไงคะ

Code: Select all

Sub nextgame2()
Worksheets("sheet2").Select
Sheets("sheet1").Range("f3").ClearContents  
End Sub

[joo]

ลองเปลี่ยนโค๊ดนี้เข้าไปแทนดูครับ

Code: Select all

Worksheets("Sheet1").[F3].Value = TimeValue("0:00:00")

[pimwalan]

ได้แล้วคะ ขอบคุณค่ะ