Hàm quy định thời hạn sử dụng trong bảng tính excel (1 người xem)

[kellyfe]

Mình có tạo ra một bảng tính thống kê trong excel và sử dụng các công thức cơ bản trong excel như: Vlookup, Sumif, If... giờ đây mình muốn biết có cách nào để viết một hàm quy định thời hạn sử dụng theo ngày tháng mặc định trên máy tính mà đến đúng ngày tháng quy định thì số liệu ngưng hoạt động không tổng hợp như bình thường hay không? (tương tự như các phần mềm hay sử dụng) có cao thủ nào biết giúp mình với!!!! xin đa tạ

 

[chibi]

Ví dụ:
Công thức tại ô A2 =A1+A3
Đổi lại: A2=if(TODAY()>"ngày quy định","Không tính toán",A1+A3)

 

[SA_DQ]

Bạn thử cách này xem nha, mình chưa thực thi!

Bạn viết 1 hàm như sau:

[b]
Function AutoStop(Optional Dat As Date) As Boolean[/b]
 If Dat = 0 Then Dat = Date
 If Dat > #7/1/2007# Then AutoStop = True[b]
End Function[/b]

Sau đó tại mỗi CThức mà bạn muốn vô hiệu hóa nhân ngày 1/7/2007 thí kết hợp hàm IF() là xong; VD:

=IF(AutoStop; CThứcA)
=IF(AutoStop; CThứcAA; CT_BBB)

 

[chibi]

SA_DQ oi minh cung da biet cach lam nhu ban nhung neu dung ham IF thi minh chi can bo hamIF di va de lai cong thuc thoi thi dau con tac dung gi, minh muon lam sao ma nguoi khac dung khong biet cach de chinh sua lai cong thuc co... giup minh voi

Protect những ô chứa công thức có được không?

 

[SA_DQ]

Minh cung da biet cach lam nhu ban nhung neu dung ham IF thi minh chi can bo hamIF di va de lai cong thuc thoi thi dau con tac dung gi, minh muon lam sao ma nguoi khac dung khong biet cach de chinh sua lai cong thuc co... giup minh voi
Post bài bằng tiếng Việt nhé!

Một cách khác đây:
Cho hết các công thức vô VBA; mỗi lần mở workbook thì gán CThức khi còn thời hiệu bằng Auto_open()
Hình như trên Dđàn đã có đề cập đến cách lập CThức bằng VBA, bạn tìm xem ra sao?!!

 

[kellyfe]

neếu mình khóa côn thức lại thì sẽ bị hạn chế nhiều chức năn của file lắm, còn lập công thu71v bằn VBA thì mình không rành HYen17 có thể cho mình đường dẫnd9e61nn diễn đàn đó không để mình xem ụ thể hơn. Thanks

 

[skyonline]

Để lập công thức trong VBA bạn chú ý đến hai thuộc tính Formula hay FormulaR1C1 của đối tượng range!

 

[SA_DQ]

Xem:

trên Dđàn đã có đề cập đến cách lập CThức bằng VBA, bạn tìm xem ra sao?!!http://giaiphapexcel.com/forum/showthread.php?t=2211

*****
. . . . . . . . . . . . . . .

 

[kellyfe]

cám ơn nhiều nha các bạn, có ai có ý kiến đóng góp cho mình nữa mình xin đa tạ!!!

 

[Nguyễn Kim Tuyến]

nhờ các bác giải thích lại cái này đc ko ạ

Function AutoStop(Optional Dat As Date) As Boolean
If Dat = 0 Then Dat = Date
If Dat > #7/1/2007# Then AutoStop = True
End Function
Sau đó tại mỗi CThức mà bạn muốn vô hiệu hóa nhân ngày 1/7/2007 thí kết hợp hàm IF() là xong; VD:

=IF(AutoStop; CThứcA)
=IF(AutoStop; CThứcAA; CT_BBB)

 

[Nguyễn Kim Tuyến]

cai này nghĩa là sao Chibi
Công thức tại ô A2 =A1+A3
Đổi lại: A2=if(TODAY()>"ngày quy định","Không tính toán",A1+A3)

 

[befaint]

nhờ các bác giải thích lại cái này đc ko ạ

Function AutoStop(Optional Dat As Date) As Boolean
If Dat = 0 Then Dat = Date
If Dat > #7/1/2007# Then AutoStop = True
End Function
Sau đó tại mỗi CThức mà bạn muốn vô hiệu hóa nhân ngày 1/7/2007 thí kết hợp hàm IF() là xong; VD:

=IF(AutoStop; CThứcA)
=IF(AutoStop; CThứcAA; CT_BBB)

Chủ đề này mới được 10 năm... Có lẽ bác nên tạo topic mới!!!

 

[Nguyễn Kim Tuyến]

nhờ các bác giúp em đoạn code này đc ko ạ , em làm mãi mà ko đc. code hạn sử dung cho exel
Sub auto_open()
On Error Resume Next
Dim myDate As Date
Dim Ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
myDate = Date
If Sheets("Userlog").Range("a2").Value <= myDate Then 'A2 là ngày kết thúc
MsgBox "File nay khong mo duoc vi qua han su dung." & vbNewLine _
& "Vui long goi dien cho Nguyen Kim Tuyen BCHQS Xa Quang giao", vbExclamation, "Thong bao"
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[befaint]

nhờ các bác giúp em đoạn code này đc ko ạ , em làm mãi mà ko đc. code hạn sử dung cho exel

Sub auto_open()
On Error Resume Next
Dim myDate As Date
Dim Ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
myDate = Date
If Sheets("Userlog").Range("a2").Value <= myDate Then 'A2 là ngày kết thúc
MsgBox "File nay khong mo duoc vi qua han su dung." & vbNewLine _
& "Vui long goi dien cho Nguyen Kim Tuyen BCHQS Xa Quang giao", vbExclamation, "Thong bao"
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Thử file ở bài này xem (link bài #4)...