PTT數位生活區 / Office

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

看板Office作者 (一 身 是 宅)時間2年前 (2021/06/14 23:26), 2年前編輯推噓5(5推 0噓 18→)
留言23則, 2人參與, 2年前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體: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
推
06/15 01:38, 2年前 , 1F
首先我建議你用select case 的寫法
06/15 01:38, 1F
你是說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
→
06/15 01:38, 2年前 , 2F
或者 陣列+迴圈判斷的寫法
06/15 01:38, 2F
→
06/15 02:04, 2年前 , 3F
06/15 02:04, 3F
※ 編輯: 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
推
06/15 02:57, 2年前 , 4F
不可以有引號 引號的意思 就是文字
06/15 02:57, 4F
→
06/15 02:57, 2年前 , 5F
兩種意思是完全不同 比如 蔡英文 跟"蔡英文"
06/15 02:57, 5F
→
06/15 02:58, 2年前 , 6F
兩種意思完全不同 前者只是個抽屜 你要放甚麼都可以
06/15 02:58, 6F
→
06/15 02:58, 2年前 , 7F
後者鐵定就是 辣個人
06/15 02:58, 7F
ok 謝謝 我先試看看 有點忘了 整個專案要吃 是寫這樣對吧 public sub xxx() CPD01 = ActiveWorkbook.Sheets("工作表1").Range("B2") end sub ※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 03:18:47
→
06/15 03:51, 2年前 , 8F
這樣的意思 只是 cpd01=儲存格B2
06/15 03:51, 8F
→
06/15 03:51, 2年前 , 9F
可以練習用f8逐行 跟 新增監看式 來看抽屜放什麼
06/15 03:51, 9F
→
06/15 03:51, 2年前 , 10F
上網查一查
06/15 03:51, 10F
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
推
06/15 05:01, 2年前 , 11F
在sub 以外的地方 輸入
06/15 05:01, 11F
→
06/15 05:01, 2年前 , 12F
sim cpd01
06/15 05:01, 12F
→
06/15 05:01, 2年前 , 13F
dim cpd01
06/15 05:01, 13F
推
06/15 05:02, 2年前 , 14F
最上面
06/15 05:02, 14F
→
06/15 06:37, 2年前 , 15F
06/15 06:37, 15F
如果我用 Public 宣告 宣告完 底下馬上寫副程式 副程式內的變數 就所有模組同一個變數一樣嗎 ※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 08:40:17
推
06/15 08:42, 2年前 , 16F
只要是不同的程式 要傳送變數 只有兩種方法
06/15 08:42, 16F
→
06/15 08:42, 2年前 , 17F
一種是上面那樣
06/15 08:42, 17F
→
06/15 08:42, 2年前 , 18F
一種是 呼叫時 要掛號起來帶過去
06/15 08:42, 18F
→
06/15 08:44, 2年前 , 19F
06/15 08:44, 19F
→
06/15 08:45, 2年前 , 20F
f8 逐行跑看看就會清楚運作流程
06/15 08:45, 20F
用 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
→
06/15 14:01, 2年前 , 21F
看得好混亂，為什麼不直接把ActiveWorkbook.Sheets.Range
06/15 14:01, 21F
→
06/15 14:01, 2年前 , 22F
寫進你的IIf裡？
06/15 14:01, 22F
欸 對喔 我試看看 ※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 15:15:36 我印象有一個方法是 把某儲存格取一個名字 就好像給這個儲存格專用身份 然後在VBA直接抓取這個名字 具體上 是怎麼做的? ※ 編輯: hmsboy (36.239.115.119 臺灣), 06/15/2021 22:28:48
→
06/16 01:03, 2年前 , 23F
定義名稱
06/16 01:03, 23F
‣ 更多 hmsboy 的文章
文章代碼(AID): #1WntKD1I (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 hmsboy 的文章
文章代碼(AID): #1WntKD1I (Office)