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

　暱稱: 淚的小花

帖子: 32
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-8-18
最後登錄: 2020-12-13

12^#

發表於 2010-12-31 00:27 | 只看該作者

多謝Hsieh 版大的指導
原來少了一道解密還原的程序使得儲存格無法變更
沒腦的我搞半天不得其解
多虧了大大讓我對VBA有更近一步的認知
謝謝!!

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

11^#

發表於 2010-12-30 23:27 | 只看該作者

回復 9# united7878
先執行

Sub xx()
Application.EnableEvents = True
End Sub

複製代碼

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Sh
If Target.Address = "$F$2" And IsDate(Target) Then
Sh.Unprotect "0000"
Application.EnableEvents = False
Select Case Format(.[F2], "m/d")
Case "1/1"
x = "王小明"
Case "1/2"
x = "李小華"
Case "1/3"
x = "張小美"
End Select
.[N3] = x
Application.EnableEvents = True
Sh.Protect "0000"
End If
End With
End Sub

複製代碼

學海無涯_不恥下問

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2010-12-30 23:19 | 只看該作者

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

學海無涯_不恥下問

　暱稱: 淚的小花

帖子: 32
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-8-18
最後登錄: 2020-12-13

9^#

發表於 2010-12-30 23:17 | 只看該作者

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

　暱稱: 淚的小花

帖子: 32
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-8-18
最後登錄: 2020-12-13

8^#

發表於 2010-12-30 06:25 | 只看該作者

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

　暱稱: 淚的小花

帖子: 32
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-8-18
最後登錄: 2020-12-13

7^#

發表於 2010-12-30 05:27 | 只看該作者

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

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

感恩啦!!

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-12-29 09:38 | 只看該作者

本帖最後由 Hsieh 於 2010-12-29 09:49 編輯

回復 5# united7878

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

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Sh
If Target.Address = "$F$2" And IsDate(Target) Then
Application.EnableEvents = False
Select Case Format(.[F2], "m/d")
Case "1/1"
x = "王小明"
Case "1/2"
x = "李小華"
Case "1/3"
x = "張小美"
End Select
.[N3] = x
Application.EnableEvents = True
End If
End With
End Sub

複製代碼

學海無涯_不恥下問

　暱稱: 淚的小花

帖子: 32
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-8-18
最後登錄: 2020-12-13

5^#

發表於 2010-12-29 09:23 | 只看該作者

多謝版大~
但我套用後'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'時只針對月/日,不必管前面年份為何

謝謝!!

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-12-29 07:45 | 只看該作者

回復 3# united7878

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

複製代碼