- 阿啵呲嘚
-
方法如下:
1、打开Excel,按快捷键“Alt+F11”,打开VBA编辑器,依次点击“插入”/“模块”,新建了一个模块。
2、将下列自定义函数粘贴在其中:
Function FLW(X As Range, Y As Integer)
If Y = 1 Then
For I = 1 To Len(X)
If Val(Mid(X, I, 1)) > 0 Or Mid(X, I, 1) = "0" Or Mid(X, I, 1) = "+" Or Mid(X, I, 1) = "-" Or Mid(X, I, 1) = "*" Or Mid(X, I, 1) = "/" Or Mid(X, I, 1) = "^" Or Mid(X, I, 1) = "mod" Or Mid(X, I, 1) = "." Or Mid(X, I, 1) = "(" Or Mid(X, I, 1) = ")" Then
Q = Q & Mid(X, I, 1)
End If
FLW = Application.Evaluate("(" & Q & ")")
Next I
ElseIf Y = 2 Then
For M = 1 To Len(X)
A = Application.WorksheetFunction.Substitute(X.Value, 0, "")
B = Application.WorksheetFunction.Substitute(A, 1, "")
C = Application.WorksheetFunction.Substitute(B, 2, "")
D = Application.WorksheetFunction.Substitute(C, 3, "")
E = Application.WorksheetFunction.Substitute(D, 4, "")
F = Application.WorksheetFunction.Substitute(E, 5, "")
G = Application.WorksheetFunction.Substitute(F, 6, "")
H = Application.WorksheetFunction.Substitute(G, 7, "")
I = Application.WorksheetFunction.Substitute(H, 8, "")
J = Application.WorksheetFunction.Substitute(I, 9, "")
Next M
FLW = J
End If
End Function
3、回到工作表中,假设需转化的数据放在A1中的,将结果转化后放在B1中,只需在B1中输入“=FLW(a1,1)”就OK了。
若还有问题:打我的QQ=973344181
- max笔记
-
c语言
#include <windows.h>
#include <stdio.h>
//#include <string.h>
void main()
{
char *p,str[100];
int i,result,x;
printf("请输入一个有数字组成的字符串:");
scanf("%s",str);
i=0;
x=1;
result=0;
p=&str[0];
while(*(p+i)!=" "&&i<10)
{
if (!(*(p+i)>=48&&*(p+i)<=57))
{
printf(" 输入的字符串含有非数字的字符");
x=0;
break;
}
result=result*10+(*(p+i)-48);
i++;
}
if (x==1)
printf(" 你输入的整数为:%d",result);
}
- 小菜G
-
C/C++:
int r = atoi("3425");
C#:
int r = Int32.Parse("3425");
Java:
int r = Integer.parseInt("3425", 10);