Excel VBA質問箱 IV

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

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


40709 / 76732 ←次へ | 前へ→

【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等を使って
コードが理解できるように調べてみて下さい。

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

1 hits

【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 お礼

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