Excel VBA質問箱 IV

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

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


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

76167 / 76732

←次へ　｜　前へ→


	【4990】セルの結合

AKE - 03/4/16(水) 16:56 -


	引用なし

	パスワード

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

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

0 hits

▼

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

≪