| |
▼'gggg さん：
こんばんは。
>ボタンを押し続ける間、実行し続くようにしたい、のですga、
>VBA、始めたばかりの、老人=56才の私にも分かるように、教えて下さい。
56歳からＶＢＡですか？頭が下がる思いです・・・。
まず、
・新規ブックを作成します。このブックのSheet1というシートを対象にします。
・ツールバー「コントロールツールボックス」にあるコントロール「トグルボタン」を
Sheet1の適当な場所に配置して下さい
(但し、セルＡ１~Ａ１１は避けること、ここはスクロールさせるセル範囲ですから）。
・もし、このツールバー「コントロールツールボックス」見つからない場合は、
「表示」-------「ツールバー」とクリックすると、ツールバー一覧が表示されます。
この時、「コントロールツールボックス」にチェックが入っていなければ、
チェックしてください。
ツールバー「コントロールツールボックス」が表示されます。
既にチェックが入っていれば、どこかに
あるはずです。よく探してみて下さい。
・シートにトグルボタンが作成できたら、このトグルボタンを選択した状態で
「右クリック」----「コードの表示」をクリックして下さい。
・ビジュアル ベーシック エディタ（ＶＢＥ）が起動され、画面上に
Private Sub ToggleButton1_Click()
End Sub
こんなコードが表示されていると思います。
このPrivate Sub ToggleButton1_Click()とEnd Subの間にコードを記述します。
Private Sub ToggleButton1_Click()
Dim ni As Long
With ToggleButton1
Do While .Value
Cells(11, 1).Value = Cells(1, 1).Value
For ni = 1 To 10
Cells(ni, 1).Value = Cells(ni + 1, 1).Value
Next
Cells(11, 1).Value = ""
DoEvents
Loop
End With
End Sub
これを記述したら、ＶＢＥを閉じてください。
Excelシート上のトグルボタンを選択した状態が表示されます。
・ツールバー「コントロールツールボックス」のデザインモードの終了
（三角定規のアイコン）をクリックして下さい。
・ セルＡ１に適当な文字を入れてください（例えば「スクロール」なんて入力します）。
これで準備完了です。
トグルボタンをクリックして下さい。
スクロールという文字がセルＡ１１〜Ａ１の間をスクロールするでしょう？
再度、トグルボタンをクリックすると、スクロールが停止します。
但し、このプログラムには大きな問題があるんです。
トグルボタンをクリックしてスクロール表示中に任意のセルに文字入力を行うと
プログラムは、止まってしまいます。
これを是正するためには少し工夫が必要ですが、ここでは省略します。
ここでは、コントロールの使い方や提示したコードをＨＥＬＰ等を使って
コードが理解できるように調べてみて下さい。
まずは、プログラムが動作させることを考えてみて下さい。
|
|
ichinose
- 06/7/30(日) 20:44 -
