函数代码怎么写的
统计有多少个单元格吗？比如统计批注中包含“中国”的单元格个数。用自定义函数。
第一：ALT+F11，插入-模块
第二：复制下面的代码
Public Function fx(ByVal a1 As Range)
Sum = 0
For Each x In a1
If InStr(x.Comment.Text， "中国") > 0 Then Sum = Sum + 1
Next
fx = Sum
End Function
第三：在结果单元格里输入：比如，=fx(a1:a7)
如果要显示出哪些单元格都有哪些批注包含了XX字。这个用函数做不到估计，要用程序，原理相同，请自行研究。
===================
如果你的区域包含有没有批注的单元格，代码要改一下
Public Function fx(ByVal a1 As Range)
Sum = 0
For Each x In a1
If x.Comment Is Nothing Then
Sum = Sum + 0
Else
If InStr(x.Comment.Text， "中国") > 0 Then Sum = Sum + 1
End If
Next
fx = Sum
End Function
2. 删除字符的函数代码怎么写啊int strlen(const char string)
{
int i=0;
while(string[i]) i++;
return i;
}
2. strcpy（)， 字符串拷贝.
char *strcpy(char *destination, const char *source)
{
while(*destinaton++=*source++);
return (destination-1);
}
3. strcat（)， 字符串的连接.
char *strcat(char *target,const char *source)
{
char *original=target;
while(*target) target++; // Find the end of the string
while(*target++=*source++);
return(original);
}
4. streql（)， 判断两个字符串是否相等.
int streql(char *str1,char *str2)
{
while((*str1==*str2)&&(*str1))
{
str1++;
str2++;
}
return((*str1==NULL)&&(*str2==NULL));
}
5. strchr（)， 在字符串中查找某个字符.
char *strchr(const char *string,int letter)
{
while((*string!=letter)&(*string))
string++;
return (string);
}
6. chrcnt（)， 计算某个字符在字符串中出现的次数.
int chrcnt(const char *string,int letter)
{
int count=0;
while(*string)
if(*string==letter)count++;
return count;
}
7. strcmp（)， 判断两个字符串是否相等.
int strcmp(const char *str1,const char *str2)
{
while((*str1==*str2)&&(*str1))
{
str1++;
str2++;
}
if((*str1==*str2)&&(!*str1)) //Same strings
return o;
else if((*str1)&&(!*str2)) //Same but str1 longer
return -1;
else if((*str2)&&(!*str1)) //Same but str2 longer
else
return((*str1>*str2)?-1:1);
}
3. 函数怎么写R语言实际上是函数的集合，用户可以使用base,stats等包中的基本函数，也可以自己编写函数完成一定的功能。
但是初学者往往认为编写R函数十分困难，或者难以理解。这里对如何编写R函数进行简要的介绍。
函数是对一些程序语句的封装。换句话说，编写函数，可以减少人们对重复代码书写，从而让R脚本程序更为简洁，高效。
同时也增加了可读性。一个函数往往完成一项特定的功能。
例如，求标准差sd，求平均值，求生物多样性指数等。R数据分析，就是依靠调用各种函数来完成的。
但是编写函数也不是轻而易举就能完成的，需要首先经过大量的编程训练。特别是对R中数据的类型，逻辑判别、下标、循环等内容有一定了解之后，才好开始编写函数。
对于初学者来说，最好的方法就是研究现有的R函数。因为R程序包都是开源的，所有代码可见。
研究现有的R函数能够使编程水平迅速提高。 R函数无需首先声明变量的类型，大部分情况下不需要进行初始化。
一个完整的R函数，需要包括函数名称，函数声明，函数参数以及函数体几部分。 1. 函数名称，即要编写的函数名称，这一名称就作为将来调用R函数的依据。
2. 函数声明，包括 FALSE这样的逻辑类型变量，这就意味着，if内部，往往是对条件的判别，例如 is.na, is.matrix, is.numeric等等，或者对大小的比较，如，if(x > 0), if(x == 1), if(length(x)== 3）等等。if后面，如果是1行，则花括号可以省略，否则就必须要将所有的语句都放在花括号中。
这和循环是一致的。例子： ## if与条件判断 fun.test。
4. c/c++的随机函数的源代码怎么写static int next=1;
int rand(void)
{
next = next * 1103515245 + 12345;
return (next/65536) % 32768;
}
return一句的功能只是把得数的绝对值控制在0~32767之间，关键是next = next * 1103515245 + 12345一句。next变量是静态的，变化以后的值是不消失的，下一次还可用，所以每执行一次next = next * 1103515245 + 12345就获得一个新值，这个新值被return取整除、取余除后控制在0~32767之间就形成了0~32767的随机数。比如第一次，next=1*1103515245 + 12345=1103527590，经return中的对65536取整、对32768取余后就是16838；若再来一次，next已经是1103527590了，那么next = next * 1103515245 + 12345就为next = 1103527590 * 1103515245 + 12345=1217759518843121895；但这个数已经溢出了，实际上表示成了-1770082073，经return中取整取余后返回的就是-27009；可以算出来，再下一次是10113……不过，你这个函数并不能产生真正意义上的“随机”数，因为作为基数的1103515245在每次开始时是不变的，所以只能得出同样的序列，即每次执行都产生16838、-27009、10113……这样一组无限多的数。所以实际的C随机函数rand（)的形参并不是void而是一个长整型变量，通常来调用实时时间函数获取实时时间值来得到，因为时间是每时每刻都在变化的，所以充当"1103515245”角色的数就每调用一次的值都不同。这样每次执行就都能得到不重复的序列。至于12345，我想随便取个数都行！仅供参考……
