ベストアンサー

Excel VBA ListViewサブアイテムの文字色

2007/10/19 14:33

Excel VBA ListViewにおいて、特定の行のサブアイテム(２列目以降）の文字色を変更することは可能でしょうか？

tn2008
お礼率100% (1/1)

その他（プログラミング・開発）
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

fumufumu_2006
ベストアンサー率66% (163/245)

2007/10/20 08:11 回答No.1

ListView1.ListItems(?).ListSubItems(?).ForeColor = RGB(?,?,?) と言う形では

質問者

お礼 2007/10/20 09:27

出来ました！ありがとうございました。m(_ _)m

関連するQ&A

ListViewでサブアイテムが表示されない

VC++2008にて、プロジェクト形式がWindowsエクスプローラの MFCアプリケーションにてプログラムを作成しています。 ListViewにて、InsertColumn、InsertItem、SetItemTextを行い、カラムと項目のデータ設定をしているのですが、 ListViewを詳細表示にすると、設定したサブアイテムが表示されない場合があります。 InsertItemで設定した文字列は、設定した分だけ、左端にキチンと表示されているのですが、それ以降のサブアイテムについては、表示されている行もあれば表示されていない行もあります。 1行に複数のサブアイテムを設定しているのですが、表示されている場合は、サブアイテム全てが表示されており、表示されていない場合は、サブアイテム全てが表示されていません。デバッグで追う限り、データ設定自体は問題なく、表示される行と、されない行について、差異を探してみましたが、別段、違ったことはしていません。 ListViewについては、PreCreateWindowにて cs.style |= TVS_SHOWSELALWAYS; cs.style |= LVS_SINGLESEL; cs.style &= ~LVS_TYPEMASK; 上記、設定を行っています。この他に、何か設定が足りなくて、表示されていないのでしょうか？
エクセル VBA 特定の文字列

エクセル VBA 特定の文字列 A列に、様々な文字列があるとします。そのうち、りんごと書かれている行のみを別シートに書き出すマクロを教えてください。お願い致します。
Exce VBA ListViewの文字位置

ExcelのUserForm内のListViewで文字位置を設定しようと思いますが、ヘッダー行とデータ行で位置が連動しているようです。ヘッダー行はすべてセンター、データ行は文字は左、数値は右という風にはできないのでしょうか？よろしくお願いいたします。
エクセル2003のVBAを教えて

エクセル2003のVBAを教えてください。次の対象データで、(1)(2)(3)の作業が出来るエクセルVBAを教えて下さい。 (1)(2)(3)個々のVBAでお願いします。 ●対象データ：種類(A列)、文字(B列)、　　　データの行数：不特定なので、データのある最終行までとします。 ●教えていただきたい項目　(1)：種類だけを(C列)に取り出す。　(2)：種類の先頭に空白の行を3行入れて、追加の２行目の種類(A列)に文字(B列)を入れる。　(3)：種類が5行以上あるときは、5行ごとに空白行を追加する。 ●対象データ種類(A列)　　　文字(B列) AA　　　　　　　あああ BB　　　　　　　いいい BB　　　　　　　いい BB　　　　　　　いいい CC　　　　　　　うう CC　　　　　　　うう DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ ●(1)のVBAの結果(このようになるVBAを教えてください。) (C列) AA BB CC DD ●(2)、(3)のVBAの結果(このようになるVBAを教えてください。) 種類(A列) 　　　文字(B列) あああ AA　　　　　　　　あああいいい BB　　　　　　　　いいい BB　　　　　　　　いいい BB　　　　　　　　いいいうう CC　　　　　　　　うう CC　　　　　　　　ううええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ
エクセルVBAで特定の文字を含まない行を削除する

エクセルＶＢＡで特定の文字列（たとえば” りんご ”）を含まない行を削除するものを作成したいです。 ” りんご ”がＢ列だけにしかない場合は作成できたのですが、 ” りんご ”がＢ列とＣ列にも含まれていてどちらかに含まれていたら、その行を残して、それ以外の行を削除したい場合にはどうしたらいいのかわかりませんでした。教えてください。　
エクセルで特定の文字列が入った行を非表示にしたい

エクセル（９７）で特定の列のセルに特定の文字列が入った行を非表示にする機能はありますでしょうか？例えばＣ列の3行目以降から「無し」という文字列が入ったらその行を非表示にしたいのですが・・・
Excel　ＶＢＡ等での処理方法

123　　　　　　　　　　　　 12345　　　　　　　 123456 1234567 ↓ 0000123 0012345 0123456 1234567 ＶＢＡもしくは関数の処理で、Ａ1に7と入れ場合、上記のように、Ａ2以降が123であれば0000123、1234であれば0001234、1234567なら、そのまま1234567になるように更に文字列にするにはどうすればいいでしょうか？処理行は不特定です。よろしくお願いします。
ListViewのサブアイテムの文字色

C# .NET のListViewのItem(行)毎の背景や文字色を変えることはできますが、SubItem毎の設定をすることはできるのでしょうか？ SubItemのBackColorやForeColorプロパティーを変更してもも見た目には変化がありません。よろしくお願いします。
EXCEL 2007　のVBAで

ＶＢＡでListViewを使用しているのですが、1行ごとに色を付けることはできますか？1行目は赤、2行目は青とか宜しくお願いします。
EXCEL VBAについて

いつも識者の皆様にはお世話になっております。 Excel VBAのことで質問させてください。下記のようなシートがあります。データの状態は下記です。 1. 1行目は必ずタイトル行になっています。 2. 1行目が「入荷_1」になっている列以降の日付はシリアル値となっています。 ※必ずしもG1が「入荷_1」となっているとは限りません。H1だったりI1だったりします。 VBAでやりたいことは下記です。 1. 過去取引と現在取引の状態によってA列に入力する文字列を変える。過去取引_1＝有　現在取引_1＝有　の場合　「OK」過去取引_1＝有　現在取引_1＝無　の場合　「NG」過去取引_1＝ブランク　現在取引_1＝有　の場合　「確認要」 2. 「入荷_1」以降の列で「入荷_1」「出荷_1」など、アンダーバー以降の文字列が同じになっている2列を一まとめとして、そのどちらかもしくは両方に日付の入っているセルを探し、その列の1行目の、アンダーバーの次の文字から最後の文字までを[]で囲んだ文字列をB列に入力する。 ※_1にも_2にもある場合は、アンダーバーを使って文字列を連結する。(B2セル) ※パイナップルやぶどうのように入荷か出荷のいずれかにしか日付が入っていないものもある。 3. タイトル行が「入荷_1」となっている列以降で日付の入っている列を探し、出荷から入荷を引いた数字をC列に入力する。 ※_1にも_2にもある場合は、アンダーバーを使って文字列を連結する。(C2セル) これを2行目から1行ずつ最後の行まで行い、かつ、このシートはブックにある複数のシートの中の1つですが、BA1セルが空白ではないシートにだけこの処理をしたいのです。どうやらSelect Caseという構文を使えばできそうだというところまで突き止めたものの、条件が僕には複雑すぎて（特に2列を1まとめにするところ）まったく進みません。どなたか、上記内容の場合どのような構文になるのか教えていただけませんでしょうか。よろしくお願いいたします。
VBAでセル内の文字列を一行にする方法

ExcelのVBAで、セル内に折り返しで３行に書かれている文字列を、各文字列間に空白を１つ入れて、１行につなげるにはどうしたらいいですか
エクセルで行内特定文字で色塗り、特定文字非表示。

エクセルで行内特定文字で色塗り、特定文字非表示。エクセル２０００です。Ｂ列３０から１０－５０－０１～２０、１１－５１－０１～３０とかの連番番号、Ｃ列３０からＯ列３０までの行に各情報入力がしてあります。行いたいのは、Ｂ列３０以降に１０－５０－０１～２０と記入してあれば－０１の行中のＦ、Ｇ、Ｈ、Ｊ、Ｋ、Ｌ、Ｍ、Ｏと、とびとびですが、文字表示をさせ、それ以外は（－０２から－２０まで）非表示（白色文字色）とし、かつ、Ｋ３０以降のセル内に「ＯＫ」の文字が入力されると、その行だけセルに色つけをしたいです。書式でできますでしょうか？現在、=RIGHT($B30,3)<>"-01"で－０１を表示、それ以降は非表示させていましたが、Ｋ３０以降のセル内に「ＯＫ」での行に色つけが必要になり、方法がわかりません。よろしくお願いします。
エクセルでVBAのマクロを組みたい

VBA初心者です。エクセルで大量の情報があるとき、A列の文字列が”****”であって、さらにB列の文字列が”++++”であるときの、C列の値を検索したい。それを1行目から最下行まで行いたい場合、どのようなプログラムになりますか、教えてください。よろしくお願いします。
EXCEL VBA行のコピー繰り返し

EXCEL　VBAで行の特定の列の数字を読み取りコピーしてすぐに下の行に挿入して次の行へというようなことがしたいと考えております。例　商品ID１の数量の列の数値を読み取り4なら同じデータを3行追加する。追加後次の項目へ(商品ID2の行へ） VBAで可能でしょうか？
エクセル　VBAで入力

　エクセル初心者です。条件付き書式で一つのセルに特定の文字列を入力した際に、そのセルと任意の法則性のある複数のセルに（入力内容は無関係でセルの行・列に法則性があります）特定の塗りつぶしを行いたいのですが、どのようにすればよいのでしょうか。条件付き書式をすべて設定する（手打ち）するのが最も確実で間違いの内方法ではありますが、新規に行・列を挿入した場合、その行・列には条件付き書式が設定されていませんので、意図した作用を起こさなくなってしまいます。上記ではよくわからないと思いますので、具体的な例を入れさせていただきます。例)）任意のセル（A13)に特定の文字列（OK）と入力する。特定文字列に反応して、そのセルの列に（A12からE12、F12からH12）赤色の塗りつぶしを入れる。上記は１セルに対して行われますが、VBAを使用してA12からA5000までを検索対象として持たせて、それぞれのセルの列に対して塗りつぶしを入れられるようにしたいと思っています。
VBA　文字が入力されているセルを表示させたい

ExcelのVBAで列番号"Ａ列"に文字を適当に打った時文字が入っている最終セル(行番号)とその最終セルに入っている文字を "Ｃ１"のセルに表示させるというＶＢＡを作成したいのですガ… どなたかわかる方教えて下さい自分が考えたものはVBAが妙に長くなってしまい; Excelのバージョンが2000と古いので古いのでも動くVBAだと助かります; 宜しくお願いします
Excel VLOOKUPをVBAでやりたいのですが、分からなくて困っ

Excel VLOOKUPをVBAでやりたいのですが、分からなくて困ってます。 Sheet1のC列2行目行こうにSheet2のI列のデータを取得し（A列にﾃﾞｰﾀｰが入っている分、（時と場合により表示数が違う為））なおかつ Sheet1のD列2行目以降にB-Cの差し引きをおこなう以上のことをSheet1をアクティブにした時VBAでおこなうには、？教えて下さい。宜しくお願い致します。
VBAで左端文字を削除

エクセル2002使用です。 A列に文字列が１～1000行まで入力されています。文字列の左端に記号（1文字）が入力されているので削除したいのですが、（○株式会社あいうえお）←○を削除したい VBAで下記のように記述したのですが、実行時エラー４２４となります。 Sub 削除() 　Dim i As Integer 　For i = 1 To 1000 '行番号を変更　Left(Cells(i, 1).Value, 1).Delete '列番号を変更　Next End Sub よろしくお願いします。
ListViewについて

いつもお世話になっています。タイトルの通り、ListViewについて２つ質問があります。 (1)ListViewにDBから検索したデータを代入してますが、動きが遅いんです。　各項目ごとで色を変更したりするためだと思いますが、ListViewの表示を速くする方法はなにかありませんか？　ちなみに今は、ListViewを２枚使って、データをセットしている間は、VisibleをFalseにして、　データセットが完了した時点で、Trueに切り替えています。 (2)(1)の動きで、ListViewを使っているところ、今表示されているListView（Iとします）で　クリックしたデータを次に表示させるListView（IIとします）に引き継がせたいです。　Iで、選択している行をIIで選択状態にすることはできたのですが、　Iで選択している行がスクロールして下にあった場合、IIでもスクロールした場所に　ListViewを移動させたいのですが、その方法が分かりません。何かご存知の方がいましたら、教えてください。よろしくお願いいたします。
特定の文字を除くＶＢＡ

特定の文字を除くためのＶＢＡについて質問させてください。あるマクロを実行したときに、インプットボックスを表示させ、特定の文字や数字を入力します。そして、Ｈ列に入力した文字や数字を含まない行にある処理を行いたいと思います。以下のようにＶＢＡを入力してみたのですが、インプットボックスに入力した文字をうまく除外してくれません。一体どういった書き方が正しいのでしょうか～？！ご教授いただけるととても助かります！よろしくお願いいたします。 message = InputBox("文字を入力して下さい") If Not Cells(行, H).Value Like "*" & message & "*" Then 処理

Excel VBA ListViewサブアイテムの文字色

質問者が選んだベストアンサー

お礼 2007/10/20 09:27

関連するQ&A

ListViewでサブアイテムが表示されない

エクセル VBA 特定の文字列

Exce VBA ListViewの文字位置

エクセル2003のVBAを教えて

エクセルVBAで特定の文字を含まない行を削除する

エクセルで特定の文字列が入った行を非表示にしたい

Excel　ＶＢＡ等での処理方法

ListViewのサブアイテムの文字色

EXCEL 2007　のVBAで

EXCEL VBAについて

VBAでセル内の文字列を一行にする方法

エクセルで行内特定文字で色塗り、特定文字非表示。

エクセルでVBAのマクロを組みたい

EXCEL VBA行のコピー繰り返し

エクセル　VBAで入力

VBA　文字が入力されているセルを表示させたい

Excel VLOOKUPをVBAでやりたいのですが、分からなくて困っ

VBAで左端文字を削除

ListViewについて

特定の文字を除くＶＢＡ

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Excel VBA ListViewサブアイテムの文字色

質問者が選んだベストアンサー

お礼 2007/10/20 09:27

関連するQ&A

ListViewでサブアイテムが表示されない

エクセル VBA 特定の文字列

Exce VBA ListViewの文字位置

エクセル2003のVBAを教えて

エクセルVBAで特定の文字を含まない行を削除する

エクセルで特定の文字列が入った行を非表示にしたい

Excel ＶＢＡ等での処理方法

ListViewのサブアイテムの文字色

EXCEL 2007 のVBAで

EXCEL VBAについて

VBAでセル内の文字列を一行にする方法

エクセルで行内特定文字で色塗り、特定文字非表示。

エクセルでVBAのマクロを組みたい

EXCEL VBA行のコピー繰り返し

エクセル VBAで入力

VBA 文字が入力されているセルを表示させたい

Excel VLOOKUPをVBAでやりたいのですが、分からなくて困っ

VBAで左端文字を削除

ListViewについて

特定の文字を除くＶＢＡ

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Excel　ＶＢＡ等での処理方法

EXCEL 2007　のVBAで

エクセル　VBAで入力

VBA　文字が入力されているセルを表示させたい

カテゴリ
一覧

専門家に質問してみよう
専門家登録