不懂VBA也编程

tsgsx · 发表于 2008-11-20 22:17

原帖由 tsgsx 于 2008-11-20 07:43 发表
在一个限定行数和列数的表格中，只有在最后一行的各列输入数据后，该列数据自动上移一行以保证表格中数据始终为最新数据，怎么做才能达到这样的效果？

真诚请教，先谢谢了！

针对这个例子请参照这个附件，就是在第11行各个单元格内输入数据，在单元格输入后该列数据上移到第10行，相应第十行数据上移到第9行.....，以此类推始终保持这一列的数据为最新数据，只要能达到这样的效果用VBA或函数均可。
请版主或这里的高手帮我想想，先表示感谢！

R.R. · 发表于 2008-11-20 23:04

原帖由 tsgsx 于 2008-11-20 22:17 发表

针对这个例子请参照这个附件，就是在第11行各个单元格内输入数据，在单元格输入后该列数据上移到第10行，相应第十行数据上移到第9行.....，以此类推始终保持这一列的数据为最新数据，只要能达到这样的效果用VBA或 ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Row <> 11 Or Target.Column > 9 Then
If Range("A11:I11").SpecialCells(xlCellTypeBlanks).Count < 9 Then
      arr = Range("A4:I11")
      Range("A3:I10") = arr
      Range("A11:I11").ClearContents
End If
End If
End Sub

habf2008 · 发表于 2008-11-21 10:23

向楼主学习，o(∩_∩)o...

tsgsx · 发表于 2008-11-21 10:29

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Row <> 11 Or Target.Column > 9 Then
If Range("A11:I11").SpecialCells(xlCellTypeBlanks).Count < 9 Then
      arr = Range("A4:I11")
      Range("A3:I10") = arr
      Range("A11:I11").ClearContents
End If
End If
End Sub
感谢42楼的朋友
但上面的过程只能处理A列数据，对于一个有多列的表格怎么处理？
用循环语句应该可以，请指教怎么处理？

gxiaoxiao808 · 发表于 2008-11-21 10:37

学习中,谢谢楼主

kuoma · 发表于 2008-11-21 12:08

请问山版主，应该可以直接用Target的属性下去判别，为何要加For Each Rng In Target，不知有何不同，或是相同呢？因为都执行的出来。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = False
      If Target.Row > 4 And Range("a" & Target.Row) <> "" And Target.Column >= 3 And Target.Column <= 10 Then
         If Target <> "" Then
            Target.ClearContents
         Else
            Range("c" & Target.Row & ":j" & Target.Row).ClearContents
            Target = "√"
         End If
      End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = False
    For Each Rng In Target
      If Rng.Row > 4 And Range("a" & Rng.Row) <> "" And Rng.Column >= 3 And Rng.Column <= 10 Then
         If Rng <> "" Then
            Rng.ClearContents
         Else
            Range("c" & Rng.Row & ":j" & Rng.Row).ClearContents
            Rng = "√"
         End If
      End If
Next
Application.EnableEvents = True
End Sub

唯一不同的是在选择多个单元格的时候。
——山菊花

感谢山老师指点，受用不尽，正好遇到此问题！！
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
For Each rng In Target
      If rng <> "" Then
         kk = rng.Address
         Sheets(2).Range(kk) = rng
      End If
Next
End Sub
直接用target去判，一直出错，原来要用循环。上面是sheet1打上资料，sheet2备份

[ 本帖最后由 kuoma 于 2008-11-21 16:24 编辑 ]

ynztwxqy · 发表于 2008-11-21 12:18

学习的好方法

jilijun · 发表于 2008-11-21 12:33

感谢山菊花老师！！学习一下！！

ljyilgs1 · 发表于 2008-11-21 12:39

学习支持

择泽 · 发表于 2008-11-21 13:22

学习学习!

		自动登录	找回密码
密码			免费注册

不懂VBA也编程

版主请帮我

回楼上

顶呱呱