[已解决]VBA在指定单元格内容后增加一个红色勾

yjwdjfqb

VBA在指定单元格内容后增加一个红色勾
请老师们帮帮，从这个代码上修改下。谢谢大家了！
在这个切换代码上修改：
Sub test()
    Dim j As Integer
    j = Sheets("AAA").Cells(Rows.Count, "C").End(xlUp).Row    '"数据"工作表中B列最后一个有数据的行数
    If ActiveSheet.Shapes("切换").DrawingObject.Caption = "全选" Then
        Range("C2:C" & j) = ActiveCell & "√"
        ActiveSheet.Shapes("切换").DrawingObject.Caption = "反选"
    Else
        Range("C2:C" & j) = ""
        ActiveSheet.Shapes("切换").DrawingObject.Caption = "全选"
    End If
End Sub
VBA在指定单元格内容后增加一个红色勾.rar (7.33 KB, 下载次数: 2)

2015-2-1 00:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

adders

2015-2-1 07:37

Sub test()
    Dim j As Integer, cel As Range
    j = Cells(Rows.Count, "C").End(xlUp).Row
   
    With ActiveSheet.Shapes("切换").DrawingObject
        If .Caption = "全选" Then
            For Each cel In Range("C2:C" & j)
                cel.Value = cel.Value & "√"
                cel.Characters(Len(cel), 1).Font.ColorIndex = 3
            Next cel
            .Caption = "反选"
        Else
            For Each cel In Range("C2:C" & j)
                If Right(cel, 1) = "√" Then cel.Value = Left(cel.Value, Len(cel) - 1)
            Next cel
            .Caption = "全选"
        End If
    End With
End Sub

跳转到最佳答案楼层

adders

Sub test()
    Dim j As Integer, cel As Range
    j = Cells(Rows.Count, "C").End(xlUp).Row
   
    With ActiveSheet.Shapes("切换").DrawingObject
        If .Caption = "全选" Then
            For Each cel In Range("C2:C" & j)
                cel.Value = cel.Value & "√"
                cel.Characters(Len(cel), 1).Font.ColorIndex = 3
            Next cel
            .Caption = "反选"
        Else
            For Each cel In Range("C2:C" & j)
                If Right(cel, 1) = "√" Then cel.Value = Left(cel.Value, Len(cel) - 1)
            Next cel
            .Caption = "全选"
        End If
    End With
End Sub

yjwdjfqb

adders 发表于 2015-2-1 07:37
Sub test()
    Dim j As Integer, cel As Range
    j = Cells(Rows.Count, "C").End(xlUp).Row

谢谢老师的帮助，问题解决了！