Question

在2003版excel中，如何用VBA程序固定某字符的字体和大小？

比如“姓名”、“性别”用黑体，其它用宋体，请高手指教。谢谢！！
Private Sub 竞赛日程() '说明：每项至少4行，比如接力要插入行成4行
Dim k%, m%, n%
Application workbook_sheetchange
If target = "道" Or target = "号码" Or target = "姓名" Or target = "单位" Or target = "组别" Or target = "性别" Or target = "项目" Or target = "成绩" Or target = "名次" Or target = "得分" Or target = "备注" Or target = "加分" Or target = "备2" Then
target.Font.Name = "黑体"
Else
target.Font.Name = "宋体"
End If
Cells(k, 1) = "道"
.........请问如何修改？

Answer 1

在工作簿workbook_sheetchange事件中使用如下代码:
if target = "姓名" or target = "性别" then
target.font.name = "黑体"
else
target.font.name = "宋体"
end if