通过VBA实现Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Rang
通过VBA实现Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Rang
1条回答
2023-07-26 15:06 .采纳回答
通过VBA实现 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub End If c = Target.Column n = Application.WorksheetFunction.Sum(Columns(c)) If n = 8 Then ‘如果是要值>=8就跳转，那就改成n>=8 Cells(1, c + 1).Select End If End Sub
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://hwaiwenda.com/data/attach/logo/logo.png', '推荐 的问题《excel中没有没办法设定一列中当所有数的和值到10后自动到下一列的办法.》','https://hwaiwenda.com/answer/40513/88394.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then
Exit Sub
End If
c = Target.Column
n = Application.WorksheetFunction.Sum(Columns(c))
If n = 8 Then ‘如果是要值>=8就跳转，那就改成n>=8
Cells(1, c + 1).Select
End If
End Sub
一周热门 更多>