返回列表 上一主題 發帖

儲存格RUN巨集問題

basarasy

帖子
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

帖子
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物件的內建觸動事件
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Address(0, 0) = A1 And Target = 1 Then
  3.         巨集A
  4.      ElseIf Target.Address(0, 0) = A1 And Target = 2 Then
  5.         巨集B
  6.     End If
  7. End Sub
複製代碼

TOP

basarasy

帖子
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: 8Rank: 8

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

論壇貢獻勳章
4#
發表於 2010-10-15 11:21 | 只看該作者
這些只是比較基礎的語法，熟練後就能靈活運用。
深入點的書也很多，但我也看不懂！不建議你急著買。

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
5#
發表於 2010-10-15 13:49 | 只看該作者
回復 4# oobird
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)


  4.    If Target.Address(0, 0) = U5 And Target = 1 Then

  6.         MYIC1
  7.         
  8.      ElseIf Target.Address(0, 0) = U5 And Target = 2 Then
  9.      
  10.         MYIC2

  12.        ElseIf Target.Address(0, 0) = U6 And Target = 3 Then
  13.       
  14.         MYIC3

  16.          ElseIf Target.Address(0, 0) = U5 And Target = 4 Then
  17.          
  18.         MYIC4

  20.          ElseIf Target.Address(0, 0) = U5 And Target = 5 Then
  21.          
  22.         MYIC5

  24.          ElseIf Target.Address(0, 0) = U5 And Target = 6 Then
  25.          
  26.         MYIC6

  28.          ElseIf Target.Address(0, 0) = U5 And Target = 7 Then
  29.          
  30.         MYIC7

  32.          ElseIf Target.Address(0, 0) = U5 And Target = 8 Then
  33.          
  34.         MYIC8

  36.          ElseIf Target.Address(0, 0) = U5 And Target = 9 Then
  37.          
  38.         MYIC9

  40.          ElseIf Target.Address(0, 0) = U5 And Target = 10 Then
  41.          
  42.         MYIC10
  43.         
  44.     End If
  45.     End Sub
複製代碼
我改成這個,但不能run.   u5是下拉清單有 1-10 . 當u5=4時會自動run  MYIC4.

我買了2本vba都沒有教這一些碼.
50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

帖子
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

帖子
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

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2010-10-15 16:43 | 只看該作者
回復 7# basarasy
怎不能用 請船上檔案

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
9#
發表於 2010-10-15 23:44 | 只看該作者
本帖最後由 oobird 於 2010-10-16 20:32 編輯
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.address = [U5].address Then
  3.         Select Case Target
  4.         Case 1: MYIC1
  5.         Case 2: MYIC2
  6.         Case 3: MYIC3
  7.         Case 4: MYIC4
  8.         End Select
  9.     End If
  10. End Sub
複製代碼

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
10#
發表於 2010-10-16 14:36 | 只看該作者
謝謝oobird大大.
這個可以用到.
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題