はここに私のコードのMAC 15

Question

ために、ExcelにApplication.InputBoxには表示されません。

ここではエクセル上の結果は、（私は上記のように、セル上でクリックした）Mac用です：

私はバージョン15を使用しています。Mac用のExcelのプロンプトを表示していません。 Some researchは、人々が回避策として平文InputBox（Application.InputBoxの代わりに）を使用できることを示していますが、ユーザーがセル範囲をクリックする必要があり、セット変数が範囲オブジェクトでなければならないため、スープアップバージョンが必要です。プレーンなInputBoxはこれを行うことができません。事前に感謝の意を表します。

Answer 1

私はここで解決策の高低を見てきましたが、解決策は見つかりませんでした。 Macのダイアログには2つの異なるセクション（title + prompt）が含まれていないようです。私は、誰かが同じ問題を抱えている場合に役立つかもしれない回避策を作成しました。しかし、誰かがより良い解決策を考え出すことができるなら、私は答えを述べるでしょう。

は、まず私たちはこれでPCまたはMacにしているかどうかを確認：

On Error Resume Next 
If Val(Application.Version) = Int(Val(Application.Version)) Then 
    theOs = 0 'whole version number = PC 
Else 
    theOs = 1 'version number with decimal = Mac 
End If 
If Err.Number <> 0 Then 
    Err.Clear 
    theOs = 0 
End If 
On Error GoTo 0 

を我々はPCを使っているなら、私はプロンプトを使用するか、または私たちは、Macを使っている場合タイトル 、次のように：PC用

theQ1 = "This is my prompt" 
theQ2 = "" 
If theOs = 1 Then 
    theQ2 = theQ1 
    theQ1 = "" 
End If 
Set Rng1 = Application.InputBox(theQ1, theQ2, Type:=8) 

、それは、Macのために、プロンプトがタイトルの代わりにある...通常のように動作しますので、ユーザはまだ要求されているかを理解することができます。 1つの重要な欠点は、タイトル行のスペースが限られており、改行を使用できないことです。

Answer 2

これはあなたのニーズに依然として関連している場合、私は以前も同様の問題を抱えていましたが、満足できる程度に機能する解決策を見つけました。私はここにそれを概説しました： Why does the prompt text not appear for my InputBox using VBA in Excel for Mac?