Excel VBA質問箱 IV

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

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


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

28416 / 76738

←次へ　｜　前へ→


	【53620】結合セルについて

わいわい - 08/1/25(金) 18:31 -


	引用なし

	パスワード

お願いします。
友人に頼まれて、バレーの練習係当番割り振り表　を作ってるんですが、

'ダブクリセルに有る名前の人のセルに色を塗るよん--------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Target = Selection
Cancel = True

'範囲の条件------------------------------------------
If Target.Row Mod 3 <> 0 Or 5 > Target.Row Or Target.Row > 61 Then Exit Sub
If 2 >= Target.Column Or Target.Column >= 8 Then Exit Sub
If IsEmpty(Target) Then
　　MsgBox "外れ！　(○｀ε´○)　ちゃんと名前のセルを狙うんだ！"
　　Exit Sub
End If

'こっからが本番　----------------------------------
・
・
セルの構造はA列がＲｏｗ５～７、以下３セルづつで　結合されています。
上記コードで、Ｅｘｉｔ　してくれるんですが、結合セルに入力して有る文字が
クリアーされてしまいます。
If Target.MergeCells = True Then Exit Sub

でも、文字がクリヤーされてしまいます。
『結合やめろよ』で済む話ですが、なんだか気になって…。
どなたか教えて下さい。

ＰＳ.　文章はやっぱり苦手です。質問内容がわかり難かったらすみません。(-_-;)

0 hits

▼

【53620】結合セルについて わいわい 08/1/25(金) 18:31

≪