Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12831 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8406】書式コピーについて ＳＡＫＵ 03/10/15(水) 12:00 質問
【8408】Re:書式コピーについて ぴかる 03/10/15(水) 13:19 回答
【8411】Re:ありがとうございました。また質問です。 ＳＡＫＵ 03/10/15(水) 15:10 お礼
【8414】Re:ありがとうございました。また質問です。 ぴかる 03/10/15(水) 16:08 回答
【8417】Re：できました。 ＳＡＫＵ 03/10/15(水) 16:49 お礼
【8406】書式コピーについて
質問  ＳＡＫＵ  - 03/10/15(水) 12:00 -
引用なし
パスワード
   一つのシートに雛形（伝票形式）レイアウトががあり
ＣＳＶデータを読み込み伝票形式にデータを入力して印刷する
ＶＢＡを作成しています。
明細行が１０行になれば別の伝票に入力という処理で
１０行になれば伝票１枚目のレイアウトをコピーして
その下に追加しようとするのですがレイアウトの罫線とかは
列幅とかは問ないのですが行の高さがうまくコピーされず
すべて同じ高さでコピーされてしまいます。
下記のようにしてるのですがどこに問題がありますでしょうか？
また別でいい方法はありますでしょうか？
思いっきり仕事の内容ですいません。
よろしくお願いします。

　　Range("A1:AL46").Copy
　　Range("A47:AL92").Select
　　Selection.PasteSpecial _
　　　　　Paste:=xlPasteAll
　　　
　　　　　
　　Application.CutCopyMode = False
【8408】Re:書式コピーについて
回答  ぴかる  - 03/10/15(水) 13:19 -
引用なし
パスワード
   ＳＡＫＵさん、こんにちは。

行ごとコピー・貼り付けせんとあかんかもしれませんね。よう分かりませんが・・・。
書式の貼り付けしたんが、↓です。

Sub TEST()
　　
　　Rows("1:46").Copy
　　Rows("47:92").PasteSpecial Paste:=xlFormats

End Sub
【8411】Re:ありがとうございました。また質問です...
お礼  ＳＡＫＵ  - 03/10/15(水) 15:10 -
引用なし
パスワード
   ぴかる さんへ

ご返答ありがとうございました。
行単位でやれば正しくできました。
ありがとうございました。

その対応にした場合ＲＡＮＧＥ内には数字を入れないと
使えないのでしょうか？
変数で使う方法はないでしょうか？
度々の質問すいませんです。
【8414】Re:ありがとうございました。また質問です...
回答  ぴかる  - 03/10/15(水) 16:08 -
引用なし
パスワード
   ▼ＳＡＫＵ さん：

変数にするとこんなんです。上２つはセル範囲、下は行範囲です。

Sub TEST2()

Dim 行1 As Long
Dim 行2 As Long

　　行1 = 1
　　行2 = 46
　　Range("A" & 行1 & ":AL" & 行2).Copy
　　Range(Cells(行1, 1), Cells(行2, 38)).Copy
　　Rows(行1 & ":" & 行2).Copy

End Sub
【8417】Re：できました。
お礼  ＳＡＫＵ  - 03/10/15(水) 16:49 -
引用なし
パスワード
   ▼ぴかる さんへ

度々ありがとうございました。
教えていただいた通りでうまくいきました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12831 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free