求高手解答依條件辨別自動輸入儲存格 - Excel程式區

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

1^# 跳轉到 »

發表於 2014-2-9 11:27 | 顯示全部帖子

回復 3# GBKEE
每次看到大大的大作, 都有很大的收獲, 謝謝!!
但我將這篇 vba code 貼到新的 workbook 的 sheet1 內,
再到 sheet1 操作, 似乎沒有反應, 那個步驟漏掉了

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2014-2-9 18:52 | 顯示全部帖子

回復 5# GBKEE
感謝GBKEE大大的回覆,
但是我就是貼在 sheet1 的程式區, 但不管用, 不知哪裡有問題.
(我只是說模組也試過)
檔案如上:

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 2014-2-9 19:02 | 顯示全部帖子

回復 5# GBKEE
萬分抱歉ㄝ, 剛剛又試了一下, 已經能照你的設計執行, 萬分感謝,
(最近電腦怪怪的, 剛剛才重新還原, 實在抱歉)

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

4^#

發表於 2014-2-9 19:24 | 顯示全部帖子

回復 5# GBKEE
【 '***SelectionChange :工作表儲存格有移動時所觸發的程序 ****
'有移動才有觸發請->,先移動儲存格在A欄之外,再移動儲存格到A欄內看看】
謝謝再三說明, 收到.
再次請問：
【Private Sub Worksheet_SelectionChange(ByVal Target As Range)】
所以 Worksheet_SelectionChange後所觸發的第一個Range就是Target(1)是不是?

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

5^#

發表於 2014-2-10 12:10 | 顯示全部帖子

謝謝大大在百忙中再次指導,
但是這裡用的是Target
【 Option Explicit
Sub Ex() '執行此程式會觸動 Worksheet_SelectionChange(ByVal Target As Range)
[D5:E6].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Target-> [D5

6]
      Dim i
      MsgBox Target.Address
      For i = 1 To Target.Count
         MsgBox "Target.Cells(" & i & ") ->" & Target.Cells(i).Address '=> MsgBox Target.(i).Address
      Next
      [B6].Select
End Sub】

而3樓用了 Target 及 Target(1)

我想問的是Target是不是觸動 Worksheet_SelectionChange的集合(陣列),
而Target(1)是這集合(陣列)的第一個元素?

也就是說何時用Target, 何時用Target(1)? 有可能Target(2)嗎?