|
楼主 |
发表于 2010-4-5 19:34
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原帖由 kevinchengcw 于 2010-4-5 19:24 发表
这回应该可以了,不论哪个页面,单击“商品代码”输入
“稍等还有进化版噢”
非常感谢,是我想要的结果.
进化版我期待!
用着进化N,还想N+1,真是吃着碗里的看着盆里的,主要是想饿补啊!
另:
如果不想输入的条目自动下移可换成下面,便于反复修改。
Private Sub ListView1_DblClick()
With ActiveSheet
.Cells(Selection.Row, Selection.Column).Offset(0, 0) = ListView1.SelectedItem.Text
.Cells(Selection.Row, Selection.Column).Offset(0, 1) = ListView1.SelectedItem.SubItems(1)
.Cells(Selection.Row, Selection.Column).Offset(0, 2) = ListView1.SelectedItem.SubItems(2)
.Cells(Selection.Row, Selection.Column).Offset(0, 3) = ListView1.SelectedItem.SubItems(3)
End With
Unload Me
End Sub
[ 本帖最后由 FXSHENG 于 2010-4-5 20:19 编辑 ] |
|