|
▼'gggg さん:
こんばんは。
>ボタンを押し続ける間、実行し続くようにしたい、のですga、
>VBA、始めたばかりの、老人=56才の私にも分かるように、教えて下さい。
56歳からVBAですか?頭が下がる思いです・・・。
まず、
・新規ブックを作成します。このブックのSheet1というシートを対象にします。
・ツールバー「コントロールツールボックス」にあるコントロール「トグルボタン」を
Sheet1の適当な場所に配置して下さい
(但し、セルA1~A11は避けること、ここはスクロールさせるセル範囲ですから)。
・もし、このツールバー「コントロールツールボックス」見つからない場合は、
「表示」-------「ツールバー」とクリックすると、ツールバー一覧が表示されます。
この時、「コントロールツールボックス」にチェックが入っていなければ、
チェックしてください。
ツールバー「コントロールツールボックス」が表示されます。
既にチェックが入っていれば、どこかに
あるはずです。よく探してみて下さい。
・シートにトグルボタンが作成できたら、このトグルボタンを選択した状態で
「右クリック」----「コードの表示」をクリックして下さい。
・ビジュアル ベーシック エディタ(VBE)が起動され、画面上に
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
これを記述したら、VBEを閉じてください。
Excelシート上のトグルボタンを選択した状態が表示されます。
・ツールバー「コントロールツールボックス」のデザインモードの終了
(三角定規のアイコン)をクリックして下さい。
・ セルA1に適当な文字を入れてください(例えば「スクロール」なんて入力します)。
これで準備完了です。
トグルボタンをクリックして下さい。
スクロールという文字がセルA11〜A1の間をスクロールするでしょう?
再度、トグルボタンをクリックすると、スクロールが停止します。
但し、このプログラムには大きな問題があるんです。
トグルボタンをクリックしてスクロール表示中に任意のセルに文字入力を行うと
プログラムは、止まってしまいます。
これを是正するためには少し工夫が必要ですが、ここでは省略します。
ここでは、コントロールの使い方や提示したコードをHELP等を使って
コードが理解できるように調べてみて下さい。
まずは、プログラムが動作させることを考えてみて下さい。
|
|