帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-6-21 17:48 | 只看該作者

[發問] (已解決)關於某儲存格數字變動另一儲存格就回到1

本帖最後由 freeffly 於 2012-2-22 17:00 編輯

我像要問一下當B4儲存格如果變換數字時
D4的數字就為1要怎麼寫?

我要將這各套用到圖表中
當B欄那各項目變換時D欄的項目就先回到第一個
這樣就能避免ABCD這幾各項目如果不一樣多時切換不會出現空白情形
不知道這樣說明會不會太難理解

事件.rar (2.01 KB)

樓主熱帖

字典兩各字還真難理解

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

7^#

發表於 2011-6-23 12:31 | 只看該作者

回復 6# oobird

這各方法可以
不過用在我實際要用的東西上發現會影響速度
可能是我用在圖表上資料又用了一些公式好像計算上就會有點花時間

字典兩各字還真難理解

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

6^#

發表於 2011-6-22 20:27 | 只看該作者

原來你用ListBoxes，那就改用Calculate事件

事件.rar (6.57 KB)

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

5^#

發表於 2011-6-22 17:47 | 只看該作者

回復 4# oobird

大大的方式好像不會讓儲存格計算太久
   可是用下拉的真的不行耶
   好怪喔
      你們用下拉的方式可以運作嗎?

字典兩各字還真難理解

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

4^#

發表於 2011-6-22 13:35 | 只看該作者

可是經由下拉清單改變好像不會變動？
應該還是會的
這個事件在儲存格內容發生改變時執行
他不會去管是直接輸入還是用下拉輸入的
程式可去除多餘的敘述：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Or Target.Address <> "$B$4" Then Exit Sub
Range("D4") = 1
End Sub

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

3^#

發表於 2011-6-22 12:34 | 只看該作者

回復 2# FAlonso

試了一下只有直接修改儲存格的時候會變動
可是經由下拉清單改變好像不會變動
這種情形要怎麼處理?

字典兩各字還真難理解

TOP

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

2^#

發表於 2011-6-21 19:19 | 只看該作者

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Or Target.Address <> "$B$4" Then
Exit Sub
Else
Range("D4") = 1
End If
End Sub

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

TOP