ทำไงให้มันขึ้น Game Over ครับ

[chaiyo2541]

สมมุติว่าตั้งเวลาไว้ 1 นาที่ พอหมด 1 นาที มันจะขึ้นว่า Game Over อะครับ ทำยังไงหรอครับ

บอกวิธีทำด้วยนะครับ ว่ากดปุ่มไหนยังไง

[snasui]

ส่งไฟล์ตัวอย่างมาด้วยครับ ต้องการให้ชีทไหน เซลล์ไหนแสดงค่าอย่างไร การทำงานกับ VBA และผู้ถามไม่มีความรู้พื้นฐานมาบ้างนั้นไม่ง่ายนัก ต้องค่อย ๆ ทำความเข้าใจไปครับ

[chaiyo2541]

ทำยังไงหรอครับ แบบพอหมดเวลา 30 นาที แล้วมันจะขึ้น Game Over อะครับ

ช่วยบอกวิธีการทำด้วยนะครับว่ากดปุ่มอะไรยังไง


ปล. ขอบคุณครับ

[snasui]

ต้องแก้ Code VBA ตามด้านล่างครับ

Code: Select all

Sub Reset()
Dim count As Range
Set count = Worksheets("Sheet1").[A7]
On Error Resume Next
count.Value = count.Value - TimeValue("0:00:01")
    If count <= 0 Then
             MsgBox "Game Over" 'แ้ก้บรรทัดนี้ เดิมเป็น Call Reset1
        Exit Sub
    End If
Call Timer
End Sub

การเข้าไปแก้ Code ให้กดแป้น Alt+F11 > จะเข้าหน้าต่าง VBE > Double Click Module1 ในหน้าต่าง VBA Project ด้านซ้ายมือแล้วแก้ Sub Reset ให้เป็นไปตามด้านบน จากนั้นกดแป้น Alt+Q เพื่อกลับมายังหน้าจอ Excel > กดแป้น Start แล้วสังเกตดูผล

[chaiyo2541]

แล้วทำแบบหมดเวลา 30 นาที แล้วจะลิ้งก์ ไปหา Sheet 2 อะครับ ทำได้รึเปล่าครับ

แบบ Sheet 2 พิมพ์ Game Over ไว้อะครับ

[snasui]

คำว่าเกมส์ Over พิมพ์ไว้เซลล์ไหนของ Sheet2 เนื่องจากเปิดดูแล้วไม่เจอครับ นอกจากนี้ที่บอกให้แก้ Code ก็ยังไม่ได้แก้ตามที่บอกเลยครับ

[chaiyo2541]

แล้วทำแบบหมดเวลา 30 นาที แล้วจะลิ้งก์ ไปหา Sheet 2 อะครับ ทำได้รึเปล่าครับ

แบบ Sheet 2 พิมพ์ Game Over ไว้อะครับ


อันใหม่ครับ เมื่อกี้ผมลืมแก้

[snasui]

หากจะใช้เวลานับถอยหลังที่เซลล์ A7 ตรง StartTime แก้เป็น

Code: Select all

Sub StartTime()
Worksheets("Sheet1").[A7].Value = TimeValue("00:30:00")
Worksheets("Sheet1").[A7].NumberFormat = "h:mm:ss"
Call Timer
End Sub

ส่วนกรณีหมดเวลา 30 นาทีแล้วให้ไปยัง Sheet2 สามารถปรับ Code ที่ Sub Reset เป็นตามด้านล่างครับ

Code: Select all

Sub Reset()
Dim count As Range
Set count = Worksheets("Sheet1").[A7]
On Error Resume Next
count.Value = count.Value - TimeValue("0:00:01")
    If count <= 0 Then
             Worksheets("Sheet2").Select
        Exit Sub
    End If
Call Timer
End Sub

[chaiyo2541]

ตั้งเวลา sheet ยังไงหรอครับ แบบสมมุติว่าตั้งเวลา sheet Game Over ไว้ 4 วินาที พอหมด 4 วินาที แล้วมันจะไปอีก sheet 3 ( Level 2 ) อะครับ
ทำยังไงหรอครับช่วยอธิบายการทำด้วยนะครับว่าทำยังไงอย่างไร

[tanachai2541]

[snasui]

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

เป็นไฟล์อันเดียวกันกับที่คุณส่งมาครับ Code ก็อยู่ในนั้น ผมระบุตำแหน่งให้เรียบร้อยว่าแก้ตรงไหนครับ

[snasui]

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

[chaiyo2541]

แล้วจะทำให้มันไปอีก Level ยังไงหรอครับ แบบให้ผล SUM ถึง 5 แล้วจะไป Level 2 อะครับ

ทำยังไงหรอครับ ช่วยบอกวิธีการทำ ด้วยนะครับ
-----------------------------------------------------
*** ยกมาจากกระทู้ ทำให้ไปอีก Level ยังไง เนื่องจากเห็นว่าเป็นคำถามที่เกี่ยวเนื่องกัน ***

[snasui]

สำหรับกระทู้ในความเห็นข้างบนนี้ผมนำมารวมกับหัวข้อ ทำไงให้มันขึ้น Game Over ครับ เนื่องจากเป็นคำถามที่ต่อเนื่องกัน

มาอ่านอีกทีเลยไม่แน่ใจว่า สำหรับที่จะให้มันไปอีก Level เมื่อ T20 มีค่าเท่ากับ 5 เป็นเงื่อนไขต่อเนื่องจากนับเวลาหรือไม่ครับ

ควรเขียนเงื่อนไขที่เกี่ยวเนื่องมาให้ครบจะได้เขียน Code ทีเดียวครับ

[raycity]

พิมพ์โค๊ดตามอาจารย์ทุกอย่าง
แต่ตัวเลขมันนิ่ง เวลามันไม่เดิน อะครับ
เป็นเพราะอะไรครับ

[snasui]

การใช้ Macro หรือ VBA ใน Excel รุ่น 2007 ขึ้นไปจะต้องจัดเก็บ (Save As) เป็นนามสกุล .xlsm ถึงจะแนบ Code ไปกับไฟล์ได้ครับ ตอนนี้ Save มาเป็น .xlsx จึงไม่สามารถใช้งาน Code ได้ครับ

[raycity]

จะทำยังไง ให้ เวลาเดิน ครับ

[snasui]

เวลาใน Sheet1 เซลล์ A7 เดินอยู่ครับ

หากความต้องการคือให้เวลาใน Sheet2 เซลล์ A7 ลดลงเรื่อย ๆ ก็ต้องเปลี่ยน Code ที่อ้างถึง Sheet1 ให้เป็น Sheet2 ทั้งหมดครับ

[raycity]

เวลาใน Sheet1 เซลล์ A7 เดินอยู่ครับ

หากความต้องการคือให้เวลาใน Sheet2 เซลล์ A7 ลดลงเรื่อย ๆ ก็ต้องเปลี่ยน Code ที่อ้างถึง Sheet1 ให้เป็น Sheet2 ทั้งหมดครับ

ทำให้ เวลาเดินหลายๆ Sheet ได้ไหมครับ

[raycity]

เวลาใน Sheet1 เซลล์ A7 เดินอยู่ครับ


ทำให้ เวลาเดินหลายๆ Sheet ได้ไหมครับ