Excel VBA質問箱 IV

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

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


28410 / 76732 ←次へ | 前へ→

【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列がRow5〜7、以下3セルづつで 結合されています。
上記コードで、Exit してくれるんですが、結合セルに入力して有る文字が
クリアーされてしまいます。
If Target.MergeCells = True Then Exit Sub

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

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

【53620】結合セルについて わいわい 08/1/25(金) 18:31 質問
【53621】Re:結合セルについて りん 08/1/25(金) 19:20 回答
【53622】Re:結合セルについて わいわい 08/1/25(金) 20:19 お礼
【53623】Re:結合セルについて VBWASURETA 08/1/26(土) 2:23 発言
【53624】Re:結合セルについて わいわい 08/1/26(土) 9:25 お礼

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