[已解决]高难度问题，请高手帮忙，可能要用VBA

厶猫

  qq  在线等   。。当表 Sheet1  入库单上 鼠标点击哪行数据  那么 在后面Sheet2的小表上  自动产生 哪行的信息，并打印,谢谢。 解决 我给12金币   答案请回复  悬赏贴

最佳答案

月排行榜 / 总排行榜

lisachen

2011-12-10 11:12

厶猫 发表于 2011-12-10 11:07
能否 没有生效  失效  我只要   打印 就可以直接打印   不按打印  就 不打印，，我这是给底下入库人员  使 ...

选择所在行后点打印
(, 下载次数: 11)

上传

点击文件名下载附件

跳转到最佳答案楼层

菜鸟锐

厉害！！！顶一下！！！！！！！！！

那么的帅

SHEET2 表中 的生产日期和米数，在SHEET1表中无对应数据。

厶猫

那么的帅 发表于 2011-12-10 10:17
SHEET2 表中 的生产日期和米数，在SHEET1表中无对应数据。

填写后就有数据了啊

那么的帅

厶猫 发表于 2011-12-10 10:18
填写后就有数据了啊

你看没看你的表，是表头根本就没这2项。

厶猫

那么的帅 发表于 2011-12-10 10:24
你看没看你的表，是表头根本就没这2项。

Sheet1   Sheet2   两个表

厶猫

那么的帅 发表于 2011-12-10 10:17
SHEET2 表中 的生产日期和米数，在SHEET1表中无对应数据。

需填写  Sheet1  表里的 内容  

lisachen

问题.rar (10.71 KB, 下载次数: 16)

2011-12-10 10:32 上传

点击文件名下载附件
刚才附件有问题 修改了一下

业余爱好者

看不明白楼主想玩什么

其实，如果能说的清楚一些，这个问题可能也不会很复杂

换个思路，可能比你一定想实现的办法好很多唷

snrvgbb

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Not Intersect(Target, Range("b5:M9")) Is Nothing Then
   
4.     Application.ScreenUpdating = 0
   
5.     With Sheet2
   
6.         .[d3] = Cells(Target.Row, 7)
   
7.         .[f3] = [d2]
   
8.         .[d3] = Cells(Target.Row, 9)
   
9.         .Activate
   
10.         .PrintOut
    
11.     End With
    
12.     Sheet1.Activate
    
13.     Application.ScreenUpdating = 1
    
14. End If
    
15. End Sub
    

复制代码