Excel VBA質問箱 IV

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

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


31126 / 76732 ←次へ | 前へ→

【50861】Re:文字列の一部を指定範囲し別シートに複写したい
お礼    - 07/8/20(月) 0:59 -

引用なし
パスワード
   ▼neptune さん:
回答ありがとうございました。
実証の結果はOKなんですが、まだ、完全に理解していません。今後の参考にして勉強して行きます。

実は解決の目途が付いたと思って投稿したんですが、前に作ったのは『』の中を色文字にするというマクロで、色文字の場所を取得する方法でないことに気づき「しまった」と
ちょっと後悔したんですが、冷静に考え直したら何とかできました。

For i = 1 To Len(ActiveCell)
  Iro = ActiveCell.Characters(Start:=i, Length:=1).Font.ColorIndex
    If Iro = 3 Then
    myCount = myCount + 1
      If myCount = 1 Then
      Topmoji = i
        Else
        Lenmoji = Lenmoji + 1
      End If
    End If
Next

MsgBox Topmoji     ’赤字の文字位置
MsgBox Lenmoji + 1   ’赤字の文字長さ

これで、赤字の文字位置と文字長を確認したので、今度は確実にに出来ることが分りました。
ありがとうございました。
0 hits

【50854】文字列の一部を指定範囲し別シートに複写したい 07/8/19(日) 18:51 質問
【50856】Re:文字列の一部を指定範囲し別シートに複... Lindy 07/8/19(日) 20:59 発言
【50857】Re:文字列の一部を指定範囲し別シートに複... 07/8/19(日) 21:37 発言
【50858】Re:文字列の一部を指定範囲し別シートに複... 07/8/19(日) 22:59 お礼
【50860】Re:文字列の一部を指定範囲し別シートに複... neptune 07/8/19(日) 23:09 発言
【50859】Re:文字列の一部を指定範囲し別シートに複... neptune 07/8/19(日) 23:06 回答
【50861】Re:文字列の一部を指定範囲し別シートに複... 07/8/20(月) 0:59 お礼

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