Code đếm số lần mở file (1 người xem)

[TrungChinhs]

Mình muốn nhờ các bạn giúp mình code cho một file Excel có thông báo số lần đã mở (giống như thông báo số lần cảm ơn hoặc số lần down trên GPE). Kết quả được thông báo tại ô A1 của mỗi sheet với nội dung "số lần mở ...lần". Xin cảm ơn !

 

[Po_Pikachu]

Vậy bạn xem file nha! File sẽ hiện số lần mở ở ô B1. Vì thêm ký tự vào thì hơi phức tạp nên mình làm như vậy!
Bạn thông cảm nha!
Nhưng nhớ rằng mỗi lần mở file xong phải bấm lưu lại nếu không lần sau sẽ chỉ hiện có 1 số thôi đó!
Thân.

 

[yeudoi]

Vậy bạn xem file nha! File sẽ hiện số lần mở ở ô B1. Vì thêm ký tự vào thì hơi phức tạp nên mình làm như vậy!
Bạn thông cảm nha!
Nhưng nhớ rằng mỗi lần mở file xong phải bấm lưu lại nếu không lần sau sẽ chỉ hiện có 1 số thôi đó!
Thân.

Để lưu lại và lần sau đóng và quên lưu mở lên cũng có thì bạn thêm

Private Sub Workbook_Open()

ThisWorkbook.Save

End Sub

 

[Mr Okebab]

Vậy bạn xem file nha! File sẽ hiện số lần mở ở ô B1. Vì thêm ký tự vào thì hơi phức tạp nên mình làm như vậy!
Bạn thông cảm nha!
Nhưng nhớ rằng mỗi lần mở file xong phải bấm lưu lại nếu không lần sau sẽ chỉ hiện có 1 số thôi đó!
Thân.

Có thể thêm 1 cách khác chuyên nghiệp hơn : Đó là không lưu vào Cell mà lưu vào Name, sau đó ẩn Name đó đi.

Thân!

 

[ndu96081631]

Vậy bác chỉ luôn đi!
Thân.

Bạn thử code này xem:

Option Explicit
Private Sub Workbook_Open()
  Dim k As Integer
  k = Evaluate("Solan")
  MsgBox "So lan mo file la " & k
  k = k + 1
  ActiveWorkbook.Names.Add Name:="Solan", RefersToR1C1:="=" & k
End Sub

Đương nhiên trước đó bạn đã Add 1 name có tên là Solan, Refer to = 1
Việc ẩn name bạn tự làm nhé

 

[notopen]

Bạn cho hỏi thêm là làm như thế nào để có được đếm số lần mở file như trong ví dụ của bạn không?

 

[ndu96081631]

Bạn cho hỏi thêm là làm như thế nào để có được đếm số lần mở file như trong ví dụ của bạn không?

Hỏi gì thế không biết?
- Thắc mắc đã được trả lời (từ bài 1 đến bài 5)
- File cũng đã được post lên
Vậy sao bạn không xem mà còn hỏi?

 

[embevinhphuc]

Trường hợp file dùng chung ở chế độ ReadOnly không save thì làm sao để đếm được số lần mở file ạ. (đếm ở một file khác cũng được). Mong các anh chị các thầy cô hướng dẫn. Em cảm ơn nhiều !

 

[Kiều Mạnh]

Trường hợp file dùng chung ở chế độ ReadOnly không save thì làm sao để đếm được số lần mở file ạ. (đếm ở một file khác cũng được). Mong các anh chị các thầy cô hướng dẫn. Em cảm ơn nhiều !

Thì lưu số lần đó vô file *.txt cứ mỗi lần mở file
mà thấy cái đó nó lông vịt sao ý ... tay nào nó thấy ghét nó mở file *.txt lên nó ghi lùi số lần lại thì sao đây ?!

 

[Hai Lúa Miền Tây]

Thì lưu số lần đó vô file *.txt cứ mỗi lần mở file
mà thấy cái đó nó lông vịt sao ý ... tay nào nó thấy ghét nó mở file *.txt lên nó ghi lùi số lần lại thì sao đây ?!

Vậy thì ghi vào trong code luôn, hoặc nơi nào đó trong registry

 

[embevinhphuc]

Thì lưu số lần đó vô file *.txt cứ mỗi lần mở file
mà thấy cái đó nó lông vịt sao ý ... tay nào nó thấy ghét nó mở file *.txt lên nó ghi lùi số lần lại thì sao đây ?!

Cho em xin code đi ạ. E còn kém nên chưa làm được như anh hướng dẫn

 

[Kiều Mạnh]

Vậy thì ghi vào trong code luôn, hoặc nơi nào đó trong registry

Re ... Cách đó hay đấy

Cho em xin code đi ạ. E còn kém nên chưa làm được như anh hướng dẫn

Làm theo gợi ý bài #10 khó mở hơn file *.txt một tẹo
chép code sau vào Module

Public Function MyCount() As Long
    Dim Lcount As Long
    Lcount = GetSetting("MyCount", "Settings", "Count", 0) + 1
    SaveSetting "MyCount", "Settings", "Count", Lcount
    MyCount = Lcount
    If Lcount > 999999999 Then DeleteSetting "MyCount", "Settings", "Count"
End Function

Public Sub Auto_Open()
    MsgBox "My da mo tao :" & Space(1) _
        & MyCount & Space(2) _
        & "Lan Roi Nhoe", 48, "Thong Bao"
End Sub

 

[embevinhphuc]

Re ... Cách đó hay đấy

Làm theo gợi ý bài #10 khó mở hơn file *.txt một tẹo
chép code sau vào Module

[/php]

Vượt cả mong đợi, em cảm ơn nhiều ạ.