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といったセルを選んだ場合、範囲がずれてコピーされてしまうのでここの所をなんとかしたいのですがうまくいきません。
Ｂ列以外を選んでボタンを押した場合に警告を出すプログラムを教えて下さい。
乱文で申し訳ありません。
【21066】Re:特定の列以外を選択していたら、メッ...
回答  かみちゃん  - 05/1/9(日) 18:11 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

以下のような感じでいかがでしょうか？
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