Excel VBA質問箱 IV

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

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


13526 / 13644 ツリー ←次へ | 前へ→

【4990】セルの結合 AKE 03/4/16(水) 16:56 質問
【4991】Re:セルの結合 つん 03/4/16(水) 17:17 回答
【5007】Re:セルの結合 AKE 03/4/17(木) 9:50 お礼

【4990】セルの結合
質問  AKE  - 03/4/16(水) 16:56 -

引用なし
パスワード
   教えてください。
複数行記入ある、セルの結合をすると、
"左上の以外の内容が失われます"のメッセージボックスが出てきます。
OKの時は問題ないのですが、キャンセルの場合、結合せずに先に指定している行数分だけ移動して次の結合を出来るようにしたいのです。
エラー回避に飛んでくれないので、少しおかしいかもしれませんが、文中にいれてもみましたが、エラー反応してくれません。エラー番号が間違っているのでしょうか?


On Error GoTo ER1

  With Selection
  If .EntireRow.Count = 1 Then
    Set x = Cells(65536, ActiveCell.Column).End(xlUp).Rows
        Do
          Range(ActiveCell, ActiveCell.Offset(ComboBox1.Value - 1)).MergeCells = True 'ここでエラー発生。番号1004
ER1:
          If Error = 1004 Then
              MsgBox Selection.Address
              Selection.Offset(ComboBox1.Value).Select
          Else
              ActiveCell.Offset(1).Select
          End If
        Loop Until Selection.Address = x.Offset(1).Address
    Set x = Nothing

【4991】Re:セルの結合
回答  つん E-MAIL  - 03/4/16(水) 17:17 -

引用なし
パスワード
   AKE さん、こんにちは

エラー番号は、Numberプロパティで取得します。
なので、

If Error = 1004 Then

ここは、

If Err.Number = 1004 Then

が正しいです。

エラー番号が正しいかどうかは、調べてないのでちょっとわかんないです。
一度これで試して見てください。

【5007】Re:セルの結合
お礼  AKE  - 03/4/17(木) 9:50 -

引用なし
パスワード
   つん さん、ありがとうございます。

>ここは、
>
>If Err.Number = 1004 Then
>
>が正しいです。
>
エラー回避してくれました。
最初の段階でまちがってましたね。汗
どうもありがとうございました。

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