作者hmsboy (一 身 是 宅)
看板Office
標題[問題] 一個功能 巨集的寫法
時間Mon Jun 14 23:26:01 2021
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel
版本:2019
是這樣的
例如我的巨集寫了一些
pro01 = IIf(InStr(1, ch03, "雞腿飯", 1) <> 0, "PD01", IIf(InStr(1, ch03, "雞翅
飯", 1) <> 0, "PD02", IIf(InStr(1, ch03, "雞排飯", 1) <> 0, "PD03", "PD04")))
但是當雞腿飯下架換成控肉飯
我會打開VBA→取代→目前專案→全部取代
把字串"雞腿飯"換成"控肉飯"
但是其他使用者 需要修改 不希望讓它們打開VBA
所以我想寫成 (不知道寫法對不對)
pro01 = IIf(InStr(1, ch03, "CPD01", 1) <> 0, "PD01", IIf(InStr(1, ch03,
"CPD02", 1) <> 0, "PD02", IIf(InStr(1, ch03, "CPD03", 1) <> 0, "PD03",
"PD04")))
然後指定本活頁簿的工作表1 B2 B3 B4 B5 儲存格 設計讓使用者填寫
這樣的話 要如何把儲存格內容 引導到VBA內作為程式中的字串
Public CPD01 As String
CPD01 = ActiveWorkbook.Sheets("工作表1").Range("B2")
目前我是想應該寫這樣
在任何一個空白處 先寫這樣
但是不知道該如何連結起來
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.239.115.119 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1623684365.A.052.html
1F：推 waiter337: 首先我建議你用select case 的寫法 06/15 01:38
你是說IIF這條改
Select Case pro01
Case InStr(1, ch03, "雞腿飯", 1) <> 0
pro01 = "PD01"
Case InStr(1, ch03, "雞翅飯", 1) <> 0
pro01 = "PD02"
Case InStr(1, ch03, "雞排飯", 1) <> 0
pro01 = "PD03"
Case Else
pro01 = "PD04"
End Select
2F：→ waiter337: 或者 陣列+迴圈判斷的寫法 06/15 01:38
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 02:05:27
你可能誤會我的意思了 雖然這個方法很好
但是我這個程式寫太多了 只好先用取代的
模組1 某段
pro01 = IIf(InStr(1, ch03, "CPD01", 1) <> 0, "PD01","PD02")
模組2
Public CPD01 As String
CPD01 = "雞腿飯" '原本可以
CPD01 = ActiveWorkbook.Sheets("工作表1").Range("B2") '改這樣失敗
還是說 "CPD01" 不可以有引號 改 CPD01
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 02:42:23
4F：推 waiter337: 不可以有引號 引號的意思 就是文字 06/15 02:57
5F：→ waiter337: 兩種意思是完全不同 比如 蔡英文 跟"蔡英文" 06/15 02:57
6F：→ waiter337: 兩種意思完全不同 前者只是個抽屜 你要放甚麼都可以 06/15 02:58
7F：→ waiter337: 後者鐵定就是 辣個人 06/15 02:58
ok 謝謝 我先試看看
有點忘了 整個專案要吃 是寫這樣對吧
public sub xxx()
CPD01 = ActiveWorkbook.Sheets("工作表1").Range("B2")
end sub
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 03:18:47
8F：→ waiter337: 這樣的意思 只是 cpd01=儲存格B2 06/15 03:51
9F：→ waiter337: 可以練習用f8逐行 跟 新增監看式 來看抽屜放什麼 06/15 03:51
10F：→ waiter337: 上網查一查 06/15 03:51
Sub test05()
CPD01 = ActiveWorkbook.Sheets("工作表1").Range("B2").Value
End Sub
滑鼠指著 CPD01 顯示 CPD01 = "雞腿飯"
而我需要 這個新算式時
需要在每一個用到這算式副程式開頭插入 Call test05
有辦法改成 直接讓整個專案都吃到這個算式嗎?
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 04:31:32
11F：推 waiter337: 在sub 以外的地方 輸入 06/15 05:01
12F：→ waiter337: sim cpd01 06/15 05:01
13F：→ waiter337: dim cpd01 06/15 05:01
14F：推 waiter337: 最上面 06/15 05:02
如果我用 Public 宣告
宣告完 底下馬上寫副程式
副程式內的變數 就所有模組同一個變數一樣嗎
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 08:40:17
16F：推 waiter337: 只要是不同的程式 要傳送變數 只有兩種方法 06/15 08:42
17F：→ waiter337: 一種是上面那樣 06/15 08:42
18F：→ waiter337: 一種是 呼叫時 要掛號起來帶過去 06/15 08:42
20F：→ waiter337: f8 逐行跑看看就會清楚運作流程 06/15 08:45
用 Function 會比較好嗎?
模組A
Function CPD(x As String) As String
CPD = x
End Function
模組B
Sub xxxxx()
Dim CPD01 As String
CPD01 = CPD("雞腿飯")
MsgBox CPD01
End Sub
目前我試到這邊
至於
ActiveWorkbook.Sheets("工作表1").Range("B2")
的值我還在想怎麼套進去
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 09:41:04
21F：→ newacc: 看得好混亂，為什麼不直接把ActiveWorkbook.Sheets.Range 06/15 14:01
22F：→ newacc: 寫進你的IIf裡？ 06/15 14:01
欸 對喔 我試看看
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 15:15:36
我印象有一個方法是
把某儲存格取一個名字 就好像給這個儲存格專用身份
然後在VBA直接抓取這個名字
具體上 是怎麼做的?
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 22:28:48
23F：→ newacc: 定義名稱 06/16 01:03