VBA替换字体格式

当一张数据表里有多种字体格式,比如有10号字体,11号,15号,那如何将10号字体转换成12号字体,并标记为红色。 也许有童鞋会说,那还不简单,一个个改就是了。 是的!这是一个方案。数据量少是很方便,倘若10号字体的数据有上千个,你会认为手动修改是最简便的吗? 分享个宏代码: Sub 替换字体格式()      Application.FindFormat.Clear        Ap

心情不好

最近压力挺大的,我从一个没有心理负担的人,顿时变成了一个被大山压在心口的人。 从周六开始,心中总是很闷,不想说话,生怕自己的言语会和别人起口角,一直压抑着自己。 别人谈论一些话题,我也懒得搀和,总觉得说多了不对劲。 今天我才觉得是内火上升,好多天没回家吃饭,去吃的都是麦饼,烧烤的,无形之中体内火气越来越旺。 但是繁忙的工作中加上一些因素,我也没时间去调节自己的情绪,今天在开发的时候,我傻愣愣的对着电脑屏幕发了好几阵呆。 我好想找一个人说说,甚至吵吵,可是我身边的人我的都吵不起,我得罪不起,我只能

决定男女命运的”27岁定律“

有这样的科学统计: 女人一生美丽的巅峰是在27岁,此后,美丽的容貌状态便开始呈现逐渐递减的态势。 男人一生魅力的开始是在27岁,此后,之前的幼稚慢慢退却,成熟气质开始占领高地。 这就是让男人女人又爱又恨的“27岁定律”。 从生理角度看,女人的成熟要早于男人。 通常一个女人在25岁左右,对新奇的服饰妆容兴趣开始降低,开始厌烦无规律的夜生活,并且会向往婚姻。 男人从27岁开始,才会慢慢开始想到结束之前一些幼稚且无规律的生活习惯,但也仅仅只是开始,他们的真正成长,还是要等到婚后

VBA隐藏相关工作表

        在实际进行开发时,很多工作表中的数据都是后台的,主要用来存储程度代码所需的数据。 为了保证整个过程的有效性,这些数据需要隐藏起来防止他人更改。 隐藏代码;   Sub 隐藏工作表()    ‘    ‘ 隐藏工作表 Macro    ‘ 宏由 Kael.Z&

宁波-江苏之行

昨天领导让我安排7518车子去宁波调试G-BOS系统。 最后给我的一句话是:“无论如何,任务必须完成!有压力啊,驾驶员有抵触情绪。” 最后我电话对方和驾驶员,终将事情安排妥当,给领导发了条信息:“我一定完成任务!” 早上闹钟4点半,洗洗刷刷5点出门,驾驶员在我家门口的公交站等了。 最终我还是让他们空车前往宁波陕汽德龙服务站,考虑到危险品车辆重车有禁行限制。 大约经过2个半小时,从宁波保国寺下高速,沿G329到达。结果开过头了,不认识路了,我下车问协

假如今年高考,没考上!你会怎么办?

高考过后差不多一个月了,几家欢喜几家愁。 话说今年的入取率高达75%,但还是很多人放弃了高考的机会选择了工作。 今天突然想到个话题: 假如你今年高考,没考上!你怎么办? 欢迎大家踊跃交流。 A.   不读了,整天玩,啃老族。 B.   继续高复呗!死也读完大学。 C.   下地干活,当农民!饿不死自己。 D.   去当车间工人,咱们工人有力量。 E.  国内不行,去国外! F.   其他