Excel VBA質問箱 IV

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

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


18862 / 76738 ←次へ | 前へ→

【63314】Re:VBA Call macro
発言  かみちゃん E-MAIL  - 09/10/25(日) 22:06 -

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

>Sub macro41()
>  Range("BI4:BI11").Select
>  Application.CutCopyMode = False
>  Selection.Copy
>  Range("D4").Select
>  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
>    :=False, Transpose:=False
>      .
>      .
>      .
> Range("BQ49:BQ50").Select
>  Application.CutCopyMode = False
>  Selection.Copy
>  Range("D153").Select
>  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
>    :=False, Transpose:=False
>End Sub
>上のような式を入れています。
>Macro1で他のブックからデーターを読み込み、Macro41でデータの順番を変更しながら、表の中に取り込んでいきます。

動作確認してみましたが、
Sub macro41()

End Sub
は、きちんと実行されますね。

試しに、
Sub macro41()
 MsgBox "macro41を実行します"
 Range("BI4:BI11").Select
 ' 以下省略
End Sub
としてみて、MsgBoxが表示されるか確認してみてください。

なお、

  Range("BI4:BI11").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("D4").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

の処理は、どのブックのどのシートのどのセルに対して、何をしようとしているか
ご理解されていますか?

たぶん何かにおかしいと気づいていただけると思います。
4 hits

【63305】VBA Call macro kousen 09/10/25(日) 16:18 質問
【63306】Re:VBA Call macro かみちゃん 09/10/25(日) 16:25 発言
【63307】Re:VBA Call macro kousen 09/10/25(日) 16:44 質問
【63309】Re:VBA Call macro かみちゃん 09/10/25(日) 16:57 発言
【63313】Re:VBA Call macro kousen 09/10/25(日) 18:14 質問
【63314】Re:VBA Call macro かみちゃん 09/10/25(日) 22:06 発言
【63320】Re:VBA Call macro kousen 09/10/26(月) 14:54 お礼

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