hueywen_jia

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

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

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

[attach]20427[/attach]

hueywen_jia

回復 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

測試.rar (6.06 KB)

附檔
下載次數: 7

2015-3-15 23:58

GBKEE

回復 12# hueywen_jia
Private Sub Workbook_Open()
程序將 Private (私用)刪掉
如圖重新指定巨集

下載 (67.56 KB)

2015-3-16 05:54

第10帖有提到 Date > "02/23/2015" 是錯誤的語法

1. Private Sub Workbook_Open()
   
2.     Stop   '按F8逐行執行程式碼
   
3.     If Date > "01/01/2016" Then
   
4.     ActiveCell.FormulaR1C1 = "1"
   
5.     Range("A2").Select
   
6.     ActiveCell.FormulaR1C1 = "2"
   
7.     Range("A3").Select
   
8.     ActiveCell.FormulaR1C1 = "3"
   
9.     Range("B1").Select
   
10.     ActiveCell.FormulaR1C1 = "4"
    
11.     Range("B2").Select
    
12.     ActiveCell.FormulaR1C1 = "5"
    
13.     Range("B3").Select
    
14.     ActiveCell.FormulaR1C1 = "6"
    
15.     Range("B4").Select
    
16.    End If
    
17. End Sub

複製代碼

Private Sub Workbook_Open() 是ThisWorkbook模組的預設事件程序
於Excel檔案開啟時自動執行的程序
如圖

下載 (86.71 KB)

2015-3-16 05:55

hueywen_jia

大大您好,

可是我點了左方的This Workbook,再點右方的時候只有出現"一般",沒有Open可以選呀.........還是可以幫我用檔案做修改後再上傳給我呢? 我要使用在檔案中(現用活頁簿),而非個人巨集活頁簿,謝謝

下載 (112.72 KB)

2015-3-28 23:12

[attach]20536[/attach]

GBKEE

回復 14# hueywen_jia
沒用心學習,它有兩個選項,你的附檔失敗.

下載 (56.87 KB)

2015-3-29 06:35

hueywen_jia

大大~~冤枉啊~~~不是我沒有用心學習,是我的那個下拉只有一個 "一般"  沒有下面那個!!  
另外我想說附檔就用之前附上的那個做修改後再上傳給我就好了~所以才沒再上傳附檔~~SORRY~

hueywen_jia

真是討厭....超過三分鐘就不給修改........
補說明一下

當我點選左上方的This Workbook(圖紅色框),再點右上方的選單時,只出現"一般",並沒有"Workbook",而且點右方選單時,我發現我的左方那個選單就跳到Sheet1(圖綠色框),不是我沒有選喔!! 我要特別說明一下

下載 (88.52 KB)
圖

2015-4-1 01:37

stillfish00

回復 17# hueywen_jia
左邊的ThisWorkBook要先點兩下
下拉選單那邊就會有了

只點一下是不會進到所選的程式碼頁面

hueywen_jia

原來是點兩下,雖然出現了,可是我複製了之前大大給的字串貼進去後還是無法執行,跳到F8那欄是錯誤的語法,SORRY~我笨拙~不會用這種
請高手幫我,我想讓附檔中的所有巨集在某個時間一到就無法使用,最好是檔案都無法開啟是最好的!! 可以告訴我怎麼做嗎? 或是幫我修改檔案後再回傳給我呢? 因為檔案有點大,需要用到很多活頁簿及公式,謝謝
   [attach]20590[/attach]

GBKEE

回復 19# hueywen_jia

附檔中的所有巨集在某個時間一到就無法使用,最好是檔案都無法開啟是最好的

ThisWorkbook模組的程式碼

1. Private Sub Workbook_Open() '活頁簿的預設事件程序(開啟檔案時自動執行)
   
2.     Dim MyDate As Date
   
3.     MyDate = #6/1/2015#  '你要如何指定日期
   
4.     If Date >= MyDate Then Application.Quit
   
5.     'Application.Quit 關閉Excel
   
6. End Sub

複製代碼