標題: [發問] 輸入儲存格時,按一下按鈕,如何把按鈕字串傳到該儲存格,謝謝. [打印本頁]

---

作者: dou10801    時間: 2024-8-19 14:02     標題: 輸入儲存格時,按一下按鈕,如何把按鈕字串傳到該儲存格,謝謝.

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

---

作者: xyz66217    時間: 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

---

作者: jackdream    時間: 2024-8-20 14:31

如果要滿足"輸入狀態,可以繼續輸入其他文字"，我是想到用 sendkeys 方式，送出 F2 鍵

---

作者: dou10801    時間: 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}"   是我的須求.感恩.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)