如果单元格为false，则Excel输入弹出框

Question

我想制作一张excel工作表，以满足我制作word文档的需要（邮件合并）。

我可以使用IF这样的功能：

IF(A1=Specific text;Write this text;RUN MACRO with popup box to input other text)

基本上，如果值为true - 编写预定义文本，如果为false，请给我弹出框输入新文本？

Answer 1

是的，你可以，但我不推荐它，因为每次计算工作表时，如果IF()语句的结果是FALSE，将显示InputBox。

但是如果你坚持，请尝试以下内容：

单元格公式=IF(A1="Something","Result1", AskForResult())

在代码模块中，添加以下内容：

Public Function AskForResult() As String
    Dim strUserResponse As String

    strUserResponse = InputBox("What result to give?")

    AskForResult = strUserResponse
End Function

当A1＆lt;＆gt;中的值时，这将显示如下的InputBox。 “东西”

Answer 2

你可以使用vba功能。如果您的vba功能是：

function test() as string

    Test = Inputbox("Enter value")

End function

用法：

=if(A1="value", "value1", test)