C:WINCE600PLATFORMCOMMON路径上面好像有个source(s)，被小弟我删了，不知道有什么影响，哪位前辈能发的给小弟我发一个啊谢过了_fedora 16安装后无法引导windows7，待解决！该如何解决_vs2005 调试异常:绑定句柄无效__脚本百事通
稍等，加载中……
^_^请注意，有可能下面的2篇文章才是您想要的内容：
C:WINCE600PLATFORMCOMMON路径上面好像有个source(s)，被小弟我删了，不知道有什么影响，哪位前辈能发的给小弟我发一个啊谢过了
fedora 16安装后无法引导windows7，待解决！该如何解决
vs2005 调试异常:绑定句柄无效
C:WINCE600PLATFORMCOMMON路径上面好像有个source(s)，被小弟我删了，不知道有什么影响，哪位前辈能发的给小弟我发一个啊谢过了
C:\WINCE600\PLATFORM\COMMON路径下面好像有个source(s)，被我删了，不知道有什么影响，哪位前辈能发的给我发一个啊，谢过了。::
------解决方案--------------------!if 0
Copyright (c) Microsoft Corporation.
All rights reserved.
Use of this sample source code is subject to the terms of the Microsoft
license agreement under which you licensed this sample source code. If
you did not accept the terms of the license agreement, you are not
authorized to use this sample source code. For the terms of the license,
please see the license agreement between you and Microsoft or, if applicable,
see the LICENSE.RTF on your install media or the root of your tools installation.
THE SAMPLE SOURCE CODE IS PROVIDED "AS IS", WITH NO WARRANTIES.
WINCEOEM=1
WINCECPU=1
NOMIPS16CODE=1
WARNISERROR=1
RELEASETYPE=PLATFORMCOMMON
_COMMONPUBROOT=$(_PROJECTROOT)\cesysgen
__PROJROOT=$(_PROJECTROOT)
_PLATCOMMONLIB=$(_PLATFORMROOT)\common\lib
TARGETPATH=$(_PLATCOMMONLIB)\$(_CPUDEPPATH)
_ISVINCPATH=$(_WINCEROOT)\public\common\sdk\
_OEMINCPATH=$(_WINCEROOT)\public\common\oak\
_OEMINCPATH=$(_OEMINCPATH);$(_WINCEROOT)\public\common\sdk\
_OEMINCPATH=$(_OEMINCPATH);$(_WINCEROOT)\public\common\ddk\
INCLUDES=$(_PLATFORMROOT)\common\src\
!IF "$(IMGPPC)" == "1"
CDEFINES=$(CDEFINES) -Dproject_wpc
!IF "$(IMGTPC)" == "1"
CDEFINES=$(CDEFINES) -Dproject_smartfon
CDEFINES=$(CDEFINES) -Dproject_cebase
!IF "$(ENABLE_OAL_ILTIMING)"=="1"
CDEFINES=$(CDEFINES)
-DOAL_ILTIMING
上面是文件内容
文件名是sources.cmn
fedora 16安装后无法引导windows7，待解决！该如何解决
fedora 16安装后无法引导windows7，急待解决！fedora 16没有grub.这个文件，只有grub.cfg这个文件，我的grub.cfg文件的内容如下：## DO NOT EDIT THIS FILE## It is automatically generated by grub2-mkconfig using templates# from /etc/grub.d and settings from /etc/default/grub#### BEGIN /etc/grub.d/00_header ###if [ -s $prefix/grubenv ]; then
load_envfiset default="0"if [ "${prev_saved_entry}" ]; then
set saved_entry="${prev_saved_entry}"
save_env saved_entry
set prev_saved_entry=
save_env prev_saved_entry
set boot_once=truefifunction savedefault {
if [ -z "${boot_once}" ]; then
saved_entry="${chosen}"
save_env saved_entry
fi}function load_video {
insmod vbe
insmod vga
insmod video_bochs
insmod video_cirrus}set timeout=20### END /etc/grub.d/00_header ###### BEGIN /etc/grub.d/10_linux ###menuentry 'Fedora Linux, with Linux 3.0.0-1.fc16.i686.PAE' --class fedora --class gnu-linux --class gnu --class os { load_video set gfxpayload=keep insmod part_msdos insmod ext2 set root='(hd2,msdos8)' search --no-floppy --fs-uuid --set=root 9b56540b-ccbe-455f-9e6c-703ff19f2cb7 echo 'Loading Linux 3.0.0-1.fc16.i686.PAE ...' linux /vmlinuz-3.0.0-1.fc16.i686.PAE root=/dev/mapper/vg_mydreamlife-lv_root ro rd.md=0 rd.dm=0
KEYTABLE=us quiet rhgb LANG=zh_CN.UTF-8 rd.luks=0 rd.lvm.lv=vg_mydreamlife/lv_root rd.lvm.lv=vg_mydreamlife/lv_swap
echo 'Loading initial ramdisk ...' initrd /initramfs-3.0.0-1.fc16.i686.PAE.img}menuentry 'Fedora Linux, with Linux 3.0.0-1.fc16.i686.PAE (recovery mode)' --class fedora --class gnu-linux --class gnu --class os { load_video set gfxpayload=keep insmod part_msdos insmod ext2 set root='(hd2,msdos8)' search --no-floppy --fs-uuid --set=root 9b56540b-ccbe-455f-9e6c-703ff19f2cb7 echo 'Loading Linux 3.0.0-1.fc16.i686.PAE ...' linux /vmlinuz-3.0.0-1.fc16.i686.PAE root=/dev/mapper/vg_mydreamlife-lv_root ro single rd.md=0 rd.dm=0
KEYTABLE=us quiet rhgb LANG=zh_CN.UTF-8 rd.luks=0 rd.lvm.lv=vg_mydreamlife/lv_root rd.lvm.lv=vg_mydreamlife/lv_swap echo 'Loading initial ramdisk ...' initrd /initramfs-3.0.0-1.fc16.i686.PAE.img}### END /etc/grub.d/10_linux ###### BEGIN /etc/grub.d/20_linux_xen ###### END /etc/grub.d/20_linux_xen ###### BEGIN /etc/grub.d/30_os-prober ###### END /etc/grub.d/30_os-prober ###### BEGIN /etc/grub.d/40_custom #### This file provides an easy way to add custom menu entries.
Simply type the# menu entries you want to add after this comment.
Be careful not to change# the 'exec tail' line above.### END /etc/grub.d/40_custom ###### BEGIN /etc/grub.d/41_custom ###if [ -f
$prefix/custom.cfg ]; then
source $prefix/custom.fi### END /etc/grub.d/41_custom ###### BEGIN /etc/grub.d/90_persistent ###### END /etc/grub.d/90_persistent ###开始用sudo update-grub结果显示无法找到，看了其他帖子说需要安装grub-pc（这个怎么安装，命令是什么），看了好多帖子也没解决问题，能不能手动修改grub.cfg来引导windows7.那位高手帮一下忙啊，我是U盘装的，没有光盘，步骤说的详细些，太感谢了！------解决方案--------------------
### BEGIN /etc/grub.d/30_os-prober ###menuentry "Windows 7 (loader) (on /dev/sda1)" --class windows --class os { insmod part_msdos insmod ntfs set root='(hd0,msdos1)' search --no-floppy --fs-uuid --set=root A270ABE870ABC201 chainloader +1}### END /etc/grub.d/30_os-prober ###
vs2005 调试异常:绑定句柄无效
vs2005 调试错误:绑定句柄无效点击右边红色标题查看本文完整版：vs2005 调试错误:绑定句柄无效vs2005 调试错误:绑定句柄无效------解决方法--------------------启动 Terminal Services 服务 　　　　
如果您喜欢IT行业或者对IT行业感兴趣，想开拓技术视野，欢迎加入本站官方QQ群：，在群里认识新朋友和交流技术^_^
本站联系邮箱：急急急~求法律高手帮忙做下这几题民法分论选择题~非常感谢~帮帮忙~小弟在这里先谢过了~~~~~~~~~~~_百度知道
急急急~求法律高手帮忙做下这几题民法分论选择题~非常感谢~帮帮忙~小弟在这里先谢过了~~~~~~~~~~~
9.权利质权的标的可以是（ ）
A. A. 债权、汇票、存款单、股票 B. B. 支票、存款单、名誉权、专利权 C. C. 商标权、仓单、债券、荣誉权 D. D. 汇票、提单、本票、继承权 10.甲在某服装店加工服装一套。取服装时，因带钱不够支付加工费，征得服装店同意将金戒指一枚留下，约定交清加工费后取回戒指，则服装店对戒指享有（
A. A. 处分权 B. B. 质押权 C. C. 抵押权 D. D. 留置权 11.下列财产可以作为抵押物的是（ ）
A. A. 土地所有权 B. B. 农村宅基地 C. C. 某企业的小轿车 D. D. 某医院的病房楼 12.某中学为修缮教育设施向银行借款，银行要求该学校提供担保，学校以自有财产向银行设立抵押，以下哪些财产可以抵押？（
A. A. 该学校的办公楼 B. B. 该学校的操场 C. C. 该学校的小汽车 D. D. 与临校存在权属争议的财产 13.甲盗走乙的一条宠物狗，甲将该宠物狗作为生日礼物送给了不知情的丙。二个月后，该宠物狗产下一黑一白两只小狗，黑色小狗由于丙疏于照看出生不久便死亡。请问以下说法中正确的是（ ）
A. A. 乙有权要求丙返还宠物狗 B. B. 乙无权要求丙返还白色小狗 C. C. 乙有权就黑色小狗的死亡要求丙承担赔偿责任 D. D. 丙善意取得宠物狗的所有权 14.甲遗失一部相机，乙拾得后放在办公室抽屉内，丙盗走该相机，卖给了不知情的丁，丁出质于戊。对此，下列哪一种说法不正确？（ ）
A. A. 乙对相机的占有属于无权占有 B. B. 丙对相机的占有属于他主占有 C. C. 丁对相机的占有属于自主占有 D. D. 戊对相机的占有属于直接占有 15.某甲向银行取款时，银行工作人员因点钞失误多付给l万元。甲以这l万元作本钱经商，获利5 000元，其中2 000元为其劳务管理费用成本。1个月后银行发现了多付款的事实，要求甲退回，甲不同意。问：下列有关该案的哪一表述是正确的？（ ）
A. A. 甲无须返还，因系银行自身失误所致 B. B. 甲应返还银行多付的1万元 C. C. 甲应返还银行多付的1万元，同时还应返还1个月的利息 D. D. 甲应返还银行多付的1万元，同时还应返还1个月的利息及3 000元利润 16.下列事实中哪一事实能发生不当得利之债？（
A. A. 债务人提前清偿未到期的债务 B. B. 养子女给其生父母的零花钱 C. C. 给付因赌博而欠的钱 D. D. 顾客多付售货员8元钱 17.王某拾到李某丢失钱包，当李某向王某讨还时，王某拒不归还。二人由此形成的债权关系是(
A. A. 合同之债 B. B. 不当得利之债 C. C. 无因管理之债 D. D. 单方民事法律行为之债 18.甲捡到了一只母山羊并饲养起来，并在良种站花钱为母山羊配种，此后母山羊生了2只小山羊，后失主乙找到甲要羊。问：本案应如何处理？（ ）
A. A. 失主无权要回山羊 B. B. 母山羊归还失主，小山羊归甲 C. C. 大、小山羊全归还失主，失主付给甲饲养费和配种费 D. D. 大、小山羊全归还失主，失主付给甲配种费但不付饲养费 19.甲替乙看管花狗一只。丙逗花狗玩耍，狗突然咬伤与丙同来的丁，丁应向(
A. A. 甲请求赔偿 B. B. 乙请求赔偿 C. C. 丙请求赔偿 D. D. 甲、乙、丙三人请求赔偿 20.陈兴夫妇在儿子陈华周岁生日时到红星照相馆为儿子拍照纪念，摄影师刘某翻拍了陈华的底片，后将其卖给个体户张某做挂历用。张某又将该底片卖给兰星香皂厂作婴儿香皂广告之用。问：在本案中，侵害陈华肖像权的侵权人是谁？（
A. A. 刘某和张某，不包括兰星香皂厂 B. B. 张某和兰星香皂厂，不包括刘某 C. C. 刘某和兰星香皂厂，不包括张某 D. D. 刘某、张某和兰星香皂厂
提问者采纳
9A：权利质权里的权利只能是财产权而不能是人身权。所以名誉权、荣誉权和继承权都不行。10B：戒指是动产所以只能质押。11D：只有不动产才能抵押，土地是归国家和集体所有的不能抵押。12A：理由同上。13A：没有支付对价就不能成立善意取得。14C：占有并非出于所有人的意思，所以是他主占有。15D：参考不当得利相关规定。16D：同上。17B：同上。18C：同上。19D：侵权责任法第八十三条。20D：有盈利行为就是了。这些答案不能保证全对。作业还是要自己写才有意义。
提问者评价
其他类似问题
其他2条回答
ADCDCCDBCDD
9.权利质权的标的可以是（ B）
A. A. 债权、汇票、存款单、股票 B. B. 支票、存款单、名誉权、专利权 C. C. 商标权、仓单、债券、荣誉权 D. D. 汇票、提单、本票、继承权 10.甲在某服装店加工服装一套。取服装时，因带钱不够支付加工费，征得服装店同意将金戒指一枚留下，约定交清加工费后取回戒指，则服装店对戒指享有（D
A. A. 处分权 B. B. 质押权 C. C. 抵押权 D. D. 留置权 11.下列财产可以作为抵押物的是（C ）
A. A. 土地所有权 B. B. 农村宅基地 C. C. 某企业的小轿车 D. D. 某医院的病房楼 12.某中学为修缮教育设施向银行借款，银行要求该学校提供担保，学校以自有财产向银行设立抵押，以下哪些财产可以抵押？（C
A. A. 该学校的办公楼 B. B. 该学校的操场 C. C. 该学校的小汽车 D. D. 与临校存在权属争议的财产 13.甲盗走乙的一条宠物狗，甲将该宠物狗作为生日礼物送给了不知情的丙。二个月后，该宠物狗产下一黑一白两只小狗，黑色小狗由于丙疏于照看出生不久便死亡。请问以下说法中正确的是（ A） 过失不承担赔偿责任 A. A. 乙有权要求丙返还宠物狗 B. B. 乙无权要求丙返还白色小狗 C. C. 乙有权就黑色小狗的死亡要求丙承担赔偿责任 D. D. 丙善意取得宠物狗的所有权 14.甲遗失一部相机，乙拾得后放在办公室抽屉内，丙盗走该相机，卖给了不知情的丁，丁出质于戊。对此，下列哪一种说法不正确？（ ）
A. A. 乙对相机的占有属于无权占有 B. B. 丙对相机的占有属于他主占有 C. C. 丁对相机的占有属于自主占有 D. D. 戊对相机的占有属于直接占有 15.某甲向银行取款时，银行工作人员因点钞失误多付给l万元。甲以这l万元作本钱经商，获利5 000元，其中2 000元为其劳务管理费用成本。1个月后银行发现了多付款的事实，要求甲退回，甲不同意。问：下列有关该案的哪一表述是正确的？（ ）
A. A. 甲无须返还，因系银行自身失误所致 B. B. 甲应返还银行多付的1万元 C. C. 甲应返还银行多付的1万元，同时还应返还1个月的利息 D. D. 甲应返还银行多付的1万元，同时还应返还1个月的利息及3 000元利润 16.下列事实中哪一事实能发生不当得利之债？（
A. A. 债务人提前清偿未到期的债务 B. B. 养子女给其生父母的零花钱 C. C. 给付因赌博而欠的钱 D. D. 顾客多付售货员8元钱 17.王某拾到李某丢失钱包，当李某向王某讨还时，王某拒不归还。二人由此形成的债权关系是(
A. A. 合同之债 B. B. 不当得利之债 C. C. 无因管理之债 D. D. 单方民事法律行为之债 18.甲捡到了一只母山羊并饲养起来，并在良种站花钱为母山羊配种，此后母山羊生了2只小山羊，后失主乙找到甲要羊。问：本案应如何处理？（ ）
A. A. 失主无权要回山羊 B. B. 母山羊归还失主，小山羊归甲 C. C. 大、小山羊全归还失主，失主付给甲饲养费和配种费 D. D. 大、小山羊全归还失主，失主付给甲配种费但不付饲养费 19.甲替乙看管花狗一只。丙逗花狗玩耍，狗突然咬伤与丙同来的丁，丁应向(
A. A. 甲请求赔偿 B. B. 乙请求赔偿 C. C. 丙请求赔偿 D. D. 甲、乙、丙三人请求赔偿 20.陈兴夫妇在儿子陈华周岁生日时到红星照相馆为儿子拍照纪念，摄影师刘某翻拍了陈华的底片，后将其卖给个体户张某做挂历用。张某又将该底片卖给兰星香皂厂作婴儿香皂广告之用。问：在本案中，侵害陈华肖像权的侵权人是谁？（
A. A. 刘某和张某，不包括兰星香皂厂 B. B. 张某和兰星香皂厂，不包括刘某 C. C. 刘某和兰星香皂厂，不包括张某 D. D. 刘某、张某和兰星香皂厂
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁liu-aguang 发表于
第一问题是那个意思.
第二问题不是很明白:是不是说,根据所有可能的k1,k2组合值,得出若干组得分名次,然后 ...
对，就是你说的那个意思，评分规则我上传上来了 请大侠过目
16:44 上传
16:44 上传
其中（2）报价得分计算& & 就是计算规则。谢谢大侠了
在线时间2705 小时经验2469 威望1 性别保密最后登录注册时间阅读权限70UID2259283积分2619帖子精华0分享0
EH铁杆, 积分 2619, 距离下一级还需 581 积分
积分排行373帖子精华0微积分0
本帖最后由 liu-aguang 于
10:20 编辑
popwhl 发表于
对，就是你说的那个意思，评分规则我上传上来了 请大侠过目&&其中（2）报价得分计算& & 就是计算规则。谢 ...
(27.84 KB, 下载次数: 5)
10:20 上传
下载次数: 5
在线时间19 小时经验22 威望0 性别保密最后登录注册时间阅读权限20UID2506884积分22帖子精华0分享0
EH初级, 积分 22, 距离下一级还需 328 积分
积分排行3000+帖子精华0微积分0
本帖最后由 popwhl 于
14:43 编辑
liu-aguang 发表于
谢谢大侠。另外我有个问题。这个表我一动我原先表里的k1或k2的系数时，为何在排名那栏里会多出一紫一绿的单元格被标识出来。不知有什么意义，小弟不才，麻烦大侠给解释下呗。谢谢大侠了。还有一个问题就是我设置的那个排序按钮还能用不？用排序按钮会不会影响你给编的结果。
在线时间2705 小时经验2469 威望1 性别保密最后登录注册时间阅读权限70UID2259283积分2619帖子精华0分享0
EH铁杆, 积分 2619, 距离下一级还需 581 积分
积分排行373帖子精华0微积分0
popwhl 发表于
谢谢大侠。另外我有个问题。这个表我一动我原先表里的k1或k2的系数时，为何在排名那栏里会多出一紫一绿的 ...
第一,改变k1k2,排名列单元格颜色变化问题,是你自己过去设置的条件格式,你自己检查下是什么问题.
第二,C值公式与原来的使用方式一样.无论C8以下报价区域是否排序,只要报价数据个数和值没变,C值不会改变.
第三,新产生的数据包括两部分,一是各单位的名次数,二是所有k1/k2组合值下的报价(单位)得分(70分部分).它们决定于以下四项数据:1.上限(C2);2.下限(C3);3.C值(E4);4.C8以下报价区域条目和值(k1/k2值已内置在代码里,要修改k1k2值必须在代码中修改).如果改变这四部分数据的存放位置,所得结果将不正确.所有报价必须在对应的B列单元格里填写单位名,否则可能产生意外的结果.不要在报价区域数据之间留空格.
如果修改了以上四项数据必须重新单击&产生数据&按钮,让代码重新计算并输出新结果.
如果对数据区域排序,不会影响计算结果.但每行的结果与前面的单位(或报价)不再对应.解决方法一是重新单击&产生数据&按钮.二也可以把排序范围扩展到整个结果区域(工作表排序默认是包括结果区域的).
在线时间19 小时经验22 威望0 性别保密最后登录注册时间阅读权限20UID2506884积分22帖子精华0分享0
EH初级, 积分 22, 距离下一级还需 328 积分
积分排行3000+帖子精华0微积分0
本帖最后由 popwhl 于
21:47 编辑
liu-aguang 发表于
第一,改变k1k2,排名列单元格颜色变化问题,是你自己过去设置的条件格式,你自己检查下是什么问题.
第二,C值 ...
首先谢谢大侠的鼎力相助，小弟表示非常感谢。不过这改变k1,k2值。导致排名那列多出两个变色的单元格，之前我也测试过。就是改变任意k1，k2都没有出现过多出俩格变色的问题，再改的话我到是应该可以改回来，就是不知道我如果改变排名的条件格式，对你的其他数据计算有没有影响？，还有就是我做的那个排序的宏好像也不好使了。不知道为什么？还请大侠指教，如果我重做报价排序的宏按钮的话，对你的做的数据分析会不会产生影响？
在线时间2705 小时经验2469 威望1 性别保密最后登录注册时间阅读权限70UID2259283积分2619帖子精华0分享0
EH铁杆, 积分 2619, 距离下一级还需 581 积分
积分排行373帖子精华0微积分0
popwhl 发表于
首先谢谢大侠的鼎力相助，小弟表示非常感谢。不过这改变k1,k2值。导致排名那列多出两个变色的单元格，之 ...
上面说明很清楚了,只与那四项有关,修改其它单元格不会影响计算.你可随意排序或不排序结果不变,只是如果重新排序需要重新执行&产生数据&宏按钮.
在线时间19 小时经验22 威望0 性别保密最后登录注册时间阅读权限20UID2506884积分22帖子精华0分享0
EH初级, 积分 22, 距离下一级还需 328 积分
积分排行3000+帖子精华0微积分0
liu-aguang 发表于
上面说明很清楚了,只与那四项有关,修改其它单元格不会影响计算.你可随意排序或不排序结果不变,只是如果重 ...
排名的那个多出两个变色的单元格 我看了一下 跟条件格式没有关系。不是条件格式引起的变色。还请大侠帮忙看一下是怎么回事。那多出两个变色的单元格我改不了了。
在线时间2705 小时经验2469 威望1 性别保密最后登录注册时间阅读权限70UID2259283积分2619帖子精华0分享0
EH铁杆, 积分 2619, 距离下一级还需 581 积分
积分排行373帖子精华0微积分0
popwhl 发表于
排名的那个多出两个变色的单元格 我看了一下 跟条件格式没有关系。不是条件格式引起的变色。还请大侠帮忙 ...
关于排名列颜色显示,测试了一下,根据你设置的条件是正常显示变化的.如果你的不正常可以先删除条件格式,保存后,重新设置,看是否是因为我用的2013打开保存对条件格式产生了影响.
另外,根据本代码产生的结果与实际手工计算有可能产生的误差在这里说明一下,如果有问题你可在模块中修改有关代码:
Function cVal(ParamArray args() As Variant) As Variant& && && && && && && && &'这是C值计算的函数代码
& & Application.Volatile True
& & Dim Arr, Trr, ls, ks, m%, n%, i%, r%, s#, u#, cell As Range
& & Set d = CreateObject(&scripting.dictionary&)
& & For i = 0 To UBound(args)
& && &&&If Not IsMissing(args(i)) Then
& && && && &If TypeName(args(i)) && &Range& Then
& && && && && & cVal1 = &参数必须是区域&
& && && && && & Exit Function
& && && && &Else
& && && && && & Set TempRange = Intersect(args(i).Parent.UsedRange, args(i))
& && && && && & For Each cell In TempRange
& && && && && && &&&If IsNumeric(cell) And Not IsEmpty(cell) Then
& && && && && && && && &If i = 0 Then
& && && && && && && && && & hval = cell.Value
& && && && && && && && &ElseIf i = 1 Then
& && && && && && && && && & lval = cell.Value
& && && && && && && && &Else
& && && && && && && && && & If cell & hval And cell & lval Then& && &'在计算C值时这一行排除无效报价,这里是把与上限A和下限B相等的报价排除了的.如果不排除,可在cell&&&或&符号之后加&=&.
& && && && && && && && && && &&&r = r + 1
& && && && && && && && && && &&&d(r) = cell
& && && && && && && && && & End If
& && && && && && && && &End If
& && && && && && &&&ElseIf IsEmpty(cell) Then
& && && && && && &&&Else
& && && && && && && && &cVal = &区域中有非法数值&
& && && && && && && && &Exit Function
& && && && && && &&&End If
& && && && && & Next cell
& && && && &End If
& && &&&End If
& & Next i
& & Arr = d.items
& & For i = 0 To UBound(Arr) - 1
& && & For j = i + 1 To UBound(Arr)
& && & If Arr(i) & Arr(j) Then
& && & t = Arr(i)
& && & Arr(i) = Arr(j)
& && & Arr(j) = t
& && & End If
& & Next j
& &Next i
& &m = Int((UBound(Arr) + 1) / 4)
& &d.RemoveAll
& &d(0) = &&
& & For i = m To UBound(Arr) - m
& && &&&If i & UBound(Arr) - m Then
& && && && &u = Format((Arr(i) - Arr(i + 1)) / Arr(i), &0.000&)&&'这是计算0.05%,结果保留了小数点后三位.如果要四舍五入,本行可改为:u=application.round(((Arr(i) - Arr(i + 1)) / Arr(i),n)& & n是你要保留的小数位数
& && &&&Else
& && && && &u = 1
& && &&&End If
& && &&&s = s + Arr(i)
& && &&&If u & 0.005 Then
& && && && &Trr = d.keys: n = Trr(d.Count - 1)
& && && && &d(i - m + 1) = s / (i - m + 1 - n): s = 0
& && &&&End If
& & Next i
& & ls = d.items
& & For i = 1 To d.Count - 1
& && &&&s = s + ls(i)
& & Next i
& & cVal = Application.Round(s / (d.Count - 1), 4)&&'这是最后C值结果处理,保留小数后4位,四舍五入.如果保留位数有其它要求可修改&4&那个位置的数字.
End Function
Sub Nonum()& && && && && && && && && && && &&&'从本行开始计算的是所有k1k1组合的各报价得分(70分部分)
& & Dim i%, j%, l%, k%
& &&&k1 = Array(0, 0.005, 0.01, 0.015, 0.02, 0.025, 0.03)
& &&&k2 = Array(0.1, 0.2, 0.3, 0.4, 0.5)
& &&&A# = [c2]& &&&'连续三行分别是上限/下限/C值在工作表的存放单元格,如果修改了它们的存放位置,修改代码至相应单元格.
& &&&C# = [E4]
& &&&B# = [c3]
& &&&Application.ScreenUpdating = False
& &&&Arr = Range(&b8:c& & [c65536].End(3).Row)
& &&&Range(&i7:at& & UBound(Arr) + 7).Clear
& & Set d = CreateObject(&scripting.dictionary&)
& & ReDim Res(0 To UBound(Arr), 1 To 35)
& &&&For i = 0 To 6
& && &&&For j = 0 To 4
& && && && &n = n + 1
& && && && &ss = (1 - k1(i)) * (a * k2(j) + C * (1 - k2(j)))& & '这是计算评标基准价S,过程没有作位数及四舍五入处理,如果要处理,可以在这一行下增加语句:ss=application.round(ss,n)& &n是需要保留的小数位数.
& && && && &Res(0, n) = k1(i) & &|& & k2(j)
& && && && &For k = 1 To UBound(Arr)
& && && && && & If Arr(k, 2) & a Then
& && && && && & Res(k, n) = 0
& && && && && & ElseIf Arr(k, 2) & ss Then
& && && && && && &&&Res(k, n) = Application.Round(70 - 2 * (Arr(k, 2) - ss) / ss * 100, 2)&&'类似代码是计算得分,没有分小过程计算,只是对各得分最后保留2位小数,并对第3位作四舍五入处理.
& && && && && & ElseIf Arr(k, 2) = ss Then
& && && && && && &&&Res(k, n) = 70
& && && && && & ElseIf Arr(k, 2) &= B Then
& && && && && && &&&Res(k, n) = Application.Round(70 - (ss - Arr(k, 2)) / ss * 100, 2)
& && && && && & Else
& && && && && && &&&Res(k, n) = Application.Round(70 - 4 * (ss - Arr(k, 2)) / ss * 100, 2)&&'这行注意修改一下,上传代码中,没有application,请按此行修改.如果不修改,运行结果不会对第3位作四舍五入处理.
& && && && && & End If
& && && && &Next k
& && &&&Next
& & Next
& & [l7].Resize(UBound(Res) + 1, UBound(Res, 2)) = Res&&'本行是得分结果输出,如果只想输出前三名次数,可注销本行.
& & For j = 3 To 1 Step -1
& && &&&For k = 1 To UBound(Arr)
& && &&&d(Arr(k, 1)) = 0
& && &&&Next k
& && &&&For i = 1 To 35
& && && && &resi = Application.Index(Res, , i)
& && && && &nox = Application.Large(resi, j)
& && && && &no1 = Application.Large(resi, 1)
& && && && &no2 = Application.Large(resi, 2)
& && && && &no3 = Application.Large(resi, 3)
& && && && &For l = 1 To UBound(Arr)
& && && && && & If resi(l + 1, 1) = nox Then
& && && && && & d(Arr(l, 1)) = d(Arr(l, 1)) + 1
& && && && && & If (j = 3 And nox = no2) Or (j = 2 And nox = no1) Then d(Arr(l, 1)) = d(Arr(l, 1)) - 1
& && && && && & With Cells(l + 7, i + 11).Interior&&'这些带颜色代码是显示得前三名得分的颜色,如果上面已注销得分输出.也可把它们一同注销.
& && && && && && &&&If j = 1 Then
& && && && && && &&&.Color = 255
& && && && && && &&&ElseIf j = 2 Then
& && && && && && &&&.Color = RGB(0, 255, 0)
& && && && && && &&&Else
& && && && && && &&&.Color = RGB(0, 0, 255)
& && && && && && &&&End If
& && && && && & End With
& && && && && & End If
& && && && &Next l
& && &&&Next i
& && &&&Cells(8, j + 8).Resize(d.Count, 1) = Application.Transpose(d.items)
& & Next j
& & Application.ScreenUpdating = True
End Sub
Sub 清除()& & '此宏是清除工作表中的结果数据,与&清除数据&相连接,作测试用.上面代码中已包括该功能,即输出结果前,将先删除原来数据,此宏和工作表相应按钮可删除.
& &Arr = Range(&b8:c& & [c65536].End(3).Row)
& & Range(&i7:at& & UBound(Arr) + 7).Clear
End Sub复制代码
在线时间19 小时经验22 威望0 性别保密最后登录注册时间阅读权限20UID2506884积分22帖子精华0分享0
EH初级, 积分 22, 距离下一级还需 328 积分
积分排行3000+帖子精华0微积分0
liu-aguang 发表于
关于排名列颜色显示,测试了一下,根据你设置的条件是正常显示变化的.如果你的不正常可以先删除条件格式,保 ...
按照你说的办法，我删除了条件格式并保存，再打开之后，那多出的俩带颜色的单元格还是没去掉，为了更好的分析原因，我特意截了个图，请大侠过目，还望大侠帮分析一下是什么原因引起的。小弟现在有点蒙圈了 呵呵。再次感谢大侠！
17:00 上传
在线时间2705 小时经验2469 威望1 性别保密最后登录注册时间阅读权限70UID2259283积分2619帖子精华0分享0
EH铁杆, 积分 2619, 距离下一级还需 581 积分
积分排行373帖子精华0微积分0
popwhl 发表于
按照你说的办法，我删除了条件格式并保存，再打开之后，那多出的俩带颜色的单元格还是没去掉，为了更好的 ...
对H12/H13单元格,单独设置&单元格格式&,填充选择&无颜色&即可.(它的颜色不是条件格式产生的,可能是你之前曾手工设置过其填充格式)
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&