excel生成查cnki链接

0 个评论
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
2017-01-12 / 生活 / 1,496 views浏览
阅读全文

奶奶的~网站被黑了

0 个评论
那个闲得蛋疼的来黑我一个毫无利用价值的站~ 真是意想不到~ 感觉又是wp的插件的洞洞~ 唉,不装插件功能又少~ 装了又有洞洞~ 真是麻烦啊~
2016-11-22 / 生活 / 1,770 views浏览
阅读全文

如何通过控制原色让你的照片变的通透

0 个评论
相当不错~说得很好 http://www.zcool.com.cn/article/ZMTQyMTEy.html   还有这篇也不错 从基础到进阶,详细谈谈如何用PS曲线玩转照片影调 http://bbs.fengniao.com/forum/8965729.html
2016-11-22 / 生活 / 1,853 views浏览
阅读全文

今天忽然想起论坛的便捷,就是能前台编辑帖子,然后我想WordPress行不行

0 个评论
然后我搜索了一下~貌似还真有相关的插件 Front-end Editor 看介绍好像还行 https://www.wpdaxue.com/front-end-editor.html 有空可以研究一下
2016-10-22 / wordpress / 1,683 views浏览
阅读全文

今天升级Akismet插件发现我把APIKey忘记了

0 个评论
我记得以前是有输入的,但是升级了以后程序更新过了 难保不会把原来的KEY弄丢了 然后我想再申请一个吧~ 结果发现注册信息填写好了以后提交就无法访问 囧,官网被墙了 没办法 ,翻墙吧  
2016-10-22 / wordpress / 2,094 views浏览
阅读全文

垃圾红豆,TMD竟然封我帐号~

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

装了个官方驱动~终于可以在电脑和手机间蓝牙传数据了

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

忽然发现QQ邮箱好垃圾

0 个评论
我想备份一些资料,为了安全就多邮箱备份 由163发往163、新浪、QQ 然后发了接近20封的时候,QQ邮箱就提示由于收信频繁什么的,然后不再接收 那我想,收不了,发总可以发吧 于是换成QQ邮箱发往163和新浪,结果没发几封 又显示,你发的附件超200M限额~~~~ 我晕~~~~ 人家163,新浪咋没见提示~ 现在发又发不了,收又收不了~要来何用~
2016-08-11 / 生活 / 1,937 views浏览
阅读全文

怎么让EditPlus打开同一窗口.现在每用EditPlus打开一个html文件,就打开一个新的EditPlus.

0 个评论
点击“Tools”---“Preferences”--“General”,去掉勾选“Allow multiple instances”
2016-08-09 / 网站制作技术 / 2,382 views浏览
阅读全文

114la程序在php5.3以上版本不出广告的修改文件

0 个评论
\admin\applications\app_common_function.php 修改这个文件的几处htmlspecialchars 后面要弄个编码
2016-08-09 / 网站制作技术 / 2,306 views浏览
阅读全文