小货工作室

虽然基本都是拖控件 但是好久没用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

然后我搜索了一下~貌似还真有相关的插件 Front-end Editor 看介绍好像还行 https://www.wpdaxue.com/front-end-editor.html 有空可以研究一下

我记得以前是有输入的，但是升级了以后程序更新过了 难保不会把原来的KEY弄丢了 然后我想再申请一个吧~ 结果发现注册信息填写好了以后提交就无法访问 囧，官网被墙了 没办法 ，翻墙吧  

今天上了一下红豆~发现帐号被永久禁止了~一看理由是 滥发广告~ 我想我一年没发几个主题~一个月回复几个帖子怎么就滥发广告了？？？ 愤愤不平的我，联系了红豆客服QQ~ 让我吐血啊~ 竟然是这么个奇葩理由 天啊~我这个头像用了快10年了~ 在所有论坛几乎都是这个头像~ 从来没见哪个论坛以“滥发广告”的罪名永久封禁的~ 再说了，一点警告都没有就直接封禁~ 这么奇葩的红豆社区 TMD，要不是有官方背景~ 这个垃圾社区早就应该倒闭了吧~