Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
『同じ列で、対応する範囲(行)を決めて特定のセル(同じ列内)で結果を表示させたい』について
投稿日時: 24/04/08 09:09:31
投稿者: hatena
投稿者のウェブサイトに移動

解決済みですが、
仕様を確認してから、投稿しようと用意していたコードがありましたが、
せっかく書いたので置いておきます。
 
仕様としては、
削除して空欄になっても更新とする。
同値で上書きしても更新とする。
ということのようです。
 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False
    Dim a As Range, col As Range
    For Each a In Range("C2:F9,C13:F20").Areas
        For Each col In a.Columns
            If Not Intersect(Target, col) Is Nothing Then
                col.Cells(0).Value = Format(Now, "hh:mm")
            End If
        Next
    Next
    Application.EnableEvents = True
End Sub

投稿日時: 24/04/08 16:56:28
投稿者: hatena
投稿者のウェブサイトに移動

閉じます。