[發問] 有關[自動校正]裡(自動取代字串)的語法?

united7878

我是語法新手
請教各位先進..如何把EXCEL裡[自動校正]內(自動取代字串)部份變成巨集坎入工作表呢?
讓文件在不同電腦開啟可以辨識相同的取代文字,而不用逐一修改"自動校正選項"
其語法為何?

例如SHEET1表內的B1欄被輸入*77#時會顯示A,輸入*78#時會出現B,以此類推..超過3組格式化條件限制的方法
此工作表在別台電腦開啟時也同樣出現被替代的字

如單一欄位無法實行,修正全SHEET1也無妨

謝謝~

GBKEE

回復 1# united7878
請將程序複製到一般模組存檔後再開啟檔案即可

1. Sub Auto_Open()
   
2.     Application.AutoCorrect.AddReplacement What:="*77#", Replacement:="A"
   
3.     Application.AutoCorrect.AddReplacement What:="*78#", Replacement:="B"
   
4. End Sub
   
5. Sub Auto_Close()    '如要檔案關閉後 繼續使用這些自動取代字串 請將本程序刪掉
   
6.     Application.AutoCorrect.DeleteReplacement What:="*77#"
   
7.     Application.AutoCorrect.DeleteReplacement What:="*78#"
   
8. End Sub

複製代碼

united7878

多謝GBKEE版主!!
套用後果然自動新增取代字串於選項內,且沒有組數限制
將活頁簿開在別台電腦上也可以,真的是太方便了^^
由衷的感謝您!!

冒昧再請教一下..
想要將活頁簿裡指定的工作表(如SHEET1~SHEET10)內的"N3"參照"F2"(F2為日期格式)後因日期不同顯示不同名字時該如何編輯?
如"F2"=2011年1月1日,"N3"=王小明 "F2"=2011年1月2日,"N3"=李小華 以此類推...
"F2"的部份因表格需要,我是手動輸入的,格式為'年+月+日的"2011/1/1",但我希望N3欄在參照時只取月和日,直接乎略年,
請問可行嗎?

THANK YOU~

GBKEE

回復 3# united7878

下載 (18.19 KB)

2010-12-29 07:44

   

1. Sub Ex()  '工作表的排序不一定如圖
   
2.     Dim Sh As Worksheet
   
3.     For Each Sh In Sheets(Array("Sheet1", "sheet2", "sheet3", "sheet4", "sheet5", "sheet6", "sheet7", "sheet8", "sheet9", "sheet10"))
   
4.         Sh.Range("N3") = Sh.Range("F2")
   
5.         Sh.Range("N3").NumberFormatLocal = "m月d日"
   
6.     Next
   
7. End Sub
   
8. Sub Ex1()  '如工作表的排序一定如從3到13 共10個工作表
   
9.     Dim i As Integer
   
10.     For i = 3 To 13
    
11.         Sheets(i).Range("N3") = Sheets(i).Range("F2")
    
12.         Sheets(i).Range("N3").NumberFormatLocal = "m月d日"
    
13.     Next
    
14. End Sub

複製代碼

united7878

多謝版大~
但我套用後'F2'輸入日期,'N3'直接變成X月X日,人名部份無法顯示?
我想可能是我形容的太複雜了...抱歉~"~

其實是'N3'會隨著'F2'的日期不同而顯示預定輸入的值就好了,
例如
'F2'              'N3'
2011/1/1      王小明
2011/1/2      李小華
2011/1/3      張小美
2011/1/X      X X X

有點像是只要在'日期欄'輸入日期就可以在'N3'欄顯示ID的值班表..
但參照'F2'時只針對月/日,不必管前面年份為何

謝謝!!

Hsieh

回復 5# united7878


    這應該不是自動取代功能
你應該有個對照表
利用chang事件來填寫n3的內容即可
thisworkbook模組

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. With Sh
   
3. If Target.Address = "$F$2" And IsDate(Target) Then
   
4. Application.EnableEvents = False
   
5. Select Case Format(.[F2], "m/d")
   
6. Case "1/1"
   
7. x = "王小明"
   
8. Case "1/2"
   
9. x = "李小華"
   
10. Case "1/3"
    
11. x = "張小美"
    
12. End Select
    
13. .[N3] = x
    
14. Application.EnableEvents = True
    
15. End If
    
16. End With
    
17. End Sub

複製代碼

united7878

謝謝大大的指導~有了語法果然免去逐一套用函數的步驟,
但在thisworkbook模組下是否會套用到全工作表?如要選定某表可以嗎?
還有如何大量又快速編輯語法內的對照data?
Case "1/1"
x = "王小明"
Case "1/2"
x = "李小華"
Case "1/3"
x = "張小美"

在vba編輯器裡好像無法使用像excel的下拉填滿法..

感恩啦!!

united7878

哈~大量編輯的方法我找到了,把整年度的名字複製貼入某欄例如'G'
然後隨便一欄頭1列輸入Case "1/1"
2列輸入'=G1' ,框起該欄1.2列儲存格一直往下拉就自動填滿了..!

united7878

請問大大~
我已在thisworkbook模組內編輯好所有數值
表中'N3'也會參照'F2'之日期而得到正確的值
但是一但我將工作表保護後,再'F2'輸入日期就會出現偵錯畫面
EXCEL會當掉再重開,沒當掉下解除保護後再輸入日期也無效@@"
想知道是那裡錯了,請大大們不吝指教
謝謝!!

Hsieh

執行
Sub XX()
Application.EnableEvents = True
End Sub