Excel VBA質問箱 IV

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

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


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

67147 / 76734

←次へ　｜　前へ→


	【14146】Re:セルの文字を変換させたいです

ichinose - 04/5/21(金) 20:05 -


	引用なし

	パスワード

▼kc さん：
こんばんは。

>初めての投稿です。
>VBAも初心者なのでよろしくお願いします。
>
>もともとのデータはデータベース(DB)にあるのですが
>そのDBを参照し
>あるセルに文字をいれてるのですが
>そのDBのステイタスによってセルの文字を変換させたいのです。
>
>例えばあるセルにKCという文字があります。
>DBにKCとそのKCのステイタスを表すデータがあります。
>もしDBのKCのステイタスが"BAD"であった場合
>そのKCとかかれてるセルを"BAD"に変換したいのです。
>
>現在は下記の用に設定してありセルの色とフォントを変えるだけになってます。
>If (strStatus = "BAD") Then
>Selection.Font.Bold = True
>Selection.Font.ColorIndex = 1
>Selection.Interior.ColorIndex = 4
>
>ただしこの文字の変換は一回きりではなくて
>何回も変換可能にしたいのですが
>（DBのKCのステイタスはBAD,GOOD,DONEなどありますので）
>使ってるセルはマクロを走らせる度にKCと表示されてないと
>DBのステイタスを参照できないので。
>
>[DB]　　　　 BAD　　--> GOOD　 --> DONE
>[xls]　KC-->BAD　KC--> GOOD KC--> DONE
>
>よろしくお願いします
正直、どうしたいのかがわかりませんが、
「セルの値とDBの値を比較した結果、セルの表示を変えたい」
という意味でしょうか？
例えば、セルA1の値は、"kc"だけど、表示は、"bad"というふうに・・・。
上記のような処理なら書式設定で可能ですが、

>If (strStatus = "BAD") Then
>Selection.Font.Bold = True
>Selection.Font.ColorIndex = 1
>Selection.Interior.ColorIndex = 4
Selection.NumberFormatLocal = ";;;""bad"""

但し、上記の書式設定は、セルの中身が"kc"のような文字列の場合です。
数値の場合は、書式記号が違ってきます。

こんな意味でしょうか？

3 hits

▼

【14145】セルの文字を変換させたいです kc 04/5/21(金) 19:39