帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

1^# 跳轉到 »

發表於 2015-2-25 02:05 | 顯示全部帖子

請教EXCEL VBA 某日期到限制某巨集的使用

請教高手,我在EXCEL設了一個巨集,但我希望在一個月後這個巨集就無法使用,要怎麼做? 謝謝

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

2^# 倒序看帖

打印

字體大小: tT

發表於 2015-2-25 02:15 | 顯示全部帖子

[發問] EXCEL設定某日期到檔案無法開啟

各位高手,請問EXCEL是否可以設定當某個日期到時,某個檔案則無法開啟呢? 謝謝

小雨

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

3^#

發表於 2015-3-2 22:06 | 顯示全部帖子

回復 4# rouber590324

感謝rouber590324回復,測試後可!! 謝謝~~

小雨

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

4^#

發表於 2015-3-2 22:25 | 顯示全部帖子

回復 5# hueywen_jia

更正~~更正~~~不能刪文也無法修改了,sorry~

經過測試是不能使用的,會出現有END IF ,卻沒有IF

1 評分人數

GBKEE: 錯誤訊息不是有說明,為何不先看說明金錢 -2

小雨

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

5^#

發表於 2015-3-12 00:07 | 顯示全部帖子

回復 6# hueywen_jia

GBAEE sorry因為我看不懂,因為不會語法

小雨

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

6^#

發表於 2015-3-12 00:10 | 顯示全部帖子

煩將 SUB MACROL() 刪除啦
rouber590324 發表於 2015-3-3 10:47

rouber590324：

Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Date < "02/23/2015" Then

'
' Macro1 Macro
' user 在 2015/2/24 錄製的巨集
'
' 快速鍵: Ctrl+Shift+J
'
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A3").Select
ActiveCell.FormulaR1C1 = "3"
Range("B1").Select
ActiveCell.FormulaR1C1 = "4"
Range("B2").Select
ActiveCell.FormulaR1C1 = "5"
Range("B3").Select
ActiveCell.FormulaR1C1 = "6"
Range("B4").Select

End If
End Sub

刪了SUB MACROL() 變成找不到巨集了

2015-03-12_000951.jpg (9.98 KB)

小雨

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

7^#

發表於 2015-3-12 21:49 | 顯示全部帖子

回復 rouber590324
Date > "02/23/2015" 是錯誤的語法回復 hueywen_jia

附檔看看
GBKEE 發表於 2015-3-12 06:01

更正一下,我有改成04/23/2015,但就找不到,我附檔請求高手幫我,謝謝

[attach]20427[/attach]

小雨

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

8^#

發表於 2015-3-16 00:00 | 顯示全部帖子

回復 11# hueywen_jia

無法上傳檔案,是因為我的等級太低嗎? 壓縮後無法上傳,這次可了~請見附檔為我解答,謝謝

Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Date < "04/23/2015" Then

'
' Macro1 Macro
' user 在 2015/3/25 錄製的巨集
'
' 快速鍵: Ctrl+Shift+J
'
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A3").Select
ActiveCell.FormulaR1C1 = "3"
Range("B1").Select
ActiveCell.FormulaR1C1 = "4"
Range("B2").Select
ActiveCell.FormulaR1C1 = "5"
Range("B3").Select
ActiveCell.FormulaR1C1 = "6"
Range("B4").Select

End If
End Sub