変数内の置換作業 (ID:118579)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim moji As String Dim moji2 As String Dim moji3 As String If oder Like "*" & Command1(Index).Caption & "*" Then moji = Mid(oder, InStr(oder, Command1(Index).Caption), (Len(oder + 1)) moji2 = Mid(moji, (Len(Command1(Index).Caption) + 4), InStr(moji, "ケ")) moji3 = Val(Replace(Left(moji2, InStr(moji2, " ")), "ケ", "")) oder = Replace(oder, vbCrLf & Command1(Index).Caption & " " & Val(moji3) & "ケ" & " " & Val(moji3) * kakaku, "") moji3 = Val(moji3) + 1 oder = oder & vbCrLf & Command1(Index).Caption & " " & moji3 & "ケ" & " " & Val(moji3) * kakaku Else oder = oder & vbCrLf & Command1(Index).Caption & " " & "1ケ" & " " & kakaku End If 複雑なソースになってしまいましたが これで解決することができました。 ありがとうございました。