basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-14 17:55 | 只看該作者

儲存格RUN巨集問題

請問可以SET 當A1是1 時就會自動 RUN 巨集A,當A1是2 時就會自動 RUN 巨集B嗎?

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2010-10-14 18:48 | 只看該作者

回復 1# basarasy
Sheet物件的內建觸動事件

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = A1 And Target = 1 Then
巨集A
ElseIf Target.Address(0, 0) = A1 And Target = 2 Then
巨集B
End If
End Sub

複製代碼

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

3^#

發表於 2010-10-15 10:32 | 只看該作者

回復 2# GBKEE

謝謝GBKEE 版主.
請問有什麼好的excel書教這些比較深入的碼?

50 字節以內
不支持自定義 Discuz! 代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-10-15 11:21 | 只看該作者

這些只是比較基礎的語法，熟練後就能靈活運用。
深入點的書也很多，但我也看不懂！不建議你急著買。

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

5^#

發表於 2010-10-15 13:49 | 只看該作者

回復 4# oobird

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = U5 And Target = 1 Then
MYIC1
ElseIf Target.Address(0, 0) = U5 And Target = 2 Then
MYIC2
ElseIf Target.Address(0, 0) = U6 And Target = 3 Then
MYIC3
ElseIf Target.Address(0, 0) = U5 And Target = 4 Then
MYIC4
ElseIf Target.Address(0, 0) = U5 And Target = 5 Then
MYIC5
ElseIf Target.Address(0, 0) = U5 And Target = 6 Then
MYIC6
ElseIf Target.Address(0, 0) = U5 And Target = 7 Then
MYIC7
ElseIf Target.Address(0, 0) = U5 And Target = 8 Then
MYIC8
ElseIf Target.Address(0, 0) = U5 And Target = 9 Then
MYIC9
ElseIf Target.Address(0, 0) = U5 And Target = 10 Then
MYIC10
End If
End Sub

複製代碼

我改成這個,但不能run. u5是下拉清單有 1-10 . 當u5=4時會自動run MYIC4.

我買了2本vba都沒有教這一些碼.

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

6^#

發表於 2010-10-15 14:06 | 只看該作者

回復 5# basarasy
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim U5 As $ '定義變數為字串型態
U5="U5" '給變數一個字串
If Target.Address(0, 0) = U5 And Target = 1 Then
'
'

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

7^#

發表於 2010-10-15 16:32 | 只看該作者

回復 6# GBKEE

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim U5 As string
U5="U5"
If Target.Address(0, 0) = U5 And Target = 1 Then
'

還是不能用><

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE