simplicity_NO的个人资料 - RAT

simplicity_NO simplicity_NO

关注数: 1 粉丝数: 5 发帖数: 117 关注贴吧数: 2

哀悼日，请留下您的祝福语言来这留言个你对哀悼日的感想吧http://114hyw.com/512/

这儿有个为地震遇难者哀悼的地方，大家快去留言啊！ http://114hyw.com/512/

问一个选择性粘贴的问题？我不太明白选择性粘贴的一些选项是什么意思？有哪个高手帮我解释一下啊！

请宏高手来帮忙啊! 以前我曾提过这样一个问题,后面已由热心人ZSH_000给出了答案,可我现在想修改一下这个宏:请先看上次的问题吧: 如下: 我要用鼠标选中一列中的若干行,然后要在选中列的右边单元格中得到其中一个(比如3)数字出现的比例,该怎么定义宏呢?如果能在界面中加一个按钮那更好了,请各位一定帮忙解决啊,我用了一个公式,但只能统计一整列的数据比例,b1=(COUNTIF(A1:A1000,3)/COUNT(A1:A100)),我想用宏解决,怎么做啊? 主要是要考虑到对没选中的单元格的的右边单元格没影响,例如: 选中的是左边的A列3,1,0,3 (即B列有数据的几列) ,B列边是出现3的百分比数 1 A B 2 4 3 3 0.50 4 1 0.50 5 0 0.50 6 3 0.50 7 5 8 4 有几个宏和大家分享: 得到当前单元格的地址 msgbox ActiveCell.Address 测试选择状态的单元格的行数 MsgBox Selection.Rows.Count 测试选择状态的单元格的列数 MsgBox Selection.Columns.Count 测试选择状态的单元格的地址 Selection.Address '选定区域的第一单元格的行号. Selection.Cells(1, 1).Row '你一共选定了几行. Selection.Rows.Count '统计表中F列中的数值单元格个数. WorksheetFunction.Count(Range("F:F")) '由上一条演变而来的统计选定单元格的数值单元格个数. WorksheetFunction.Count(Selection.Range(Cells(1, 1), _ Cells.SpecialCells(xlCellTypeLastCell))) '再由上一条演变而来的统计选定单元格的数值中,有多少个单元格的数值为"3" '当然你不一定要统计"3",可你引用单元格值来运行. WorksheetFunction.CountIf(Selection.Range(Cells(1, 1),_ Cells.SpecialCells(xlCellTypeLastCell)), 3) '如果你要选区内每个单元格都得统计,你那可以用 FOR 循环来实现. CROWS = Selection.Rows.Count '得到选区总行数 For I = 1 To CROWS 　　MsgBox Selection.Cells(I,1) '显示选区内Ｉ行１列的值．　　MsgBox Selection.Cells(I,２)'显示选区内Ｉ行２列的值． Next 现在我想修改一下,用光标的选择方式如表中数据: A B C 1 0.1110 4 0 2 0.1221 3 0.50 3 0.1222 1 0.50 4 0.1223 0 0.50 5 0.1224 3 0.50 6 0.1225 3 1.00 7 0.1326 3 1.00 8 0.2324 3 A列是经过升序排列后的,我用光标选择A列的A1:A7,执行宏后的结果是:判断A1到A7的区间,(0-4是一个区间,5-9是一个区间,最后一位是否在一个区间,还要看它的尾数的前一位是否相等,如些往前位数推)如果尾数在同一区间,如上:A1是一个区间,A2:A5是一个区间,A6和A7各为一个区间,A8因为没有选择,所以不在运算内,A1和A2:A5,不是一个区间,是因为A1的千分位'1',和A2:A5的千分位'2'不相等,A6与A2:A5不在同一区间,是因为尾数'4'和'5'不在同一区间,A6和A7不在同一区间,是因为百分位'1''2'不相等. 结果是生成C列,A列和B列的数据是提供的参数.C列将是按区间统计B列中出现的'3'在区间内出现的百分比数,同一个区间的百分比是一样的,如A1,它的B1没有3,所以C列结果是0%,A2:A5在同一区间,B1到B5中'3'的个数是2个,总行数是4行,所以百分比是50%,化为小数为0.50,如此类推!当然我选择的数不一定都在A列,有可能在D列,那么将在F列得出结果. 说了这么一大堆,不知各位是否明白了我的意思呢!真是难为大家了!

SQL有50000条数据导出为EXECL遇到的问题! SQL有50000条数据,大概有400多M,导出为EXECL时,导到最后,提示成功了,一查EXECL文件大小,却只有几K,文件更是打不开!!不知是为何,可导出为ACCESS却可以,但又从ACCESS导出到EXECL结果也是一样不行!我用的是OFFICE 2003,应该不存在版本的问题啊!哦,中间还示过一次内存不足的提示,问是否要继续,点确定继续,我的内存是256M的,难道导这么点数据也不行吗?应该不应该啊,我换了了台512M的机器也试了,结果也一样!郁闷中

求助:关于一个将全角转半角的VBA程序真心求一个将能将EXECL全文中的所有全角转半角的VBA程序,或者是有什么好的方法能实现的也行!

急救，一个access奇怪的问题出现了我在两个表之间作更新时，提示“操作必须使用一个可更新的查询”，不知是什么原因，我对这个表有绝对的控制权，应该不存在权限的问题，但又不知道问题出在哪儿，语句也没问题。语句如下：UPDATE articleSET sclassid = (SELECT sidorder FROM sclass WHERE article.type2 = sclass.sclassname)sclass这个表中的sclassname也没有重复值，真是奇怪，哪个高手指点一下，急啊！

急救，在线等各位,问一个问题,我想替换一个字段里的以 > 开头,到结尾的值,替换为空,应该怎么写语句呢,replace?

问一个比较怪的问题,在EXCEL中如何将"?"号替换掉问一个比较怪的问题,在EXCEL中如何将"?"号替换掉,因为?号是EXCEL的通配符,单独写个?号去替换就会将所有的字符替换了,怎么办啊?

关于VBR的求助我有一个EXCEL文件,存储的是文章,一行中的A列是文章标题,B列是文章内容,我想建E书,不过前提工作应该是要将B列建成一个单个的文本保存,文件名取A列的标题,就是说有多少行,就要建多少个文本文件,或是其它类型WORD也行,不知用VBR能否实现,真诚求教啊

求助,关于怎样将EXCEL文件转换为CHM格式的文件? 我有一份EXCEL文件,第一列是个大类,第二列是个小类,第三列是内容,内容是一篇文章,在EXCEL里面看不太方便,我想将它做成CHM格式的文件,不知什么软件可以胜任呢?

谁来帮看一下,关于SQL语句 INSERT INTO tempdb2.dbo.base(pid,url,refurl)VALUES(12,'http://','refurl')where url not in (select url from tempdb2.dbo.base)这样写不对,运行不过去,但我又想不出别的招,请大家帮看一下,其实我是想插入一行数据,条件是要插入的url不在目的表中

大家看,这样的软件用什么语言写比较方便! 我收集了几万个软件下载的地址,包括软件名字等各种属性,做成了数据的形式,我想大家帮我参考一下,我要做个单机版的软件,取名就叫"下载精灵"吧,在本地安装后,就能查询,当查询到所需软件后,点下载的话,连上网络就能下载,这种用什么语言比较好,最好能在线升级,更新数据库

求助!关于使用了代理就上不了MSN的问题! 我在IE上设了个代理,网页也可以打开,可使用了代理就上不了MSN,郁闷中,有哪位能告诉我该怎么解决这个问题啊!

求助!关于使用了代理就上不了MSN的问题! 我在IE上设了个代理,网页也可以打开,可使用了代理就上不了MSN,郁闷中,有哪位能告诉我该怎么解决这个问题啊!

请宏高手来帮忙啊,在线等!!!! 急切请教一个问题: A B C D1 5 9 0 12 1 0 3 03 5 9 0 44 5 9 0 15 8 3 6 0表中格式如上: 我想用执行宏的办法,我用鼠标选中A行的连续的几列,执行宏后删除所选择列的向下所有与它相等的行,比如说我要选中第1行中的A,B,C列,结果是将2,3,4,5……（最后）行与A，B，C 列相等的行删除掉，此举例数据将会把第3行与第四行删除。谢谢各位宏高手们了！

1 下一页