[已解决]一列单元格满足条件后在另一列写入内容

fls996

一列单元格满足条件后在另一列写入内容

Private Sub CommandButton1_Click()
Dim i As Integer, y As Integer
i = ("h4:h2000")
y = ("i4:i2000")
If Range("i") = "√" Then
Range("y") = "已出账单"
Range("i") = ""
End If
End Sub


Book1.rar (7.55 KB, 下载次数: 28)

2013-12-26 15:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

fffox

2013-12-26 16:01

fls996 发表于 2013-12-26 15:45
我的代码那样写不行?数组又不会用。

你这样写当然不行

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Integer, y As Integer, arr
   
3. '    i = ("h4:h2000")
   
4. '    y = ("i4:i2000")
   
5. '    If Range("i") = "√" Then
   
6. '        Range("y") = "已出账单"
   
7. '        Range("i") = ""
   
8. '    End If
   
9.     arr = Range("h4:i2000")
   
10.     For i = 1 To UBound(arr)
    
11.         If arr(i, 1) = "√" Then
    
12.             arr(i, 2) = "已出账单"
    
13.             arr(i, 1) = ""
    
14.         End If
    
15.     Next
    
16.     Range("h4:i2000") = arr
    
17. End Sub

复制代码

按你的意思改了一下，请测试

跳转到最佳答案楼层

fffox

表格里什么数据都没有的啊
你至少放上一些模拟数据，也方便测试啊

fls996

fffox 发表于 2013-12-26 15:38
表格里什么数据都没有的啊
你至少放上一些模拟数据，也方便测试啊

我的代码那样写不行?数组又不会用。

CheryBTL

1. Private Sub CommandButton1_Click()
   
2.     Dim ar, re
   
3.     Dim i As Integer, y As Integer
   
4.     ar = Sheets(1).Range("H1:H" & Sheets(1).[h65536].End(3).Row)
   
5.     ReDim re(1 To UBound(ar))
   
6.     For i = 1 To UBound(ar)
   
7.         If ar(i, 1) = "√" Then
   
8.             re(i) = "已出账单"
   
9.         End If
   
10.     Next
    
11.     Sheets(1).[i1].Resize(UBound(re)) = Application.Transpose(re)
    
12. End Sub

复制代码

fffox

fls996 发表于 2013-12-26 15:45
我的代码那样写不行?数组又不会用。

你这样写当然不行

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Integer, y As Integer, arr
   
3. '    i = ("h4:h2000")
   
4. '    y = ("i4:i2000")
   
5. '    If Range("i") = "√" Then
   
6. '        Range("y") = "已出账单"
   
7. '        Range("i") = ""
   
8. '    End If
   
9.     arr = Range("h4:i2000")
   
10.     For i = 1 To UBound(arr)
    
11.         If arr(i, 1) = "√" Then
    
12.             arr(i, 2) = "已出账单"
    
13.             arr(i, 1) = ""
    
14.         End If
    
15.     Next
    
16.     Range("h4:i2000") = arr
    
17. End Sub

复制代码

按你的意思改了一下，请测试

baksy

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Target.Offset(0, 1) = "已出账单"
End If
End Sub

fls996

fffox 发表于 2013-12-26 16:01
你这样写当然不行按你的意思改了一下，请测试

可以用，简单易懂。适合初学者。