Excel VBA質問箱 IV

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

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


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

12629 / 76734

←次へ　｜　前へ→


	【69622】Re:セル内のデータを部分的に削除する方法

UO3 - 11/8/11(木) 12:59 -


	引用なし

	パスワード

▼Ｉ・Ｏさん：

すでにｍｏｍｏさんから最も適切だと思えるコードがアップされていますが
無理やり別案で２つほど。

Sub TestX()
　　Dim myRE As Object
　　Dim myText As String
　　Dim myPat As String
　　Set myRE = CreateObject("VBScript.RegExp")
　　myText = Range("A1").Value
　　With myRE
　　　　.Pattern = "■.+?■"
　　　　myText = .Replace(myText, "")
　　End With
　　MsgBox myText
　　Set myRE = Nothing
End Sub

Sub TestZ()
　　Dim myText As String
　　Dim n As Long
　　myText = Range("A1").Value
　　n = InStr(myText, "■")
　　If n > 0 Then
　　　　n = InStr(n + 1, myText, "■")
　　　　If n > 0 Then myText = Mid(myText, n + 1)
　　End If
　　MsgBox myText
End Sub

6 hits

▼

【69615】セル内のデータを部分的に削除する方法 Ｉ・Ｏ 11/8/11(木) 2:58