年度归档： 2011 年

VBA用特定值清除特定区域内容

• VBA • 13 条评论 • •9,909 次查阅

最近的VBA总是喜欢写些乱七八糟的东西，这不今天又想到个。 思路是这样的：特定单元格输入特定值清除特定区域内的数据！觉得有点自杀式的！不过只要不输那个真确值，数据都清空不了! 代码如下：   Private Sub Worksheet_Change(ByVal Target As Range)    If Target.AddressLocal = Range("B3&quot

80后我们拿什么跟90后比？

• Diary • 8 条评论 • •6,268 次查阅

今天在单位练了一下午的红歌，全身都是汗水，回到家里第一件事就是去冲个冷水澡，今天是这阶段最闷热的一天，为了明天晚上大合唱加紧备战~ 坐在电脑面前也没什么思路写文章。 无聊扯扯今天的感受，今天大合唱2/3是我们正式员工，1/3是来实习的职高学生。 光说年龄也就18岁吧，单位也给我分配工作帮带一个~ 大合唱要求女生是穿白衬衫和超短裙、高跟鞋。 今天那帮学生带着来穿了，我们完全惊讶，这哪是高中生，个个看上去都那么成熟。 其实怎么说呢，反正在我们当地职高，没几个人会读书的，基本都是混混日子的，也难怪一个

VBA定位单元格位置-补充

• VBA • 暂无评论 • •3,762 次查阅

在上篇VBA定位单元格位置文章中，使用VBA代码来突显单元格位置。 但这只是为了方便定位，并不想再次打开工作表时看到最后一次的定位记录。 所以再次加了另外个代码来控制： Private Sub Workbook_BeforeClose(Cancel As Boolean)    Cells.Interior.ColorIndex = xlColorIndexNone    End Sub

男女之间的谎言

• Psychology • 8 条评论 • •6,189 次查阅

平均每人每天撒谎4次，每人每年要撒谎1500次。 即便是谎言，女人也比男人更重视，一点点瞎话，女人会在心内计算良多，女人天生心细，心细之人，谎话自然也描补的更逼真。 男人谎言和女人谎言有共通点：都是为了能让自己看起来更出色。若是没了虚荣心，谎言根本无生根的土壤。 但男人谎言和女人谎言也有不同：男人谎言更倾向于解决问题，女人谎言更倾向于追求心安。 女人的谎言，很多时候是为了避免伤害。 怕伤害对方，更怕伤害自己。 因为害怕直面事实的真相，于是，谎言就成了紧要关头的一针缓冲剂。女人谎言不是为了去伤害谁

VBA定位单元格位置

• VBA • 8 条评论 • •8,379 次查阅

我们在修改Excel表格时，当表格的构成有很多列和行组成时，定位起来有些麻烦。 为什么？ 太多的行列在鼠标定位的时候容易看花眼，造成上下行列定位误差，有没有能方便定位的呢？ 有！代码来了：   Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Dim icolor As Integer   

别人眼中的无聊，我们心中的幸福

• Psychology • 2 条评论 • •4,510 次查阅

每一对爱侣间，总会有属于他们自己的特别的恩爱方式，有时是扮奥特曼，有时是装小怪兽……也许外人觉得莫名其妙，他们却玩得万分幸福。每一对愿意玩傻傻游戏的男女，我认为，他们是真爱上了。 女人会把“电话时间”当做是最幸福的事，因为女人的爱情是用“听”的。但普遍，男人不喜欢“电话恋爱”的方式，因为男人的爱情用“看”的。所以，看似一通电话、很微不足道的小事，却能让女人感到最幸福的满足。

VBA记录工作表插入时间

• VBA • 4 条评论 • •5,611 次查阅

平时大家在处理各种账目表时，时不时要插入一张张工作表，今天思路一开，如果能记录每张工作表的插入时间，那就相当于给每张表建立一个出生档案。 代码如下：   Private Sub Workbook_NewSheet(ByVal Sh As Object)    Dim R As Long    R = Range("A65536"

加载更多