Excel VBA質問箱 IV

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

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


62858 / 76738 ←次へ | 前へ→

【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
 
 これでうまくいったのですが、セルを結合するたびに「選択範囲には複数のデータがあります。一つのセルとして結合すると………」という注意賀でます。20問作っているので20回出てきます。これがでなければバッチリなんですが。
これをでなくする方法はないのでしょうか?
よろしくお願いします。
0 hits

【18473】コピー&ペーストについて ponpon 04/9/27(月) 22:31 質問
【18474】Re:コピー&ペーストについて Asaki 04/9/27(月) 22:57 回答
【18475】Re:コピー&ペーストについて ponpon 04/9/27(月) 23:26 発言
【18476】Re:コピー&ペーストについて Asaki 04/9/28(火) 0:03 回答
【18477】Re:コピー&ペーストについて ponpon 04/9/28(火) 0:23 発言
【18478】Re:コピー&ペーストについて Asaki 04/9/28(火) 0:32 回答
【18479】Re:コピー&ペーストについて ponpon 04/9/28(火) 0:56 お礼
【18481】Re:コピー&ペーストについて ponpon 04/9/28(火) 10:34 質問
【18482】Re:コピー&ペーストについて Asaki 04/9/28(火) 11:05 回答
【18488】Re:コピー&ペーストについて ponpon 04/9/28(火) 12:55 お礼
【18593】Re:コピー&ペーストについて ponpon 04/9/30(木) 19:14 質問
【18603】Re:コピー&ペーストについて ichinose 04/10/1(金) 10:05 発言

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