Excel VBA質問箱 IV

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

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


34364 / 76734 ←次へ | 前へ→

【47580】Re:セル(or列)がグループ化されているかどうか
回答  ウッシ  - 07/3/15(木) 12:54 -

引用なし
パスワード
   こんにちは

グループ化使う事ないので、これでいいのかどうか分かりませんけど、

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Long
  Dim t As Long
  Dim s As Long
  Dim e As Long
  Dim r As Range
  Dim v As Variant
  
  With Target
    If .Cells.Count > 1 Then Exit Sub
    If .Columns(1).OutlineLevel < 2 Then Exit Sub
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    t = .Column
    For i = t - 1 To 2 Step -1
      If Me.Cells(1, i).Columns(1).OutlineLevel = 1 Then
        s = Me.Cells(1, i).Column
        Exit For
      End If
    Next
    For i = t + 1 To Me.Columns.Count
      If Me.Cells(1, i).Columns(1).OutlineLevel = 1 Then
        e = Me.Cells(1, i).Column
        Exit For
      End If
    Next
    Set r = Me.Range(Me.Cells(.Row, s + 1), Me.Cells(.Row, e - 1))
    v = Application.Match("×", r, 0)
    If IsError(v) Then
      Me.Cells(.Row, s).ClearContents
    Else
      Me.Cells(.Row, s).Value = "×"
    End If
  
    Application.EnableEvents = True
    Application.ScreenUpdating = True
  
  End With
End Sub
3 hits

【47575】セル(or列)がグループ化されているかどうか ひげくま 07/3/15(木) 11:53 質問
【47578】Re:セル(or列)がグループ化されているかど... ハチ 07/3/15(木) 12:48 発言
【47579】Re:セル(or列)がグループ化されているかど... ひげくま 07/3/15(木) 12:50 発言
【47580】Re:セル(or列)がグループ化されているかど... ウッシ 07/3/15(木) 12:54 回答
【47583】Re:セル(or列)がグループ化されているかど... ひげくま 07/3/15(木) 13:06 お礼
【47586】Re:セル(or列)がグループ化されているかど... ひげくま 07/3/15(木) 13:32 お礼

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