vba鼠标单击弹出复选框
发布网友
发布时间：2022-05-24 06:56
共2个回答
热心网友
时间：2023-10-06 04:56
----------------------------------------
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Dim ar(), k%
k = 0
For i = 0 To 3
If ListBox1.Selected(i) = True Then
ReDim Preserve ar(k)
ar(k) = ListBox1.List(i)
k = k + 1
End If
Next
ActiveCell = Join(ar(), ",")
End Sub
--------------------------
Private Sub Worksheet_Activate()
With Me.ListBox1
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
.Width = 100
.Height = 60
.Clear
For i = 1 To 4
.AddItem Cells(i, 11)
Next
End With
End Sub
-------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me.ListBox1
.Visible = True
.Top = ActiveCell.Top + ActiveCell.Height
.Left = ActiveCell.Left
For i = 0 To 3
.Selected(i) = False
Next
End With
End Sub
追问谢谢大哥，但是我试了一下 ，并不成功，我的版本是2013的。
单击单元格以后 只有一个空白的
还有一个问题，我的A列 B列需要选择的输入的内容并不一样，我希望能把这个备选放到sheet2里面。
我只是vba入门一点点，希望大哥能帮完善一下，非常感谢
追答你把你的附件上传，一切都不是问题。
但我想，既是你有那么一点基础，后续的代码根据自身的情况做些修改的本事应该还是有的，奈何要人一解到底呢。
如果没有附件，写出来的东西又不知道变通，后续要改怕是一定的，又何苦呢。
热心网友
时间：2023-10-06 04:56
