返回列表 上一主題 發帖

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

回復 34# luhpro


   謝謝luhpro說明:

其中
「若只想用 Excel 的儲存格公式達到你要的效果,比較可行的方式是如 阿吉 所說的設置手動資料輸入區,
然後當此區有資料時公式就抓這的資料,而若此區無資料時就去抓預設資料.」


這正是我所想要之需求!平常碰到之頻率很高!
但要如何設定?(該用何函數?...)
謝謝!^_^


例如:
我有一個「學生」參加象棋比賽對照表(歷史紀錄;「學生參加名單;即參加學生之個人基本資料」)
一個月後將舉辦「全省」象棋比賽,
參加之學生有可能是「以前參加過」(歷史名單中有)
也有可能是「不曾參加過者」(無歷史紀錄)


我希望:若曾參加過,則其相關資料便自動填入(以減少輸入且增加資料正確性、提高效率。)
            若未曾參加過,則手動填入資料。
請問要如何設計、處理?(該用何函數?...)

TOP

本帖最後由 HUNGCHILIN 於 2010-5-13 19:51 編輯

回復 35# asmileboy


大概是這樣 驗證等沒多做修飾架構大概這樣
裡面沒計算題比較可昔
輸入區:請按TAB 鍵就知道
保護沒設密碼
A.rar (5.78 KB)
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

回復 36# HUNGCHILIN


    請教阿吉大師
1.您的附件檔 "首頁"表單 無論滑鼠或是鍵盤,最右下只能移到 N8 ,請教大師相關設定是放在哪????小弟找了好久都找不到,請開示~~
2.小弟對定義不太熟悉,想請教 定義名稱Print_Area的設定 =首頁!$A$1G$8 ,請問是否只要定義完成,列印版面就會受到控制嗎??或是寫好定義後,還有哪裏需要設定
?
小弟問題可能十分淺薄可笑,還請多多包涵指導,感謝感謝~~~

TOP

這個問題跟此版比較沒關係
此技巧是簡易的欄列隱藏而已

動作就是
把N欄以後的欄位全選後隱藏欄
把8列以後的欄位全選後隱藏列
其餘較深的欄列隱藏技巧請看
http://forum.twbts.com/viewthrea ... =1&extra=#pid61
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

回覆 35# asmileboy


我剛剛想到另外一種方式應該也是可以達到你想要的結果, 流程如下:

1. 使用者輸入 IndexKey - 身分證字號
2. 按下 "尋找資料" 按鈕
3. 若有找到資料就把相關資料帶入各個欄位內
4. 若沒有找到資料就清空各欄位內容等待使用者輸入相關資料
5. 使用者輸入資料後按下 "新增資料" 後自動新增該筆資料到 基本資料索引區 內
6. 等待下一筆資料的查詢或輸入

這個方式沒有用到 Excel 儲存格公式, 完全以 VBA 程式來達到想要的效果.
當然也可以再做進去 "刪除資料" 亦或是其他想要的功能.

chk.zip (13.1 KB)

TOP

我也了解了
感謝分享

TOP

回復 11# Hsieh


    又要再謝謝一次超級版主了~
    最近在弄一個試算表也有遇到類似的問題
    版大的範例剛好可以讓我應用上....

TOP

[版主管理留言]
  • Hsieh(2010-12-31 11:01): 請附檔案說明

本帖最後由 mistery 於 2010-12-31 13:58 編輯

回復 8# Hsieh


    請教版主  在這個案例中
    如何可以在點選其他儲存格時  也可以有相同的結果?
    例  點選儲存格 A1   會依照A1的值判定後    1.清空儲存格A2  或  2.帶入原儲存格A2的公式
         點選儲存格 B1   會依照B1的值   1.清空儲存格B2   或  2.帶入原儲存格B2的公式
         以此類推....
   
   PS.我有改寫您原來的程式碼
        If Target.Count > 1 Then Exit Sub
        If targe.address <> "A1" or "B1"  Then Exit sub     <-----似乎不能直接這樣 加 OR
        If Target = "某值" Then [A2:A2] = "" Else [A2:A2].FormulaR1C1 = "某公式"
        If Target = "某值" Then [B2:B2] = "" Else [B2:B2].FormulaR1C1 = "某公式"

TOP

[版主管理留言]
  • Hsieh(2010-12-31 16:16): 請檢查附件,附檔名不能有*

本帖最後由 Hsieh 於 2010-12-31 16:48 編輯

回復 8# Hsieh


    Dear  版主
  
    我已補上附件說明   再請您解惑!感激~
Kai.zip (12.68 KB)

TOP

回復 39# mistery

做法已將您樓上的檔案更新
你看看是否有會錯意
學海無涯_不恥下問

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題