EXCEL版 俄罗斯方块
2017-5-29ExcelVBA小游戏
2017-5-29ExcelVBA⼩游戏---恢复内容开始---转⼀个Excel VBA的⼩游戏，最近对excel有了更深⼊的了解，功能很强⼤，也刷新了我对待事情的态度。
⼀、准备界⾯我们先来把游戏界⾯准备好，选中前4⾏，⾏⾼调成50，这时候单元格就近似⼀个正⽅形。
然后给4*4的单元格加上全部框线，再加粗外框线。
字体改成微软雅⿊，加粗，居中。
第6⾏A列写上SCORE，C列写上MOVES，都加粗。
⼀般2048这样的游戏需要⽤状态机来实现，就是程序⽆限运⾏直到游戏结束。
在Excel中这种⽅法不太合适，使⽤⼯作表⾃带的Worksheet_SelectionChange⽅法来获取键盘状态使游戏往下进⾏更⽅便。
⼆、初始状态我们先来制作游戏的初始状态，游戏变量很少，需要⼀个4*4的⼆维数组，⽤来记录和操作盘⾯，⼀个score变量记录分数，⼀个moves变量记录步数。
初始状态就是让他们都为0，当然也可以加⼊历史最⾼纪录，不过考虑到在Excel单元格中记录可以随时修改，意义不⼤。
这⾥没有使⽤状态机，也就没有⽤类模块来做⾯向对象式编程，所以⽤全局变量来代替。
Public numAreaArrPublic score As DoublePublic moves As IntegerPublic Sub Reset()ReDim numAreaArr(1 To 4, 1 To 4) As Integerscore = 0moves = 0End Sub这只是变量的初始状态，我们还需要将它输出到单元格上，所以需要⼀个输出⽅法。
Public Sub Output(ByVal numArr, ByVal score As Double, ByVal moves As Integer)'界⾯输出Sheet1.Range("A1:D4") = numArrSheet1.Cells(6, 2) = scoreSheet1.Cells(6, 4) = movesEnd Sub游戏初始时，盘⾯上是有两个随机数字的，我们需要⼀个在空⽩地⽅随机⽣成数字2或4 的⽅法。
俄罗斯方块2015 excel vba 代码
Range("level").Value = ll
GameSpeed = 0.4
For k = 1 To 7
With Blocks(k)
For i = 1 To 4 '????·??é×??à4??D?·??é
.SmallBoxInCurrentBlock(i).Row = Range("BlockDataArea").Cells(1 + (k - 1) *5, i).Value
CheckIfCanMove = False
End If
End With
Next
For i = 1 To BLOCKSNUMBER
Range("GameArea").Cells(.SmallBoxInCurrentBlock(i).Row, .SmallBoxInCurrentBlock(i).Column).ID = ""
Range("NextBlockArea").Cells(.SmallBoxInCurrentBlock(i).Row, .SmallBoxInCurrentBlock(i).Column - 4).Borders(xlEdgeBottom).LineStyle = xlContinuous
.SmallBoxInNextPos(4) = .SmallBoxInCurrentBlock(4)
End With
End Sub
Private Function CheckIfCanMove(TempBlock As TetrisBox) As Boolean
Dim i As Integer
俄罗斯方块C语言代码
>include <>include <>include <>__cplusplusdefine __CPPARGS ...elsedefine __CPPARGSdefine MINBOXSIZE 15 / 最小方块的尺寸 /define BGCOLOR 7 / 背景着色 /define GX 200define GY 10define SJNUM 10000 / 每当玩家打到一万分等级加一级/ / 按键码/define VK_LEFT 0x4b00define VK_RIGHT 0x4d00define VK_DOWN 0x5000define VK_UP 0x4800define VK_HOME 0x4700define VK_END 0x4f00define VK_SPACE 0x3920define VK_ESC 0x011bdefine VK_ENTER 0x1c0d/ 定义俄罗斯方块的方向我定义他为4种/define F_DONG 0define F_NAN 1define F_XI 2define F_BEI 3define NEXTCOL 20 / 要出的下一个方块的纵坐标/ define NEXTROW 12 / 要出的下一个方块的横从标/ define MAXROW 14 / 游戏屏幕大小/define MAXCOL 20define SCCOL 100 /游戏屏幕大显示器上的相对位置/ define SCROW 60int gril2216; / 游戏屏幕坐标/int col=1,row=7; / 当前方块的横纵坐标/int boxfx=0,boxgs=0; / 当前寺块的形壮和方向/int nextboxfx=0,nextboxgs=0,maxcol=22;/下一个方块的形壮和方向/ int minboxcolor=6,nextminboxcolor=6;int num=0; /游戏分/int dj=0,gamedj10={18,16,14,12,10,8,6,4,2,1};/ 游戏等级// 以下我用了一个3组来纪录方块的最初形状和方向/int boxstr7416={{{1,1,0,0,0,1,1,0,0,0,0,0,0,0,0,0},{0,1,0,0,1,1,0,0,1,0,0,0,0,0,0,0},{1,1,0,0,0,1,1,0,0,0,0,0,0,0,0,0},{0,1,0,0,1,1,0,0,1,0,0,0,0,0,0,0}},{{0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0},{1,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0},{0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0},{1,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0}},{{1,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0}, {1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0}, {1,0,0,0,1,0,0,0,1,1,0,0,0,0,0,0}, {0,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0}}, {{1,1,0,0,1,0,0,0,1,0,0,0,0,0,0,0}, {1,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0}, {0,1,0,0,0,1,0,0,1,1,0,0,0,0,0,0}, {1,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0}}, {{0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0}, {0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0}, {0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0}, {0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0}}, {{1,1,0,0,1,1,0,0,0,0,0,,0,0,0}, {1,1,0,0,1,1,0,0,0,0,0,,0,0,0},{1,1,0,0,1,1,0,0,0,0,0,,0,0,0},{1,1,0,0,1,1,0,0,0,0,0,,0,0,0}},{{0,0,0,0,1,1,1,0,0,1,0,0,0,0,0,0},{1,0,0,0,1,1,0,0,1,0,0,0,0,0,0,0},{0,1,0,0,1,1,1,0,0,0,0,,0,0,0},{0,1,0,0,1,1,0,0,0,1,0,0,0,0,0,0}}};/ 随机得到当前方块和下一个方块的形状和方向/void boxrad{minboxcolor=nextminboxcolor;boxgs=nextboxgs;boxfx=nextboxfx;nextminboxcolor=random14+1;ifnextminboxcolor==4||nextminboxcolor==7||nextminboxcolor==8 nextminboxcolor=9;nextboxfx=F_DONG;nextboxgs=random7;}/初始化图形模试/void initint gdrive,int gmode{int errorcode;initgraph&gdrive,&gmode,"e:\\tc";errorcode=graphresult;iferrorcode=grOk{printf"error of: %s",grapherrormsgerrorcode; exit1;}}/ 在图形模式下的清屏 /void cls{setfillstyleSOLID_FILL,0;setcolor0;bar0,0,640,480;}/在图形模式下的高级清屏/void clscrint a,int b,int c,int d,int color{ setfillstyleSOLID_FILL,color;setcolorcolor;bara,b,c,d;}/最小方块的绘制/void minboxint asc,int bsc,int color,int bdcolor{int a=0,b=0;a=SCCOL+asc;b=SCROW+bsc;clscra+1,b+1,a-1+MINBOXSIZE,b-1+MINBOXSIZE,color; ifcolor=BGCOLOR{setcolorbdcolor;linea+1,b+1,a-1+MINBOXSIZE,b+1;linea+1,b+1,a+1,b-1+MINBOXSIZE;linea-1+MINBOXSIZE,b+1,a-1+MINBOXSIZE,b-1+MINBOXSIZE; linea+1,b-1+MINBOXSIZE,a-1+MINBOXSIZE,b-1+MINBOXSIZE;}}/游戏中出现的文字/void txtint a,int b,char txt,int font,int color{ setcolorcolor;settextstyle0,0,font;outtextxya,b,txt;}/windows 绘制/void winint a,int b,int c,int d,int bgcolor,int bordercolor{ clscra,b,c,d,bgcolor;setcolorbordercolor;linea,b,c,b;linea,b,a,d;linea,d,c,d;linec,b,c,d;}/ 当前方块的绘制/void funboxint a,int b,int color,int bdcolor{int i,j;int boxz44;fori=0;i<16;i++boxzi/4i%4=boxstrboxgsboxfxi;fori=0;i<4;i++forj=0;j<4;j++ifboxzij==1minboxj+row+aMINBOXSIZE,i+col+bMINBOXSIZE,color,bdcolor; }/下一个方块的绘制/void nextfunboxint a,int b,int color,int bdcolor{int i,j;int boxz44;fori=0;i<16;i++boxzi/4i%4=boxstrnextboxgsnextboxfxi;fori=0;i<4;i++forj=0;j<4;j++ifboxzij==1minboxj+aMINBOXSIZE,i+bMINBOXSIZE,color,bdcolor; }/时间中断定义/define TIMER 0x1cint TimerCounter=0;void interrupt oldhandler__CPPARGS;void interrupt newhandler__CPPARGS{ TimerCounter++;oldhandler;}void SetTimervoid interrupt IntProc__CPPARGS{ oldhandler=getvectTIMER;disable;setvectTIMER,IntProc;enable;}/由于游戏的规则,消掉都有最小方块的一行/void delcolint a{int i,j;fori=a;i>1;i--forj=1;j<15;j++{minboxjMINBOXSIZE,iMINBOXSIZE,BGCOLOR,BGCOLOR; grilij=grili-1j;ifgrilij==1minboxjMINBOXSIZE,iMINBOXSIZE,minboxcolor,0; }}/消掉所有都有最小方块的行/void delete{int i,j,zero,delgx=0;char nm="00000";fori=1;i<21;i++{zero=0;forj=1;j<15;j++ifgrilj==0zero=1;ifzero==0{delcoli;delgx++;}}num=num+delgxdelgx10;dj=num/10000; sprintfnm,"%d",num;clscr456,173,500,200,4;txt456,173,"Number:",1,15; txt456,193,nm,1,15;}/时间中断结束/void KillTimer{disable;setvectTIMER,oldhandler; enable;}/ 测试当前方块是否可以向下落/ int downok{int i,j,k=1,a44;fori=0;i<16;i++ai/4i%4=boxstrboxgsboxfxi;fori=0;i<4;i++forj=0;j<4;j++ifaj && grilcol+i+1row+jk=0;returnk;}/ 测试当前方块是否可以向左行/ int leftok{int i,j,k=1,a44;fori=0;i<16;i++ai/4i%4=boxstrboxgsboxfxi;fori=0;i<4;i++forj=0;j<4;j++ifaj && grilcol+irow+j-1k=0;returnk;}/ 测试当前方块是否可以向右行/ int rightok{int i,j,k=1,a44;fori=0;i<16;i++ai/4i%4=boxstrboxgsboxfxi;fori=0;i<4;i++forj=0;j<4;j++ifaj && grilcol+irow+j+1k=0;returnk;}/ 测试当前方块是否可以变形/ int upok{int i,j,k=1,a44;fori=0;i<4;i++fori=0;i<16;i++ai/4i%4=boxstrboxgsboxfx+1i;fori=3;i>=0;i--forj=3;j>=0;j--ifaj && grilcol+irow+jk=0;returnk;}/当前方块落下之后,给屏幕坐标作标记/ void setgril{int i,j,a44;funbox0,0,minboxcolor,0;fori=0;i<16;i++ai/4i%4=boxstrboxgsboxfxi;fori=0;i<4;i++forj=0;j<4;j++ifajgrilcol+irow+j=1;col=1;row=7;}/游戏结束/void gameover{int i,j;fori=20;i>0;i--forj=1;j<15;j++ minboxjMINBOXSIZE,iMINBOXSIZE,2,0;txt103,203,"",3,10;}/按键的设置/void call_keyint keyx{switchkeyx{case VK_DOWN: { /下方向键,横坐标加一;/ ifdownok{col++;funbox0,0,minboxcolor,0;}else{funbox0,0,minboxcolor,0;setgril;nextfunboxNEXTCOL,NEXTROW,4,4;boxrad;nextfunboxNEXTCOL,NEXTROW,nextminboxcolor,0; delete;}break;}case VK_UP: { /上方向键,方向形状旋转90度/ ifupokboxfx++;ifboxfx>3boxfx=0;funbox0,0,minboxcolor,0;break;}case VK_LEFT:{ /左方向键,纵坐标减一/ifleftokrow--;funbox0,0,minboxcolor,0;break;}case VK_RIGHT:{ /右方向键,纵坐标加一/ ifrightokrow++;funbox0,0,minboxcolor,0;break;}case VK_SPACE: /,直接落到最后可以落到的们置/ whiledownokcol++;funbox0,0,minboxcolor,0;setgril;nextfunboxNEXTCOL,NEXTROW,4,4;boxrad;nextfunboxNEXTCOL,NEXTROW,nextminboxcolor,0; delete;break;default:{txt423,53,"worng key",1,4;txt428,80,"Plese Enter Anly Key AG",1,4;;clscr420,50,622,97,BGCOLOR;}}}/时间中断开始/void timezdvoid{int key;SetTimernewhandler;boxrad;nextfunboxNEXTCOL,NEXTROW,nextminboxcolor,0; for;;{ifbioskey1{key=bioskey0;funbox0,0,BGCOLOR,BGCOLOR;ifkey==VK_ESCbreak;call_keykey;}ifTimerCounter>gamedjdj{TimerCounter=0;ifdownok{funbox0,0,BGCOLOR,BGCOLOR;col++;funbox0,0,minboxcolor,0;}else {ifcol==1{gameover;;break;}setgril;delete;funbox0,0,minboxcolor,0;col=1;row=7;funbox0,0,BGCOLOR,BGCOLOR; nextfunboxNEXTCOL,NEXTROW,4,4;boxrad;nextfunboxNEXTCOL,NEXTROW,nextminboxcolor,0; }}}}/主程序开始/void mainvoid{int i,j;char nm="00000"; initVGA,VGAHI;cls;/屏幕坐标初始化/fori=0;i<=MAXCOL+1;i++ forj=0;j<=MAXROW+1;j++ grilij=0;fori=0;i<=MAXCOL+1;i++ { grili0=1;grili15=1;}forj=1;j<=MAXROW;j++{ gril0j=1;gril21j=1;}clscr0,0,640,480,15;win1,1,639,479,4,15;winSCCOL+MINBOXSIZE-2,SCROW+MINBOXSIZE-2,SCCOL+15MINBOXSIZE+2,SCROW+21MINBOXSI ZE+2,BGCOLOR,0;nextboxgs=random8;nextboxfx=random4;sprintfnm,"%d",num;txt456,173,"Number:",1,15;txt456,193,nm,1,15;txt456,243,"Next Box:",1,15;timezd;KillTimer;closegraph;;}。
excel2010内置游戏愤怒的小鸟激活方法
excel2010内置游戏愤怒的小鸟激活方法
你可能听说过旧版本的Excel内置的彩蛋赛车游戏，现在Excel 2010又添加了热门的愤怒小鸟，不过激活它有点小麻烦。
今天，店铺就教大家如何激活这个小游戏的方法。
Excel2010内置游戏愤怒的小鸟激活方法的步骤如下：
打开一个空的文件，必须是Excel2007 SP以上版本。
备注: 要关掉其它Excel表格
把文件名改为“ARoofPill.xlsx” ( ARoofPill 是微软Excel内置宏的名称)
点击单元格 C23，把宽度调为30(确保一定是30)
把C23字体调为20
把以下公式粘贴到C23
=SUBSTITUTE(ADDRESS(BIN2DEC(1&REPT("0",5)),6*7,4) & CHAR(82)&MID("SMILE",3,2) & ADDRESS(2^5,57*3,4) & MID("COOL",3,456789),"32","")
点击 Enter 就搞定啦。
方方格子Excel工具箱-黄金版-说明文档
方方格子Excel工具箱说明文档作者：格子君简介：方方格子Excel工具箱，简称FFCell，是一款基于Excel的大型工具箱软件(Com加载项)，极大程度上加强了Excel功能，提高了工作效率。
当前版本采用VSTO开发，支持32位和64位Office，支持Excel2007至2016各版本。
（不再支持Excel2003）。
运行安装向导即可轻松完成安装。
需要注意：若安装过程中提示缺少必要的环境，请按提示下载环境安装包。
这是由于VSTO是较新的技术，一般比较老旧的系统都缺少必要的环境。
方方格子Excel工具箱分两个版本：基础版和黄金版。
时间：2015-08-18目录1.软件界面2.文本处理1)提取和过滤2)高级文本处理3.数值录入1)四舍五入2)转为数值3)录入序列4)其他4.编辑1)复制粘贴2)新增插入3)批量删除4)合并转换5.数据分析1)重复值2)高级排序3)按颜色统计4)隔行设定颜色5)条件设定颜色6.汇总拆分1)汇总拆分2)工作表相关7.视图1)隐藏显示2)聚光灯3)指针工具4)关注相同值5)记忆8.帮助1)设置 - 只粘贴数值快捷键2)注册9.自定义文本和格式10.我的收藏夹11.收纳箱1)函数的增删改查2)自定义Excel界面12.公式向导13.创意实验室1)Lotex2)加密、解密选区3)发布求助14.结束一. 软件界面软件界面如下（2个选项卡）:二. 文本处理1)提取和过滤勾选需要提取的类型，然后点击执行下拉菜单并选择：提取。
系统将弹出选择保存位置（GIF动画）（GIF动画）2)高级文本处理点击右下角的小图标，将显示高级文本处理界面：三. 数值录入这个选项卡集中了常用的单元格录入、单元格内容的简单处理。
1)四舍五入：选中区域后，点击按钮将提示输入保留小数位数完成后：2)转为数值：去除公式，只保留数值。
3)录入序列：可录入数字、罗马数字序列、随机数字等。
其中，生成随机数，可选择允许重复/不允许重复。
ExcelSolver的用法
Excel Solver的用法电脑相关 2009-06-26, 22:13Solver是Excel一个功能非常强大的插件(Add-Ins)，可用于工程上、经济学及其它一些学科中各种问题的优化求解，使用起来非常方便，Solver包括（但不限于）以下一些功能：1、线性规划2、非线性规划3、线性回归，多元线性回归可以用Origin求解，也可以用Excel的linest函数或分析工具求解。
4、非线性回归5、求函数在某区间内的极值注意：Solver插件可以用于解决上面这些问题，并不是说上面这些问题Solver 一定可以解决，而且有时候Solver给出的结果也不一定是最优的。
Solver安装方法：Solver是Excel自带的插件，不需要单独下载安装。
但Excel默认是不启用Solver的，启用方法：在"工具"菜单中点击“插件”，在Solver Add-In前面的方框中打勾，然后点OK，Excel会自动加载Solver，一旦启用成功，以后Sovler 就会在"工具"菜单中显示。
Solver求解非线性回归问题的方法：假设X和Y满足这样一个关系：Y=L(1-10-KX)，实验测得一组X和Y的值如下：X Y0 00.54 1830.85 2251.50 2862.46 3803.56 4705.00 544求L和K的值。
在Excel中随便假设一组L和K的值，比如都假设为1，以这组假设的值，求出一组Y’，然后再求出一组(X-Y)2的值，再将求出的这组(X-Y)2的值用Sum函数全部加起来(下面的图中，全部加起来结果在$G$22这个单元格中)。
然后点击“工具”菜单中的Solver，将Set Target Cell设为$G$22这个单元格，将By Changing Cells设为$F$8:$F9这两个单元格，即改变L和K的值，Equal To选中Min这项，其他的选项不用理会，如下图：然后点右上角的Solver，$F$8:$F9就会改变，改变之后的值即为优化的L和K 值。
Exel里的游戏
一：纸牌游戏启动Excel程序，依次点击工具栏中“工具/自定义”菜单，切换至“命令”标签页，选中左侧“类别”栏中的“工具”菜单，向下拖动右侧“命令”栏侧边滑块，找到带有纸牌图形的“自定义”选项（如图），将它拖至Excel工具栏中，点击“关闭”按钮将“自定义”对话框关闭。
现在，Excel工具栏中就多了一个纸牌按钮，点击该按钮，熟悉的纸牌游戏界面就出现在你面前了。
二：MicroSoft Excel 2000 暗藏赛车游戏1.开启Excel之后随便开一新文档,将它『另存成Web画面』,按下发布后再将“添加交互对象”打勾,将档案储存为car.htm(文件名可自取)。
2.在IE中开启car.htm，你应该会看到电子表格出现在网页中央，如图1：图13.在这个工作表中，先用PageDown键移动工作表的矩形光标直至第2000行，注意只能用PageDown键，然后用Tab键横向向右移动光标直至WC列，也是只能用键操作，到此，所有的准备工作已经完毕，该是调出游戏的时候了。
4.同时按住Shift+Crtl+Alt 然后点选左上方的Office logo 。
5.开始玩了,如图2：图26.玩法提示: 玩游戏的时候，被你控制的是那一辆浅蓝色的汽车，操作的主要是四个箭头按键。
作用是：左右箭头可以控制汽车的方向：向上箭头可以加速，向下的箭头减速；如果汽车运行到了夜间，可用H键打开车灯。
绝对好玩！三：数字华容道'先说个简单的。
大家玩过那个数字华容道吧，就是有N*N个格，有一格是空的，其他格是次序混乱的拼图或数字，游戏的目的就是利用这唯一的这个空格移动各块拼图把混乱的拼图（数字）恢复（顺序）。
这里我们小游戏的目的是要把1至15这15个次序混乱的数字恢复从1到15的顺序排列。
'打开Excel后打开代码编写器（Alt + F11），将如下代码写入模块中。
程序首先是初始化。
定义变量，选择4*4的空格，调整表格大小，改变单元格颜色（标示出游戏区域），然后是让1到15非重复随机分布到前15格空格中：Public Const PW = ""'本游戏由Excel吧bengdeng整理！Public Running As Boolean'用于判断游戏是否进行中，如果要中途退出或玩家需要重玩用此变量控制Public SRan As Range'游戏左上单元格Public BRan As Range'游戏空格单元格Public N As Integer'游戏区域大小Public GRan As Range'游戏区域，这里由N与SRan生成Public Bs As Integer'游戏步数Public STime As Date'游戏开始时间Sub GameStar()Dim i As IntegerDim ii As IntegerDim temp As IntegerDim a(14) As IntegerDim down As VbMsgBoxResult'判断游戏是否在运行If Running Thendown = MsgBox("游戏正在进行！是否重玩？", vbYesNo, "提示- " & PW)If down = vbNo Then Exit SubEnd IfRunning = TrueN = 4'设定游戏区域为4*4Set SRan = Range("E5")'设定游戏开始单元格为E5Set BRan = SRan.Offset(N - 1, N - 1)'设定游戏空单元格Set GRan = Range(SRan, BRan)'游戏区域（颜色）初始化，省略了单元格大小的调整，大家可以应该加入相应语句让游戏外观整齐If ActiveSheet.ProtectContents Then ActiveSheet.Unprotect Password:=PWGRan.ClearContentsGRan.Interior.ColorIndex = 35'随机数数组初始化，这里是编号0到编号14共15个数For i = 0 To (N * N - 2)a(i) = i + 1Next i'不重复随机分布各数For i = N * N - 2 To 0 Step -1Randomizeii = Int(Rnd * i)temp = a(i)a(i) = a(ii)GRan.Item(i + 1) = a(i)a(ii) = tempNext iBs = 0STime = Now()ActiveSheet.Protect Password:=PWEnd Sub'很明显，Excel的单元格是游戏的主角。
Excel制表技巧-外部函数-数组公式
【多年使用】Excel制表技巧－外部函数-数组公式Excel函数应用教程：外部函数EUROCONVERT用途:将数字转换为欧元形式，将数字由欧元形式转换为欧盟成员国货币形式，或利用欧元作为中间货币将数字由某一欧盟成员国货币转化为另一欧盟成员国货币的形式(三角转换关系)。
语法:EUROCONVERT(number，source，target，full_precision，triangulation_precision)参数:Number为要转换的货币值，或对包含该值的单元格的引用。
Source是由三个字母组成的字符串，或对包含字符串的单元格的引用，该字符串对应于源货币的ISO代码。
EUROCONVERT函数中可以使用下列货币代码:国家 / 地区基本货币单位ISO 代码比利时法郎BEF卢森堡法郎LUF德国德国马克DEM西班牙西班牙比塞塔ESP法国法郎FRF爱尔兰爱尔兰磅IEP意大利里拉IT L荷兰荷兰盾NLG奥地利奥地利先令ATS葡萄牙埃斯库多PTE芬兰芬兰马克FIM希腊德拉克马GRD欧盟成员国欧元EUR2.SQL.REQUEST用途:与外部数据源连接，从工作表运行查询，然后SQL.REQUEST 将查询结果以数组的形式返回，而无需进行宏编程。
语法:SQL.REQUEST(connection_string，output_ref，driver_prompt，query_text，col_names_logical)参数:Connection_string提供信息，如数据源名称、用户ID和密码等。
Output_ref对用于存放完整的连接字符串的单元格的引用。
Driver_prompt指定驱动程序对话框何时显示以及何种选项可用。
Column_names_logical指示是否将列名作为结果的第一行返回。
如果要将列名作为结果的第一行返回，请将该参数设置为TRUE。
如果不需要将列名返回，则设置为FALSE。