vb 中怎么才能使 listbox 只能单选。我现在要做的是一个excel中有个listbox但是只能多选。在线等。。。。

我的代码PrivateSubCommandButton1_Click()DimResultsAsStringDimisTheFirstAsBooleanisTheFirs... 我的代码

Private Sub CommandButton1_Click()

Dim Results As String

Dim isTheFirst As Boolean

isTheFirst = True

For i = 0 To UserForm3.ListBoxRemainingOil.ListCount - 1

If UserForm3.ListBoxRemainingOil.Selected(i) = True Then

If isTheFirst = False Then
Results = Results & "; " & UserForm3.ListBoxRemainingOil.List(i)
Else
Results = UserForm3.ListBoxRemainingOil.List(i)
End If
isTheFirst = False
End If

Next

If Len(Results) > 0 Then
Results = UCase(Left(Results, 1)) & Right(Results, Len(Results) - 1)
End If

Sheet1.Range("B40").Value = Results

Unload Me
End Sub
展开
 我来答
Wei_C0
2011-11-09
知道答主
回答量:18
采纳率:0%
帮助的人:8.4万
展开全部
在属性里面设置的。不记得是那个单词了
追问
谢谢。我找找。已经找到了。 是multiselect 属性
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式