Excel VBA質問箱 IV

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

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


11602 / 13646 ツリー ←次へ | 前へ→

【15127】テキストボックス・スクロールバー てろ 04/6/16(水) 11:17 質問[未読]
【15130】Re:テキストボックス・スクロールバー Asaki 04/6/16(水) 11:36 回答[未読]
【15131】Re:テキストボックス・スクロールバー つん 04/6/16(水) 11:44 回答[未読]
【15133】Re:テキストボックス・スクロールバー Asaki 04/6/16(水) 11:58 発言[未読]
【15201】Re:テキストボックス・スクロールバー てろ 04/6/17(木) 13:31 質問[未読]
【15203】Re:テキストボックス・スクロールバー Asaki 04/6/17(木) 13:34 回答[未読]
【15202】Re:テキストボックス・スクロールバー てろ 04/6/17(木) 13:31 質問[未読]
【15204】Re:テキストボックス・スクロールバー Asaki 04/6/17(木) 13:37 回答[未読]
【15206】Re:テキストボックス・スクロールバー てろ 04/6/17(木) 14:03 質問[未読]
【15208】Re:テキストボックス・スクロールバー つん 04/6/17(木) 14:15 回答[未読]
【15209】Asakiさん・つんさん、有難うございます てろ 04/6/17(木) 14:24 お礼[未読]
【15210】横レスすいません! ミカ 04/6/17(木) 14:46 発言[未読]
【15212】出来ないような気が・・・・ つん 04/6/17(木) 15:08 発言[未読]
【15216】Re:出来ないような気が・・・・ ミカ 04/6/17(木) 16:01 お礼[未読]

【15127】テキストボックス・スクロールバー
質問  てろ  - 04/6/16(水) 11:17 -

引用なし
パスワード
   初めまして。
どなたか教えてください。
テキストボックスとスクロールバーを
連動させるコードを教えて下さい。

宜しくです。

【15130】Re:テキストボックス・スクロールバー
回答  Asaki  - 04/6/16(水) 11:36 -

引用なし
パスワード
   こんにちは。

テキストボックスとは、どこにある、どのテキストボックスでしょうか?

コントロールツールボックスのテキストボックスなら
MultiLine プロパティをTrue
ScrollBars プロパティをお好みのものに設定するとよさそうです。

【15131】Re:テキストボックス・スクロールバー
回答  つん E-MAIL  - 04/6/16(水) 11:44 -

引用なし
パスワード
   こんにちは〜

Asakiさん、よこから失礼します。

>コントロールツールボックスのテキストボックスなら
>MultiLine プロパティをTrue
>ScrollBars プロパティをお好みのものに設定するとよさそうです。

あ、そういうことなんかな?
私はこっちかと思ってました。

Private Sub UserForm_Initialize()

  With ScrollBar1
    .Min = 0
    .Max = 200
    .LargeChange = 50
    .SmallChange = 5
  End With
  
End Sub

Private Sub ScrollBar1_Change()
  
  TextBox1.Value = ScrollBar1.Value

End Sub

スクロールバーで、テキストボックスの値を上下させるのです。

【15133】Re:テキストボックス・スクロールバー
発言  Asaki  - 04/6/16(水) 11:58 -

引用なし
パスワード
   つん さん、こんにちは。

>スクロールバーで、テキストボックスの値を上下させるのです。
あ〜、そっちですか〜。
ユーザーフォームにスクロールバーつけて、画面表示をスクロール。。。?
までは考えたんですが。。。

スピンボタンでもよさそうですが、データ件数が多いとちょっとつらいですからね。

【15201】Re:テキストボックス・スクロールバー
質問  てろ  - 04/6/17(木) 13:31 -

引用なし
パスワード
   うまくいかないみたいです、、、。

テキストボックスにテキストをいれ
改行したら、スクロールバーも前後
するようにしたいのですが、、。

【15202】Re:テキストボックス・スクロールバー
質問  てろ  - 04/6/17(木) 13:31 -

引用なし
パスワード
   うまくいかないみたいです、、、。

テキストボックスにテキストをいれ
改行したら、スクロールバーも前後
するようにしたいのですが、、、。

【15203】Re:テキストボックス・スクロールバー
回答  Asaki  - 04/6/17(木) 13:34 -

引用なし
パスワード
   結局、どうしたいのですか?
テキストボックス自体にスクロールバーをつけるのですか?

うまくいかないとは、どのような状態ですか?
どうなってほしいのに、こうなってしまう、というように、状況を教えてください。

【15204】Re:テキストボックス・スクロールバー
回答  Asaki  - 04/6/17(木) 13:37 -

引用なし
パスワード
   >テキストボックスとは、どこにある、どのテキストボックスでしょうか?
こちらも、答えていただいてないですね。

【15206】Re:テキストボックス・スクロールバー
質問  てろ  - 04/6/17(木) 14:03 -

引用なし
パスワード
   すいません。。。
ユーザーフォームに設置した
テキストボックスとスクロールバーです。

よろしくおねがいします。

【15208】Re:テキストボックス・スクロールバー
回答  つん E-MAIL  - 04/6/17(木) 14:15 -

引用なし
パスワード
   こんにちは。
やっぱり、Asakiさんの読み?が正しかったですね。

>ユーザーフォームに設置した
>テキストボックスとスクロールバーです。
てろさんは、スクロールバーコントロールを配置してはるんですか?
あれは、私が使ったような使い方をするコントロールです。

普通に

Private Sub UserForm_Initialize()

  TextBox1.ScrollBars = fmScrollBarsVertical
  TextBox1.MultiLine = True

End Sub

これで、自然にテキストボックスからはみ出したときに出てくると思いますが・・

【15209】Asakiさん・つんさん、有難うございます
お礼  てろ  - 04/6/17(木) 14:24 -

引用なし
パスワード
   ありがとうございます!!!
出来ました・・・初心者でご迷惑
おかけ致しました。


>普通に
>
>Private Sub UserForm_Initialize()
>
>  TextBox1.ScrollBars = fmScrollBarsVertical
>  TextBox1.MultiLine = True
>
>End Sub
>
>これで、自然にテキストボックスからはみ出したときに出てくると思いますが・・

【15210】横レスすいません!
発言  ミカ  - 04/6/17(木) 14:46 -

引用なし
パスワード
   >Private Sub UserForm_Initialize()
>
>  TextBox1.ScrollBars = fmScrollBarsVertical
>  TextBox1.MultiLine = True
>
>End Sub

横レスでごめんなさい。
つんさん、初めまして★
上のコードでスクロールバーを出す場合、
スクロールバーの色はコードで指定出来ますか?

お時間ある時にでも教えてください★

【15212】出来ないような気が・・・・
発言  つん E-MAIL  - 04/6/17(木) 15:08 -

引用なし
パスワード
   >つんさん、初めまして★

はい、初めまして、こんにちは。

>上のコードでスクロールバーを出す場合、
>スクロールバーの色はコードで指定出来ますか?

んーーーー、絶対出来ない!とはよー断言しませんが、
おそらく出来ないんじゃないかと思います。

今、ちょっと見てみたけど、
私にはわかりませんでした(T_T)

【15216】Re:出来ないような気が・・・・
お礼  ミカ  - 04/6/17(木) 16:01 -

引用なし
パスワード
   >んーーーー、絶対出来ない!とはよー断言しませんが、
>おそらく出来ないんじゃないかと思います。
>
>今、ちょっと見てみたけど、
>私にはわかりませんでした(T_T)

vbaでそこまでは無理ですかね 苦笑。
ありがとうございます。

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