| |
▼ゆーあ さん：
>列を挿入or削除されることがあり、現状の列指定での非表示では不具合が御座います。
>
>表の各項目は、必ず4行目(A4,B4,C4…)に記載されており、
>非表示にしたい文字も、「原単価」「実行単価」のみで御座います。
要らぬお節介ですが、コマンドボタン２つを トグルボタン１つにして、
表示／非表示をひとつのボタンで出来るようにしてみました。
ボタンのあるシートのモジュールにコードを書いておきます。
'----------- Sheetモジュール
Option Explicit
Private Sub ToggleButton1_Click()
Dim e, m
With ToggleButton1
If .Caption = "非表示" Then
For Each e In Array("原単価", "実行単価")
m = Application.Match(e, Rows(4).Cells, 0)
If IsNumeric(m) Then
Columns(m).Hidden = True
End If
Next
.Caption = "表示"
Else
Me.UsedRange.EntireColumn.Hidden = False
.Caption = "非表示"
End If
End With
End Sub
|
|
kanabun
- 14/10/6(月) 16:35 -
