EXCEL 指定の文字以外の文字を指定の文字に置換

質問

EXCELの置換するための関数を教えてください。

A列に画像表示のHTMLを入れているのですが、そのなかの画像サイズが何故か100％以外のものになっているものが見つかりました。
1000件近くあるのですが、100％以外になっている文字列をすべて100％にするための関数の作り方をご教示お願いいたします。

A列の文字列はHTMLなので、パーセンテージ以外にも色々な文字が入っているので、その中の1部を書き換え、という形でお願いいたします。

回答No.7

山田 太郎（@f_a_007） · ベストアンサー

https://316-jp.com/excel-macro-basis

多分、上記のサイトを読めばOK。で、コピペするのは、次の二つ。

Public Function Xfer100per(ByVal strText As String) As String
　　Dim I As Integer
　　Dim L As Integer
　　Dim P As Integer
　　Dim strTemp As String
　　Dim C As String

　　L = Len(strText & "")
　　For I = L To 1 Step -1
　　　　C = Mid(strText, I, 1)
　　　　If InStr(1, "1234567890", C) = 0 Then
　　　　　　P = I
　　　　　　Exit For
　　　　End If
　　Next I
　　Xfer100per = Left(strText, P) & "100%"
End Function

Public Function XferPer(ByVal strText As String) As String
　　Dim I As Integer
　　Dim N As Integer
　　Dim strDatas() As String
　　Dim strReturn As String

　　strDatas() = Split(strText, "%")
　　N = UBound(strDatas())
　　For I = 1 To N
　　　　strReturn = strReturn & Xfer100per(strDatas(I - 1))
　　Next I
　　XferPer = strReturn & strDatas(N)
End Function

利用方法は、式に

=XferPer(A1)

と書くだけです。

で、出来なかったら、

Q、標準モジュールにユーザー定義関数を登録するには？

というタイトルで再質問されたが解決は早いと思いますよ。もしかしたら、365固有の不具合が発生しているのかも知れませんので・・・。

祈、成功！

お礼

出来ました！！！！！VBAの概念すらわかっていなかったので必死に調べたら大丈夫でした。
ありがとうございます。

回答No.6

山田 太郎（@f_a_007）

【補足】添付図を参照されたし。

先の二つの関数は、標準モジュールに登録して下さい。質問者が行うのは、それだけです。一応、人生で初めてマクロとかを書きましたが、《式方式》でよかったら添付図の通りでOKです。それにしても、XferPer()を書いたのが無駄ではなかったかもですね。

補足

ありがとうございます。

すみません、標準モジュールも調べたのですが、EXCEL365では出てこない状態で、何に、何をどう入力するか、もう少しクリアにご説明いただけると幸いです。

-------------------------
必死こいてVBAコードを書いて、やっとバグ取りに成功したが・・・。例示の変換は、そんなコードを必要としないもの。私が、ややこしいVBA関数を提示する必要はないと思う。が、そうは言っても、それじゃー、あんまりにも無責任。そこで、書いた関数の一部分を示しておく。それは、複数個のXXX％を100%に変更する関数の中で複数個の中の一つの変換を行うそれ。こんなのは、実に、無用の長物と思う。が、行きがかり上しかたない。
-------------------------

前半に頂いた上記の文も何をどうすればいいのかも全くわからずパニック状態です。申し訳ございません。

今回頂いた写真の状態にするために私がしなければならないことを箇条書きなどで手順をいただけないでしょうか？

お手伝い頂いているのに大変申し訳ございません。
よろしくお願い致します。

回答No.5

mt2015

セルB1に↓の式を入れて下にコピー。で、如何でしょう？
=LEFT(A1,FIND("width=",A1)+6)&"100%""" & RIGHT(A1,LEN(A1)-FIND(" height=",A1)+1)

補足

ありがとうございます、実はA1の中にはタグが1つではなく、その後ろにも10こ近くある状態です。
1つ目はバッチリだったのですが、2つ目以降がうまくいきませんでした。

例のご提示が悪く申し訳ございません。
よろしければ、2つ目以降も変換できる状態の式をいただけますと幸いです。
よろしくお願い致します。

A1には下記のように入っており、それが何列にもなっています。
<img src="https:○○○.jpg" width="124%" height="auto" alt="商品画像"><img src="https:○○○.jpg" width="240%" height="auto" alt="商品画像"><img src="https:○○○.jpg" width="350%" height="auto" alt="商品画像"><img src="https:○○○.jpg" width="214%" height="auto" alt="商品画像"><img src="https:○○○.jpg" width="100%" height="auto" alt="商品画像"><img src="https:○○○.jpg" width="240%" height="auto" alt="商品画像"><img src="https:○○○.jpg" width="350%" height="auto" alt="商品画像"><img src="https:○○○.jpg" width="214%" height="auto" alt="商品画像">

mt2015様のですと、1つ目のタグのみ100％に変換ができておりました。
よろしくお願い致します。

回答No.4

山田 太郎（@f_a_007）

【念のために】全てのコードを示しておきます。

　マクロでCallするのは、Xfer100per()ではなくてXferPer()の方です。動作確認が出来ているのは、XferPer()をCallした場合のみです。

Public Function Xfer100per(ByVal strText As String) As String
　　Dim I As Integer
　　Dim L As Integer
　　Dim P As Integer
　　Dim strTemp As String
　　Dim C As String

　　L = Len(strText & "")
　　For I = L To 1 Step -1
　　　　C = Mid(strText, I, 1)
　　　　If InStr(1, "1234567890", C) = 0 Then
　　　　　　P = I
　　　　　　Exit For
　　　　End If
　　Next I
　　Xfer100per = Left(strText, P) & "100%"
End Function

Public Function XferPer(ByVal strText As String) As String
　　Dim I As Integer
　　Dim N As Integer
　　Dim strDatas() As String
　　Dim strReturn As String

　　strDatas() = Split(strText, "%")
　　N = UBound(strDatas())
　　For I = 1 To N
　　　　strReturn = strReturn & Xfer100per(strDatas(I - 1))
　　Next I
　　XferPer = strReturn & strDatas(N)
End Function

　こんな大袈裟なコードはね。と、思う。

回答No.3

山田 太郎（@f_a_007）

【撤退通知】

　必死こいてVBAコードを書いて、やっとバグ取りに成功したが・・・。例示の変換は、そんなコードを必要としないもの。私が、ややこしいVBA関数を提示する必要はないと思う。が、そうは言っても、それじゃー、あんまりにも無責任。そこで、書いた関数の一部分を示しておく。それは、複数個のXXX％を100%に変更する関数の中で複数個の中の一つの変換を行うそれ。こんなのは、実に、無用の長物と思う。が、行きがかり上しかたない。

Public Function Xfer100per(ByVal strText As String) As String
　　Dim I As Integer
　　Dim L As Integer
　　Dim P As Integer
　　Dim C As String

　　L = Len(strText & "")
　　For I = L To 1 Step -1
　　　　C = Mid(strText, I, 1)
　　　　If InStr(1, "1234567890", C) = 0 Then
　　　　　　P = I
　　　　　　Exit For
　　　　End If
　　Next I
　　Xfer100per = Left(strText, P)
End Function

　最後に、確かめもせずに早まって回答したことを陳謝します。なお、これでSub()を書けば、訂正される筈です。が、今回は、別回答を待ったがいいですよ。だって、やることはシンプル。VBAの出番ではないでしょう。

お礼

詳しくありがとうございます、正直全くどこに何をすればよいのかわかりませんでした。
お力を頂いたのに申し訳ございません。

回答No.2

山田 太郎（@f_a_007）

【失礼】添付画像差し替え！

回答No.1

山田 太郎（@f_a_007）

【アドバイス】せめて、サンプル画像の掲載を！

まあ、質問の意味がわからん奴は答えるなと言われれば、それまでだが・・・。添付図に似たものを示して貰えれば、考え方もあろうかと・・・。

補足

ありがとうございます、画像の貼り方がわからなかったので、こちらでご説明させて頂きます。

<A列>
<img src="https:○○○.jpg" width="100%" height="auto" alt="商品画像">
<img src="https:○○○.jpg" width="240%" height="auto" alt="商品画像">
<img src="https:○○○.jpg" width="350%" height="auto" alt="商品画像">
<img src="https:○○○.jpg" width="214%" height="auto" alt="商品画像">

すべて100％にしたいのですが、上記の様に100％以外の物があります。
それを下記の様にすべて100％に修正したいのです。

<B列>
<img src="https:○○○.jpg" width="100%" height="auto" alt="商品画像">
<img src="https:○○○.jpg" width="100%" height="auto" alt="商品画像">
<img src="https:○○○.jpg" width="100%" height="auto" alt="商品画像">
<img src="https:○○○.jpg" width="100%" height="auto" alt="商品画像">

100％のものを120％に変えたいということであれば
置換で
「100を120にすべて置換」とすればよいのですが、
この逆パターンが出来ないので、関数が必要と考えました。
その方法をご教示いただけますと幸いです。