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

ctp_119 · 发表于 2011-6-13 07:49

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

比用VBA要简单方便。

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

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

ctp_119 · 发表于 2011-6-13 07:55

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

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

ctp_119 · 发表于 2011-6-13 08:12

Private Sub Worksheet_Deactivate()
Dim cn As New ADODB.Connection
Dim lastrow As Integer
Dim ddh As String
Dim i As Integer
Dim j As Integer
Dim y As Integer
Dim p As Integer
Application.ScreenUpdating = False
With Worksheets("辅助表")
.Cells.ClearContents
.Range("A1:B1") = Split("订单号货号")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= " & ThisWorkbook.FullName
Sql = "select distinct 订单号 from [sheet3$]"
.[a1].CopyFromRecordset cn.Execute(Sql)
.Cells(1, 1).Value = "订单号"
cn.Close
Set cn = Nothing
lastrow = .[a65536].End(xlUp).Row
.Range("a2:a" & lastrow).Name = "订单号"
Set rng = Sheets("sheet3").Range("a65536")
For i = 2 To lastrow
ddh = .Cells(i, 1).Value
p = 0
x = Application.WorksheetFunction.CountIf(Sheets("sheet3").Columns("A"), ddh)
For j = 1 To x
Set rng = Sheets("sheet3").Columns(1).Find(ddh, rng, xlValues, xlWhole, xlByColumns)
huohao = rng.Offset(0, 1).Text
y = Application.WorksheetFunction.CountIf(.Rows(i), huohao)
If y < 1 Then
.Cells(i, j + 1 + p) = huohao
Else
p = p - 1
End If
Next j
.Range(.Cells(i, 2), .Cells(i, j + 1 + p)).Name = ddh
Next i
End With
Application.ScreenUpdating = True
End Sub

复制代码

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

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

iris00 · 发表于 2011-6-13 08:50

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

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

我启用宏了。

ctp_119 · 发表于 2011-6-13 09:06

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

我启用宏了。

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

ctp_119 · 发表于 2011-6-13 12:53

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

iris00 · 发表于 2011-6-13 14:34

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

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

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

iris00 · 发表于 2011-6-13 14:41

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

ctp_119 · 发表于 2011-6-13 14:53

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

哦，，能用就行！

HBABCD · 发表于 2011-6-13 16:39

不错，下载学习。

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

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