23/03/14 20:38:11.33 8uN0bEAR.net
>>289
各列の1行目にsum関数があるとして、
その合計が0ならその列を非表示にするというマクロならこんな感じか。
(データがどこまであるかわからんからとりあえずA列からF列までを対象にしてる)。
Sub 列を非表示()
Dim i As Long
For i = 1 To 6
If Cells(1, i) = 0 And Cells(1, i).HasFormula = True Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
End Sub
sum関数かどうかまでは判定していないから
sum関数以外の関数が入っていてその値が0なら
その列も非表示になる。
後はどのセルに関数が入っているかわからんから
そこらへんは調整してくれ。