[已解决]求助如何在窗体快速输入整行的信息

qinhuan66

求助如何在窗体快速输入整行的信息。点击C列即弹出窗口。谢谢
2014年11月.zip (32.76 KB, 下载次数: 17)

2014-11-6 11:06 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-6 11:40

1. Private Sub CommandButton1_Click()
   
2.     Dim i&
   
3.     Dim arr(1 To 50)
   
4.     For i = 1 To 50
   
5.         arr(i) = Me.Controls("textbox" & i).Text
   
6.         '        If Me.Controls("textbox" & i).TextLength Then
   
7.         '            arr(i) = Me.Controls("textbox" & i).Text
   
8.         '        End If
   
9.     Next
   
10.     ActiveCell.Offset(, -2).Resize(, 50).Value = arr
    
11. End Sub

复制代码

保存按钮的。

跳转到最佳答案楼层

这儿有肥猫

没看明白

qh8600

输入啥都不知道，怎么快速，有引用的可以引用，计算的自动计算

hwc2ycy

读取整行，修改后再写入整行么？
就是普通的读取与写入操作。

hwc2ycy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     On Error Resume Next
   
3.     Sheet3.Unprotect Password:="695360052"
   
4.     If Target.Value <> "" Then
   
5.         Target.Locked = True
   
6.         Sheet3.Protect Password:="695360052"
   
7.     End If
   
8. 
   
9.     If Target.Column = 3 And Target.Row > 1 Then
   
10.         Unload 本行数据快速录入窗口
    
11.         本行数据快速录入窗口.Show 0
    
12.         Dim arr
    
13.         arr = Target.Offset(, -2).Resize(, 50).Value
    
14.         
    
15.         'arr = Split(Target.Value, "")
    
16.         For i = LBound(arr, 2) To UBound(arr, 2)
    
17.             本行数据快速录入窗口.Controls("textbox" & i).Text = arr(1, i)
    
18.         Next
    
19. '        单据录单窗口.Controls("label51").Caption = "记帐日期：" & ActiveCell.Offset(, -2)
    
20. '        单据录单窗口.Controls("label52").Caption = "贷方金额：" & ActiveCell.Offset(, 2)
    
21. '        单据录单窗口.Controls("label53").Caption = "对方帐户：" & ActiveCell.Offset(, 4)
    
22. '        单据录单窗口.Controls("label54").Caption = "摘要A：" & ActiveCell.Offset(, 6)
    
23. '        单据录单窗口.Controls("label55").Caption = "摘要B：" & ActiveCell.Offset(, 7)
    
24.     End If
    
25. End Sub
    

复制代码

加载后要这样的效果么？

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim i&
   
3.     Dim arr(1 To 50)
   
4.     For i = 1 To 50
   
5.         arr(i) = Me.Controls("textbox" & i).Text
   
6.         '        If Me.Controls("textbox" & i).TextLength Then
   
7.         '            arr(i) = Me.Controls("textbox" & i).Text
   
8.         '        End If
   
9.     Next
   
10.     ActiveCell.Offset(, -2).Resize(, 50).Value = arr
    
11. End Sub

复制代码

保存按钮的。