kai6929

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2026-10-31

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-5-6 17:20 | 只看該作者

[發問] 如何在設有公式的儲存格填入數字

請教各位大師,如何在設有公式的儲存格填入數字,

如附件

Kai_QA.rar (7.16 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-5-6 18:04 | 只看該作者

請教各位大師,如何在設有公式的儲存格填入數字,

如附件
kai6929 發表於 2010-5-6 17:20

誰看的懂需求的麻煩開示一下

學海無涯_不恥下問

TOP

sujane0701

　暱稱: Ted

中學生 Rank: 2

帖子: 70
主題: 12
精華: 0
積分: 163
點名: 0
作業系統: windows
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 基隆市
註冊時間: 2010-5-3
最後登錄: 2024-6-7

3^#

發表於 2010-5-6 20:53 | 只看該作者

誰看的懂需求的麻煩開示一下
Hsieh 發表於 2010-5-6 18:04

樓主的需求在B4欄的驗証訊息內,內容如下:
當產品類別是A時 B7,C7,D7,E7,F7,都是手動填入的
當產品類別是B,C,D,E時 B7,C7,D7,E7,F7,都是預先設定好的數字自動填入的
----
不過小弟(即本人,在下,我..)不會解^^

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-5-6 22:43 | 只看該作者

這種問題是觀念問題
試想公式是原先建好的內容
你要能允許自行輸入數值後再恢復公式
這只有一個可能
把公式輸入在某個位置
等要用時再複製回來
如果真是如此
除了用VBA來做這動作外
恐怕再也想不到其他方法了

學海無涯_不恥下問

TOP

kai6929

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2026-10-31

5^#

發表於 2010-5-7 08:09 | 只看該作者

感謝各位大師,的指教我,但如果是用VBA該如何著手

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-5-7 08:46 | 只看該作者

回復 7# kai6929

vba常是量身訂做
你要填入的公式是如何?
你可先用錄製巨集的方法開始瞭解vba
這問題錄製好後再去程式區發問
尋求如何自動化更改儲存格內容
就會有答案的

學海無涯_不恥下問

TOP

kai6929

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2026-10-31

7^#

發表於 2010-5-7 11:28 | 只看該作者

了解,感謝各大師的開示.

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2010-5-8 15:17 | 只看該作者

樓主的意思不知是否如此
假設把規格表放在M1:R8
B7=VLOOKUP($A$7,$M$1:$R$10,COLUMN(),0)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$4" Then Exit Sub
If Target = "A" Then [B7:F7] = "" Else [B7:F7].FormulaR1C1 = "=VLOOKUP(R7C1,R1C13:R10C18,COLUMN(),0)"
End Sub

複製代碼

Kai.rar (12.27 KB)

學海無涯_不恥下問

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2010-5-8 20:46 | 只看該作者

回復 1# kai6929

請問
我沒辦法打開這個程式?
它不是RAR檔嗎?
下載下來變成"Kai Q&amp"
請問是什麼文件?要用哪種程式開啟?
謝謝!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2010-5-8 20:51 | 只看該作者

檔名不能有特殊符號&
改成kai.rar即可

學海無涯_不恥下問

TOP