Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7111 / 13644 ツリー ←次へ | 前へ→

【41110】'Window のスクロール~風、に、ボタンを... 'gggg 06/7/30(日) 13:28 質問[未読]
【41115】Re:'Window のスクロール~風、に、ボタン... ichinose 06/7/30(日) 20:44 発言[未読]
【41144】<<ichinoseさん、有難うございます... 'gggg 06/7/31(月) 20:08 お礼[未読]

【41110】'Window のスクロール~風、に、ボタンを...
質問  'gggg  - 06/7/30(日) 13:28 -

引用なし
パスワード
   ボタンを押し続ける間、実行し続くようにしたい、のですga、
VBA、始めたばかりの、老人=56才の私にも分かるように、教えて下さい。
(前回、投稿場所を間違えて、お礼を書き込でしまい、みなさんに迷惑をお掛けしました、すみません、懲りずに、教えて下さい。)

Sub ぐるぐる()
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 = ""
'チョトおやすみTime
End Sub

【41115】Re:'Window のスクロール~風、に、ボタン...
発言  ichinose  - 06/7/30(日) 20:44 -

引用なし
パスワード
   ▼'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等を使って
コードが理解できるように調べてみて下さい。

まずは、プログラムが動作させることを考えてみて下さい。

【41144】<<ichinoseさん、有難うございます...
お礼  'gggg  - 06/7/31(月) 20:08 -

引用なし
パスワード
   ▼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人立ち出来ました。

7111 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free