求一个简单的排序VBA宏 评价总分:0.205 0.32 0.39 0.085排序名次: 3 2 1 4如上面的那样,比较玩评价总分大小后,在正下方显示排序,但他们的位置不可以改变的,就显示排序的名次。具体代码怎么样?求教~~~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 '下面的算法,想法简单,效率不高~~~~'假设数据在sheet1的第一行with thisworkbook.worksheets("sheet1") for i=1 to n 'n为要比较的元素的个数 t=n for j=i+1 to n if .cells(1,j).value>.cells(1,i).value then t=t-1 endif next j .cells(2,i).value=t next iend with 怎么去调用指定目录下的文本的所有内容 哪儿有免费的twain控件下载,跪求!!!!!! 请问VB程序怎样获取webbrowser里的页面的触发事件的元素 这样用WINSOCK发出去的文件有问题吗? 采购单明细表的数量和实际采购的数量不一致,怎么入库? 如何用VB获得网站服务器的外网IP地址? 显示挂历时间选择是哪个控件? 急用,关于收费系统中打印的问题 vc转VB 如何关闭指定的应用程序? 如何读取指定内容后面的内容 能否用VB6.0做出虚拟驱动器的程序?
'假设数据在sheet1的第一行
with thisworkbook.worksheets("sheet1")
for i=1 to n 'n为要比较的元素的个数
t=n
for j=i+1 to n
if .cells(1,j).value>.cells(1,i).value then
t=t-1
endif
next j
.cells(2,i).value=t
next i
end with