三点圆在Excel怎么编程？

答案:2 悬赏:70 手机版

解决时间 2021-01-31 11:22

提问者网友：疯子也有疯子的情调
2021-01-30 14:30

三点圆在Excel怎么编程？

最佳答案

五星知识达人网友：渡鹤影
2021-01-30 14:41

(x-a)²+(y-b)²=r²
过圆上一点A（x1,y1）的切线方程
(x-a)（x1-a）+(y-b)(y1-b)=r²

全部回答

1楼网友：孤老序
2021-01-30 16:11

经过多次试验、调试和修改，终于想出了两种解决方案，方案一：使用系统自带的函数，方法如下：（假设号码在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。我帮你统计出来，再发给你。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息