只要在文本框中输入楼层号，列表框中就只显示对应楼层的门牌号。

复选框勾选中，会显示尾号01，取消选中，会显示02

 如图，首先鼠标选中任意单元格，在文本框中输入楼层号，此时的复选框是选中状态，会显示尾号01。

点击列表框，就会在列表框中，显示对应楼层的所有01门牌号。

在点击按钮，就会在A列选中的单元格添加内容。

 内容是，当天的日期，加楼层号，加已缴费

 每次点击文本框，会清空文本框，和列表框的内容。

完整代码，

/**
 * CommandButton1_Click Macro
 */
function CommandButton1_Click()
{
        var I= ActiveCell.Row//选中的数字
        const data = new Date()//获取当前时间
        var VI=data.getFullYear()+'年'+ (data.getMonth()+1) +'月'+data.getDate() +'日'
        if(CheckBox1.Value==true){
            Range('A'+ I).Value2=VI+": "+ListBox1.Text+"已交费"
        }else{
            Range('A'+ I).Value2=VI+": "+ListBox1.Text+"已交费"
        }

}

/**
 * TextEdit1_Change Macro
 */
function TextEdit1_Exit(cancel)//对列表框内容添加
{
    
    for(i=1;i<60;i++)
    {        
        if(Range('C'+i)=="一单元"+TextEdit1.Text+"01" || Range('C'+i)=="一单元"+TextEdit1.Text+"02" || Range('C'+i)=="二单元"+TextEdit1.Text+"01" || Range('C'+i)=="二单元"+TextEdit1.Text+"02")
        {
            var jj =Range('C'+i).toString().match(/\d{1,2}/g)
        if(CheckBox1.Value==true && jj[1] == 1){

                ListBox1.AddItem(Range('C'+i).toString())
                        
        } 
            
        if(CheckBox1.Value==false && jj[1]==2){
                ListBox1.AddItem(Range('C'+i).toString())
            }
            
        }
      
    }

}

function TextEdit1_Enter()//清空列表和文本框
{
TextEdit1.Text=""
ListBox1.Clear()
}