導航:首頁 > 專利知識 > vba日期限制

vba日期限制

發布時間:2021-10-13 00:32:51

⑴ EXCEL高手如何用VBA限制打開時間

本帖最後由 hytsky 於 2011-12-19 23:50 編輯

Sub time()
Dim a As Date
Dim b As Date
Dim c As Date
a = Date
b = Sheets("用戶及密碼").Range("H500").Value
c = "2011 - 12 - 20"
If a < b Then
MsgBox "系統時間有誤,請重新設置!", 1 + 64, "溫馨提示"
ThisWorkbook.Close
ElseIf a > b Then
Sheets("用戶及密碼").Range("H500") = a
ElseIf c - a <= 2 And c - a > 0 Then
MsgBox "你還可以使用" & c - a & "天!", 64, "警告"
ElseIf c - a <= 0 Then
MsgBox "已超過使用時間", 64, "警告"
ThisWorkbook.Close
End If
End Sub

⑵ vba腳本如何設置使用時間限制

Sub sub1()

'控制使用時間,8:00-16:00時段可以使用
If Hour(Time) < 8 Or Hour(Time) > 16 Then Exit Sub

'控制使用日期,僅限雙休日使用
If Weekday(Now, vbMonday) < 6 Then Exit Sub

'此處寫上你自己需要執行的宏代碼,或調用其他宏過程

End Sub

⑶ excel VBA 建立一個Function來規定日期的范圍

A1為輸入日期(單元格格式為日期),試下這個

=IF(VALUE(A1)>VALUE("2014-10-18"),A1,"#VALUE")

⑷ 如何用VBA編寫限制時間的使用

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

rem 代碼功能:打開工作簿40分鍾後,對工作表進行加密保護:密碼mPwd
rem 以下代碼,放到thisworkbook代碼窗格中
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.ProtectContents Then sh.Unprotect "mPwd"
Next
Application.OnTime Now + TimeValue("0:40:00"), "abc"
End Sub
rem 以下代碼,放到模塊中
Sub abc()
Dim sh As Worksheet
application.DisplayAlerts=false
For Each sh In ThisWorkbook.Worksheets
If Not sh.ProtectContents Then sh.Protect "mPwd"
Next
thisworkbook.save
application.DisplayAlerts=true
End Sub

⑸ 如何控制vba控制項文字框中只允許輸入日期

要控制vba控制項文字框中只允許輸入日期,有多種方法,下面給你一種常用的辦法:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If IsDate(TextBox1) = False Then

MsgBox "請輸入日期"

TextBox1 = ""

End If

End Sub


⑹ 請EXCEL高人寫一段VBA代碼,讓一個表只能在一定的日期內和次數內才能繼續下面的VBA代碼。


郵件已發送,請查收!(有實例文件,請打開修改測試)

代碼介紹:


1、在ThisWorkBook內輸入下面代碼:

Option Explicit

Private Sub Workbook_Open()
If jiaoyan = False Then Exit Sub
'請在下面輸入繼續運行的代碼!
MsgBox "你好,歡迎繼續使用以下代碼!", vbInformation, "提示"
End Sub

2、新建一個模塊,輸入下面代碼:

Option Explicit

Function jiaoyan() As Boolean
Dim i As Integer, S As String, Dt As Date
S = GetSetting("MyExcel", "Config", "Date")
If IsDate(S) = False Then
Dt = #1/1/1900#
Else
Dt = CDate(S)
End If
If Dt > #12/31/2013# Then Exit Function '限定一定的日期,請修改!
SaveSetting "MyExcel", "Config", "Date", Date
i = Val(GetSetting("MyExcel", "Config", "Count"))
i = i + 1
If i > 60 Then Exit Function '限定使用次數,請修改!
SaveSetting "MyExcel", "Config", "Count", i
S = Environ("Computername")
If S <> "PC-201002121042" Then Exit Function '限定電腦名稱,請修改!
jiaoyan = True
End

3、修改要限制的日期、次數、電腦名稱,並保存excel,退出。以後每次打開此文件,都將繼續校驗,只有符合條件才繼續運行後面代碼!

⑺ EXCEL高手如何用VBA限制工作簿編輯時間

rem代碼功能:打開工作簿40分鍾後,對工作表進行加密保護:密碼mPwd
rem以下代碼,放到thisworkbook代碼窗格中
PrivateSubWorkbook_Open()
DimshAsWorksheet
ForEachshInThisWorkbook.Worksheets
Ifsh.ProtectContentsThensh.Unprotect"mPwd"
Next
Application.OnTimeNow+TimeValue("0:40:00"),"abc"
EndSub
rem以下代碼,放到模塊中
Subabc()
DimshAsWorksheet
application.DisplayAlerts=false
ForEachshInThisWorkbook.Worksheets
IfNotsh.ProtectContentsThensh.Protect"mPwd"
Next
thisworkbook.save
application.DisplayAlerts=true
EndSub

⑻ 怎麼在VBA設置當當前日期大於2017-09-06時候直接結束,小於的時候就可以使用宏

Subabc()
IfDate<CDate("2017-9-6")Then
Call宏『執行宏
EndIf
EndSub

⑼ 在VBA裡面怎麼設置當日期大於20171012日時候

VBA里有自帶當前日期的DATE函數啊,代碼例句如下:

Public Sub a()

Dim a As Date

a = Date

If a > CDate("2017-10-12") Then Exit Sub Else MsgBox "請繼續"

End Sub

'結束過程的語句是exit sub

⑽ VBA時間加減與范圍限定

vba中時間可以直接與數值相加減。


如果你要得到一個時間的兩秒後的時間可以這么寫:


Suba()
DimdAsDate
d=#6/7/20131:00:00PM#
d=d+TimeValue("0:0:2")
Debug.PrintFormat(d,"yyyy-mm-ddhh:mm:ss")
EndSub
閱讀全文

與vba日期限制相關的資料

熱點內容
黃山五福糾紛 瀏覽:484
熊膽粉野寶說明書有效期 瀏覽:867
張磊侵權事件進展 瀏覽:587
民法有關於物權的規定嗎 瀏覽:337
公共衛生服務其他崗位人員職責 瀏覽:509
旅順工商局舉報電話 瀏覽:741
房子年限怎麼算 瀏覽:965
營業執照最有效期4幾年 瀏覽:402
創造與魔法湛藍星空發 瀏覽:100
創造與魔法劍齒虎具體位置 瀏覽:229
質權合同工商局版本 瀏覽:461
商鋪轉讓合同怎麼寫 瀏覽:198
智威創造代理 瀏覽:89
淘寶如何投訴賣家 瀏覽:460
幼兒園小班創造游戲 瀏覽:37
百世投訴網 瀏覽:238
蛇年限定安妮值多少錢 瀏覽:370
土豆上傳成功版權 瀏覽:576
字體設計版權價格 瀏覽:875
做版權書需要了解哪些 瀏覽:552