excel 显示另一工作表内容

heresy9999 · 发表于 2020-2-26 15:29

各位大神，请教个问题

1.excel文件的工作表1是库存物品列表

2.工作表2是各项物品领用的列表

3.需求：点击工作表1（库存物品列表）中的“唯一编号”单元格，自动显示出文本框，内容是自动搜索显示出工作表2里所有此同一编号的领用记录
①有就全部显示，没有就不弹出文本框
②文本框要有内、外边框，这样能对齐也容易看
③文本框底色是淡黄色

[url=]示例.zip[/url]

orr89 · 发表于 2020-2-26 15:59

这是请教问题还是要别人做

heresy9999 · 发表于 2020-2-26 16:04

本帖最后由 heresy9999 于 2020-2-26 16:07 编辑

示例文件也只是例子，我的库存excel文档要复杂的多。所以直接在示例文档里改也行，或者把vba语句贴出来也行，我在学习研究，修改我自己的文档

我没学过excel，但是在工作中越用越觉得这个软件强大，所以只能有想法后去百度查，或者提问，根据别人的回答再逆向分析语句是什么意思，来改我自己的文档

3190496160 · 发表于 2020-2-26 16:13

Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If T.Row > 1 And T.Column = 13 Then
If T.Count > 1 Then Exit Sub
If T.Value = "" Then Exit Sub
ar = Sheets("领用记录").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
n = 1
   For j = 1 To UBound(ar, 2)
      br(n, j) = ar(1, j)
Next j
For i = 2 To UBound(ar)
      If Trim(ar(i, 3)) = Trim(T.Value) Then
         n = n + 1
         For j = 1 To UBound(ar, 2)
            br(n, j) = ar(i, j)
         Next j
      End If
Next i
   Cancel = True
If n = 1 Then Exit Sub
With ListBox1
      .Visible = True
      .Left = ActiveCell.Left - 300
      .Top = ActiveCell.Top + 30
      .List = br
End With

Else
ListBox1.Visible = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column <> 13 Then ListBox1.Visible = False
End Sub

3190496160 · 发表于 2020-2-26 16:14

示例22.rar (26.88 KB, 下载次数: 14)

3190496160 · 发表于 2020-2-26 16:14

列表框做的，供参考
个人觉得列表框可能效果会好些吧

heresy9999 · 发表于 2020-2-26 17:50

多谢 3190496160
但我没看明白，下载你的附件后，点击“唯一编号”列里的单元格没反应呀

3190496160 · 发表于 2020-2-26 18:11

heresy9999 发表于 2020-2-26 17:50
多谢 3190496160
但我没看明白，下载你的附件后，点击“唯一编号”列里的单元格没反应呀

忘了告诉你，双击单元格触发代码

YZC51 · 发表于 2020-2-26 19:30

3190496160 发表于 2020-2-26 16:13
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If T.Row > 1 And T.Col ...

跟老师学习下。谢谢老师！
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column <> 13 Then ListBox1.Visible = False
If T.Row > 1 And T.Column = 13 Then
If T.Count > 1 Then Exit Sub
If T.Value = "" Then Exit Sub
ar = Sheets("领用记录").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
n = 1
For j = 1 To UBound(ar, 2)
      br(n, j) = ar(1, j)
Next j
For i = 2 To UBound(ar)
      If Trim(ar(i, 3)) = Trim(T.Value) Then
         n = n + 1
         For j = 1 To UBound(ar, 2)
            br(n, j) = ar(i, j)
         Next j
      End If
Next i
'    Cancel = True
If n = 1 Then ListBox1.Visible = False: MsgBox "没有领用信息！！！", 48, "温馨提示……": Exit Sub
With ListBox1
      .Visible = True
      .Left = ActiveCell.Left - 300
      .Top = ActiveCell.Top + 30
      .List = br
End With
Else
ListBox1.Visible = False
End If
End Sub

YZC51 · 发表于 2020-2-26 19:31

代码审核中...

列表框做的.rar (20.24 KB, 下载次数: 8)

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

[求助] excel 显示另一工作表内容

最新热点 /1