关于以下是彭老师的作品,稍加修改而得,以下是代码。PublicmycPubliciiiiAsIntegerPublickkkAsIntegerPublicksssAsIntegerFunctionpengs(a)pengs=akkk=pengsksss=ksss+1Setmyc=NewcssSetmyc.sht=ActiveSheetEndFunction以下是类模块css代码。PublicWithEventsshtAsWorksheetPrivateSubsht_Change(ByValTargetAsRange)OnErrorGoTorenSetmyc.sht=NothingSetmyc=NothingMsgBox”发生变化的区域为:”&Target.Address,,”ChangeDemo”Cells(kkk,1)=iiiiCells(kkk,2)=ksssiiii=iiii+1 在一个工作表内有多个PENGS()函数,它们都饮用了同一个单元格,改变这个单元格都运行了所有PENGS()函数,但只有最后一个PENGS()函数运行了CSS模块,我想让所有的PENGS()函数都运行CSS模块,在线的大师们能解决么?是改变工作表事件,还是添加什么代码。。。。。。等等方法。谢谢。请看附件的问题
你附的文件我下载不了，好像是网站的问题。
从你贴的代码来看，是没有可能多次运行css中的代码。因为
Set myc = New css
这句话中的myc使全局变量，每次New一个css出来，都会销毁上一次的实例。
我不明白你所谓的“在一个工作表内有多个PENGS（）函数”是什么意思，我假设你调用pengs()的地方是好几个函数，那么你需要在这些函数中加入：
Static myc As css
然后删除全局变量，把myc作为参数传递给pengs
例如：
Function pengs(a As Integer, myc As css) as Integer
