เพื่อมุ่งให้เกิดคุณภาพจากการอบรมสูงสุด Excel Expert Training ให้การอบรม Excel กลุ่มเล็กๆ ไม่เกิน 6 คนทุกคนสามารถเรียนรู้ Excel อย่างใกล้ชิด จะมาคนเดียวหรือมาเป็นกลุ่มแล้วนัดวันอบรมแบบส่วนตัวก็ได้ ผู้เข้าอบรมทุกคนสามารถติดตามเนื้อหาที่อบรมได้อย่างชัดเจนจากจอภาพด้านหน้าของตัวเอง
Results 1 to 8 of 8

Thread: การทำนาฬิกาใน Excel ครับ

  1. #1
    ie36022
    Guest

    การทำนาฬิกาใน Excel ครับ

    ผมใช้ Excel 2003 ครับ ต้องการให้ Cell ใน Sheet ที่ผมแนบมาซึ่งมีเวลาใส่อยู่ต้องการให้ตัวเลขนี้เดินพร้อมกับนาฬิกาจริงๆของคอมพิวเตอร์โดยมี Format แบบนี้ครับ hh:mm:ss ครับต้องเขียนโค๊ด VBA ยังไงครับ ขอบคุณครับ

  2. #2
    zv735
    Guest

    อย่างนี้ได้หรือเปล่าครับ

    Sub ClockUp()
    Range("A2").Value = Format(Now(), "hh:mm:ss")
    Application.OnTime Now + TimeSerial(0, 0, 1), "ClockUp"
    End Sub


    เป็นการสั่งให้ทำงานทุกๆ หนึ่งวินาทีครับผม

    ดู File แนบนะครับ

  3. #3
    ie36022
    Guest
    ขอบคุณครับ ได้คำตอบตามที่ต้องการครับ แต่ผมไม่เข้าใจโค๊ดครับพยายามหาในหนังสือแล้วไม่เคยเห็นฟังชันการตัดสินใจ If not ซึ่งหมายความว่าอย่างครับ แล้วหลักการใช้อย่างไรแล้วทำไมผมเปิด Sheet มาแล้ว Macro ทำงานเลย โดยปกติดแล้วต้องมีปุ่มหรือคีย์สั่งให้ทำงานน่ะครับ ขอบคุณอีกครั้งครับ

  4. #4
    zv735
    Guest

    อย่างนี้หรือเปล่าครับ

    จริงๆ ไม่จำเป็นต้องใช้ If ก็ได้ครับ
    ลอง Load File ดู ใหม่ครับ

    Application.OnTime เป็นการสั่งให้ทำงานเมือถึงเวลาที่กำหนดครับ
    TimeSerial(ชั่วโมง, นาที, วินาที) เป็นการกำหนดค่าเวลาที่เราต้องการครับ

    ส่วนการให้ Macro ทำงานเลยเมื่อเปิด File ให้เขียนคำสั่งอยู่ใน
    Private Sub Workbook_Open() ครับ
    ทั้งหมดนี้ลองดูเพิ่มเติมในหนังสือน่าจะมีนะครับ

  5. #5
    ie36022
    Guest
    จริง ๆ แล้ว ก็อยากทราบเหตุผลที่ใช้ if น่ะครับ โดยเฉพาะ If not หมายความว่ายังไง เพราะผมก็เคยเห็นอาจารย์อรวีร์ ใช้ฟังชันนี้เหมือนกันก็มี if เหมือนกัน
    Public Sub ShowCursor()
    Dim Point As POINTAPI
    GetCursorPos Point
    [A3] = Point.X
    [B3] = Point.Y
    If ShowCur Then Application.OnTime Now() + 0.000006, "ShowCursor"
    End Sub

    แต่ if ของอาจารย์ อรวีร์ ไม่ต้องมี End if ตอนจบหรือครับ

  6. #6
    zv735
    Guest

    อย่างนี้ครับ

    เรื่องของการใช้ if
    สูตรคือ
    If เงื่อนไข then คำสั่งที่ให้ทำเมื่อเงื่อนไขเป็นจริง 'อันนี้จบได้เลยครับ

    If เงื่อนไข then
    คำสั่งที่ให้ทำเมื่อเงื่อนไขเป็นจริง1
    คำสั่งที่ให้ทำเมื่อเงื่อนไขเป็นจริง2
    คำสั่งที่ให้ทำเมื่อเงื่อนไขเป็นจริง3
    .
    .
    คำสั่งที่เป็นจริง n
    else
    คำสั่งที่ให้ทำเมื่อเงื่อนไขเป็นเท็จ1
    คำสั่งที่ให้ทำเมื่อเงื่อนไขเป็นเท็จ2
    คำสั่งที่ให้ทำเมื่อเงื่อนไขเป็นเท็จ3
    .
    .
    คำสั่งที่ให้ทำเมื่อเงื่อนไขเป็นเท็จ n
    end if ' อันนี้ต้องมี end if ครับ แต่ ส่วน Else จนถึง ก่อน end if จะมีหรือไม่ก็ได้
    แล้วแต่ว่าเรามีคำสั่งที่ให้ทำเมื่อ เงื่อนไขเป็นเท็จหรือเปล่าครับ

    ส่วนเรื่องเงื่อนไข แล้วแต่เราตั้งครับ ทำยังไงก็ได้ให้มันมีค่าชี้ชัดแน่นอน
    ว่า จริง หรือ เท็จ ครับ
    เพราะฉนั้น if (not เงื่อนไข) then ...
    not เป็น การกลับค่าเงื่อนไขที่เราตั้งไว้ครับ
    เช่น ขอเดิมเป็นจริง ประโยคนี้ก็จะเป็นเท็จครับ
    (เรียกว่า นิเสธ ก็ได้ครับ เขียนผิดหรือเปล่าไม่ทราบครับ)
    ไม่รู้เข้าใจหรือเปล่า ลองดูท่านอื่นอธิบายเพิ่มเติมด้วยนะครับ

    ขอบคุณครับ

  7. #7
    สมเกียรติ
    Guest

  8. #8
    ie36022
    Guest
    ขอบคุณครับอาจารย์

Similar Threads

  1. อีกมุมหนึ่งของ Excel และ VBA ครับ
    By มิตรภาพ in forum Excel Expert Forum Library 2012 - 2007
    Replies: 0
    Last Post: 16 Jun 2009, 09:08
  2. เกี่ยวกับภาพใน Excel ครับ
    By XSale in forum Excel Expert Forum Library 2012 - 2007
    Replies: 3
    Last Post: 10 Dec 2008, 12:48
  3. Replies: 7
    Last Post: 15 May 2008, 14:58
  4. Replies: 4
    Last Post: 13 Aug 2007, 00:22
  5. Replies: 5
    Last Post: 4 Aug 2007, 21:24

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •