小货工作室

新皮带和旧皮带是同样的款式，怎么这个标记有点不一样呢！ 貌似新的比旧的还要贵一点点，没想到物价上升，连皮带价格也上升了。

报了保险，保险花了七百块钱。换了一个铰链，做了喷漆。刚好我的车，是去年九月份中的保养。半年到了刚好做个保养。今天4儿子的小姑娘说进气的滤芯太脏了，还有空调的滤芯也一样，说什么吹不干净了，忽悠我换掉，一个150，另外一个80块。然后又忽悠我做个四轮定位还有动平衡什么的，说要三百块钱，然后我问那我换轮胎要多少钱，他说一个670。然后我只换了滤芯，轮子什么的全没动。我直接跟他们说我出外面去换了。然后，中午有空我就到国大上去那条路和八达路的交叉路口那里的一个轮胎店去做了四轮定位，结果那里的技师说一点问题都没有。然后没收钱。他们说测完之后有问题动了车子才收钱一次八十块。我又问了轮胎的价格。他们说五百左右。唉，4儿子真是会忽悠人啊。

好像是刷不到，昨天出差回来，去人民医院等了一个下午，然后说要验血，要几百块，真是气死我了，今天去荣顺，60块搞定，还刷的医保卡。

虽然基本都是拖控件 但是好久没用C#，都忘得一干二净了~ 很多小问题花了好长时间

office2007有一个功能，就是把ppt转换成pdf，转换之后用foxit浏览器浏览，然后熟悉使用选择文本工具，全选，复制就可以了。当然，如果ppt里面全部都是图片，那就没有办法了。

然后莫名其妙出现了一次错误，网页开到一半，网络断了，出现了错误页面，发现了他的域名为cpu.baidu.com

两张表 一张为原表 一张为Sheet3 原表 H为 已完成工作量 J为奖励分数 Sheet3 中A列为姓名 B列为 已完成工作量 C为奖励分数 复制的时候选择粘贴数值 Dim i Dim j Dim k Dim l1, l2 Dim m Dim n ‘ Selection.Copy i = Selection.Row j = Selection.Column k = Selection.Value Sheets(“原表”).Select Cells.Find(What:=k, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate m = Selection.Row n = Selection.Column Sheets(“Sheet3”).Select Range(“B” & i).Select Selection.Copy Sheets(“原表”).Select Range(“H” & m).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Sheets(“Sheet3”).Select Range(“C” & i).Select Selection.Copy Sheets(“原表”).Select Range(“J” & m).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False   一些命令啥的，不懂的可以先录制宏，然后再编辑VB代码

Sub Macro3() ‘ ‘ Macro3 Macro ‘ ‘ Dim i, j As Integer For i = 1 To ActiveSheet.Range(“A65535”).End(xlUp).Row Range(“A” & i).Select Selection.Copy Range(“D” & i).Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ “http://kns.cnki.net/kns/brief/Default_Result.aspx?code=SCDB&korder=0&sel=1&db_codes=CJFQ,CJFN,CDFD,CMFD,CPFD,IPFD,CCND&kw=” & UTF8EncodeURI(Range(“A” & i)) _ , TextToDisplay:=”cnki” Next End Sub Function UTF8EncodeURI(szInput) Dim wch, uch, szRet Dim x Dim nAsc, nAsc2, nAsc3 If szInput = “” Then UTF8EncodeURI = szInput Exit Function End If For x = 1 To Len(szInput) wch = Mid(szInput, x, 1) nAsc = AscW(wch) If nAsc < 0 Then nAsc = nAsc + 65536 If (nAsc And &HFF80) = 0 Then szRet = szRet & wch Else If (nAsc And &HF000) = 0 Then uch = “%” & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80) szRet = szRet & uch Else uch = “%” & Hex((nAsc \ 2 ^ 12) Or &HE0) & “%” & _ Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & “%” & _ Hex(nAsc And &H3F Or &H80) szRet = szRet & uch End If End If Next UTF8EncodeURI = szRet End Function

那个闲得蛋疼的来黑我一个毫无利用价值的站~ 真是意想不到~ 感觉又是wp的插件的洞洞~ 唉，不装插件功能又少~ 装了又有洞洞~ 真是麻烦啊~

相当不错~说得很好 http://www.zcool.com.cn/article/ZMTQyMTEy.html   还有这篇也不错 从基础到进阶，详细谈谈如何用PS曲线玩转照片影调 http://bbs.fengniao.com/forum/8965729.html