Question

Excel vba 如何将Application.InputBox的文本值赋值给某个单元格

z = Application.InputBox("请输入省份名称拼音:", "省份名称拼音输入窗口", 1, , , , , 0)
Sheet1.Cells(2, 1).Value = z
赋值出现错误，请高手指点。

Answer 1

sub a()
dim z$
z = vba.InputBox("请输入省份名称拼音:", "省份名称拼音输入窗口", 1, , , , , 0)
if len(z)=0 then exit sub
sheets("sheet1").cells(2,1)=z
end sub

追问

问题没有解决：

追答

Sub a()
Dim z$
z = VBA.InputBox("请输入省份名称拼音:")
If Len(z) = 0 Then Exit Sub
Sheets("sheet1").Cells(2, 1) = z & "省"
End Sub

Answer 2

小建议：贴出赋值时出现的错误信息，可以辅助查找原因