2

全て！私は自分の苦境を説明する際に、できるだけ詳しく説明しようとします。Visual Basic の背景知識は少しありますが、Outlook 2010 の VBA や VBscript についてはまったく知りません。Outlook 2010 を使用しています。カスタム フォームを作成しました (これは初めてです)。ComboBox1 という名前のコンボ ボックスと TextBox1 という名前のテキスト ボックスがあります。ComboBox1 からの選択に基づいて、TextBox1 に数値を自動入力しようとしています (例: ComboBox1 から値 1 を選択し、TextBox1 に 124 を入力します)。Visual Basic Editor (VBA バージョン 7.0) でこのコードを使用してみました。

Sub popBox()
If ComboBox1 = "Value 1" Then
TextBox1 = "124"
End If
End Sub

私の質問は、私が間違っていることは何ですか? VBscript エディタを使用する必要がありますか、それとも VBA を使用するのが適切ですか? 私が求めていることは可能ですか？よろしくお願いします！

4

2 に答える 2

2

今朝は素晴らしかったです！私は自分の問題の解決策を発見しました。将来誰かがこの問題を抱えている場合に備えて、私が思いついたのは次のとおりです。

Sub Item_CustomPropertyChange(ByVal Aircraft)

Set myInspector = Item.GetInspector
Set FormPage = myInspector.ModifiedFormPages("Form")
Set Aircraft = FormPage.Controls("Aircraft")
Set PartNumber = FormPage.Controls("PartNumber")
    Select Case Aircraft.Value
        Case "Value 1"
            PartNumber.Value = "124"
        Case "Value 2"
            PartNumber.Value = "125"
    End Select
End Sub
于 2012-07-12T01:39:41.803 に答える
1

フォームを右クリックし、[コードの表示] を選択します。これで、コード エディターのテキスト入力セクションのすぐ上にあるドロップダウン メニューから選択できるようになります。「ComboBox1」を選択し、隣接するドロップダウン メニューから「変更」を選択します。

エディターは、"Private Sub ComboBox1_Change()" というルーチンを作成する必要があります。次のように入力します：

Private Sub ComboBox1_Change()
  Select Case ComboBox1.Value
    Case "Value 1"
      TextBox1.Caption = "124"
    Case Else
      TextBox1.Caption = ""
  End Select
End Sub

上記のコード (コンボ ボックスが "ComboBox1" で、テキスト ボックスが "TextBox1" である限り) をフォームのコードに貼り付けて、同じ結果を得ることができます。行き方を教えてください。

于 2012-07-10T05:17:10.370 に答える