- Tham gia
- 5/7/20
- Bài viết
- 62
- Được thích
- 12
Cháu đã làm xong cảm ơn tất cả mọi ngườiCháu chào tất cả cô chú bác. Cháu cần lệnh để kiểm tra nếu file có tên Last saved By user thi True ngược lại thì False, Hoặc câu lệnh lấy được tên Last Save By User trong ngoặc vuông. Cháu xin cảm ơn ạ
View attachment 241395
Function DemKT(Clls As String, Kd As String) As Integer
DemKT = Len(Clls) - Len(Replace(Clls, Kd, ""))
End Function
Sub kiemtraxxxxxxxxxxxxxxx()
If DemKT(Application.Caption, "Last saved by user") > 0 Then
MsgBox (True)
Else
MsgBox (False)
End If
End Sub
Dùng hàm Replace như vậy chưa đúng đâu nhaCháu đã làm xong cảm ơn tất cả mọi người
Mã:Function DemKT(Clls As String, Kd As String) As Integer DemKT = Len(Clls) - Len(Replace(Clls, Kd, "")) End Function Sub kiemtraxxxxxxxxxxxxxxx() If DemKT(Application.Caption, "Last saved by user") > 0 Then MsgBox (True) Else MsgBox (False) End If End Sub
vậy chú giúp cháu phương án cùa chú thửDùng hàm Replace như vậy chưa đúng đâu nha
cháu cảm ơn ChúInStr(1, Application.Caption, "Last saved by user", 1) > 0
Phương án thì bạn đã có ở bài 3 rồi. Ở đây đang bàn về hàm Replace bạn đã dùng, muốn biết đúng sai ra sao, bạn là thí nghiệm trong cửa số Immediate nhé:vậy chú giúp cháu phương án cùa chú thử
?Replace("ABCD","b","")
?Replace("ABCD","b","",,,vbTextCompare)
Sai sao được. Trí tuệ của thớt đi trước mọi người 10-100 năm. Bạn làm sao hiểu nổi kỹ thuật của năm 2030, hay 2120.Chủ thớt có vẻ đang đi sai hướng. Đoán là đang cần kiểm tra trạng thái của một file nào đó. Chủ thớt bèn nghĩ ra cái cách kiểm tra từ last sa..... từ khóa đó có thể sẽ bị thay đổi theo ngôn ngữ-> code sai. Hoặc bản thân tên file có từ khóa đó thì cũng chạy sai.
Vẫn là "dự án" kiểm tra file bị đột tử đó anh. Chắc bài này là tập 2.Sai sao được.
ơ, thì rõ ràng não của cháu nó chỉ tưởng tượng ra được xem trưa nay ăn gì, uống gì thôi mà.Sai sao được. Trí tuệ của thớt đi trước mọi người 10-100 năm. Bạn làm sao hiểu nổi kỹ thuật của năm 2030, hay 2120.