VBAのコマンドボタンと入力について

VBA初心者でよくわからないので教えて下さい。
やりたいことは、エクセルシートのA列とかに数個のデータを入力し、コマンドボタンを
押すと入力したデータを取り込んで、処理した値を表示させたいのですが、
UserFormでコマンドボタンを作成し、実行すると、エクセルシートのセルに
入力できなくなってしまいます。
　コマンドボタンを設定しても、通常通り、エクセルシートに入力および編集等ができるように
する方法を教えて下さい。
　また、できないようであれば、コマンドボタン設定以外でなにか方法があれば、
アドバイスお願いします。

No.3 ベストアンサー 回答者： Zincer 回答日時： 2017/09/14 15:27

＞UserFormでコマンドボタンを作成し、実行すると、エクセルシートのセルに入力できなくなってしまいます。

こう言った趣旨のことでしょうか？
UserForm1.Show vbModeless
とすれば、「UserForm1」を表示した状態でもシートの編集は可能になります。
参考
http://www.shoeisha.com/book/hp/pc/office/Excel/ …


＞コマンドボタンを押すと入力したデータを取り込んで、
どこに（どこの値を）取り込みたいのでしょうか？
例えば、UserFormに設定された変数に、sheet1のA1入力（代入）したいのであれば、
UserForm1．変数名＝sheets(1).Range("A1")
や
UserForm1．変数名＝sheets(1).cells(1,1)
といったことで可能です。

＞処理した値を表示させたいのですが、
こちらは、前述とは逆に
sheets(1).Range("A1")＝「処理した値」
とすれば表示（代入）できるはずです。

この回答へのお礼

ありがとうございます。
わかりました。

お礼日時：2017/09/14 20:16

No.2 回答者： GooUserラック 回答日時： 2017/09/14 14:21

No.1 の補足

ボタン部分に文字を入力するため、次のコードも作っておいた方が便利です。
-------------------------------------------------------------------------------
Sub イベント割込み停止()
Application.EnableEvents = False
End Sub
-------------------------------------------------------------------------------
Sub イベント割込み再開()
Application.EnableEvents = True
End Sub
-------------------------------------------------------------------------------

No.1 回答者： GooUserラック 回答日時： 2017/09/14 14:14

昔はよくコマンドボタンをシートに貼り付けていたのですが、Excel 2003 以前と Excel

2007 以降との互換の問題などで環境によってはエラーになってしまうようになったので、良くやるのはセルをコマンドボタン風にして、それを使います。
セルをボタン風にするには背景色を25％灰色、右と下の罫線を太い黒色の実線、左と上の罫線を太い白色の実線にします。

下図の場合のコードは下記のようにします。
-------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target(1).Address(False, False)
Case "C2"
' 何かしらの処理
Range("A1").Select '← ボタンが押された後の選択位置
Case "C4"
' 何かしらの処理
Range("A1").Select '← ボタンが押された後の選択位置
End Select
End Sub
-------------------------------------------------------------------------------
・「Target(1)」の「(1)」は、複数セル選択時の対応です。
・「Address(False, False)」の「(False, False)」は「$」が表示させないためです。
・ ボタンが押された後の選択位置を指定しているのは、同じ位置を指定したままだと次に同じボタンが押せないためです。Ａ列の次のセルを指定しても良いと思います。