excel里加了个按钮，咋删掉啊

dys800113

63356在2007里面的该如何办？

takelook

谢谢啊:)

俺编了个函数，那个遍历回头再说了，先凑合着吧

Private Sub button_Click()
    Dim r
    r = Sheets("output").UsedRange.rows.Count + 1
    Range("E23").Copy
    Sheets("output").Select
   
    Sheets("output").Range("B" & r).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("output").Range("A" & r) = Date

End Sub

原帖由 thinkinger 于 2007-2-17 16:07 发表
一个数据表的已用空间的对象是usedrange
那么下一个空行就是
sheet(theSheetYouWillCopyTo).usedRange.rows.count+1
注意，这个对象的这个属性值在某些情况下不是很准确，会返回一个稍微多于实际正在使用中的行 ...

鹤影

原帖由 thinkinger 于 2007-2-17 16:07 发表
一个数据表的已用空间的对象是usedrange
那么下一个空行就是
sheet(theSheetYouWillCopyTo).usedRange.rows.count+1
注意，这个对象的这个属性值在某些情况下不是很准确，会返回一个稍微多于实际正在使用中的行数，主要原因是因为空白行中有些单元格曾经放入过数据或者设置过特别格式，虽然后来删除了内容，但是excel仍然认为你正在使用这个单元格。我的经验是从这行开始向前遍历，直到找到第一个有数据的单元格，速度快很多。

原帖由 takelook 于 2007-2-17 17:38 发表
谢谢啊:)


俺编了个函数，那个遍历回头再说了，先凑合着吧

Private Sub button_Click()
    Dim r
    r = Sheets("output").UsedRange.rows.Count + 1
    Range("E23").Copy
    Sheets("output").Select
   
    Sheets("output").Range("B" & r).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("output").Range("A" & r) = Date

End Sub

研究学习一下，收获两点：

1、sheets(theSheetYouWillCopyTo).usedRange.rows.count+1

2、Range("B" & r)

谢谢。

takelook

再问，chart的名字怎么改啊，就是chart window的名字，随机生成的拷贝到不同的机器还不一致


另外，VB脚本那个copy paste有问题
改成name define了,定义val_total保存E23
    r = Sheets("output").UsedRange.rows.Count + 1
   
    Sheets("output").Select
    Sheets("output").Range("A" & r) = Date
   
    Sheets("output").Range("B" & r) = Sheets("input").Range("val_total")

takelook

搞定、原来是按CTRL

takelook

啥意思？

原帖由 dys800113 于 2007-2-17 16:40 发表
63356在2007里面的该如何办？

sock

我就说嘛还有TL大婶搞不定的

sock

TL大婶帮我也瞧瞧病....别说英语啊...你就说哪个可以卡就成了

takelook

都删，大不了重装机器嘛:P

原帖由 短袜 于 2007-2-18 14:31 发表
TL大婶帮我也瞧瞧病....别说英语啊...你就说哪个可以卡就成了

sock

原帖由 takelook 于 2007-2-18 17:10 发表
都删，大不了重装机器嘛:P

没人性啊没人性............