私有Sub TextBox1_Change（）
出錯時繼續下壹步
將拼音存儲區調暗為範圍
設置拼音存儲區域= sheet（1）。range（“a 1:a 100“）“首先，在工作表的壹個區域中輸入所有數據。
將a作為範圍，S作為字符串，b作為範圍
如果ListBox1。列表計數& gt0然後列表框1。清楚的
對於拼音存儲區中的每個a
if UCase（textbox 1。text = UCase（Left（a . Value，Len（textbox 1。文本））然後
列表框1。AddItem a . Offset（0，-1）
如果…就會結束
然後
末端接頭
這樣，在textbox1中輸入數據，listbox1將動態顯示匹配的數據。