EXCEL这段VBA是什么意思

显示全部楼层 · 2011-5-6 12:22:31

PrivateSubWorksheet_Change(ByValTargetAsRange)
DimsLetter
IfTarget.Address=\"$B$2\"Then
sLetter=Asc(Target.Value)-63
WithTarget.Offset(,1).Interior
SelectCasesLetter
CaseIs27
.ColorIndex=sLetter
EndSelect
EndWith
EndIf
EndSub
请帮忙一个一个解释一下。

千问 · 2011-5-6 12:22:31

PrivateSubWorksheet_Change(ByValTargetAsRange)‘定义一个过程，参数为一个单元格
DimsLetter\'定义一个变量
IfTarget.Address=\"$B$2\"Then\'如果单元格是B2，执行以下操作
sLetter=Asc(Target.Value)-63\'将B2单元格的ascii码值减去63赋值给sLetter，Asc求acsii码的值
WithTarget.Offset(,1).Interior\'右移一个单元格，即C2
SelectCasesLetter\'select-case语句
CaseIs27’如果sLetter小于27，则将C2的颜色设置为sLetter
.ColorIndex=sLetter
EndSelect
EndWith
EndIf
EndSub

<h4class=\"ask\">追问

帮我写一下程序。
根据时间公式关系，显示出颜色。
当转固时间大于系统时间时，显示为绿色；
当转固时间小于等于系统时间时，显示为红色；
转固时间单元格里的时间为空时，不显示任何颜色；

帮我写一下程序，先谢过了。

<ahref=\"http://hiphotos.baidu.com/zhidao/pic/item/1f178a82a0b7b9c9f703a674.jpg\"class=\"replyask-img-e\"title=\"点击查看大图\"target=\"_blank\">
<imgsrc=\"http://hiphotos.baidu.com/zhidao/abpic/item/1f178a82a0b7b9c9f703a674.jpg\"/>
</a>

千问 · 2011-5-6 12:22:31

帮我设计一下程序。先谢过。
当转固日期大于系统日期时，在《是否转固》列单元格里对应显示绿色；
当转固日期小于等于系统日期时，在《是否转固》列单元格里对应显示红色；
当转固单元格没有值，空值时，无显示颜色；
在《是否转固》列单元格里，显示Y和N，Y代表已经转固，N代表没有转固。打开工作表时，如果转固日期=系统日期时，显示N。可以手动输入Y，如果输入Y代表已转固，颜色变为绿色。