小货工作室

两张表 一张为原表 一张为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，要不是有官方背景~ 这个垃圾社区早就应该倒闭了吧~

以前都是直接用驱动精灵什么的~自动装驱动~ 然后蓝牙一直不能正常传文件~ 只有个查找打印机什么的选项，我还以为这机子蓝牙坏了呢 今天上网搜索了一下 发现有个人说换驱动才可以传 于是我上官网把相关的驱动下下来 貌似还蛮大的，几百M 装好重启 然后竟然真的可以传了~ 以后不需要再到处找数据线了~

我想备份一些资料，为了安全就多邮箱备份 由163发往163、新浪、QQ 然后发了接近20封的时候，QQ邮箱就提示由于收信频繁什么的，然后不再接收 那我想，收不了，发总可以发吧 于是换成QQ邮箱发往163和新浪，结果没发几封 又显示，你发的附件超200M限额~~~~ 我晕~~~~ 人家163，新浪咋没见提示~ 现在发又发不了，收又收不了~要来何用~

点击“Tools”---“Preferences”--“General”，去掉勾选“Allow multiple instances”