Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8646 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【32044】縦スクロールバーについて ぐっさん 05/12/5(月) 13:33 質問[未読]
【32045】Re:縦スクロールバーについて ちくたく 05/12/5(月) 13:37 発言[未読]
【32046】Re:縦スクロールバーについて ぱっせんじゃー 05/12/5(月) 13:39 発言[未読]
【32047】Re:縦スクロールバーについて inoue 05/12/5(月) 13:41 回答[未読]
【32049】Re:縦スクロールバーについて ぐっさん 05/12/5(月) 14:23 回答[未読]
【32058】Re:縦スクロールバーについて ぐっさん 05/12/5(月) 16:36 質問[未読]
【32044】縦スクロールバーについて
質問  ぐっさん  - 05/12/5(月) 13:33 -
引用なし
パスワード
   教えてください。
TextBoxのプロパティで「ScrollBars」を「fmScrollBarsVartical」にしても
スクロールバーが表示されません。
プロパティの設定だけではダメなんでしょうか？
【32045】Re:縦スクロールバーについて
発言  ちくたく WEB  - 05/12/5(月) 13:37 -
引用なし
パスワード
   ぐっさん さん。
こんにちは。

設定はそれだけだったように記憶していますが、
テキストボックスの表示限界をこえても、
バーは表示されませんか？

テキストボックスをいっぱいに埋めてみてください。
【32046】Re:縦スクロールバーについて
発言  ぱっせんじゃー  - 05/12/5(月) 13:39 -
引用なし
パスワード
   MultiLineがFalseになっているとか？
【32047】Re:縦スクロールバーについて
回答  inoue E-MAILWEB  - 05/12/5(月) 13:41 -
引用なし
パスワード
   「MultiLine」も「True」にして下さい。
【32049】Re:縦スクロールバーについて
回答  ぐっさん  - 05/12/5(月) 14:23 -
引用なし
パスワード
   ▼inoue さん、ちくたくさん、ぱっせんじゃーさん：
みなさん、ありがとうございます。

データをテキストボックス一杯に入力しても、
MultiLineをTrueにしても表示されません。
ソースに問題があるのでしょうか？
下記がソースです。

Private Sub cmb_TempNo_Click()
Dim lMaxRow As Long
Dim lDataCnt As Long
Dim sData As String
Dim sTotalD As String

lMaxRow = Cells(Application.Rows.Count, 1).End(xlUp).Row

　　For lDataCnt = 3 To lMaxRow
　　　　sData = Cells(lDataCnt, 1) & vbCrLf
　　　　sTotalD = sTotalD + sData
　　Next

Frm_Temp.TextBox1.Text = sTotalD
Frm_Temp.Show
　
End Sub
【32058】Re:縦スクロールバーについて
質問  ぐっさん  - 05/12/5(月) 16:36 -
引用なし
パスワード
   ▼ぐっさん さん：
>▼inoue さん、ちくたくさん、ぱっせんじゃーさん：
>みなさん、ありがとうございます。
>
>データをテキストボックス一杯に入力しても、
>MultiLineをTrueにしても表示されません。
>ソースに問題があるのでしょうか？
>下記がソースです。
>
>Private Sub cmb_TempNo_Click()
>Dim lMaxRow As Long
>Dim lDataCnt As Long
>Dim sData As String
>Dim sTotalD As String
>
>lMaxRow = Cells(Application.Rows.Count, 1).End(xlUp).Row
>
>　　For lDataCnt = 3 To lMaxRow
>　　　　sData = Cells(lDataCnt, 1) & vbCrLf
>　　　　sTotalD = sTotalD + sData
>　　Next
>
>Frm_Temp.TextBox1.Text = sTotalD
>Frm_Temp.Show
>　
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8646 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free