返回列表 上一主題 發帖

[發問] 範圍值內如何同步變動?

renzhi2020

帖子
21 
主題
7 
精華
0 
積分
60 
點名
0  
作業系統
Mac 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-6-4 
最後登錄
2020-2-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-11-6 09:54 | 顯示全部帖子

[發問] 範圍值內如何同步變動?

請問各位大大:
假設要設定在A1:A5的範圍值 變動時
要自動帶出 B欄公式
但實際試,A欄一個一個key 可以帶出B欄公式
但若同時貼上A1~A5的值時, 公式只會跑B1就停止了  @-@
無法同時 B1~B5 都帶出公式
請問以下VBA 要怎麼改才能同時A貼B同全部帶出公式
====================
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("A1:A5")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
    Cells(Target.Row, "B") = "=A" & Target.Row & "*5"
    End If
End Sub
=================================
衍申問題
如果要寫成
一樣A1:A5的範圍值 變動時
"在不同工作表 (ex 工作表2 )" 自動帶出B欄公式
'應該怎麼寫@-@?

test.zip (13.17 KB)

附件

收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

renzhi2020

帖子
21 
主題
7 
精華
0 
積分
60 
點名
0  
作業系統
Mac 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-6-4 
最後登錄
2020-2-18 
2#
發表於 2017-11-7 09:58 | 顯示全部帖子
回復 2# naruto018

Dear Naruto

是的,
工作表1變動, 工作表2自動填入公式
50 字節以內
不支持自定義 Discuz! 代碼

TOP

renzhi2020

帖子
21 
主題
7 
精華
0 
積分
60 
點名
0  
作業系統
Mac 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-6-4 
最後登錄
2020-2-18 
3#
發表於 2017-11-7 10:07 | 顯示全部帖子
本帖最後由 renzhi2020 於 2017-11-7 10:08 編輯

回復 3# Hsieh

可以全部套用了

來研究一下@-@

非常感謝版主的指導

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

TOP

renzhi2020

帖子
21 
主題
7 
精華
0 
積分
60 
點名
0  
作業系統
Mac 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-6-4 
最後登錄
2020-2-18 
4#
發表於 2017-11-7 10:36 | 顯示全部帖子
回復 3# Hsieh

Dear 大大

用您公式有個bug

全選delete時

公式會無限延申到當掉@-@
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題