Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10569 / 13644 ツリー ←次へ | 前へ→

【21065】間違って選択したセルをコピー出来なくするには まつ君 05/1/9(日) 18:04 質問[未読]
【21066】Re:特定の列以外を選択していたら、メッセ... かみちゃん 05/1/9(日) 18:11 回答[未読]
【21067】Re:特定の列以外を選択していたら、メッセ... まつ君 05/1/9(日) 18:23 お礼[未読]

【21065】間違って選択したセルをコピー出来なくす...
質問  まつ君 E-MAIL  - 05/1/9(日) 18:04 -

引用なし
パスワード
   はじめて投稿いたします。まつ君と申します。
どうぞよろしくお願いします。

まず、B5:j100までデータが入った表があります。
やりたいことはこのデータをコピーして他のシートに貼り付けるのですが、
その前にセルを間違ってコピーしないように警告を発することがしたいのです。

例えば、B5を選んで、ボタンを押せばB5からj5までリサイズし他のシートにコピーします。しかし、A5や、C5といったセルを選んだ場合、範囲がずれてコピーされてしまうのでここの所をなんとかしたいのですがうまくいきません。
B列以外を選んでボタンを押した場合に警告を出すプログラムを教えて下さい。
乱文で申し訳ありません。

【21066】Re:特定の列以外を選択していたら、メッ...
回答  かみちゃん  - 05/1/9(日) 18:11 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>B列以外を選んでボタンを押した場合に警告を出すプログラムを教えて下さい。

以下のような感じでいかがでしょうか?
Sub Macro1()
 If ActiveCell.Column <> 2 Then
  MsgBox "B列のセルを選択してください。", vbCritical
 Else
  MsgBox "OK"
 End If
End Sub

【21067】Re:特定の列以外を選択していたら、メッ...
お礼  まつ君 E-MAIL  - 05/1/9(日) 18:23 -

引用なし
パスワード
   ▼かみちゃん さん:
びっくりしました。すぐに解答いただけるなんて・・・感激です。
早速、プログラムに組み込みました。
思った通りの動作になりました。
本当にありがとうございました。
また、よろしくお願いします。

10569 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free