Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29305 / 76738

←次へ　｜　前へ→


	【52715】Re:テキストボックスをカラーパレットの色で塗る

ichinose - 07/11/27(火) 20:17 -


	引用なし

	パスワード

▼けにちさん：
こんばんは。

>Userformにtextboxを配置して、そこに数字を入れるとそのtextboxが
>指定したカラーパレットの番号の色に変更されるようにしたいのですが、
>.backcolorプロパティに数字を指定してもうまくいきません。
>
>たとえば、下記のようにすると
>
>Private Sub TextBox1_Change()
>　　TextBox1.BackColor = 3
>End Sub
>
>赤にならずに黒くなります。
>("3"はカラーパレットでは赤ですが、RGBでは黒に近い色です。)

このChangeイベントが妥当か否かは？？？ですが、

Private Sub TextBox1_Change()
　　With TextBox1
　　　 If Val(.Value) >= 1 And Val(.Value) <= 56 Then
　　　　　.BackColor = ActiveWorkbook.Colors(Val(.Value))
　　　　　End If
　　　 End With
End Sub
これで試してみてください

0 hits

▼

【52712】テキストボックスをカラーパレットの色で塗る けにち 07/11/27(火) 14:51