获取人名拼音首字母的excel函数

Tags:excel, 拼音首字母.

用途：Palm通讯录中直接通过键盘字母调用联系人；
用法：
1.将palm软件同步到系统中，将通讯录到处成CSV文件；
2.在Excel中新建一个模块，将下面的代码复制进去，在excel界面调用HYPY函数即可。

Function HYPY(myStr As String) As String
Dim L As Integer, i As Integer
Dim GetPY As String, N As String
On Error Resume Next

HYPY = GetPY
End Function


收了一台Dell™ OptiPlex™ 960 DT

Tags:dell, Dell™ OptiPlex™ 960, OP960.

从playnb的马丁手里收了一台OP960，三年保,3600元包运费，配置如下：

CPU：E7300 4G 320G DVDRW Q45 三年保 Vista XP 双系统
intel 5300 无线套 OP960专用
贝尔金 displayport 转 HDMI 线

以下照片借用卖家滴。。

没想到会买DELL的品牌机。

现在有个问题，感觉电源风扇的噪音比较大，莫非还要自己改造一番？

更新feedburner订阅地址

Tags:feedburner, rss.

feedburner用户系统也全部将引入到google account中，除了后台管理地址变更以外，居然rss订阅地址也更新了，feeds变为了feeds2，这名字可真够二的。
最新feedburner订阅地址如下：

http://feeds2.feedburner.com/jjuvblog
http://feedproxy.google.com/jjuvblog

欢迎订阅，虽然没有啥内容。

另外，预告一下，
1、购买了传说中的星星电视，会更新一下dm500s的刷机方法，以及相应的备份帐号方法，^_^
2、利用业余时间，参照dtt的AS，做了excel vba的一个小程序-tick marks，近期将放出下载

如何将excel工作薄中的单列数据复制到不同的新工作簿中

Tags:excel, VBA, 汇总.

汇总报表中单列公司的数据要分发到下属公司，如果每一列都复制到新工作簿另存，工作很大，所以编写了一段VBA来代替重复的手工劳动
Sub add_new()
On Error Resume Next
With Worksheets("Detail line-consolidation") '汇总报表
For i = 3 To 35
Dim fname As String
fname = .Cells(3, i) '取公司名称
Dim mybook As Workbook
Set mybook = Workbooks.Add
mybook.SaveAs "d:\vba\" & fname & ".xls"
col = Split(Cells(3, i).Address, "$")(1) '取列名
.Range("a2:b169").Copy
Windows(fname & ".xls").Activate
Range("a1").PasteSpecial
.Range(col & "2:" & col & "169").Copy
Windows(fname & ".xls").Activate
Range("c1").PasteSpecial
Workbooks(fname & ".xls").Close savechanges:=True
Set mybook = Nothing
Next i
End With
End Sub

vista系统如何打开新版中行网银

Tags:sucks, 中行网银.

中行网上银行真的很sucks，居然没有做VISTA的兼容性测试。

Vista sp1 安装了新版网银后，点击以后也打不开，提示：

c:\program~1\java\jre6\bin\ssvagent.exe
the parameter is incorrect.

而且无论点击链接打开新窗口，都会出现如此提示。那么怎么样才能打开这个中银新网银呢？
其实很简单，只要直接输入以下网址，就可以打开新网银
https://ebs.boc.cn

京东网用淘宝支付失败的解决方案

Tags:京东, 快钱, 支付宝.

家里电视坏了，看了很久也没有买到合适的，京东正好在搞AOC 26特惠，虽然AOC是二线品牌，虽然26是TN屏幕，但是无奈价格便宜，考虑再三下了单。

133751 冠捷（AOC）26寸宽屏液晶显示器 619FH （黑色）100%广色域 HDMI 保无亮点!! 2199.00
129504 天敏（10moons）宽屏高清版电视盒LT290HD（支持24寸大屏） 239.00
123625 创见（Transcend） 8G SDHC卡(class6) 105.00
135367 飞利浦（Philips）六位过载保护电源转换器3M SPN6362 WA/93 99.00

东西买好了，结果用支付宝付款的时候出现提示：

调试错误，请回到请求来源地，重新发起请求。
错误代码TRADE_BUYER_NOT_MATCH

在网上搜索了很久，都没有找到直接的答案，最终在京东支付页面发现，支付宝下面标注”仅可支付一次“的提示，想到自己曾经支付过一次，但是取消了，估摸着是这个问题。那问题是如何解决无法重复支付的问题呢？

方法一：取消订单，然后重新支付一次，不过要注意，各银行关于信用卡向支付宝充值的限额，同样适用于京东的订单；
方法二（推荐）：用快钱支付，最重要的是不受支付金额的限制，2600元一次支付成功，省得存钱存钱。。累得要死

如何解决Excel打开时总是出现stdole32.tlb的提示

Tags:excel 2007, stdole32.tlb, UAC.

终于电脑操作系统升级成为Vista，也装了Excel2007，但问题却出现了。
当我一打开电脑，会出现stdole32.tlb的提示窗口，点确定，Excel就会开始修复，但实际上此修复并不解决问题，下次打开Excel还是会出现此问题。
在网上搜索了N种答案，无非以下几种：
1）重新安装OFFICE 2007；
2）给登录用户提权，升级到admin级别；
3）拷贝其他电脑stdole32.tlb文件到本机
实际上这三种解决方案对于我这台电脑来说根本解决不了问题，依然出现讨厌的窗口，尽管取消也可以用，但总是觉得不爽。通过搜索微软的帮助，发现了类似情况解决的方案也是提权，可是我的用户已经属于administrator组成员，到底要怎么提权呢？这时想到了讨厌的UAC（User Account Control : 用户帐户控制)，总是要求这样或者那样的权限，一下想到，那如果我关闭UAC后重装office，是否看以解决此问题呢？
于是关闭了UAC，重新安装office，一切问题解决。

附：关闭UAC方法
使用MSCONFIG关闭UAC

1. 依次点击“开始 > 运行”，输入MSCONFIG，打开系统配置实用程序
2. 选择”工具”选项卡，向下滚动找到”关闭 UAC” ，选中该行。
3. 点击“启动”按钮
4. 一个CMD窗口将会打开，当运行完毕后，将其关闭。
5. 退出MSCONFIG，重启系统即可。

　　如果您以后想要重新开启UAC功能，只需选中”启动 UAC”行，同样进行操作一次即可开启。

出现本问题系统环境：
OS:windows vista
excel version：Excel 2007

———————————————————————————-
How to solve the error about stdole32tlb when the excel 2007 start up?

1) Disable the UAC (User Account Control);(How to disable the UAC? Search the Google)
2) Reinstall the Office 2007;
3) Enable the UAC

看上了好东东-LumiNox 3901

Tags:购物狂.

传说中的F117驾驶员才带的表，咱开不起117，能不能整个表呢？
简介：

瑞士钟表巨人设计并供应给美军海豹特种部队；
完全符合美军各单位军表规格要求(MIL Spec # W-4637 4F)；
玻璃纤维强化聚酯铸模表身；
不锈钢表背盘，用不锈钢螺丝固定；
双层垫圈，200米深防水；
单向转动铝表圈，traser夜光时刻点；
防划水晶玻璃表面；
使用多粒宝石的瑞士制造石英机芯，带日历功能；
电池寿命4年；
新型尼龙/纤维穿环表带，带海豹部队和Lumino标志
新型起棱表圈，和军方粗体数字表盘设计

刚还了贷款，但想买的欲望还是超级强烈。不过这个表有45mm的直径，对于我的手腕来说也是有点粗的。

下面记下想买的东西，看看未来会买几个

1、WII游戏机
2、PSP2000游戏机
3、TH55 PDA（虽老，风韵犹存）
4、TT2 收藏用
5、SUREFIRE 战术电筒
6、苹果电脑以及笔记本
7、小毒物莱卡任意一款相机（这个好像基本上最难）
8……

赵大小姐你压力不必太大哦，我是说说而已，俺了解人生不如意十之八九

当按键失灵

Tags:NumLocK键, num关闭, 按键失灵.

还有五个月，M3N的笔记本就使用足五年了。速度慢不说，键盘也开始失灵了。DEL键、键盘的向右键、INS（numlock）无论我怎么刷洗，都开始罢工了。
为了让电脑快一点，我手一欠用“雨林木风”的GHOST系统重装了电脑，没成想，麻烦来了。笔记本进入系统后，小数字键盘会默认打开，因为INS键失灵，无法配合FN关闭数字小键盘，去网上搜索得到两个解决方法：

1、打开注册表，修改键值
HKEY_Current_User\ControlPanel\Keyboard\InitialKeyboardIndicators
在类型 REG_SZ 中，值是 2 的时候 NumLock 会被打开，应改为0；
2、BIOS的设定中BIOS FEATUR里找到“Boot up NumLock Status”（启动时键盘上的数字锁定键的状态），选项：on（开）off（关）选择后按F10保存

方法都很简单，按照1的方法修改后，重启电脑系统会默认将键值改为“2”，而选用2的方法，则碰到最大一个困难，右方向键失灵，在BOIS中设置居然无法选择其他的菜单，根本进入不了“BIOS FEATUR”。没辙，抓狂之际，在网络上搜索到了“remapkey”软件，居然可以用键盘上其他不经常用的按键替代那些失灵的按键。于是下载后，将win键改为了numlock按键，重启后，仍然无法用此键关闭数字小键盘。

再次抓狂，残念中，莫非真要再买新电脑了？就在绝望之际，发现了

set WshShell=CreateObject(“WScript.shell”)
WshShell.SendKeys”{NUMLOCK}”
保存文件后，修改扩展名位“vbs”，双击即可

尽管介绍的文章是为了开机打开数字键，而我是想关闭，但看到没有ON或oFF开关限制，抱着死马当活马医的态度，运行了此VBS，哇，居然真的关闭了小键盘灯。立即到注册表中将键值改为了0。重启电脑故障解决。

相关阅读：
1、开机后让NumLocK键自动打开的方法
2、急求，键盘按键替代程序！-remapkey

让我们一同哀悼

Tags:代码, 哀悼, 页面变灰.

提示：
页面变灰代码
在CSS文件中，添加以下内容，请注意复制后用改为半角符号
html { filter:progid:DXImageTransform.Microsoft.BasicImage(grayscale=1); }