私はワークシートに次のコードを書きましたが、すべての範囲は同じシートにあります。 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("DistMatrix")) Is Nothing Then
Dim out1() As Double
out1 = OutSta
私は、ドロップダウンメニューからの選択に基づいてシートの非表示/再表示を目的としたコードで作業しています。セットアップは次のとおりです。機能のShowAllSheetsとShowSelSheetsのように定義されている Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("Select
現在、複数のドロップダウンセルに基づいて列を非表示にするループがあります。私は同じドロップダウンに基づいてシートを隠すコードを追加したいと思いますが、それに対応するためにFor Each Cell In Rangeにどのように追加するかわかりません。私は以下の列を非表示にしなければならないものを貼り付けました。どんな助けでも大歓迎です。 Private Sub Worksheet_Change(B