Question

我正在使用一系列项目来填充下拉列表。这是代码：

 Dim s As String, r As Integer, nr As Integer, wr, v
    Set wr = Sheets("Role Plays").Range("A2:A40")
    nr = wr.Rows.count
    For r = 1 To nr
        v = wr(r, 1)
         If InStr(s, v & ",") = 0 Then
         s = s & v & ","
    End If
    Next
    s = Left(s, Len(s) - 1)
    With Sheets("Data View").Range("D2").Validation
         .Delete
         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=s
    End With

它很好用，除了我想在创建列表后将焦点放在列表中的第一个项目上。

提前感谢任何建议。

Answer 1

这将设置单元格的值：

Sheets("Data View").Range("D2").Value = "Select a Role Play"

使列表框中的第一项成为焦点

1 个答案: