[已解决]多列多选录入问题

sdwffw · 发表于 2013-5-2 15:55

多选录入1.zip (15.7 KB, 下载次数: 16)

那么的帅 · 发表于 2013-5-2 16:03

sdwffw · 发表于 2013-5-2 16:09

问题已解决，谢谢老师。

hwc2ycy · 发表于 2013-5-2 16:13

本帖最后由 hwc2ycy 于 2013-5-2 16:18 编辑

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ListBox1
If Target.Column > 10 Or Target.Column < 9 Or Target.Row < 3 Then .Visible = False: Exit Sub
Select Case True
Case ActiveCell.Column = 9
Sheets("Sheet1").ListBox1.ListFillRange = "data!a1:a" & Worksheets("data").Cells(1, 1).End(xlDown).Row
Case ActiveCell.Column = 10
Sheets("Sheet1").ListBox1.ListFillRange = "data!b1:b" & Worksheets("data").Cells(1, 2).End(xlDown).Row
End Select
t = ActiveCell.Value
ReLoad = True '如果是根据单元格的值修改列表框，则暂时屏蔽listbox的change事件。
For i = 0 To .ListCount - 1 '根据活动单元格内容修改列表框中被选中的内容
If InStr(t, .List(i)) Then
.Selected(i) = True
Else
.Selected(i) = False
End If
Next
ReLoad = False
.Top = ActiveCell.Top + ActiveCell.Height '以下语句根据活动单元格位置显示列表框
.Left = ActiveCell.Left
.Width = ActiveCell.Width
.Visible = True
End With
End Sub

复制代码

sdwffw · 发表于 2013-5-2 16:32

测试了hwc2ycy老师的代码，发现一个问题：两多选列能显示多选菜单，但选择后不能调入单元格内

hwc2ycy · 发表于 2013-5-2 16:45

sdwffw 发表于 2013-5-2 16:32
测试了hwc2ycy老师的代码，发现一个问题：两多选列能显示多选菜单，但选择后不能调入单元格内

你的意思看不明白，两多选是啥？

sdwffw · 发表于 2013-5-2 16:48

老师，我的意思是点击I、J列时，出现下拉菜单，但不能选入单元格内。谢谢老师

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