一、输入数据自动锁定
Private Sub Worksheet_SelectionChange(ByValTarget As Range)OnError Resume NextSheet1.Unprotect Password:="123"IfTarget.Value <> "" ThenTarget.Locked = TrueSheet1.Protect Password:="123"EndIfEnd Sub
Sheet1.Unprotect Password:="123"Sheet1.Protect Password:="123"
二、根据批注提取数据
Public Function pizhu(i As Range)Application.Volatile Truepizhu = i.Cells.Comment.TextEnd Function
三、根据颜色求和
Function SumColor(i As Range, ary1 AsRange)Dimicell As RangeApplication.VolatileForEach icell In ary1Ificell.Interior.ColorIndex = i.Interior.ColorIndex ThenSumColor = Application.Sum(icell) + SumColorEndIfNexticellEnd Function
四、根据颜色计数
Function CountColor(x As Range, ary2 AsRange)Application.VolatileFor Each i In ary2If i.Interior.ColorIndex =x.Interior.ColorIndex ThenCountColor = CountColor + 1End IfNextEnd Function
想要学Excel，可以点击超链接，了解下我的课程，带你成为Excel高手提高工作效率，仅售49.9
END
