不懂VBA也编程

tsgsx

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

真诚请教，先谢谢了！

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

R.R.

原帖由 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

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

tsgsx

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

学习中,谢谢楼主

kuoma

请问山版主，应该可以直接用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

学习的好方法

jilijun

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

ljyilgs1

学习 支持

择泽

学习学习!