Excel VBA質問箱 IV

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

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


26566 / 76732 ←次へ | 前へ→

【55497】ブックをまたいだセルの結合
質問  京梧  - 08/5/8(木) 10:25 -

引用なし
パスワード
   みなさん、はじめまして。

題名に書いたブックをまたいだセルの結合をしたいのですが、なぜか、うまくいきません。

プログラムは下記のとおりです。

Private Sub CommandButton1_Click()
  
  Workbooks.Add
  
  ActiveSheet.Name = "AAA"
  
  Sheets("AAA").Select
  With Sheets("AAA")
    .Range(Cells(17, 12), Cells(18, 12)).Merge
    .Range(Cells(44, 1), Cells(44, 17)).Merge
  End With

End sub

というものを使ってやっていますが、Mergeの行でえらーを吐き出して、止まります。

Withを取ると、新しいブックではなく、古いブック側に結合セルができ、うまく動きます。

どうすればいいのでしょうか?
よろしくお願いします。

0 hits

【55497】ブックをまたいだセルの結合 京梧 08/5/8(木) 10:25 質問
【55498】Re:ブックをまたいだセルの結合 kanabun 08/5/8(木) 10:35 回答
【55499】Re:ブックをまたいだセルの結合 京梧 08/5/8(木) 10:54 お礼
【55500】Re:ブックをまたいだセルの結合 kanabun 08/5/8(木) 11:06 発言

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