Excel VBA質問箱 IV

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

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


28409 / 76732 ←次へ | 前へ→

【53621】Re:結合セルについて
回答  りん E-MAIL  - 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 質問
【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 お礼

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