[問題] 一個功能 巨集的寫法

[hmsboy (一 身 是 宅)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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://www.ptt.cc/bbs/Office/M.1623684365.A.052.html
推 waiter337: 首先我建議你用select case 的寫法
你是說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


→ waiter337: 或者 陣列+迴圈判斷的寫法
→ waiter337: https://imgur.com/9dom1Xv
※ 編輯: 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
推 waiter337: 不可以有引號 引號的意思 就是文字
→ waiter337: 兩種意思是完全不同 比如 蔡英文  跟"蔡英文"
→ waiter337: 兩種意思完全不同 前者只是個抽屜 你要放甚麼都可以
→ waiter337: 後者鐵定就是 辣個人
ok 謝謝 我先試看看



有點忘了 整個專案要吃 是寫這樣對吧

public sub xxx()

CPD01 = ActiveWorkbook.Sheets("工作表1").Range("B2")

end sub


※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 03:18:47
→ waiter337: 這樣的意思 只是 cpd01=儲存格B2
→ waiter337: 可以練習用f8逐行 跟 新增監看式 來看抽屜放什麼
→ waiter337: 上網查一查

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
推 waiter337: 在sub 以外的地方 輸入
→ waiter337: sim cpd01
→ waiter337: dim cpd01
推 waiter337: 最上面
→ waiter337: https://imgur.com/EYL7HTv

如果我用 Public 宣告

宣告完 底下馬上寫副程式

副程式內的變數 就所有模組同一個變數一樣嗎
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 08:40:17
推 waiter337: 只要是不同的程式 要傳送變數 只有兩種方法
→ waiter337: 一種是上面那樣
→ waiter337: 一種是 呼叫時 要掛號起來帶過去
→ waiter337: https://imgur.com/xYeBKKy
→ waiter337: f8 逐行跑看看就會清楚運作流程
用 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
→ newacc: 看得好混亂，為什麼不直接把ActiveWorkbook.Sheets.Range
→ newacc: 寫進你的IIf裡？
欸 對喔 我試看看
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 15:15:36

我印象有一個方法是

把某儲存格取一個名字 就好像給這個儲存格專用身份

然後在VBA直接抓取這個名字

具體上 是怎麼做的?
※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 22:28:48
→ newacc: 定義名稱