| |
▼ゆーあ さん：
>イメージ通りの動作を確認出来ました！！ありがとうございます！！
>検索方法や文字があるセル位置から、列を指定する方法かなり勉強になりす！
>１点だけ、
>ご説明不足で大変恐縮で御座いますが、
>４行目に「原単価」「実行単価」の文字が２箇所あります。
あ〜、そういうのはあらかじめ条件として言っておいてもらわないと、
（Match関数は最初の１つを見つけるだけなので）
書き方まるで変わってきます。
複数列のばあいの一サンプルです。
Private Sub ToggleButton1_Click()
Dim i As Long, ss As String
With ToggleButton1
If .Caption = "非表示" Then
For i = 1 To Me.UsedRange.Columns.Count
Select Case Cells(4, i).Value
Case "原単価", "実行単価"
Columns(i).Hidden = True
End Select
Next
.Caption = "表示"
Else
Me.UsedRange.EntireColumn.Hidden = False
.Caption = "非表示"
End If
End With
End Sub
|
|
kanabun
- 14/10/6(月) 19:49 -
