Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11623 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15186】セルを結合してオートフィルでコピー RIN 04/6/17(木) 11:39 質問[未読]
【15191】Re:セルを結合してオートフィルでコピー Asaki 04/6/17(木) 12:32 回答[未読]
【15192】Re:セルを結合してオートフィルでコピー Jaka 04/6/17(木) 12:35 回答[未読]
【15205】Re:セルを結合してオートフィルでコピー RIN 04/6/17(木) 13:49 お礼[未読]
【15186】セルを結合してオートフィルでコピー
質問  RIN  - 04/6/17(木) 11:39 -
引用なし
パスワード
   こんにちは。

セル"Ａ1"と"Ｂ1"を結合して、
"４月"と入力してオートフィルで
"Ｙ1"までコピーし、４月〜３月まで
表示させたいのですが、自動マクロで
やるとコードが長くなってしまします。
できるだけ簡単なコードにしたいのですが
どうすればいいでしょうか？
初歩的な質問で申し訳ありませんが、教えてください。
よろしくお願いします。
【15191】Re:セルを結合してオートフィルでコピー
回答  Asaki  - 04/6/17(木) 12:32 -
引用なし
パスワード
   こんにちは。

A.Selecct
Selection.B
となっているところは、大体
A.B
といった感じで、Select と Selection をセットで省略して1行で書いてしまっても動きます。

この方針で、マクロを編集されては？
【15192】Re:セルを結合してオートフィルでコピー
回答  Jaka  - 04/6/17(木) 12:35 -
引用なし
パスワード
   こんにちは。

>"Ｙ1"までコピーし、４月〜３月まで
Y1まで？。

>表示させたいのですが、自動マクロで
>やるとコードが長くなってしまします。
>できるだけ簡単なコードにしたいのですが

どんな風に長くなるのか解りませんけど、
マクロ記録の余分な部分を整理してみました。
長いですかねぇ？

Sub Macro1()
　　Range("A1:B1").Merge
　　Range("A1").Value = "４月"
　　Range("A1:B1").AutoFill Destination:=Range("A1:Z1"), Type:=xlFillDefault
End Sub
【15205】Re:セルを結合してオートフィルでコピー
お礼  RIN  - 04/6/17(木) 13:49 -
引用なし
パスワード
   Jakaさん、Asakiさん回答ありがとうございます。

>>"Ｙ1"までコピーし、４月〜３月まで
>Y1まで？。

すいません。"Ｘ1"までの間違いでした。

Jakaさんのコードの通りに試したら
うまくできました！
助かりました。
ありがとうございまいます！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11623 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free