[已解决]如何使用UNION函数把这个拐弯区域中的数据取到数组里？

jessylake · 发表于 2015-4-1 14:45

爱疯 · 发表于 2015-4-1 16:59

Private Sub UserForm_Initialize()
Dim i%, arr
arr = Sheets("交易记录").Range("E6:H6")
With Me.ComboBox1
      For i = 1 To UBound(arr, 2)
         .AddItem arr(1, i)
      Next
      .AddItem Sheets("交易记录").Range("H9")
      .Text = arr(1, 1)       '去第一个值为默认批注，并全选，方便录入没有的批注内容
      .SelStart = 0
      .SelLength = Len(.Text)
      .SetFocus
End With
End Sub

取拐弯区域的数据2.rar (20.11 KB, 下载次数: 3)

jessylake · 发表于 2015-4-1 18:21

爱疯发表于 2015-4-1 16:59
Private Sub UserForm_Initialize()
Dim i%, arr
arr = Sheets("交易记录").Range("E6:H6")

还有个问题，如果菜单内容有重复，怎么去重呀？

爱疯 · 发表于 2015-4-2 09:38

取拐弯区域的数据3.rar (22.43 KB, 下载次数: 5)

jessylake · 发表于 2015-4-2 12:25

爱疯发表于 2015-4-2 09:38

我已经解决，不过还是非常感谢，那句改成：
.Text = arr(0) '取第一个值为默认批注，并全选，方便录入没有的批注内容

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

[已解决]如何使用UNION函数把这个拐弯区域中的数据取到数组里？

评分

评分