:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

ต้องการให้กดเข้าสู้ระบบแล้วให้บันทึกเวลาเข้าสู่ระบบด้วย ค่ะ

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
thinatda
Member
Member
Posts: 55
Joined: Thu Aug 06, 2020 1:28 pm
Excel Ver: 2019

ต้องการให้กดเข้าสู้ระบบแล้วให้บันทึกเวลาเข้าสู่ระบบด้วย ค่ะ

#1

Post by thinatda »

Code: Select all

Dim mFields As String: mFields = ""
    If Usernames.Value = "" Then mFields = mFields & "Username" & vbNewLine
    If passwords.Value = "" Then mFields = mFields & "password" & vbNewLine
If mFields <> "" Then
     MsgBox "กรุณากรอกข้อมูลเข้าสู่ระบบ" & vbNewLine & mFields, vbCritical, mTitel
    Else

    Dim uSH   As Worksheet: Set uSH = ThisWorkbook.Sheets("Login")
    Dim isExist As Boolean: isExist = False
    Dim wpassword As String: wpassword = ""
    
       For c = 2 To uSH.Cells(Rows.Count, 2).End(xlUp).Row
         If uSH.Range("A" & c).Value = Usernames.Value Then
            isExist = True
            wpassword = uSH.Range("B" & c).Value
            Loginnames = uSH.Range("C" & c).Value
               
    Exit For
    End If
    Next c
    If isExist = False Then
     MsgBox "คุณกรอก Username ผิด", vbCritical, mTitel
     Usernames.Value = ""
     passwords.Value = ""
      Usernames.SetFocus
     Else
     If passwords.Value <> wpassword Then
       MsgBox "คุณกรอก password ผิด", vbCritical, mTitel
        Usernames.Value = ""
     passwords.Value = ""
      Usernames.SetFocus
       Else
       MsgBox "Welcome", vbInformation, mTitel
       Unload Me
           ผู้ใช้งาน.Show
           
           
     End If
     End If
     End If
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ต้องการให้กดเข้าสู้ระบบแล้วให้บันทึกเวลาเข้าสู่ระบบด้วย ค่ะ

#2

Post by snasui »

:D กรุณาปลด Password ของ VBE แล้วแนบไฟล์มาอีกรอบ จะได้สะดวกในการตรวจสอบ Code ครับ
Top
thinatda
Member
Member
Posts: 55
Joined: Thu Aug 06, 2020 1:28 pm
Excel Ver: 2019

Re: ต้องการให้กดเข้าสู้ระบบแล้วให้บันทึกเวลาเข้าสู่ระบบด้วย ค่ะ

#3

Post by thinatda »

snasui wrote: Wed Aug 26, 2020 5:29 pm :D กรุณาปลด Password ของ VBE แล้วแนบไฟล์มาอีกรอบ จะได้สะดวกในการตรวจสอบ Code ครับ
ปลดแล้วค่ะ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
logic
Gold
Gold
Posts: 1511
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: ต้องการให้กดเข้าสู้ระบบแล้วให้บันทึกเวลาเข้าสู่ระบบด้วย ค่ะ

#4

Post by logic »

เดาว่าแบบนี้ครับ

Code: Select all

'...
If passwords.Value <> wpassword Then
    MsgBox "คุณกรอก password ผิด", vbCritical, mTitel
    Usernames.Value = ""
    passwords.Value = ""
    Usernames.SetFocus
Else
    MsgBox "Welcome", vbInformation, mTitel
    uSH.Range("e" & c).Value2 = Date
    uSH.Range("f" & c).Value2 = Time
    Unload Me
    ผู้ใช้งาน.Show
End If
'...
Top
thinatda
Member
Member
Posts: 55
Joined: Thu Aug 06, 2020 1:28 pm
Excel Ver: 2019

Re: ต้องการให้กดเข้าสู้ระบบแล้วให้บันทึกเวลาเข้าสู่ระบบด้วย ค่ะ

#5

Post by thinatda »

logic wrote: Thu Aug 27, 2020 9:26 am เดาว่าแบบนี้ครับ

Code: Select all

'...
If passwords.Value <> wpassword Then
    MsgBox "คุณกรอก password ผิด", vbCritical, mTitel
    Usernames.Value = ""
    passwords.Value = ""
    Usernames.SetFocus
Else
    MsgBox "Welcome", vbInformation, mTitel
    uSH.Range("e" & c).Value2 = Date
    uSH.Range("f" & c).Value2 = Time
    Unload Me
    ผู้ใช้งาน.Show
End If
'...
ได้แล้วค่ะ แล้วก้ต้องการให้ไปบันทึกอีกsheet นึงค่ะ

Code: Select all

 Dim lRow As Long: lRow = 0
        lRow = uSH.Cells(Rows.Count, 2).End(xlUp).Row + 1
       uSH.Range("G" & lRow).Value2 = Date
         uSH.Range("H" & lRow).Value2 = Time
       Unload Me
           ¼Ùéãªé§Ò¹.Show
[code]
Top
thinatda
Member
Member
Posts: 55
Joined: Thu Aug 06, 2020 1:28 pm
Excel Ver: 2019

ต้องการให้กดเข้าสู้ระบบแล้วให้บันทึกเวลาเข้าสู่ระบบไปsheetอื่นค่ะ

#6

Post by thinatda »

Code: Select all

Dim mFields As String: mFields = ""
    If Usernames.Value = "" Then mFields = mFields & "Username" & vbNewLine
    If passwords.Value = "" Then mFields = mFields & "password" & vbNewLine
If mFields <> "" Then
     MsgBox "กรุณากรอกข้อมูลเข้าสู่ระบบ" & vbNewLine & mFields, vbCritical, mTitel
    Else

    Dim uSH   As Worksheet: Set uSH = ThisWorkbook.Sheets("Login")
    Dim isExist As Boolean: isExist = False
    Dim wpassword As String: wpassword = ""
    
       For c = 2 To uSH.Cells(Rows.Count, 2).End(xlUp).Row
         If uSH.Range("A" & c).Value = Usernames.Value Then
            isExist = True
            wpassword = uSH.Range("B" & c).Value
            Loginnames = uSH.Range("C" & c).Value
               
    Exit For
    End If
    Next c
    If isExist = False Then
     MsgBox "คุณกรอก Username ผิด", vbCritical, mTitel
     Usernames.Value = ""
     passwords.Value = ""
      Usernames.SetFocus
     Else
     If passwords.Value <> wpassword Then
       MsgBox "คุณกรอก password ผิด", vbCritical, mTitel
        Usernames.Value = ""
     passwords.Value = ""
      Usernames.SetFocus
       Else
       MsgBox "Welcome", vbInformation, mTitel
       Dim lRow As Long: lRow = 0
      lRow = uSH.Cells(Rows.Count, 2).End(xlUp).Row + 1
       uSH.Range("G" & c).Value2 = Date
       uSH.Range("H" & c).Value2 = Time

       Unload Me
           ผู้ใช้งาน.Show
           
           
     End If
     End If
     End If
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ต้องการให้กดเข้าสู้ระบบแล้วให้บันทึกเวลาเข้าสู่ระบบด้วย ค่ะ

#7

Post by snasui »

:D เรื่องเดียวกันไม่ควรเปิดกระทู้ใหม่ ให้ถามต่อเนื่องกันไปได้เลย หากผู้ตอบมีเวลาจะเข้ามาตอบให้เองครับ

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

สำหรับคำถามนี้เป็นการนำวันที่ นำเวลาไปแสดงที่ชีตอื่น ได้เขียน Code นั้นเอาไว้แล้วหรือไม่ ถ้ายัง กรุณาเขียนมาก่อน ถามกันเฉพาะที่ติดปัญหา ตัวอย่าง Code ก็ตามที่คุณ logic ตอบเอาไว้แล้วเพียงแต่อ้างไปยังชีตที่ต้องการวางค่าเท่านั้นครับ
Top
Post Reply

Return to “Excel Formulas & Functions”