2011-01-04 27 views

答えて

2

試してみてください

var1 = Replace(var1, Mid(var1, 1, 8), var2) 
1

あなたが行うことができます。

var1 = "REPLACE THIS IS STRING SAMPLE TEXT" 
var2 = "REWRITE" 

Dim str As String 

str = Mid(var1, 8, Len(var1)) 
str = var2 & str 
1

Midは非常に興味深いです。

Sub MidDemo() 
var1 = "REPLACE THIS IS STRING SAMPLE TEXT" 
var2 = "REWRITE" 

Mid(var1, 1, 8) = var2 
Debug.Print var1 
''Result: REWRITE THIS IS STRING SAMPLE TEXT 
End Sub 
関連する問題