[已解决]请高手帮忙解决引用公式问题

zjdh

记录.rar (19.22 KB, 下载次数: 16)

2012-3-13 15:40 上传

点击文件名下载附件

zjdh

yzg44 发表于 2012-3-12 15:05
老师谢谢你帮忙，可是我点记录的时候还是出现下面的情况。

你仍旧打开的是你自己的文件吧？
用我提供的附件绝对不可能

zjdh

yzg44 发表于 2012-3-12 21:43
老师你好！非常谢谢你的热心帮忙，我也是用老师帮我改过的附件，还是出现以下问题，如果文件不和xsddy.dl ...

你仍旧用的是你自己的附件，你图中的内容与我的附件不一样！！

zjdh

yzg44 发表于 2012-3-13 08:04
老师；早上好！谢谢你的再一次帮忙，我下了老师的附件Ait+F11看的内容确实跟老师的图是不一样，麻烦老师看 ...

没错的！           

zjdh

那就定义一下变量：
Private Sub CommandButton1_Click()
'记录
   Dim R%, I%
    Application.ScreenUpdating = False
    With Sheets("记录")
        R = .Range("A65536").End(3).Row + 1
        For I = 8 To 17
            If Range("B" & I) <> "" Then
                .Range("A" & R) = Range("A" & I)
                .Range("B" & R) = Range("H5")
                .Range("C" & R) = Range("B5")
                .Range("M" & R) = Range("C22")
                Range("B" & I, "H" & I).Copy
                .Range("F" & R).PasteSpecial Paste:=xlPasteValues
                Application.CutCopyMode = False
                R = R + 1
            End If
        Next
    End With
    Application.ScreenUpdating = True
    MsgBox "已保存流水"
End Sub