|
▼ichinose さん:
>▼'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等を使って
>コードが理解できるように調べてみて下さい。
>
>まずは、プログラムが動作させることを考えてみて下さい。
'<<ichinoseさん、有難うございます、>>
'Windowを縦2分割にして,左Windowをグラフ、右Windowを銘柄検索で、ぐるぐるUP,DOWNスクロールー掛けると、
'仲良くグラフが、スクロールする、...ichinoseさんのおかげで、グラフが1人立ち出来ました。
|
|