求解答怎么更改下面代码的目标单元格（就是不知道这段代码选中的单元是哪个句子）

dryrtsuy

Private Sub CommandButton1_Click()
With Selection
        If Evaluate(.Text) * 2 = Evaluate(.Text & "*2") Then
            .Replace .Text, .Text & "*2"
        Else
            .Replace .Text, "(" & .Text & ")*2"
        End If
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    CommandButton1.Visible = False
    With Target
        If .Count > 1 Or .Column <> 1 Then Exit Sub
        If IsError(Evaluate(.Text)) Then Exit Sub
    End With
    With CommandButton1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left - 18
        .Height = Target.Height
        .Visible = True
    End With
End Sub
？？？目标代码单元格

dryrtsuy

不要沉啊

dryrtsuy

不要沉啊
高手呢

dryrtsuy

自己顶下快来人列

skyzxh

就是第1列的单元吧？
If .Count > 1 Or .Column <> 1 Then Exit Sub这句表示如果选择的单元不是第1列，且选择的单元数超过1个，则退出程序

dryrtsuy

skyzxh 发表于 2015-11-9 21:01
就是第1列的单元吧？
If .Count > 1 Or .Column  1 Then Exit Sub这句表示如果选择的单元不是第1列，且选 ...

是的、你的回答完美的解决问题！！！