Page 1 of 1
คลิกเลือกคำตอบแล้วเวลาหยุดเดิน
Posted: Sun Jan 27, 2013 11:16 am
by pimwalan
เกมอยู่ที่ sheet 1 คะ ตั้งเวลาเล่นเกม 1 นาที แล้วคลิกเริ่มเล่นเกม เวลาก็จะเดินนับถอยหลังไปเรื่อยๆ แต่...พอเราคลิกเลือกคำตอบในช่องเลือกคำตอบเวลาจะหยุดเดินคะ หากต้องการให้คลิกเลือกคำตอบแล้วเวลายังคงเดินอยู่ จะต้องแก้ไขส่วนไหนของโค้ดค่ะ ขอผู้รู้ช่วยตอบด้วยคะ เพื่อให้เวลาเดินไปด้วยขณะเิืลือกคำตอบคะ
Re: คลิกเลือกคำตอบแล้วเวลาหยุดเดิน
Posted: Sun Jan 27, 2013 11:22 am
by snasui
ไม่มีวิธีทำให้เวลาเดินต่อเนื่องในขณะ Edit Cell ครับ
Re: คลิกเลือกคำตอบแล้วเวลาหยุดเดิน
Posted: Sun Jan 27, 2013 11:28 am
by pimwalan
แล้วกรณีที่คนที่ 1 เล่นครบ 5 ช่องแล้วคลิกคำตอบที่เซลล์ k 14 เสร็จ แล้วต้องการให้แสดงข้อความ ว่า "คนที่ 2 เริ่มเล่นเกม" จะต้องแก้ไขโค้ดอย่างไรคะ คุณคนควน ขอรบกวนชี้แนะด้วยคะ
Re: คลิกเลือกคำตอบแล้วเวลาหยุดเดิน
Posted: Sun Jan 27, 2013 11:46 am
by 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
Re: คลิกเลือกคำตอบแล้วเวลาหยุดเดิน
Posted: Sun Jan 27, 2013 11:56 am
by 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
Re: คลิกเลือกคำตอบแล้วเวลาหยุดเดิน
Posted: Sun Jan 27, 2013 12:43 pm
by joo
ลองเปลี่ยนโค๊ดนี้เข้าไปแทนดูครับ
Code: Select all
Worksheets("Sheet1").[F3].Value = TimeValue("0:00:00")
Re: คลิกเลือกคำตอบแล้วเวลาหยุดเดิน
Posted: Sun Jan 27, 2013 1:32 pm
by pimwalan
ได้แล้วคะ ขอบคุณค่ะ