مشاهده نسخه کامل
: HELENA2
27-11-2011, 15:09
خط سوم را ايراد ميگيرد چرا؟
Dim str As String
str = InputBox("please enter your amount :")
Worksheets("sheet2").Range("A1").Value = str
End Sub
Dim str As String
str = InputBox("please enter your amount :")
Worksheets("sheet2").Range("A1").Value = str
End Sub