[已解决]求助：能否在红圈中显示所在单元格这一行的相关信息。谢谢

qinhuan66

求助：能否在红圈中显示所在单元格这一行的相关信息。谢谢
求助.zip (21.53 KB, 下载次数: 5)

2014-11-4 14:25 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-4 14:49

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 3 And Target.Row > 10 Then
   
3.         单据录单窗口.Show 0
   
4.         Dim arr
   
5.         arr = Split(Target.Value, "")
   
6.         For i = LBound(arr) To UBound(arr)
   
7.             单据录单窗口.Controls("textbox" & i + 1).Text = arr(i)
   
8.         Next
   
9.         单据录单窗口.Controls("label51").Caption = "记帐日期：" & ActiveCell.Offset(, -2)
   
10.         单据录单窗口.Controls("label52").Caption = "贷方金额：" & ActiveCell.Offset(, 2)
    
11.         单据录单窗口.Controls("label53").Caption = "对方帐户：" & ActiveCell.Offset(, 4)
    
12.     End If
    
13. End Sub

复制代码

不添加新LABEL的方法。

跳转到最佳答案楼层

hwc2ycy

添加三个标签，然后读取相关单元格赋值就成了。

hwc2ycy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 3 And Target.Row > 10 Then
   
3.         单据录单窗口.Show 0
   
4.         Dim arr
   
5.         arr = Split(Target.Value, "")
   
6.         For i = LBound(arr) To UBound(arr)
   
7.             单据录单窗口.Controls("textbox" & i + 1).Text = arr(i)
   
8.         Next
   
9.         单据录单窗口.Controls("label51").Caption = "记帐日期：" & ActiveCell.Offset(, -2)
   
10.         单据录单窗口.Controls("label52").Caption = "贷方金额：" & ActiveCell.Offset(, 2)
    
11.         单据录单窗口.Controls("label53").Caption = "对方帐户：" & ActiveCell.Offset(, 4)
    
12.     End If
    
13. End Sub

复制代码

不添加新LABEL的方法。

hwc2ycy

把三个LABEL宽度拉长