|
初めての投稿です。
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
よろしくお願いします
|
|