Excel VBA質問箱 IV

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

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


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

67148 / 76734

←次へ　｜　前へ→


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

kc - 04/5/21(金) 19:39 -


	引用なし

	パスワード

初めての投稿です。
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

よろしくお願いします

3 hits

▼

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

≪