Excel VBA質問箱 IV

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

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


4945 / 76732 ←次へ | 前へ→

【77401】Re:テキストボックスのスクロールバー
お礼  tomi  - 15/9/9(水) 5:05 -

引用なし
パスワード
   ▼マナ さん:
>▼tomi さん:
>
>これも、期待するものと違うかもしれませんが、
>都度、一定のフォントサイズにして行数をカウントするのはだめですか
>
>Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
>  With TextBox1
>    .Font.Size = 14
>    MsgBox .LineCount
>    If .LineCount > 5 Then
>      .Font.Size = 10
>    Else
>      .Font.Size = 14
>    End If
>  End With
>End Sub
マナさんありがとうございます。上記でテストをしましたが、行数だけではなかなか私の希望が出来ないことがわかりました。文字数を減らし場合(行数が減る場合)にはフォントを一つ上げるとかです。そしてbeforeUpdateでなく、できればchangeイベントで実行したいと思っています。
 以上 よろしくお願いします。

339 hits

【77393】テキストボックスのスクロールバー tomi 15/9/8(火) 16:19 質問[未読]
【77394】Re:テキストボックスのスクロールバー カリーニン 15/9/8(火) 19:25 発言[未読]
【77395】Re:テキストボックスのスクロールバー tomi 15/9/8(火) 19:45 発言[未読]
【77396】Re:テキストボックスのスクロールバー カリーニン 15/9/8(火) 20:02 発言[未読]
【77397】Re:テキストボックスのスクロールバー tomi 15/9/8(火) 20:32 発言[未読]
【77398】Re:テキストボックスのスクロールバー カリーニン 15/9/8(火) 20:39 発言[未読]
【77400】Re:テキストボックスのスクロールバー tomi 15/9/9(水) 5:00 お礼[未読]
【77399】Re:テキストボックスのスクロールバー マナ 15/9/8(火) 20:50 発言[未読]
【77401】Re:テキストボックスのスクロールバー tomi 15/9/9(水) 5:05 お礼[未読]
【77402】Re:テキストボックスのスクロールバー β 15/9/9(水) 7:16 発言[未読]
【77403】Re:テキストボックスのスクロールバー tomi 15/9/9(水) 7:51 お礼[未読]
【77404】Re:テキストボックスのスクロールバー β 15/9/9(水) 9:28 発言[未読]

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