12
返回列表 上一主題 發帖

[發問] 求高手解答依條件辨別自動輸入儲存格

newlink

帖子
19 
主題
4 
精華
0 
積分
22 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2013-12-21 
最後登錄
2014-8-31 

論壇贊助勳章
11# 跳轉到 »
發表於 2014-2-9 21:45 | 只看該作者
版主大大您好，本來以為這用涵數就可以搞定，我不會巨集，但還是試著改看看，增加了原來希望：如果下拉選保內or二修，B2、C2、D2都自動填上--，以便做為不收費提醒，但是改過後怪怪的，下拉選保外or人為，不會照原來的設定那樣，請教我

維修單.rar (16.02 KB)

robin

TOP

newlink

帖子
19 
主題
4 
精華
0 
積分
22 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2013-12-21 
最後登錄
2014-8-31 

論壇贊助勳章
12#
發表於 2014-2-9 22:04 | 只看該作者
回復 10# GBKEE

天啊！我原來以為這只需要用涵數就能解決，沒想到是巨集，我沒學過，
不過我試過，是可以用，只是原來希望選保內或二修時，B  C  D都填上--，現在只有B填上
太神奇了，只要幾行字就能搞定
就怕我不知所以然，應用到其它地方有困難

但是，應該對懂的人很有用，也是好事！
robin

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
13#
發表於 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-> [D56]
        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)嗎?

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
12
返回列表 上一主題