Excel VBA質問箱 IV

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

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


43699 / 76732 ←次へ | 前へ→

【38073】Re:文字の位置変更
回答  Kein  - 06/5/25(木) 23:57 -

引用なし
パスワード
   こんな感じでしょーか ?

Sub Rep_MyText()
  Dim objRE As Object, Matches As Object
  Dim MyR As Range, C As Range
  Dim CkSt As String
  Dim Pt As Integer  
 
  Set MyR = Range("A:A").SpecialCells(2)
  MyR.Replace "円", ""
  Set objRE = CreateObject("VBScript.RegExp")
  With objRE
   .Pattern = "\d"
   .Global = True
  End With
  For Each C In MyR
   CkSt = C.Text
   If objRE.Test(CkSt) Then
     Set Matches = objRE.Execute(CkSt)
     Pt = Matches(0).FirstIndex + 1
     C.Characters(Pt, 0).Insert "\"
     Set Matches = Nothing
   End If
  Next
  Set objRE = Nothing: Set MyR = Nothing
End Sub

*実行してみると分かるけど・・

大工用具\112505656ホームセンター

なんて結果が出ますよ。了解してるならいいけど。

0 hits

【38071】文字の位置変更 ゆん 06/5/25(木) 23:39 質問
【38072】Re:文字の位置変更 かみちゃん 06/5/25(木) 23:45 発言
【38073】Re:文字の位置変更 Kein 06/5/25(木) 23:57 回答
【38074】Re:文字の位置変更 ゆん 06/5/26(金) 0:12 発言
【38075】Re:文字の位置変更 かみちゃん 06/5/26(金) 0:18 発言
【38080】Re:文字の位置変更 ゆん 06/5/26(金) 0:31 発言
【38077】Re:文字の位置変更 Kein 06/5/26(金) 0:24 発言
【38079】Re:文字の位置変更 ゆん 06/5/26(金) 0:29 発言
【38078】Re:文字の位置変更 ゆん 06/5/26(金) 0:26 質問
【38081】Re:文字の位置変更 Kein 06/5/26(金) 0:42 回答
【38082】Re:文字の位置変更 ゆみ 06/5/26(金) 0:51 発言

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