如何设置选中的工作表数量为变量

yueyueniao

我查了资料，当选中两张工作表以上（含两张）就自动执行警告，这个要自定义事件，对我这个水平太难了！谢谢您的解答。
管理
回复 编辑评分

fanyoulin

yueyueniao 发表于 2023-5-24 18:48
谢谢大侠，怪我没表述清楚，我是单位财务，最近发现很多工作表在修改工作表时因为选成多张编辑导至其它表 ...

我认为做不了吧，vba不能“挂靠”在excel的基本操作上，excel的基本操作由excel自身来管理，vba是无法干预的，否则就是对excel操作的再改造了，那只能是微软自己才能做的事情；

yylucke

不算完善的一个提醒方案代码放在“ThisWorkBook”中：
缺点：修改后，才弹出提示窗；同时修改N个Sheet，会弹出N次。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If ThisWorkbook.Windows(1).SelectedSheets.Count > 1 Then
        msg = "您选择了多个Sheet的单元格" & Target.Address
        For Each sht In ThisWorkbook.Windows(1).SelectedSheets
            msg = msg & Chr(10) & sht.Name
        Next sht
        MsgBox msg, vbOKOnly + vbExclamation, "【提醒】"
    End If
End Sub