change事件不管A列输入几位，都执行if后的，不执行else后的，求教，谢谢！

qihang15

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then '第1列发生变化
        If Len(Cells(Target.Row, "a")) = 1 Then
        MsgBox 1
        Else
        MsgBox 2
        End If
    End If
End Sub

notkonw

你这问题有点迷，是不想执行else？那就把条件字符判断改为大于0

MOY838840554

测试没有问题

qihang15

MOY838840554 发表于 2021-12-7 21:10
测试没有问题

change事件中，如何选中其它工作表的A10单元格？

qihang15

MOY838840554 发表于 2021-12-7 21:10
测试没有问题

change事件中，如何选中其它工作表的A10单元格？如下方法不行
Worksheets("sheet2").Select
Cells(10, "A").Select

MOY838840554

qihang15 发表于 2021-12-9 14:01
change事件中，如何选中其它工作表的A10单元格？如下方法不行
Worksheets("sheet2").Select
Cells(10,  ...

行，为什么不行。你怎么写的代码，要达到什么目的。为什么要选中？
操作单元格并不需要选中段元个
Worksheets("sheet2").Range("A10")=1

qihang15

MOY838840554 发表于 2021-12-9 14:07
行，为什么不行。你怎么写的代码，要达到什么目的。为什么要选中？
操作单元格并不需要选中段元个
Work ...

还是不行，我想选中另一个表sheet2的a10,在这个单元格中手动录入内容，是不是代码在某个表格中不在模块中，只能选中别的工作表，但无法选中别的工作表的某个单元格？谢谢

MOY838840554

qihang15 发表于 2021-12-9 14:11
还是不行，我想选中另一个表sheet2的a10,在这个单元格中手动录入内容，是不是代码在某个表格中不在模块中 ...

第二句要写完整，不然会被认为是当前表的单元格
Worksheets("sheet2").Select
Worksheets("sheet2").Cells(10, "A").Select

凤随心动

qihang15 发表于 2021-12-9 14:11
还是不行，我想选中另一个表sheet2的a10,在这个单元格中手动录入内容，是不是代码在某个表格中不在模块中 ...

如果代码没反应可能是事件放错了位置，你描述的情况应该不存在啊。建议录制视频或补充几张关键的照片

qihang15

MOY838840554 发表于 2021-12-9 14:17
第二句要写完整，不然会被认为是当前表的单元格
Worksheets("sheet2").Select
Worksheets("sheet2").Ce ...

这个可以实现打开另一个工作表，也选中了单元格，但是选中的单元格不在屏幕视野之内，需要滚动屏幕才能找到，怎样能选中单元格，同时单元格能直接看到，辛苦您了！