求助修改代码，使 录入窗口只录1列数据

枫丹白露

各位老师，请帮我修改代码，使窗口里显示的两例数据，只录入短码，万分感谢


如图

3190496160

Private Sub CommandButton1_Click()
'录入
Dim brr(), grr
Dim k As Long, m As Long
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        xh = i
        Exit For
    End If
Next i
If xh = "" Then MsgBox "请选择数据": Exit Sub
ActiveCell.Value = ListBox1.List(xh, 0)
ActiveCell.Offset(1).Select
Cells(Rows.Count, "i").End(3).Offset(1).Select '选定本列下一行
End Sub

3190496160

3190496160

简码.rar (124.63 KB, 下载次数: 6)

2023-3-25 10:09 上传

点击文件名下载附件

枫丹白露

谢谢老师

代码还发现一个问题，之前我是可以多项选择后，一次录入多行的
现在不能多录入多行，选项是可以选多项，但录入时只录选中的第一项