|
▼初心者でごめんなさい さん:
こんばんは。
>コーディングプログラミングを書きたいのですが、シート1にテキストボックスと
>コマンドボタンを付けて、数字を入れてコマンドボタンを押すとシート2が数字を入れた分だけ列が非表示になるようにしたいのですがどうすればいいのかわかりません。PCをはじめたばっかしでまったくわかりません。お手数ですが教えてください。お願いします
テキストボックス(textbox1)とコマンドボタン(commandbutton1)、いずれも「コントロールツールボックス」にあるコントロールとします。
コマンドボタンのクリックイベントで、
'======================================
Private Sub CommandButton1_Click()
With OLEObjects("textbox1").Object
For idx = 1 To Val(.Text)
With Worksheets("sheet2")
.Columns(idx).Hidden = True
End With
Next idx
End With
End Sub
実際には、テキストボックスの内容が数字か否かとか、255を超えていないかとかの
チェックもしなければなりませんが、省略しています。
|
|