宏代码实现增加所需工作表数量！ 代码如下： Sub 自动增加工作表() Dim i&, userinto i = 0 userinto = InputBox("输入插入工作表数量：") If IsNumeric(userinto) = True
年度归档： 2011 年
人性的弱点
人性的一大弱点就是争强好胜，人们面对比自己优秀的人，常会增加心中的挫折感，也就自然而然地产生了反感。一个人如果不善于隐藏自己的锋芒，工作上处处表现得干劲十足、能力超强，只能在无形中惹来嫉妒和猜疑“你行，你一人就能干好，那还要我们干什么？”
男女眼中的柏拉图
女人眼里柏拉图是个浪漫得一塌糊涂的情圣。 男人眼里柏拉图只是个没泡到妞还嘴硬的情剩。 女人比男人更追求爱的美感，美这种东西，要离得稍远一些才效果明显。 男人比女人更追求爱的质感，这种爱的质感，往往等于女人的肉感。 猎物爱上猎人，真是世间最悲哀的事。注定了，前者要被后者残伤到鲜血淋漓……–苏芩
Select Case与IF的比较
在编写VBA条件过程中我想大多人多首选IF来执行！但是你先看看IF语句的代码！ If Range("A1") >=90 Then Msgbox "You got an A on the test!" ElseIf Range("A1"
学车小记-倒桩3（死里逃生）
今天是我第四次去学车，昨天跟J石头剪刀布，谁输谁给教练打电话！ 可惜！我输了，好男不跟女斗，咱打就是！ 教练说今天有时间，叫我们今天去他那！ 早上我睡到8点，起来洗洗刷刷，喝了碗老妈放在锅里的粥！ 骑上老爸的坐骑赶往靖江公园，早上其实挺冷的！骑着车冷飕飕的，我也不敢骑太快 骑到五家殿那个地方，是个下坡！我今天差点在这里小命不保！ 由于是个下坡，我车速也不快，前面看到辆载货汽车出来，我迅速减速，可谁知道后面跟了辆长安的面包车，速度之快，朝我直来，我当时已经停下了，可他还没采取措施，眼看就要撞上了，
浅谈抹布女
生活中，类似这种奉献过度的女人，不在少数。中国似乎一直是个怨女怨妇批量生产中的国度，每天总能接触到一批批的感情受害者，她们每个人，都恨恨的说自己瞎了眼，为之奉献了一切的男人，最后像丢破抹布一样无情的丢弃了她。 通常，她们会把原因归结为自己的遇人不淑，运气不好，跟错了人。 其实关“运气”什么事！一个女人，即便运气再好，若是用“错的方式”去与“对的人”相处，终究也还是离做&
利用Inputbox函数输入数据
通常在excel中输入数据都是一个个点击单元格依次输入，但是能不能采用别的方法呢？有！利用Inputbox函数输入数据。 输入如下代码： Sub myInputBox() Dim sInt As String Dim r As Integer