Excel VBA質問箱 IV

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

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


45262 / 76732 ←次へ | 前へ→

【36471】Re:セル内の斜体字の検査→全てのセルを対象...
回答  Kein  - 06/3/31(金) 21:10 -

引用なし
パスワード
   Sub Test_Check_Ita()
  Dim MyR As Range, C As Range
  Dim i As Integer
 
  On Error GoTo ELine
  Set MyR = Cells.SpecialCells(2, 2)
  On Error GoTo 0
  For Each C In MyR
   For i = Len(C.Value) To 2 Step -1
     If C.Characters(i, 1).Font.Italic _
     Xor C.Characters(i - 1, 1).Font.Italic Then
      C.Characters(i, 0).Insert "@"
     End If
   Next i
  Next
  Set MyR = Nothing
ELine:
End Sub

で、どうでしょーか ? テストしてみたら、ちょっと見づらくて正確に出来た
かどうか、はっきりしませんでしたが・・。
3 hits

【36468】セル内の斜体字の検査→全てのセルを対象... かいと 06/3/31(金) 20:45 質問
【36471】Re:セル内の斜体字の検査→全てのセルを対... Kein 06/3/31(金) 21:10 回答
【36538】Re:セル内の斜体字の検査→全てのセルを... かいと 06/4/2(日) 22:36 お礼

45262 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free