| |
▼ichinose さん：
>▼'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さん､有難うございます､>>
'Windowを縦2分割にして,左Windowをグラフ、右Windowを銘柄検索で、ぐるぐるUP,DOWNスクロールー掛けると、
'仲良くグラフが、スクロールする、...ichinoseさんのおかげで、グラフが１人立ち出来ました。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
