合同备案号查询系统(宜宾市商品房备案查询系统)

商品房网上备案系统

输入号码时，该模型实现了联想的功能。

商品房备案网上查询

Private Sub ListBox1_Click（）’下拉框的值在单击时显示在文本框中。 “ Me。TextBox1。Value = Me。ListBox1。Value”选择该值后，下拉框被隐藏。 ListBox1。Visible = FalseEnd SubPrivate Sub TextBox1_Change（）’如果输入的数字大于4位’如果Len（Me。TextBox1。Value）》 = 4然后’清空每个循环之前的列表框’Me。ListBox1。Clear for i = 2到8如果InStr（Sheet1。Range（“ i”＆i），Me。TextBox1。Value）》 0，然后Me。ListBox1。AddItem Sheet1。Range（“ i”＆i）结束，如果Next’列表数框大于0只显示’If Me。ListBox1。ListCount》 0然后Me。ListBox1。Visible = True其他Me。ListBox1。Visible = False End If’循环结束后显示下拉框的内容’Me。ListBox1。Visible = True Else’输入数字时，Private Sub CommandButton1_Click（）将范围作为范围’使用find方法执行Set rng = Sheet1。Range（“ i1：i1000”）。查找（Me。TextBox1。Value）如果rng不存在