Excel VBA質問箱 IV

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

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


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

6348 / 76734

←次へ　｜　前へ→


	【75987】Re:A列B列シートの文字をみて別シートのC列を置換

kanabun - 14/8/15(金) 17:39 -


	引用なし

	パスワード

▼daisuke さん： >先頭とは限らないのです。 >◎◎から出荷　M 予定 >◎◎待ち　M >M >M取り扱い中止 >などなど > >品目だけ記号（記号はA～GZですがもっと増えていきそうです）でその部分だけ >を変換し変換した文字のみを色を付けたいのです。疑似コードで書くと >　　'---- シート２ >　　With Worksheets(2) >　　　　Set r = .Range("C1", .Cells(.Rows.Count, 3).End(xlUp)) >　　End With >　　For Each c In r 　　あるセルの文字列について　　　　Loopで記号 A～GZがあるか？ InStr関数で調べる　　　　　もしInStr関数が >0 を返したら、　　　　　　その位置から置換文字列で置換する。　　　　　　さらに置換文字列の長さだけFont色を変える　　　　　End If 　　　　Loopおわり　　Next c こうすればよいのでは？