[已解决]求助：VBA窗体查询后，输出部分信息到指定位置

yjwdjfqb

求助：VBA窗体查询后，输出部分信息到指定位置

VBA窗体查询后，输出部分信息到指定位置.rar (64.15 KB, 下载次数: 512)

2012-4-5 17:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

TTTTT

2012-4-5 19:30

返回行按钮_Click中的程序修改如下：
删除
'R = .[B65536].End(xlUp).Row + 1    '最后的+1表示B列最后一行有数据的下一行
'.Range("B" & R & ":W" & R) = Range("B" & hang & ":w" & hang).Value
增加
R = .[C65536].End(xlUp).Row + 1    '最后的+1表示B列最后一行有数据的下一行
.Range("C" & R) = Range("B" & hang).Value
.Range("E" & R) = Range("Q" & hang).Value
.Range("F" & R) = Range("M" & hang).Value
.Range("I" & R) = Range("L" & hang).Value

跳转到最佳答案楼层

TTTTT

返回行按钮_Click中的程序修改如下：
删除
'R = .[B65536].End(xlUp).Row + 1    '最后的+1表示B列最后一行有数据的下一行
'.Range("B" & R & ":W" & R) = Range("B" & hang & ":w" & hang).Value
增加
R = .[C65536].End(xlUp).Row + 1    '最后的+1表示B列最后一行有数据的下一行
.Range("C" & R) = Range("B" & hang).Value
.Range("E" & R) = Range("Q" & hang).Value
.Range("F" & R) = Range("M" & hang).Value
.Range("I" & R) = Range("L" & hang).Value

yjwdjfqb

TTTTT 发表于 2012-4-5 19:30
返回行按钮_Click中的程序修改如下：
删除
'R = ..End(xlUp).Row + 1    '最后的+1表示B列最后一行有数据 ...

请谢朋友的帮忙，可以帮我解决下上面图中的问题吗。。谢谢朋友了！！！

javabang