返回列表 上一主題 發帖

[發問] 請問,如何指定要執行的巨集

gctsai

帖子
42 
主題
10 
精華
0 
積分
72 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
0 
註冊時間
2010-12-12 
最後登錄
2019-6-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-17 23:16 | 只看該作者

[發問] 請問,如何指定要執行的巨集

請問各位大大!!
要如何指定要執行的巨集
例如:  A1有資料則執行A巨集
          A5有資料則執行C巨集
          A7有資料則執行D巨集
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2014-9-18 00:01 | 只看該作者
本帖最後由 luhpro 於 2014-9-18 00:10 編輯
請問各位大大!!
要如何指定要執行的巨集
例如:  A1有資料則執行A巨集
          A5有資料則執行C巨集
  ...
gctsai 發表於 2014-9-17 23:16

你想要的是這樣的嗎?
  1.   If [A1] <> "" Then A
  2.   If [A5] <> "" Then C
  3.   If [A7] <> "" Then D
複製代碼
或是底下這種?
  1.   If [A1] <> "" Then Run "A"
  2.   If [A5] <> "" Then Run "C"
  3.   If [A7] <> "" Then Run "D"
複製代碼

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2014-9-18 08:11 | 只看該作者
Sub AA()
X = Sheet1.Range("A1")
Y = Sheet1.Range("A5")
Z = Sheet1.Range("A7")
If X <> "" Then
Application.Run "A"
End If
If Y <> "" Then
Application.Run "C"
End If
If Z <> "" Then
Application.Run "D"
End If
End Sub
羅

TOP

gctsai

帖子
42 
主題
10 
精華
0 
積分
72 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
0 
註冊時間
2010-12-12 
最後登錄
2019-6-8 
4#
發表於 2014-9-18 21:41 | 只看該作者
謝謝兩位大大的回覆!!!!!

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題