Excel VBA質問箱 IV

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

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


46679 / 76735 ←次へ | 前へ→

【35024】ponponさん、いつもありがとうございます!
質問  miku02  - 06/2/19(日) 13:12 -

引用なし
パスワード
   色々試しているのですが、作成したマクロを実行させたいので、

Application.Run "PERSONAL.XLS!四本値並べ替え"

と挿入したいのですが、エラーがでてしまいます。。。。。

どう組み込めば良いのでしょうか?


挿入したい四本値並べ替えのマクロの内容は下記の通りです

Sub 四本値並べ替え()
  ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.Select
  Selection.Insert Shift:=xlToRight
  ActiveCell.Offset(0, 5).Columns("A:A").EntireColumn.Select
  Selection.Cut Destination:=ActiveCell.Offset(0, -5).Columns("A:A"). _
    EntireColumn
  ActiveCell.Offset(0, -7).Range("A1").Select
End Sub


初心者なもので上手く説明できていなかったらすみません。。。。。
0 hits

【35021】開いているBook上全てのSheetを選択するには miku02 06/2/19(日) 11:16 質問
【35022】Re:開いているBook上全てのSheet... Blue 06/2/19(日) 11:35 回答
【35023】Re:開いているBook上全てのShee... ponpon 06/2/19(日) 11:40 発言
【35024】ponponさん、いつもありがとうございます! miku02 06/2/19(日) 13:12 質問
【35027】Re:開いているBook上全てのSheet... かみちゃん 06/2/19(日) 15:23 発言
【35032】かみちゃん、いつもありがとうございます! miku02 06/2/19(日) 17:20 質問
【35033】Re:開いているBook上全てのSheet... かみちゃん 06/2/19(日) 17:42 発言
【35035】よかったですw miku02 06/2/19(日) 17:53 お礼

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