华山认剑（redwin）

      11号是星期天，下午两点多弟弟送我回公司，工业园区道路比较宽，人也少，学开车遛遛是比较好的场地。学开车是我年初就定下来的目标一，但机会不好找就一直没下手实习摸过。上次去买东西来瞅见有个小驾校（实则为倒桩之类的小场所），一问要学五个月，4千块，不便宜呢。我问了下是否能光借车练习，说一小时一百元。还是先作罢，蹭弟弟的车学学才是王道。

      今天弟弟蹭了老乡亲戚的丰田车用用，自动档的，应该比他那送货的五菱车好学啊，机会难得，今天又不算忙，上。一上手感觉不太难，爽，虽然车子撑控得不太稳，加速、刹车不自然，可毕竟上吨的家伙在俺手里转起来啰，还是挺高兴的。感觉有点像玩游戏啊，踩刹车就慢下来，踩加油就加速。过道路的铁障碍时得一直轻踩着刹车慢慢通过，十字路口时先刹车慢慢移动观察下，无妨时一踩油门窜过~~转了三圈，还成，有机会多练练的话今年学会开车没问题吧。上楼坐在座位上，头晕晕的。

      感觉不等于行动，感觉对头了应适当反应、行动。现股票处于疑似反弹上涨阶段，但波动亦较大，有较好收益时应坚决兑现部分，坐立城头打望罢。不要到手的肥肉又给顺回去了，实在是心疼。坚持价值投资、适当投机为辅，但明显高市盈率的股票坚决不碰，你非浪荡弟子做不了那活的。基金仍可再次退出部分，其表现的确不行，还是退出点自己捏着安全点。

可能是我修改过一次密码可就是记不起来了，通过找回密码的方式可邮箱就是没有回复。今天有空就专门处理下此事，在博客中国网站找了个客服的新邮箱地址，与原来发邮件给他们的不一样的，用这个新的重新发了封请求信，很快就有回复搞定了。在此特别谢谢他们。我又可以上来写写划划啦。

Private Sub Worksheet_Change(ByVal Target As Range)
'投资有风险，提醒下自己戒贪、慎行，
'达到某目标值后最好入袋为安，观察一段时间后再做定夺。
'监控两处数据即N10及R10两个单元格
'打*号的地方是数字，这里隐去
'By redwin　2007-8-20
Columns("B:B").ColumnWidth = 7.88
If [N10] >= *000 Then MsgBox "市值从*000升至" & [N10].Value & "元了，" _
& Chr(13) & Chr(13) & "已升值了" & [N10].Value - *000 & "元，" _
& Chr(13) & Chr(13) & "计划的家用空调冰箱款赚到啦，" _
& Chr(13) & Chr(13) & "注意风险！最好入袋为安！！", _
vbExclamation, "投资有风险，戒贪、慎行："
If [R10] >= *000 Then MsgBox "市值从*000升至" & [R10].Value & "元了，" _
& Chr(13) & Chr(13) & "已升值了" & [R10].Value - *000 & "元，" _
& Chr(13) & Chr(13) & "代理理财初步金额赚到啦，" _
& Chr(13) & Chr(13) & "注意风险！最好入袋为安！！", _
vbExclamation, "投资有风险，戒贪、慎行："
End Sub

大跌大买，大涨大卖
　　他预测，今后指数还会创出新高，但是在指数创新高的同时，70%的股票会下跌。水皮因此建议投资者，今后的操作应该在战略上看空，在战术上做多。对于空仓的投资者，他建议：大跌大买，小跌小买，不跌不买；而对于满仓的投资者，他建议：大涨大卖，小涨小卖，不涨不卖。
　　水皮解释，所谓大涨是指连续2个涨停板以上的个股，所谓大跌是指连续2个跌停板的股票。他表示，自己一直是按照这样的原则在操作股票，事实证明，自己的经验是正确的。“在跌停板上买股票的感觉真好，”水皮的一句感慨，道出了许多股民的心声。

摘要：经典开始菜单　运行　不能用　查看全文

国家授时中心服务器的IP地址(210.72.145.44)

Private Sub CommandButton1_Click()
    'Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Text, Operator:=xlAnd '按Textbox1输入的内容在列1中进行查找
    '以下如何编写代码:获得当前符合条件的姓名共有几个,单元格位置都是在哪里?
    '例如:在文本框输入"张三",那么应得知这个名字共有三个,位置分别是在第3,第6,第11行
    ''By redwin for 天极网友　2007-5-21
    Dim showword
    Dim showword1
    Dim i As Integer
    showword = ""
    showword1 = ""
    If TextBox1.Value = "" Then
    MsgBox "查找的姓名不能为空！", vbExclamation
    Else
      For i = 3 To 103
      If Sheets("sheet1").Cells(i, 1).Value = TextBox1.Value Then
      showword = i
      showword1 = showword1 & "、" & showword
      End If
      Next
      If Len(showword1) < 2 Then
      showword1 = "没有符合条件的值。"
      Else
      showword1 = Mid(showword1, 2, Len(showword1) - 1)
      End If
      MsgBox "你所查找的“" & TextBox1.Value & "”在以下行出现：" & showword1, vbInformation
    End If
End Sub


Private Sub CommandButton2_Click()
 '命令按钮二是要实现对找到的所有姓名行,在其对应的C列填入当前的系统时间,应如何编写代码?
 '例如:在查找到"张三"共有三个,位置分别是在A3,A6,A11,那么点击此按钮以后,可以分别在C3,C6,C11填入当前系统日期
    ''By redwin for 天极网友　2007-5-21
    Dim i As Integer
    If TextBox1.Value = "" Then
    MsgBox "姓名不能为空！", vbExclamation
    Else
    For i = 3 To 103
    If Sheets("sheet1").Cells(i, 1) = TextBox1.Value Then
    Sheets("sheet1").Cells(i, 3) = Now
    End If
    Next
    End If
End Sub

Private Sub CommandButton3_Click()
End '结束表单运行
End Sub

      我的飞利浦826用了足四年了也算是件耐用品罢，现在通话质量都挺满意的。电池原配的是两块，到现在使用时间是短了些但也够用的。后来上淘宝买过块类似电池，不料不好使，震动功能没有的（原配电池上有的），只能设置为铃声状态，震动状态一接就掉电关机，只能当垃圾扔抽屉了。
    前不久有一号称美女的老乡说发个近照给我看下，没办法，自己的手机是前辈，这类数据接收后没法打开看哪，属无效格式。结果给拥有摄像头、彩信功能的新型手机的菜鸟戏落了下，没面子哪。顺便说下，本来可以在移动的彩信网站收看的，进去后却一直loading看不到。于是有了换个手机的不良念头。但换哪种哪款呢？这也是个挺费思量的事。一要品牌、款式、二要性能功效、当然最重要的还不能超出预算心理价位。难哪。平时也多少受了点广告的毒，最后认为买个小胖palm的智能型手机比较合适。其最新型的居然摄像头有130万像素了，其功能、扩展性估计持有几年后也跟得上时代。一查价格，贵！不然配不上它的定位哪，可理解但不能接受。是再往下瞅下650型的，也是相当不错的，但摄像头是30万像素的，一比较气短哪，体形也没最新款的苗条讨好，俺手不大搂手上不甚爽。还是先搁下冷静下，回头再想想俺的动机，真的到了非换手机不可的地步吗？好像仍不是太迫切的事，不就是收不到彩信吗？俺一年才要收几张啊？犯不着烧啊。商务类功能吧有本本有电脑的也差不多的；GPS呢、俺连自行车都没有也是看着心动用不着啊，想做个驴友满祖国名山大川、繁华都市跑还不够格的。手机炒股什么的是比较好，但那点本钱，犯得着藏藏掖掖盯着手机喜形于色状？……