Excel VBA質問箱 IV

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

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


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

12634 / 76734

←次へ　｜　前へ→


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

UO3 - 11/8/11(木) 6:04 -


	引用なし

	パスワード

▼Ｉ・Ｏさん：

おはようございます

（書いていましたらHifofumiさんから、すでにご提示がありましたので重複部分ありますがアップします）

ワークシート関数でいいますと、たとえばA1に、この文字列が入っているとすれば
=SUBSTITUTE(SUBSTITUTE(A1,"■","",1),"■","",1)
これでＯＫですね。

このSUBSTITUTEは、WorkSheetFunction.Substitue として使うことができます。
で、やってみたのですが、初めてのことでいまくいきません。
ですので、これをEvaluateするコードと、別方式のコードを。

Sub Test1()
　　Dim myText As String
　　
　　myText = Evaluate("=SUBSTITUTE(SUBSTITUTE(A1,""■"","""",1),""■"","""",1)")
　　MsgBox myText
　　
End Sub

Sub Test2()
　　Dim z As Long
　　Dim x As Long
　　Dim myText As String
　　
　　myText = Range("A1").Value
　　
　　For x = 1 To 2
　　　　z = InStr(myText, "■")
　　　　If z = 0 Then Exit For
　　　　myText = WorksheetFunction.Replace(myText, z, 1, "")
　　Next
　　
　　MsgBox myText

End Sub

4 hits

▼

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