返回列表 上一主題 發帖

[發問] (謝謝多位版主的大力幫忙，完成)如何將定義延伸成可以手動修改?(自訂表單)

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-22 11:28 | 顯示全部帖子

[發問] (謝謝多位版主的大力幫忙，完成)如何將定義延伸成可以手動修改?(自訂表單)

本帖最後由 av8d 於 2012-6-23 16:35 編輯

Sub test()
    Dim rng As Range, cell As Range
    Application.ScreenUpdating = False
    w = "家用,早餐,午餐,晚餐"
End Sub



我執行都是用Call test

希望可以w的的限制可以不要寫死~可以新增刪除修改~

我該怎麼做呢? 我是否要再製作一個UserForm呢?
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2012-6-22 23:35 | 顯示全部帖子
本帖最後由 av8d 於 2012-6-22 23:50 編輯
w = InputBox("輸入字串，用豆號分開：")
    If w = "" Then End
oobird 發表於 2012-6-22 12:57



  w是否的值是否能固定?
每當需要新增刪除修改的時候在讀取功能鍵

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
3#
發表於 2012-6-23 00:20 | 顯示全部帖子
本帖最後由 av8d 於 2012-6-23 00:25 編輯

回復 4# Hsieh


    謝謝大大~這方法很好用~可是

起始資料-->家用,早餐,午餐,晚餐
修改後-->家用,早餐,午餐,晚餐,特別費
關閉Excel
開啟Excel
資料變成起始資料-->家用,早餐,午餐,晚餐
而不是修改後的資料-->家用,早餐,午餐,晚餐,特別費

不知道這是什麼原因?
是不是因為只要是記憶的部分都必須在儲存格上才能儲存?如 A1  B1  C1 等等

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
4#
發表於 2012-6-23 13:33 | 顯示全部帖子
本帖最後由 av8d 於 2012-6-25 08:43 編輯

回復 6# GBKEE


    大大謝謝，請問我該如何和我的程式碼做結合呢
Sub test()
    Dim rng As Range, cell As Range
    Application.ScreenUpdating = False
    w = "家用,早餐,午餐,晚餐"
End Sub

由於   w = "家用,早餐,午餐,晚餐"  下方還有很多程式碼

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題