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

dou10801

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

dou10801

結合二位前輩指導,受益良多
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}"   是我的須求.感恩.

jackdream

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

xyz66217

小弟試了一下，應該只能滿足   [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