英语固定词汇搭配
摘要：
a close（narrow）shave 侥幸的脱险 a few 有些，几个 ... 阅读全文
posted @ 2007-12-04 22:19 王峰炬 阅读(829) 评论(0) 推荐(0) 编辑
Do you know how many combinations to select n numbers from 1 to m with sum of which is mysum?
摘要：
Do you know how many combinations to select n numbers from 1 to m with sum of which is sum? Sub getit()Dim m&, n&, mysum&, i&, j&, k&, count()m = ... 阅读全文
posted @ 2007-12-03 00:37 王峰炬 阅读(103) 评论(0) 推荐(0) 编辑
递归实现数字排列组合
摘要：
参考彭希仁的递归算法 Sub macro1()Dim arr() As Stringgetall 9, 3, "", arrDebug.Print Join(arr, ",")End SubSub getall(ByVal m As Byte, ByVal n As Byte, ByRef a A... 阅读全文
posted @ 2007-10-30 16:33 王峰炬 阅读(192) 评论(0) 推荐(0) 编辑
自动获取美元最新汇率
摘要：
Sub MACRO1()With CreateObject("Msxml2.XMLHTTP").Open "GET", "http://www.google.cn/search?&q=1usd%3D%3Frmb", False.SendMsgBox Split(Split(.responseTex... 阅读全文
posted @ 2007-10-11 23:43 王峰炬 阅读(116) 评论(0) 推荐(0) 编辑
3D历史数据下载
摘要：
Sub Macro1()Application.ScreenUpdating = FalseDim temp() As String, n As Long, i As LongWith CreateObject("InternetExplorer.Application").Visible =... 阅读全文
posted @ 2007-10-05 18:42 王峰炬 阅读(115) 评论(0) 推荐(0) 编辑
Save an userform as an image in EXCEL
摘要：
When click a commandbutton in an Excel userform,save the entire userform as an image file in harddisk. Method 1 Private Declare Sub Keybd_Event Lib "... 阅读全文
posted @ 2007-10-04 18:17 王峰炬 阅读(115) 评论(0) 推荐(0) 编辑
Adding checkbox to mshflexgrid
摘要：
Private Sub MSHFlexGrid1_Click()If MSHFlexGrid1.Col = 0 Then MSHFlexGrid1.Text = Chr(124 - Asc(MSHFlexGrid1.Text))End Sub Private Sub Form_Load() Dim... 阅读全文
posted @ 2007-10-04 02:11 王峰炬 阅读(121) 评论(0) 推荐(0) 编辑
香辣虾的做法
摘要：
1.虾一份,洗净待用2.准备香料如图: 葱,姜,蒜,干辣椒,花椒3.热油,爆炒花椒,辣椒,一些姜丝(留一点和虾一起炒)4. 做好3之后,倒入虾,葱,姜丝,蒜片一起炒5.按个人口味放盐炒匀. ... 阅读全文
posted @ 2007-10-03 15:09 王峰炬 阅读(105) 评论(0) 推荐(0) 编辑
美味带鱼的家常做法
摘要：
带鱼是最经济美味的食品，现向大家推荐几种带鱼的做法。 红烧带鱼 红烧带鱼 制 作： 1.带鱼清洁干净，切6公分左右段，用少许盐，料酒，略腌制15分钟。 2.取一个干净小碗，放入葱，姜，蒜，少许盐，少许糖，料酒，水淀粉待用。 3.取另一个小碗，放入一个鸡蛋搅拌均匀待用。 ... 阅读全文
posted @ 2007-10-03 14:27 王峰炬 阅读(116) 评论(0) 推荐(0) 编辑
VBA自动登陆163信箱
摘要：
Sub Goto163()With CreateObject("InternetExplorer.Application").Visible = True.navigate "http://mail.163.com"Do Until .Readystate = 4DoEventsLoop.Doc... 阅读全文
posted @ 2007-10-01 18:22 王峰炬 阅读(205) 评论(0) 推荐(0) 编辑
