列表法输入，提高工作效率（更新已完成）

ctp_119

原帖由 AVEL 于 2011-6-11 22:11 发表
还可以用 indirect函数来做数据有效性的联动 效果也很好。

比用VBA要简单方便。

兄弟，你好，你没有完全注意吧，用函数来做联动有它的局限性，所以才选用VBA的。用vba有个好处就是能实现双双动态连动。用函数也可能实现，但是非常复杂，我曾试图使用。

[ 本帖最后由 ctp_119 于 2011-6-13 08:00 编辑 ]

ctp_119

原帖由 AVEL 于 2011-6-11 22:26 发表
938532

我第四种方法就是这种效果，你没有查看有效性设置吗？

ctp_119

1. Private Sub Worksheet_Deactivate()
   
2. Dim cn As New ADODB.Connection
   
3. Dim lastrow As Integer
   
4. Dim ddh As String
   
5. Dim i As Integer
   
6. Dim j As Integer
   
7. Dim y As Integer
   
8. Dim p As Integer
   
9. Application.ScreenUpdating = False
   
10. With Worksheets("辅助表")
    
11. .Cells.ClearContents
    
12. .Range("A1:B1") = Split("订单号 货号")
    
13. cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= " & ThisWorkbook.FullName
    
14. Sql = "select distinct 订单号 from [sheet3$]"
    
15. .[a1].CopyFromRecordset cn.Execute(Sql)
    
16. .Cells(1, 1).Value = "订单号"
    
17. cn.Close
    
18. Set cn = Nothing
    
19. lastrow = .[a65536].End(xlUp).Row
    
20. .Range("a2:a" & lastrow).Name = "订单号"
    
21. Set rng = Sheets("sheet3").Range("a65536")
    
22. For i = 2 To lastrow
    
23. ddh = .Cells(i, 1).Value
    
24. p = 0
    
25. x = Application.WorksheetFunction.CountIf(Sheets("sheet3").Columns("A"), ddh)
    
26. For j = 1 To x
    
27. Set rng = Sheets("sheet3").Columns(1).Find(ddh, rng, xlValues, xlWhole, xlByColumns)
    
28. huohao = rng.Offset(0, 1).Text
    
29. y = Application.WorksheetFunction.CountIf(.Rows(i), huohao)
    
30. If y < 1 Then
    
31. .Cells(i, j + 1 + p) = huohao
    
32. Else
    
33. p = p - 1
    
34. End If
    
35. Next j
    
36. .Range(.Cells(i, 2), .Cells(i, j + 1 + p)).Name = ddh
    
37. Next i
    
38. End With
    
39. Application.ScreenUpdating = True
    
40. End Sub
    

复制代码

可能很多人对程序法有效性设置不解，特作一下说明：以上代码是基础工作，目的是向隐藏的工作表（辅助表）中导入型号的唯一性，并且型号相对应的货号唯一性，并把订单号作为该订单号里面的货号定义为名称。以便后面有效性代码应用。
如果订单号里面有“-”，请改为下划线，否则程序会报错。（特别提示）
下午再补充一种listbox列表快速输入法。敬请期待……但非最后一种或最后的一种输入法。

[ 本帖最后由 ctp_119 于 2011-6-13 08:19 编辑 ]

iris00

原帖由 ctp_119 于 2011-6-11 17:02 发表

我用2010版本都可以哟，你启动宏了没有？

我启用宏了。

ctp_119

原帖由 iris00 于 2011-6-13 08:50 发表

我启用宏了。

双击单元格了吗？如果不行，可以和我临时QQ会话。或远程看看。

ctp_119

第七种方法，listbox控件输入法。
在这里我想到了曾经有人发帖问，怎么通过日期控件选择输入日期，本质上和这个方法是一样的，甚至还要简单些，因为无需添加列表。希望大家借鉴的同时要触类旁通。自己多加操作。勤动脑的同时勤动手，我相信你会得到意外的收获！

iris00

原帖由 ctp_119 于 2011-6-13 09:06 发表

双击单元格了吗？如果不行，可以和我临时QQ会话。或远程看看。

我双击后没有出现下拉框，而是直接选中单元格了。

iris00

我重新试了下，好像好用了呢。

ctp_119

原帖由 iris00 于 2011-6-13 14:41 发表
我重新试了下，好像好用了呢。

哦，，能用就行！

HBABCD

不错，下载学习。