永发信息网

excel 到哪里编程啊?

答案:2  悬赏:50  手机版
解决时间 2021-02-24 14:32
  • 提问者网友:半生酒醒
  • 2021-02-24 01:07
知道有个宏编程,也知道代码了,但不知道,在哪儿输入这些代码,呵呵,见笑了
在宏里面编程的话,我在excel中怎么用?要把表中的数据引用到宏中,和把编程结果输出到表中指定位置,咋办?
最佳答案
  • 五星知识达人网友:拜訪者
  • 2021-02-24 01:37
点"工具"->"宏"->"Visual Basic编辑器"。
或者直接按Alt+F11键。
全部回答
  • 1楼网友:荒野風
  • 2021-02-24 01:46
经过多次试验、调试和修改,终于想出了两种解决方案, 方案一:使用系统自带的函数,方法如下: (假设号码在a列,类别在b列,c列以后无数据) 1、在c列增加一辅助列,c2处输入公式=a2&b2,目的是将两列合成一个字符串 2、使用高级筛选,方式:将筛选结果复制到其他位置,列表区域:号码所在列,条件区域:空,复制到:d1,勾选:选择不重复的记录。目的是将号码列复制到d列,有重复的则只保留一项。 3、使用高级筛选将类别列复制到e列,方法同上。目的是将类别列复制到e列,有重复的则只保留一项。 4、在f2输入如下公式(实际使用时要作相应的修改): =if(countif(c:c,d2&"a")>0,if(countif(c:c,d2&"b")>0,if(countif(c:c,d2&"c")>0,"全有","仅无c"),if(countif(c:c,d2&"c")>0,"仅无b","仅有a")),if(countif(c:c,d2&"b")>0,if(countif(c:c,d2&"c")>0,"仅无a","仅有b"),if(countif(c:c,d2&"c")>0,"仅有c","全无"))) 5、将公式向下填充,然后你就可以将得出的结果进行统计了,如想知道仅无a的,则可在别处输入=countif(f:f,"仅无a") 得出的结果就是满足bc不含a的条数。 方案二:使用自定义函数: 1、按ctrl+f11,打开vba编辑器,插入一个模块,在模块窗口中输入如下代码: optionexplicit function所含类(号码asstring,类别区域asrange,辅助列asrange)asstring dimstr1()asstring dim类名()asstring dim存在状态()asstring,状态总值asstring dimiaslong dimr i=0 foreachrin类别区域.cells ifr.value<>""then redimpreserve类名(i)asstring redimpreservestr1(i)asstring redimpreserve存在状态(i)asstring 类名(i)=r.value str1(i)=号码&类名(i) ifworksheetfunction.countif(辅助列,str1(i))>0then 存在状态(i)=类名(i) 状态总值=状态总值&存在状态(i) endif i=i+1 endif next 所含类=状态总值 endfunction 2、在f列或g列输入自定义的公式: =所含类(d2,$e$2:$e$4,c:c) 然后向下填充,再使用countif函数来进行统计就可以得出你所要的结果。 如果还不明白的话,可以hi我,或者将你的excel表格发到我的邮箱yxstone@qq.com。我帮你统计出来,再发给你。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯