Excel VBA質問箱 IV

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

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


71852 / 76733 ←次へ | 前へ→

【9374】Re:今、やりたい事が出来ず・・・。
回答  ichinose  - 03/12/1(月) 12:50 -

引用なし
パスワード
   ▼ぴかる さん、みなさん、こんにちは。
ひょっとしてこういうことでしょうか?
'====================================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target.Cells(1, 1)
  If (.Value = "") And (Range("N" & .Row).Cells(1, 1).Value <> "") And _
    (.Row >= 19) And (.Row <= 28) And (.Column = 16) Then
    '項目表示ON '処理マクロ
   MsgBox "'処理マクロ"
  End If
  If (.Column = 14) Or (.Column = 17) Then
    MsgBox "SendKeys ""%{DOWN}"", True"
  End If
  End With
AAA:
End Sub

ちなみに上のコードでは呼び出していませんが、以下は
りんさんのコードで作ったFunctionです。
'==============================================================
Function mergechk(rng As Range, r_rng As Range) As Long
'  INPUT : 調査セル範囲
'  OUTPUT: mergechk
'      0-単一セル
'      1-複数セル
'      2-結合セル
'      3-結合セルを含む複数セル
'      r_rng
'      型に合わせた操作可能なセル
  Dim wk As Variant '何でも来い型
  With rng
   wk = .MergeCells
   If TypeName(wk) = "Null" Then
     mergechk = 3
   Else
     If wk = True Then
      mergechk = 2
     Else
      If .Cells.Count = 1 Then
        mergechk = 0
      Else
        mergechk = 1
      End If
     End If
   End If
  End With
  Set r_rng = rng.Cells(1, 1)
End Function

2 hits

【9321】結合セルのSelectionChangeイベント ぴかる 03/11/28(金) 16:53 質問
【9322】Re:結合セルのSelectionChangeイベント ハマゾウ 03/11/28(金) 17:01 回答
【9323】Re:結合セルのSelectionChangeイベント INA 03/11/28(金) 17:18 回答
【9324】Re:結合セルのSelectionChangeイベント つん 03/11/28(金) 17:28 発言
【9325】Re:結合セルのSelectionChangeイベント ぴかる 03/11/28(金) 17:54 お礼
【9326】やっぱり、自分のミスでした。 ぴかる 03/11/28(金) 18:09 発言
【9327】こんな時は? ぴかる 03/11/28(金) 18:32 質問
【9328】Re:こんな時は? ichinose 03/11/28(金) 20:35 回答
【9329】Re:こんな時は?(無駄コードが・・) ichinose 03/11/28(金) 20:49 発言
【9342】Re:結合セルのSelectionChangeイベント りん 03/11/30(日) 10:38 回答
【9343】Re:結合セルのSelectionChangeイベント ichinose 03/11/30(日) 14:05 発言
【9344】Re:結合セルのSelectionChangeイベント りん 03/11/30(日) 14:22 発言
【9345】Re:結合セルのSelectionChangeイベント ichinose 03/11/30(日) 14:42 お礼
【9370】今、やりたい事が出来ず・・・。 ぴかる 03/12/1(月) 10:44 質問
【9374】Re:今、やりたい事が出来ず・・・。 ichinose 03/12/1(月) 12:50 回答
【9376】出来ました。 ぴかる 03/12/1(月) 13:43 お礼

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