質問: False Selection.Copy Range("A11").Select →→→→(ここの指定を色々変わる変数みたいのでどうにかしたい) Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub 分からないなりに調べて1行マクロなるものでショートカットキーを割り当てて書式のコピーをする マクロってのを試して見たのですが・・・『該当するセルがみつかりません』とエラーが出てしまいます。 上記の1行マクロは、個人マクロブックに保存しました。 個人用マクロブックはエクセルを立ち上げると自動で立ち上がるようにはなっています。 〈1行マクロの中身〉 Sub 書式のコピー() 'Keybord shortcut: Ctrl+Shift+O Selection.PasteSpecial Paste:=xlFormats End Sub どちらも色々調べて試してみたのですが、上手くいきません。 ちなみに、試しているExcelは2007です。 どうか、アドバイスをお願い致します。
回答: > コピー元は、4月の見込,4月の実績の行でペースト先は黄色に塗った個所のようにしたいです そのあたりはなんとなくわかるのですが、セル番地がコードと画像と違うようなのでこちらでは参考コードで指定のしようがないので選択したものをコピーすることにしたということです。 またコピー先が画面では4行下だけどコードだと9行下になっているのでこれも何が正解かわからないし、複数回繰り返すと書かれていて具体的に何回かわからないので、とりあえず2回下方向にコピーするものを参考に作ってみましたということです。 > コンパイルエラー:= ] > となってしました。 Sub 書式のコピー() 同じ名前のものがあるのだと思います。適宜名前を変更してください。 エラーが出た場合、エラーメッセージを全て記載しないのは質問者さんがよくすることですが、全て記載しないとエラー内容が回答者側に適切に伝わりませんので、メッセージは全て記載するようにしてくだい。 とりあえず A1に 6月合計 A2に 6月実績 として B列以降は適当にデータを入れて データを入れた範囲の1行目と2行目を選択して実行してみてください。 なお、データの無いセルを選択し実行すると型が一致しませんというエラーがでますし、選択範囲が適切かどうかは判断していません。