请 unsamesky 老师再看看 - 『 VBA交流 』 -
OFFICE精英俱乐部 OFFICE|WORD|EXCEL|ACCESS|OUTLOOK|PPT|VBA|软件开发|办公应用 - Powered by Discuz!
请 unsamesky 老师再看看
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
请 unsamesky 老师再看看
请各位老师帮助解决统计排序问题。谢谢！
[ 本帖最后由 yizhih 于
14:25 编辑 ]
附件: 您需要才可以下载或查看附件。没有帐号？
UID206361&帖子1811&精华0&积分2708&水晶2695 枚&威望1 点&阅读权限100&性别男&注册时间&
开始运行的时候有些卡，可能是计算过程的代码计算影响了速度！
请高手帮助优化一下吧！
不好意思，最近要帮朋友的网店PS店标，所以时间比较紧，代码就不再调试了！
详情见附件！
————————————————————
抱歉，“将填写数据单元格的字体颜色变成黑色”，代码有误！应该是range(cells(q,1),cells(q+9,1))，我把限定区域放大了！
附件已经重新更新！
[ 本帖最后由 unsamesky 于
22:41 编辑 ]
附件: 您需要才可以下载或查看附件。没有帐号？
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
非常感谢unsamesky老师，程序做的非常好，代码还有注释，便于理解和学习，再次衷心的感谢您！
UID206361&帖子1811&精华0&积分2708&水晶2695 枚&威望1 点&阅读权限100&性别男&注册时间&
呵呵，说老师还算不上啊！我28岁，如果比你大些，叫大哥就好！或者叫我小李也行！
我也喜欢买彩票，不过研究可没有你这么深入啊！！
上期买了个7+1的复式，中了个3+1，55块钱，请吃饭花了61块钱，晕啦！
今后有好号码通知我一个哦！！
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
我比你大两岁，不过不是学计算机的，对编程不懂，这方面你就是老师，我喜欢玩彩票，同时也喜欢研究一下彩票，算是业余爱好，彩票是一种统计分布分析，要在不断的统计分布分析中，找出阶段性的隐性规律，因此我觉得也在不断寻找适当的统计方法，而excel是快捷、灵活的工具，所以也在学习excel，你就是我的老师之一，谢谢两次出手帮助，还有两个问题要请教，还望赐教。如果你对这种统计方法感兴趣的话，等我把这张表做完传给你，祝你好运！
UID206361&帖子1811&精华0&积分2708&水晶2695 枚&威望1 点&阅读权限100&性别男&注册时间&
呵呵，请教不敢啊！
&&大家相互交流相互提高呢！！
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
请 unsamesky老师再帮助。谢谢！
附件: 您需要才可以下载或查看附件。没有帐号？
UID206361&帖子1811&精华0&积分2708&水晶2695 枚&威望1 点&阅读权限100&性别男&注册时间&
哎呀，老哥，前段时间因为跟我们经理吵了一架，所以现在被发配到生产部了，所以这段时间有点忙，恐怕周末才有时间帮你弄这个了！
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
呵呵，老弟老师不着急啊，我已经不好意思了，你抽时间就是了。上次你7+1得55元不错了，等你做出表来，我们交流一下，共同中大奖啊。不过不要跟经理吵架啊，当官的不但脾气不好，而且手握大权，我们老百姓总要吃亏的，老弟要小心啊。
UID206361&帖子1811&精华0&积分2708&水晶2695 枚&威望1 点&阅读权限100&性别男&注册时间&
老哥，不好意思，今天我也在加班，文件已经拷好，回家帮你弄，下个礼拜太忙了，不知道什么时候才能弄好，弄好了再传给你吧！
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
谢谢你，抽你的时间。
UID206361&帖子1811&精华0&积分2708&水晶2695 枚&威望1 点&阅读权限100&性别男&注册时间&
抱歉，最近实在太忙，帮你做了其中的一部分。剩下的工作，最近两个星期可能没时间帮你弄啊！！
详情请见附件！！
[ 本帖最后由 unsamesky 于
11:46 编辑 ]
附件: 您需要才可以下载或查看附件。没有帐号？
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
unsamesky您好，上传的附件有错误，打不开，请重新上传一下，剩下的功能请慢慢做，抽您的时间，谢谢！
UID206361&帖子1811&精华0&积分2708&水晶2695 枚&威望1 点&阅读权限100&性别男&注册时间&
我上传的附件在这边一切正常啊！
&&其他人呢！？
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
下载后打开时出现提示 图1
按4次“确定”后出现& &图2
再按“确定”后出现& &&&图3& &全部按钮丢失
[ 本帖最后由 yizhih 于
11:49 编辑 ]
附件: 您需要才可以下载或查看附件。没有帐号？
UID206361&帖子1811&精华0&积分2708&水晶2695 枚&威望1 点&阅读权限100&性别男&注册时间&
附件已经更新！！！
& &再下载一下试试看！！
UID44299&帖子480&精华0&积分289&水晶287 枚&威望0 点&阅读权限20&注册时间&
可以打开.只是一点都看不懂
晕呀,有人懂吗&
小羊羊今天吃草了：又来俱乐部喝水了！
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
还是打不开，换了一台机器也是打不开，还是提示15楼的样子，不知道问题出在什么地方，强行打开后，所有按钮全无。
UID196085&帖子41&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
我将按钮和组合框都加上了，其他都好了，就是“再排序”按钮点击后出现错误，好像Next后面少点什么，出现如下提示：
附件: 您需要才可以下载或查看附件。没有帐号？
UID206361&帖子1811&精华0&积分2708&水晶2695 枚&威望1 点&阅读权限100&性别男&注册时间&
实在抱歉呢，我现在还在加班，偷偷来看看的！！
& &你15#楼的图片上写的信息就是没有按钮和combobox1两个控件。
& &19#楼的问题是我没有写完的代码，星期天晚上写到0：30，实在太困了，所以还没有写完就放着了。我的意图就是想通过do while循环将数据依次填充到再排序的表中，很简单的。如果很急，看看他们能不能帮你做完呢！
& &实在是没时间啊，深感抱歉，顺祝愉快！！！
[通过 QQ、MSN 分享给朋友]如何防止资料库被不当复制（即验证序列号）？ - 『 Access新手学堂 』 -
OFFICE精英俱乐部 OFFICE|WORD|EXCEL|ACCESS|OUTLOOK|PPT|VBA|软件开发|办公应用 - Powered by Discuz!
如何防止资料库被不当复制（即验证序列号）？
UID119&帖子438&精华3&积分434&水晶414 枚&威望1 点&阅读权限100&性别男&注册时间&
如何防止资料库被不当复制（即验证序列号）？
如何防止资料库被不当复制（即验证序列号）？
　用∶ACCESS97、2000
本例是以数库内使用GetSetting及SaveSetting等语法，并搭配序列号，储存至注册表。
在模块里我写了两个函数∶
Decode(Scode,rndNum) '加密
CheckCode(Scode)As Boolean '验证序列号
我在验证序列号里只取了二、三、五、七等四码之ASCII值做处理。
验证通过之后，会再执行Decode函数，此函数会将序列号转为加密字符串，但不同时间执行Decode函数产生之加密串内容不同，因为我使用加密字符做为产生加密字符串的依，也就是Decode的rndNum参数。
SaveSetting函数会将指定值储存至Registry（注册表）中，位置是〖HKEY_CURRENT_USER\Software\VB and VBA Program Setting〗中，这是SaveSetting的固定储存位置。
你不妨将此例修改或是扩展一下，做成　合自己的东东。∶）
附件: 您需要才可以下载或查看附件。没有帐号？
奖励 &&水晶 + 1 枚
好例子！ &&水晶 + 5 枚
我用的Excel版本为XP。
UID237&帖子941&精华9&积分3527&水晶3482 枚&威望0 点&阅读权限80&性别男&注册时间&
UID189&帖子28&精华0&积分160&水晶160 枚&威望0 点&阅读权限15&注册时间&
UID27&帖子10&精华0&积分52&水晶52 枚&威望0 点&阅读权限10&注册时间&
savesetting
getsetting
我是这样做的
savesetting (rc4(projectname,key),rc4(keywords,key))
getsetting (rc4(projectname,key),rc4(keywords,key))
我直接采用了rc4算法,不用自己写函数了
UID324&帖子8&精华0&积分51&水晶51 枚&威望0 点&阅读权限10&性别男&注册时间&
请问序列号要如何获得？谢谢!
UID667&帖子1&精华0&积分46&水晶46 枚&威望0 点&阅读权限10&性别女&注册时间&
UID6975&帖子5&精华0&积分49&水晶49 枚&威望0 点&阅读权限100&性别男&注册时间&
果然高招，呵呵，又学到东西了，Thanks!
[fly][img]/images/logocrack.gif[/img][/fly]
UID330&帖子27&精华0&积分74&水晶74 枚&威望0 点&阅读权限10&性别男&注册时间&
好！谢谢！！
UID14063&帖子77&精华0&积分142&水晶142 枚&威望0 点&阅读权限15&注册时间&
点解我下载下来的db1.mdb打不开？（提示Unrecognized database format）
UID21750&帖子16&精华0&积分52&水晶52 枚&威望0 点&阅读权限10&性别女&注册时间&
看不明白呀.序列号是怎么获得的
天才是99%的灵感+1%的汗水
我的心愿是成为一名编程能手
UID22438&帖子4&精华0&积分48&水晶48 枚&威望0 点&阅读权限10&注册时间&
怎么下不了？
UID25388&帖子4&精华0&积分48&水晶48 枚&威望0 点&阅读权限10&注册时间&
UID760&帖子70&精华0&积分345&水晶345 枚&威望0 点&阅读权限20&性别女&注册时间&
好，保护知识产权，WTO了嘛
我耕耘，因我脚下有路
UID49465&帖子59&精华0&积分135&水晶135 枚&威望0 点&阅读权限15&注册时间&
好像還是有問題
如果我輸入序列號為：aaaaaaaaa
一樣可以通過
[color=red]喜歡就，別怕受傷[/color]
UID34825&帖子12&精华0&积分50&水晶50 枚&威望0 点&阅读权限10&注册时间&
谢谢，辛苦了哟！继续吧
UID44299&帖子480&精华0&积分289&水晶287 枚&威望0 点&阅读权限20&注册时间&
原帖由 ymh 于
10:42 发表
好像還是有問題
如果我輸入序列號為：aaaaaaaaa
一樣可以通過
这位才是高手之中的高手，顶你的脚踏实地
UID102495&帖子96&精华0&积分122&水晶121 枚&威望0 点&阅读权限15&性别男&注册时间&
先收下了,现在还用不到,刚才看到一个读硬盘ID的工具
UID186542&帖子42&精华0&积分59&水晶59 枚&威望0 点&阅读权限10&注册时间&
保护知识产权....
UID194558&帖子6&精华0&积分27&水晶27 枚&威望0 点&阅读权限10&注册时间&
好棒范例，正好需要，谢谢!!
UID185236&帖子10&精华0&积分31&水晶31 枚&威望0 点&阅读权限10&注册时间&
我也跟住来学了,g
[通过 QQ、MSN 分享给朋友]为什么非管理员用户不能登录QQ和使用国资委报表软件？怎么解决？ - 【 电脑技术 】 -
OFFICE精英俱乐部 OFFICE|WORD|EXCEL|ACCESS|OUTLOOK|PPT|VBA|软件开发|办公应用 - Powered by Discuz!
为什么非管理员用户不能登录QQ和使用国资委报表软件？怎么解决？
UID42941&帖子121&精华0&积分195&水晶195 枚&威望0 点&阅读权限15&注册时间&
为什么非管理员用户不能登录QQ和使用国资委报表软件？怎么解决？
1、我在电脑上设置了非管理员用户，但在使用过程中出现了一些问题，非管理员用户不能登录QQ，提示窗口为：你用于保存消息的文件被损坏或被其他文件占用，是否将聊天记录备份。占击确定后提不为：“已将聊天消息保存在& && & ”，请问这是什么原因？（注：在管理员用户可以正常登录。而且已采用文件设置和转移向导将文件转移到非管理员用户）
2、国资委的久其报表软件在非管理员用户中也不能使用，但在管理员用户中可以正常使用，这是什么原因？以上二个问题怎么解决？
UID42941&帖子121&精华0&积分195&水晶195 枚&威望0 点&阅读权限15&注册时间&
为什么没人回答呀？再顶一下
UID10&帖子2922&精华45&积分8339&水晶7878 枚&威望40 点&阅读权限120&性别男&注册时间&
QQ的目录,非管理员用户没有写的权限,你把everyone的权限加进去或者加你特定的用户.
国资委的软件没用过.不知道除了目录权限还关不关用户权限的问题,你也可以像上面一样.先把目录权限设置一下试试.
UID84212&帖子54&精华0&积分66&水晶66 枚&威望0 点&阅读权限10&注册时间&
你破解下&&用管理员权限
UID42941&帖子121&精华0&积分195&水晶195 枚&威望0 点&阅读权限15&注册时间&
回复 板凳 的帖子
怎么操作，能说具体一点吗？
UID42941&帖子121&精华0&积分195&水晶195 枚&威望0 点&阅读权限15&注册时间&
请问能说得具体一点吗？
请问能说得具体一点吗？
UID42941&帖子121&精华0&积分195&水晶195 枚&威望0 点&阅读权限15&注册时间&
E钻文件夹加密大师也不能用
还有一个问题，我用了一个E钻文件夹加密大师，只是注了册，但没在电脑里安装（这个软件不需要安装）在非管理员用户中也不能用，而且每次在用非管理员用户开机时，这个软件的窗口都会弹出来，我现在不想用了，将软件删除都还要弹出来，怎么办？
UID10&帖子2922&精华45&积分8339&水晶7878 枚&威望40 点&阅读权限120&性别男&注册时间&
看一下软件的使用说明.里面应该会有反安装教程.
UID42941&帖子121&精华0&积分195&水晶195 枚&威望0 点&阅读权限15&注册时间&
没有说明，什么也没有，这是一个破解版。
UID10&帖子2922&精华45&积分8339&水晶7878 枚&威望40 点&阅读权限120&性别男&注册时间&
那就下载官方版本重新安装一次或者登陆他们的官方网站上面找解决办法.
UID42941&帖子121&精华0&积分195&水晶195 枚&威望0 点&阅读权限15&注册时间&
回复 10# 的帖子
谢谢小蓝鱼，多谢一次
UID191003&帖子61&精华0&积分53&水晶53 枚&威望0 点&阅读权限10&性别男&注册时间&
第一个问题我遇到过，不过产生的原因不同，我是把QQ根目录下的我的QQ号码的那个文件夹删除了，和你一样的提示，，不用备份，直接点取消，登陆qq不受任何影响。。。。
&&应该不是受权限的影响。。。
[通过 QQ、MSN 分享给朋友]求助：PPT突然打不开了 - 『 MS Office其它组件 』 -
OFFICE精英俱乐部 OFFICE|WORD|EXCEL|ACCESS|OUTLOOK|PPT|VBA|软件开发|办公应用 - Powered by Discuz!
求助：PPT突然打不开了
UID20675&帖子519&精华4&积分806&水晶776 枚&威望2 点&阅读权限100&性别男&注册时间&
求助：PPT突然打不开了
昨天好好的，今天早上突然就打不开了。一打开程序就死，CPU占用99％，一直如此。并且进行不下去了。。。。。
哪位好心的达人帮我看看，该怎么办？？
UID12808&帖子884&精华0&积分1385&水晶1384 枚&威望0 点&阅读权限80&性别男&注册时间&
使用无问题，应是机器问题，如病毒，通过“进程”查一下
UID20675&帖子519&精华4&积分806&水晶776 枚&威望2 点&阅读权限100&性别男&注册时间&
没有病毒，我用PPTVIEW可以放映，但不能用PPT修改，打开后就一直停留在第一页，程序就动不了啦。
请问你用的是什么版本的PPT？楼上的，请再麻烦一下，用你的PPT把我的文件另外存一下，然后再发给我。。好吗？？
[ Last edited by 吃好饭 on
at 10:15 ]
UID12808&帖子884&精华0&积分1385&水晶1384 枚&威望0 点&阅读权限80&性别男&注册时间&
<td class="t_msgfont" id="postmessage_00版本
邮件已经发送，请查收
UID20675&帖子519&精华4&积分806&水晶776 枚&威望2 点&阅读权限100&性别男&注册时间&
谢谢，不过还是老问题，唉，不知道该怎么办了！！
UID15570&帖子1494&精华7&积分2452&水晶2346 枚&威望14 点&阅读权限100&性别女&注册时间&
我也下载来看过了，完全没问题哦。一切正常。
你不会是历史老师吧。
UID20675&帖子519&精华4&积分806&水晶776 枚&威望2 点&阅读权限100&性别男&注册时间&
哈哈，我就是历史老师的说。
没有问题吗？我知道你的是2003，我是XP，就是出错。。。
你帮我分成2部分，然后再给我发过来，可好。
邮箱见上。
UID12808&帖子884&精华0&积分1385&水晶1384 枚&威望0 点&阅读权限80&性别男&注册时间&
分解后的邮件已经发送
UID20675&帖子519&精华4&积分806&水晶776 枚&威望2 点&阅读权限100&性别男&注册时间&
分解后果然都可以打开了。。。
[通过 QQ、MSN 分享给朋友]查看: 2290|回复: 2
精华0阅读权限10最后登录在线时间20 小时
UID: 24187
精华: <font color=#
论坛新人, 积分 0, 距离下一级还需 50 积分
RT,出现这种情况 看图吧，要怎么解决，我下载了新的安装包安装还是不行
精华2阅读权限150最后登录在线时间5850 小时
技术区总版主
精华: <font color=#
将office2003完全卸载重新安装
Win7/Vista/XP下Office无法卸载解决法
技术区长期招募版主、技术专家，有意者PM我……
精华0阅读权限10最后登录在线时间20 小时
UID: 24187
精华: <font color=#
论坛新人, 积分 0, 距离下一级还需 50 积分
搞定了，谢谢你的解答
优秀会员(永久)
连续二次获得优秀会员勋章者
论坛精英(永久)
表现突出的技术专家、娱乐精英及版主以上管理人员
为论坛发展做出过特殊贡献
真诚感谢伴随论坛经历过若干次的风风雨雨，却始终支持着论坛的朋友
Powered by Discuz! X2.5
Comsenz Inc.