今天比较郁闷，回家处理剩下的工作，打开Excel，一看悲剧了~！ 单击单元格右键想复制单元格一看，坑爹啊~灰色的？ 我以为中毒了，还把Excel重装了好几遍，发现依旧，才发现前几天我写过一篇关于禁止粘贴复制的文章，顿时恍然大悟~原来是这家伙搞的鬼~ 只能依样画葫芦了，上代码： Private Sub Workbook_Open() With Application &
月度归档： 2011 年 6 月
VBA用特定值清除特定区域内容
最近的VBA总是喜欢写些乱七八糟的东西，这不今天又想到个。 思路是这样的：特定单元格输入特定值清除特定区域内的数据！觉得有点自杀式的！不过只要不输那个真确值，数据都清空不了! 代码如下： Private Sub Worksheet_Change(ByVal Target As Range) If Target.AddressLocal = Range("B3"
80后我们拿什么跟90后比？
今天在单位练了一下午的红歌，全身都是汗水，回到家里第一件事就是去冲个冷水澡，今天是这阶段最闷热的一天，为了明天晚上大合唱加紧备战~ 坐在电脑面前也没什么思路写文章。 无聊扯扯今天的感受，今天大合唱2/3是我们正式员工，1/3是来实习的职高学生。 光说年龄也就18岁吧，单位也给我分配工作帮带一个~ 大合唱要求女生是穿白衬衫和超短裙、高跟鞋。 今天那帮学生带着来穿了，我们完全惊讶，这哪是高中生，个个看上去都那么成熟。 其实怎么说呢，反正在我们当地职高，没几个人会读书的，基本都是混混日子的，也难怪一个
VBA定位单元格位置-补充
在上篇VBA定位单元格位置文章中，使用VBA代码来突显单元格位置。 但这只是为了方便定位，并不想再次打开工作表时看到最后一次的定位记录。 所以再次加了另外个代码来控制： Private Sub Workbook_BeforeClose(Cancel As Boolean) Cells.Interior.ColorIndex = xlColorIndexNone End Sub
男女之间的谎言
平均每人每天撒谎4次，每人每年要撒谎1500次。 即便是谎言，女人也比男人更重视，一点点瞎话，女人会在心内计算良多，女人天生心细，心细之人，谎话自然也描补的更逼真。 男人谎言和女人谎言有共通点：都是为了能让自己看起来更出色。若是没了虚荣心，谎言根本无生根的土壤。 但男人谎言和女人谎言也有不同：男人谎言更倾向于解决问题，女人谎言更倾向于追求心安。 女人的谎言，很多时候是为了避免伤害。 怕伤害对方，更怕伤害自己。 因为害怕直面事实的真相，于是，谎言就成了紧要关头的一针缓冲剂。女人谎言不是为了去伤害谁
VBA定位单元格位置
我们在修改Excel表格时，当表格的构成有很多列和行组成时，定位起来有些麻烦。 为什么？ 太多的行列在鼠标定位的时候容易看花眼，造成上下行列定位误差，有没有能方便定位的呢？ 有！代码来了： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim icolor As Integer
别人眼中的无聊，我们心中的幸福
每一对爱侣间，总会有属于他们自己的特别的恩爱方式，有时是扮奥特曼，有时是装小怪兽……也许外人觉得莫名其妙，他们却玩得万分幸福。每一对愿意玩傻傻游戏的男女，我认为，他们是真爱上了。 女人会把“电话时间”当做是最幸福的事，因为女人的爱情是用“听”的。但普遍，男人不喜欢“电话恋爱”的方式，因为男人的爱情用“看”的。所以，看似一通电话、很微不足道的小事，却能让女人感到最幸福的满足。