Excel VBA質問箱 IV

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

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


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

569 / 76735

←次へ　｜　前へ→


	【81832】セル内の文字色操作

こまおじ - 21/6/19(土) 5:30 -


	引用なし

	パスワード

教えてください。

セル内の文字が斜体だった場合にのみ、
赤色にするコードを作成したのですが、
先頭文字が斜体で、かつ、ほかの文字が斜体だった場合に、
書式情報が壊れてしまう状態になります。
※セル全体が斜体文字の場合は書式は正常のままです。
具体的な文字列を記載しますと
「１２３４５６７８９」
で「１と３」や「１と９」の状態だと書式情報が壊れます。

これはvba上のバグなのでしょうか？
回避策などがありましたら、教えてください。

以下が作成したコードです。
※対象のセルのアドレスは1，1となっていますが、
　実際は変数でループ処理にしています。

For 開始位置 = 1 To Len(Cells(1, 1))
　If Cells(1, 1).Characters(開始位置, 1).Font.Italic = True Then
　　Cells(1, 1).Characters(開始位置, 1).Font.ColorIndex = 3
　End If
Next

7 hits

▼

【81832】セル内の文字色操作 こまおじ 21/6/19(土) 5:30