Excel VBA質問箱 IV

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

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


39599 / 76732 ←次へ | 前へ→

【42243】Re:セル中の文字の置き換え方法での
回答  Hirofumi  - 06/9/4(月) 21:43 -

引用なし
パスワード
   もし、","を"。"に変換する事が主目的なら

      '★各Fieldで先頭に"="が必要なら
      For i = 0 To UBound(vntField)          '☆追加
        vntField(i) = "=" & vntField(i)       '☆追加
      Next i                     '☆追加


      '","を"。"に変換する場合
      For i = 0 To UBound(vntField)              '☆追加
        lngPos = InStr(1, vntField(i), ",", vbBinaryCompare) '☆追加
        If lngPos > 0 Then                 '☆追加
          Mid(vntField(i), lngPos, 1) = "。"       '☆追加
        End If                       '☆追加
      Next i                         '☆追加

にすれば、善いと思いますが?

0 hits

【42104】セル中の文字の置き換え方法での 質問(煮詰まった) 06/9/1(金) 9:49 質問
【42105】Re:セル中の文字の置き換え方法での だるま 06/9/1(金) 11:12 回答
【42227】Re:セル中の文字の置き換え方法での 質問(煮詰まった) 06/9/4(月) 16:24 質問
【42232】Re:セル中の文字の置き換え方法での かみちゃん 06/9/4(月) 17:36 発言
【42241】Re:セル中の文字の置き換え方法での Hirofumi 06/9/4(月) 20:49 回答
【42243】Re:セル中の文字の置き換え方法での Hirofumi 06/9/4(月) 21:43 回答
【42245】Re:セル中の文字の置き換え方法での Hirofumi 06/9/4(月) 22:14 回答

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