Excel VBA質問箱 IV

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

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


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

28409 / 76732

←次へ　｜　前へ→


	【53621】Re:結合セルについて

りん

- 08/1/25(金) 19:20 -


	引用なし

	パスワード

わいわいさん、こんばんわ。

>お願いします。
>友人に頼まれて、バレーの練習係当番割り振り表　を作ってるんですが、
>
>
>'ダブクリセルに有る名前の人のセルに色を塗るよん--------------
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

↓こいつが不要です。
>Target = Selection

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　 '
　 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
　 'こっからが本番　----------------------------------
　 If Target.MergeCells = True Then
　　　MsgBox Target.Cells(1).Value, vbInformation, Target.Address
　 Else
　　　MsgBox Target.Value, vbInformation, Target.Address
　 End If
End Sub

こんな感じです。

0 hits

▼

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