返回列表 上一主題 發帖

[發問] 輸入儲存格時,按一下按鈕,如何把按鈕字串傳到該儲存格,謝謝.

dou10801

帖子
146 
主題
41 
精華
0 
積分
229 
點名
290  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2024-8-19 14:02 | 只看該作者

[發問] 輸入儲存格時,按一下按鈕,如何把按鈕字串傳到該儲存格,謝謝.

輸入儲存格時,按一下按鈕,如何把按鈕字串傳到該儲存格,謝謝.
[C2]輸入台北市後,按[中正區]按鈕,[C2]變成[台北市中正區],且在輸入狀態,可以繼續輸入其他文字,以此類推.

按鈕傳字串.rar (14.54 KB)

收藏 分享
杜小平

xyz66217

帖子
16 
主題
2 
精華
0 
積分
66 
點名
85  
作業系統
win7 
軟體版本
excel 
閱讀權限
20 
註冊時間
2016-8-24 
最後登錄
2024-11-14 
2#
發表於 2024-8-19 17:10 | 只看該作者
小弟試了一下，應該只能滿足   [C2]輸入台北市後,按[中正區]按鈕,[C2]變成[台北市中正區]，然後返回剛才輸入的 cell  
                            無法滿足           且在輸入狀態,可以繼續輸入其他文字



Sub 按鈕1_Click()
    Area_1 = "中正區"
    Now_row = ActiveCell.Row
    Now_col = ActiveCell.Column
    Cells(Now_row, Now_col) = "[" + Cells(Now_row, Now_col) + Area_1 + "]"
    Cells(Now_row, Now_col).Select
   
End Sub

Sub 按鈕2_Click()
    Area_1 = "大同區"
    Now_row = ActiveCell.Row
    Now_col = ActiveCell.Column
    Cells(Now_row, Now_col) = "[" + Cells(Now_row, Now_col) + Area_1 + "]"
    Cells(Now_row, Now_col).Select

End Sub

Sub 按鈕3_Click()
    Area_1 = "中山區"
    Now_row = ActiveCell.Row
    Now_col = ActiveCell.Column
    Cells(Now_row, Now_col) = "[" + Cells(Now_row, Now_col) + Area_1 + "]"
    Cells(Now_row, Now_col).Select

End Sub

按鈕傳字串.zip (17.43 KB)

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
3#
發表於 2024-8-20 14:31 | 只看該作者
如果要滿足"輸入狀態,可以繼續輸入其他文字"，我是想到用 sendkeys 方式，送出 F2 鍵

TOP

dou10801

帖子
146 
主題
41 
精華
0 
積分
229 
點名
290  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
4#
發表於 2024-8-20 16:34 | 只看該作者
結合二位前輩指導,受益良多
Sub 按鈕3_Click()
    Area_1 = "中山區"
    Now_row = ActiveCell.Row
    Now_col = ActiveCell.Column
    Cells(Now_row, Now_col) = "[" + Cells(Now_row, Now_col) + Area_1 + "]"
    Cells(Now_row, Now_col).Select
    SendKeys "{F2}"
End Sub
SendKeys "{F2}"   是我的須求.感恩.
杜小平

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題