Excel VBA質問箱 IV

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

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


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

63067 / 76732

←次へ　｜　前へ→


	【18264】検索したセルと同じ書式にかえる。

はらぺこおおかみ - 04/9/20(月) 8:25 -


	引用なし

	パスワード

こんにちは。

VBAで次の処理をさせる場合、どのように
したら良いのでしょうか？

1.シ－ト1の表にあるセルの値に一致する
　セルをシート２から探す。
2.シート２で検索されたセルの書式を
　シート１のリストの書式に併せる。
3.一致しないセルはそのままの書式にする。

例えば
　　シート1の表は
　　　　A1　　　値：名前(見出し）
　　　　A2　　　値：りんご　　形式：太字，赤
　　　　A3　　　値：みかん　　形式：太字，青
　　　　A4　　　値：いちご　形式：太字，緑

　　シート２の表は
　　　　M 7　　　値：名前（見出し）
　　　　M 8　　　値：りんご（ｼ-ﾄ1のA2と同じ→形式：太字，赤へ変更）
　　　　M 9　　　値：みかん（ｼ-ﾄ1のA3と同じ→形式：太字，青へ変更）
　　　　M10　　　値：すだち（ｼ-ﾄ1にないので､書式そのまま）
　　　　M11　　　値：りんご（ｼ-ﾄ1のA2と同じ→形式：太字，赤へ変更）

　　　　　　　　　　・
　　　　　　　　　　・
　　　　　　　　　　・
　　　　M500　　値：いちご（ｼ-ﾄ1のA2と同じ→形式：太字，緑へ変更）

AutoFilterとPastSspecialの組み合わせや､Replacementを試してみたのですが
上手くいきませんでした｡EXCELはExel97を使用しています｡
　

1 hits

▼

【18264】検索したセルと同じ書式にかえる。 はらぺこおおかみ 04/9/20(月) 8:25

≪