儲存格RUN巨集問題

帖子: 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! 代碼

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

2^#

發表於 2010-10-15 10:32 | 顯示全部帖子

回復 2# GBKEE

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

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

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

3^#

發表於 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! 代碼

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

4^#

發表於 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! 代碼

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

5^#

發表於 2010-10-16 14:36 | 顯示全部帖子

謝謝oobird大大.
這個可以用到.

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