0

Word 文書 (差し込み印刷) を作成する必要があるため、Excel ワークシートを作成したいと考えています。

次のような関数を使用できますかIF:

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

基本的に、値が true の場合 - 事前に定義されたテキストを書き込み、それが false の場合 - 新しいテキストを入力するためのポップアップ ボックスを表示しますか?

4

2 に答える 2

2

はい、できますが、ワークシートが計算されるたびに、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 <> "Something" の値の場合、以下のような InputBox が表示されます。

ここに画像の説明を入力

于 2013-04-10T10:53:10.517 に答える
0

vba関数を使用するとできます。vba 関数が次の場合:

function test() as string

    Test = Inputbox("Enter value")

End function

使用法：

=if(A1="value", "value1", test)
于 2013-04-10T10:52:15.773 に答える