日记首页V1.0


	日记首页 \| 列表 \| 添加日记 \| 管理登陆


	标题：下拉菜单中，关于sheet

vba，下拉菜单，去掉sheet后代码：Private Sub UserForm_Initialize() &nbsp;&nbsp;&nbsp; Dim Myr&amp;, i&amp; &nbsp;&nbsp;&nbsp; Dim brr, d, k &nbsp;&nbsp;&nbsp; Set d = CreateObject("Scripting.Dictionary") &nbsp;&nbsp;&nbsp; Myr = Range("d65536").End(xlUp).Row &nbsp;&nbsp;&nbsp; brr = Range("c2:c" &amp; Myr) &nbsp;&nbsp;&nbsp; For i = 1 To UBound(brr) &nbsp;&nbsp;&nbsp; If brr(i, 1) &lt;&gt; "" Then&nbsp; '加上这一句防止中间有空值 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d(brr(i, 1)) = "" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp; k = d.keys &nbsp;&nbsp;&nbsp; ComboBox1.List = k &nbsp;&nbsp;&nbsp; Set d = NothingEnd Sub<hr>下拉菜单，指定sheet代码：Private Sub UserForm_Initialize() &nbsp;&nbsp;&nbsp; Dim Myr&amp;, i&amp;, nL%&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '下拉菜单部分（姓名，星期，时间） &nbsp;&nbsp;&nbsp; Dim brr, k &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Set d = CreateObject("Scripting.Dictionary") &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Myr = Range("v65536").End(xlUp).Row&nbsp;&nbsp;&nbsp;&nbsp; '名字循环 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; brr = Range("v3:v" &amp; Myr).Value&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '名字循环 &nbsp;&nbsp;&nbsp; 'brr = Sheets("Sheet1").Range("V3:V30").Value &nbsp;&nbsp;&nbsp; Me.ComboBox2.List = brr &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; With Sheets("Sheet1")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '星期循环 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nL = .Range("xfd2").End(xlToLeft).Column &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; brr = .Range("a2").Resize(1, nL).Value &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 2 To 20 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If brr(1, i) &lt;&gt; "" Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.ComboBox3.AddItem brr(1, i) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d(brr(1, i)) = i &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Myr = .Range("a65536").End(xlUp).Row&nbsp;&nbsp;&nbsp;&nbsp; '时间循环 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; brr = .Range("a1:a" &amp; Myr).Value &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 3 To 22 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If brr(i, 1) &lt;&gt; "" Then&nbsp; '加上这一句防止中间有空值 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d(brr(i, 1)) = i &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.ComboBox1.AddItem brr(i, 1) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp; End With'&nbsp;&nbsp;&nbsp; Set d = NothingEnd Sub<hr>