下拉列表框

Emily · 发表于 2004-6-17 20:43

現在有下拉列表框1 : AA, BB, CC, DD, EE 下拉列表框2 : 1, 2, 3, 4, 5

如何將下拉列表框2 取消 , 原位置由下拉列表框1 控制即下拉列表框1 選 AA 時, 原位置 = 1

守柔 · 发表于 2004-6-18 09:59

请参考：

两种方法，一种是下拉列表框（控件），一种是窗体域。

Private Sub ListBox1_Click() ActiveDocument.Tables(1).Cell(1, 2).Range = ListBox1.ListIndex + 1 End Sub Sub test() ListBox1.AddItem "aa" ListBox1.AddItem "bb" ListBox1.AddItem "cc" ListBox1.AddItem "dd" End Sub '************************************************************************************** '以下为下拉型窗体域,从下拉型窗体域中移出到文本型窗体域中时,自动更新文本窗体域值 Sub TextVal() Set myfield = Selection.FormFields(1) Select Case myfield.DropDown.Value Case Is = 1 ActiveDocument.FormFields("Text1").Result = 1 Case Is = 2 ActiveDocument.FormFields("Text1").Result = 2 Case Is = 3 ActiveDocument.FormFields("Text1").Result = 3 Case Is = 4 ActiveDocument.FormFields("Text1").Result = 4 Case Is = 5 ActiveDocument.FormFields("Text1").Result = 5 End Select End Sub

请在下拉型窗体域中选择“运行宏”----插入点移出时，运行该宏。

[此贴子已经被作者于2004-6-18 10:01:33编辑过]

Emily · 发表于 2004-6-18 11:03

可以將附件更改嗎？謝謝

aVft9ZTy.rar (2.18 KB, 下载次数: 60)

守柔 · 发表于 2004-6-18 12:55

以下是引用Emily在2004-6-18 11:03:00的发言：

可以將附件更改嗎？謝謝

8ISQ9zCa.zip (7.19 KB, 下载次数: 64)

不知是否如此？

[此贴子已经被作者于2004-6-18 12:56:45编辑过]

Emily · 发表于 2004-6-19 12:23

效果不太好，未可以即時更改。容後再請教，謝謝

守柔 · 发表于 2004-6-19 17:13

所以我建议使用第一个代码二楼的LISTBOX.

因为同样要用宏而一个可以及时更新另一个需要位置的移动.

		自动登录	找回密码
密码			免费注册