VBA列表框输入问题

yjwdjfqb

VBA列表框输入问题




VBA列表框输入问题.rar (32.98 KB, 下载次数: 27)

2012-5-30 21:59 上传

点击文件名下载附件

hrpotter

1.         With Sheets("新录入表")
   
2.             '↓录入到使用控件列位置
   
3.             .Cells(Selection.Row, "B") = ListView1.SelectedItem.Text
   
4.             '↑引用窗体中第1列数据
   
5. 
   
6.             '↓录入到使用控件列后的第1列位置,以下同理
   
7.             .Cells(Selection.Row, "C") = ListView1.SelectedItem.SubItems(1)
   
8.             '↑引用窗体中第2列数据,以下同理
   
9.             .Cells(Selection.Row, "D") = ListView1.SelectedItem.SubItems(2)
   
10.             .Cells(Selection.Row, "E") = ListView1.SelectedItem.SubItems(3)
    
11.             .Cells(Selection.Row, "F") = ListView1.SelectedItem.SubItems(4)
    
12.             .Cells(Selection.Row, "G") = Me.添加项目.Text
    
13.             '↑录入到使用控件列后的第5列位置
    
14.         End With

复制代码

yjwdjfqb

hrpotter 发表于 2012-5-30 22:27

VBA列表框输入问题-2.rar (32.26 KB, 下载次数: 21)

2012-5-30 22:36 上传

点击文件名下载附件


老师你好，我修改后，没有成功请老师看看附件：

无聊的疯子

yjwdjfqb 发表于 2012-5-30 22:37
老师你好，我修改后，没有成功请老师看看附件：

不知道你要怎么操作??
直接在窗体里选择内容输入到对应的工作表??

使用listview的双击事件,选择要输入的内容,双击就可以了

1. 
   
2. Private Sub ListView1_DblClick()
   
3. Dim X As Byte
   
4.   ActiveCell = ListView1.SelectedItem.Text
   
5.   For X = 1 To 4
   
6.     ActiveCell.Offset(, X) = ListView1.SelectedItem.SubItems(X)
   
7.   Next
   
8. End Sub
   
9. 
   

复制代码

yjwdjfqb

无聊的疯子 发表于 2012-5-31 01:15
不知道你要怎么操作??
直接在窗体里选择内容输入到对应的工作表??

疯子哥是用下方向键选择选项后，回车，跳到添加内容处，输入内容后，回车，就把窗体中内容输入到对应的工作表中。
请疯子哥再帮我看看！！！

无聊的疯子

yjwdjfqb 发表于 2012-5-31 08:09
疯子哥是用下方向键选择选项后，回车，跳到添加内容处，输入内容后，回车，就把窗体中内容输入到对应的工 ...

那就是 key 事件嘛代码换个地方就可以了

1. 
   
2. Private Sub ListView1_KeyPress(KeyAscii As Integer)  '回车后光标返回到指定位置
   
3.       '↓这个地方的KeyAscii与上面一致
   
4.     If KeyAscii = 13 Then    '回车
   
5.       Dim X As Byte
   
6.       ActiveCell = ListView1.SelectedItem.Text
   
7.       For X = 1 To 4
   
8.         ActiveCell.Offset(, X) = ListView1.SelectedItem.SubItems(X)
   
9.       Next
   
10.        添加项目.SetFocus    '返回这个按钮
    
11.     End If
    
12. End Sub
    
13. 
    

复制代码