EXCEL专家级的高手请进
以下是彭老师的作品,稍加修改而得,以下是代码。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
答：你好！ 推荐一款访客记录IP地址的方法： 操作步骤： 1、登陆 2、首先按照提示注册； 3、成功注册后，选择导航栏上的“访客记录”项，再选择“定制访客记录”； ...详情>>
问：怎样用Camtasia Studio v2.0.3来制作媒体
答：这个软件有使用向导的，你新建一个文件，然后照着他的说明一步一步的走下去，就知道怎么用了，这个软件太小了，网上跟本找不到教程的，如果你确实还是不会的话，找个懂电脑...详情>>
