置換
Private Function CreateRegRxp() As Object Set re = CreateObject("VBScript.RegExp") re.Pattern = "(.)" re.Global = True re.Pattern = "=RSS\|\'....\..{1,2}\'\!" 's1 = "=RSS|'4653.Q'!現在値" 'wk = re.Replace(s1, "RSS|'1234.T!") 'MsgBox wk Set CreateRegRxp = re End Function Private Function MakeReplecement(ByVal code As String, ByVal market As String) As String MakeReplecement = "=RSS|'" & code & "." & market & "'!" End Function