Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16216 / 76733

←次へ　｜　前へ→


	【65987】Re:マクロについて

あや - 10/7/13(火) 12:12 -


	引用なし

	パスワード

『該当するセルがありません』というメッセージが出るのは、
該当するセルがない場合、このメッセージが出るようにと
マクロにそのように書かれているからです～

きっとマクロの中に
　Msgbox　該当するセルがありません
と記述されている部分があるはずです。

掲示板にUPされたマクロでわかる範囲としては

("(最新)売上明細上期")のシートを選択して
オートフィルタでDT列目の、"　上期のみ"のデータを表示させる

今回は、ここで　"　上期のみ"のデータがないので
『該当するセルがありません』のメッセージを出すようにしている

エクセルマクロのエラーではなさそうですよ～。
仕様によるもので、その通りに動いているかとわたしは思います。
どのようにしたらよいかは、めぐたんさんの作業内容によります。

書き込まれた以下のマクロは
仮に"　上期のみ"のデータがあった場合の処理かと思われます。

>Range("A9:CC5000").Select
>　　Selection.SpecialCells(xlCellTypeVisible).Select
>　　Selection.Copy
>
>Sheets("(最新)売上明細年間").Select
>　　Range("H9").Select
>　　Selection.End(xlDown).Select
>　　ActiveCell.Offset(1, -7).Select
>　　ActiveSheet.Paste
>　　
>Sheets("(最新)売上明細上期").Select
>　　Range("CM9:DT5000").Select
>　　Selection.SpecialCells(xlCellTypeVisible).Select
>　　Selection.Copy
>　　
>Sheets("(最新)売上明細年間").Select
>　　ActiveCell.Offset(0, 121).Select
>　　ActiveSheet.Paste
>　　
>Sheets("(最新)売上明細上期").Select
>　　Rows("8:8").Select
>　　Range("DE8").Activate
>　　Selection.AutoFilter
>　　Selection.AutoFilter

3 hits

▼

【65981】マクロについて めぐたん 10/7/12(月) 18:44