UC知道怎样用代码对EXCEL另一工作表的单元格取值??
来源：百度知道 编辑：UC知道 时间：2024/07/08 00:34:46
我一EXCEL工作簿，内有“每日明细表”与“每月汇总表”，
现想用代码实现：
当从“每日明细表”撒换到“每月汇总表”时，
“每月汇总表”中A、B、C、D、E 这5列所有从第8行开始的单元格值，
等于“每日明细表”对应单元格的值
请问填写什么代码？请提供代码
谢谢你们，特别是谢谢是ZHUXINWEI同志，虽然你的编码只可以更新第八行，第九行以后的都不可以了，但受你启发，我把代码改为下面这样，就可以了，谢谢
Private Sub Worksheet_Activate()
Dim i As Integer
Dim j As Integer
If MsgBox("以下将更新每月汇总表，继续", vbYesNoCancel) = vbYes Then
For i = 1 To 5
For j = 8 To Sheet1.Range("A65535").End(xlUp).Row
Cells(j, i) = Sheets("每日明细表").Cells(j, i)
Next
Next
End If
End Sub
现想用代码实现：
当从“每日明细表”撒换到“每月汇总表”时，
“每月汇总表”中A、B、C、D、E 这5列所有从第8行开始的单元格值，
等于“每日明细表”对应单元格的值
请问填写什么代码？请提供代码
谢谢你们，特别是谢谢是ZHUXINWEI同志，虽然你的编码只可以更新第八行，第九行以后的都不可以了，但受你启发，我把代码改为下面这样，就可以了，谢谢
Private Sub Worksheet_Activate()
Dim i As Integer
Dim j As Integer
If MsgBox("以下将更新每月汇总表，继续", vbYesNoCancel) = vbYes Then
For i = 1 To 5
For j = 8 To Sheet1.Range("A65535").End(xlUp).Row
Cells(j, i) = Sheets("每日明细表").Cells(j, i)
Next
Next
End If
End Sub
人家都用代码级别的了，还用尔等写公式？笑话
不是很明白楼主想干什么
下面代码试试吧,
有一个问题就是不论从什么表切到汇总表都会运行，不过聪明的我已经在前面加了个判断，可以选择是否更新
Private Sub Worksheet_Activate()
Dim i As Integer
If MsgBox("以下将更新每月汇总表，继续", vbYesNoCancel) = vbYes Then
For i = 1 To 5
Cells(8, i) = Sheets("每日明细表").Cells(8, i)
Next
End If
End Sub
代码在线写的，测试了一下竟然一次通过，赞自己一个
楼上的方法就行的，你也可以把附件发下，给你直接写好公式，
chen.founder@163.com
公式就可以了
每月汇总表 的 a8中输入 =每日明细表!a8 ，拖填充柄