在上次考不上大学如何读书的讨论后，我又想到另外一个话题，就是今天的主题—你如何看待远距离恋爱？ 当其他情侣在卿卿我我时，TA只能用手机告诉你TA很想你；当重要的日子到来时，TA只能从邮递员手中接过礼物……TA的爱情甜蜜而又孤独，只因为与恋人之间有段长长的距离。这样的远距离恋爱该如何继续？TA又能坚持下去吗？ 远距离恋爱对于相爱的两人来说是一种考验。事实上，最大的敌人会是时间。同时，花过多的时间却也是一种铺张浪费。 你是怎么看待这个问题的？请留言讨论： 1.
年度归档： 2011 年
数值与文本格式快速切换
平时在输入数据时,有些数值格式要转为文本，有些文本需要转换成数值用来统计下。 今天分享个数值与文本的互相转换的宏。 代码如下： Sub 文本与数值转换() Dim ans As VbMsgBoxResult ‘让用户选择转换方式 &nbs
输入重复值时提示
平时在输入大量数据时，在同一列中自上往下输入，一不注意可能会输入重复项。 有没方案能提示输入重复呢？ 有2种方案：一个是函数countif在数据有效性中定义，另一个是VBA宏代码。 先来写写函数方法： 比如我们是在B列中输入数据的那范围就是B1~B65536，在数据有效性中使用自定义，在公式中输入：=COUNTIF($B$1:$B$65536,B1)=1,随之向下填充，当输入重复值会提示，并清空当前输入值。 VBA代码： Private Sub Workbook
碎碎周末
今天是唯一一个有懒觉睡的周末，不用学车，不用陪人去医院。 自然醒睡到8点半，发现今天是月末了，有件事情没做–理发，现在是一个月理一次，一次不理就觉得少做了点什么，养成习惯了。 赶紧起床，洗刷，喝了点稀粥出门理发去了，此时太阳已经有点大了，晒到身上挺热乎的。 来到理发店，找了我的指定发型师，一年半了都是他一个人帮我剪的。 大约剪了半小时，终于剪完了。从理发厅出来，去超市买点东西，顺便帮老弟带几节无线鼠标的电池。 超市出来，又跑到电脑店，买了20米的网线，折腾啊。楼上太闷了，我想把路由器
真爱出现在几时？
想写点自己的境况，提笔却无心写下去，内心不够平静，还是转载篇苏芩的文章分享给大家，觉得写的不错，不敢独享。 说起最理想的婚姻状态，每个人的观点都差不多：最爱一个“心灵伴侣”。 能有共同语言，才能有让彼此坚定相爱下去的信念。 大多数人苦恼的是：这样一个人，总是迟迟遇不到。 年轻时，遇不到那个人，迫于年龄压力，不得不选择进入婚姻。 当为人夫为人妻、一切板上钉钉之后，那个人忽然出现了。一刹那的惊喜，最终还是要面对失落。到了此时此刻，责任要求你，不得不说“放弃&rdq
VBA填充空单元格
通常很多人在输入数据时，在同一列中相同的数据都会选择不输（如A1输入X,一直空到A5，则A2~A4都是表示X），空白表示相同。偷懒的想法啊。 但为了输入方便偷懒了，能不能交给代码补全呢？ 可以的！ 分享代码吧： Sub 填充单元格() On Error Resume Next Intersect([a:a], ActiveSheet.UsedRange).SpecialCells(
VBA自动定位下一个非空单元格
如何实现每次输入数据后总是定位于下一行的第一个空单元格避免键盘方向键左右移动呢？ 比较老实的办法是在常规里面设置方向，但是缺点是输入完成后始终朝某个方向前进，不会换行。 如何实现我们上面的需求？分享个代码： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then