函数代码怎么写

统计有多少个单元格吗？比如统计批注中包含“中国”的单元格个数。用自定义函数。

第一：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

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。

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);

}

C语言库函数吧！你上面那个程序的作用是求X的Y次方用库函数就是pow(x,y)；自己写就是下面这样：#include void result(int x,int y) { int result,i; result=1; for(i=0;iscanf("%d %d",&x,&y);result(x,y); }。