Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62927 / 76807

←次へ　｜　前へ→


	【18481】Re:コピー＆ペーストについて

ponpon - 04/9/28(火) 10:34 -


	引用なし

	パスワード

▼Asaki さん： >結合セルは、基本的には、マクロとあまり相性が良くありません。 >できるなら使わないことですが、逆に、後から結合するのではダメでしょうか？　↑ 　この方法でやってみました。以下コードです。　　 Sheets("漢字プリント（高）").Cells(m, n).Value = _ 　　　　　　　　　　　　　　　　 Sheets("問題作成").Cells(i, 1).Value 　　　 ↑ 　　漢字の部分は、関係ないのでValueのままで　　Sheets("問題作成").Select 　　 Sheets("問題作成").Cells(i, 2).Copy 　　 Sheets("漢字プリント（高）").Select 　　 Sheets("漢字プリント（高）").Cells(m, n + 1).Select 　　 Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _ 　　　　　　　　　　　　　　　　　　　　　　　　　　Operation:=xlNone 　　Sheets("漢字プリント（高）").Cells(m, n + 1).Resize(14).Select 　　Application.CutCopyMode = False 　　With Selection 　　　　.HorizontalAlignment = xlGeneral 　　　　.VerticalAlignment = xlTop 　　　　.Orientation = xlVertical 　　　　.IndentLevel = 1 　　　　.ReadingOrder = xlContext 　　　　.MergeCells = True 　　End With 　　これでうまくいったのですが、セルを結合するたびに「選択範囲には複数のデータがあります。一つのセルとして結合すると………」という注意賀でます。２０問作っているので２０回出てきます。これがでなければバッチリなんですが。これをでなくする方法はないのでしょうか？よろしくお願いします。