คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
รบกวนแนบไฟล์มาดูด้วยได้ไหมครับCode: Select all
Function UserUpdate() As String
Dim MyName As Object
On Error Resume Next
Set MyName = CreateObject("WScript.NetWork")
UserUpdate = MyName.UserName
Set objNet = Nothing
End Function
Code: Select all
Function UserUpdate() As String
UserUpdate = Environ("USERNAME") ' หรือ ComputerName ก็ได้นะ
End Function
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Cells(ActiveCell.Row, 2).Select
End SubCode: Select all
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'เวลามีคนบันทึกไฟล์
Range("A2").Value = UserUpdate
Range("A3").Value = Now()
End Sub
Private Sub Workbook_Open() 'เวลาเปิด
MsgBox "ผู้บันทึกล่าสุดคือ " & Range("A2").Value & vbCrLf & _
"เวลา " & Range("A3").Value, vbInformation + vbOKOnly, "สถานะการใช้งาน"
End Sub
ขอบคุณมากครับ สำหรับวิธีนี้ ก็น่าสนใจดีมากเลยครับsongsug wrote:เอาแบบนี้ได้ไหม
เวลาที่คนอื่นมาคลิกที่คอลัมน์ A มันจะเด้งออก แต่เวลาที่เราต้องการแก้ไข เราต้องกด Design Mode ก่อนนะ Code จะได้ไม่ RunCode: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then Cells(ActiveCell.Row, 2).Select End Sub
เพิ่มเติมนิดหนึ่งนะครับ เท่าที่ลองคิดดูแล้ว ถ้าหากเราต้องการทราบว่าใคร Save File เป็นคนสุดท้่าย เราควรนำค่าของ User เครื่อง ไปไว้ที่ใดที่หนึ่ง ในสถานะการณ์ กด Save และเมื่อเปิดไฟล์มาแล้วค่อยแจ้งว่าใครเป็นคน Save File ล่าสุด เช่น
แล้วซ่อนที่ A2 และ A3 ถ้าหากไม่ต้องการให้ผู้อื่นเห็นอาจซ่อนโดยการจัดรูปแบบเป็น ;;; ก็ได้ครับCode: Select all
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'เวลามีคนบันทึกไฟล์ Range("A2").Value = UserUpdate Range("A3").Value = Now() End Sub Private Sub Workbook_Open() 'เวลาเปิด MsgBox "ผู้บันทึกล่าสุดคือ " & Range("A2").Value & vbCrLf & _ "เวลา " & Range("A3").Value, vbInformation + vbOKOnly, "สถานะการใช้งาน" End Sub
หากต้องการ = IF(A1<>"",UserUpdate(),"") ค่อยใส่สูตรต่อ เพราะถ้านำค่าโดยตรงมาแสดง มันจะเป็นชื่อเครื่องผู้เปิดเองครับ ดังนั้นต้องพักค่าไว้ก่อน
akung wrote:แต่ส่วนงานนี้ผมจะต้องบันทึกเป็น รายแถวเลยครับ เช่น มีคนเขาไปทำอะไรที่ A1 ก็จะบันทึกว่าเครื่องไหน ทำอะไรกับแถวที่ 1 พอมีคนทำอะไรที่ A2 ก็จะมี Record ว่าใครทำอะไรที่แถวที่ 2 แบบนี้ครับ
การทำเช่นนั้นใช้การ Share File ครับ จะสามารถติดตามได้ทุกครั้งที่มีการ Update ว่า Update โดยใคร สามารถที่จะติดตาม ยอมรับหรือยกเลิกการ Update นั้น ๆ ก็สามารถทำได้ ดูวิธีการ Share File จากกระทู้นี้ครับ viewtopic.php?f=3&t=2060ขอบคุณมากครับ เพิ่งเห็นว่ามีการตอบเพิ่มเติมsnasui wrote:akung wrote:แต่ส่วนงานนี้ผมจะต้องบันทึกเป็น รายแถวเลยครับ เช่น มีคนเขาไปทำอะไรที่ A1 ก็จะบันทึกว่าเครื่องไหน ทำอะไรกับแถวที่ 1 พอมีคนทำอะไรที่ A2 ก็จะมี Record ว่าใครทำอะไรที่แถวที่ 2 แบบนี้ครับ