• 所有问题

    • 哪位大师告诉我，如何把设计好的excel计算器表格用到VB里面啊

    如题所述

    举报该问题
    其他回答
    第1个回答  2022-11-21

    哪位大师告诉我，如何把设计好的excel计算器表格用到VB里面啊

    多些一举，直接在VB中呼叫系统自带的计算器就行了。
    为什么要用excel设计计算器呢？

    哪位大侠可以告诉用VB或VC写一个计算器的原始码啊？

    想学加我QQ452362812，VB方法实现。

    如何用Excel设计自己的计算器

    方法一,在单元格中写入计算式直接得出结果
    在EXCEL中
    加号为+
    减号为-
    乘号为*
    除号为/
    乘幂为^
    等号为=
    在电子表格中直接写入带等号的计算式,就会计算出值
    如计算2+3乘以5再除以7的结果的两次方,公式可以写成
    =((2+6)*5/4)^2
    按下回车即可得值为100
    方法二
    在各单元格中分别写入要计算的数值,再用公式(或函式公式)进行计算
    EXCEL四则运算
    以A1至A5单元格区域及B6单元格为例,A1至A5分别为1,2,3,4,5,B6为6
    加法
    =SUM(A1:A5,B6)
    =A1+A2+A3+A4+A5+B6
    A1至A5及B6相加 值为21
    减法
    =SUM(A1:A5)-B6
    =A1+A2+A3+A4+A5-B6
    A1至A5相加减去B6 值为9
    乘法
    =PRODUCT(A1:A5,B6)
    =A1*A2*A3*A4*A5*B6
    A1至A5及B6相乘 值为720
    除法
    =PRODUCT(A1:A5)/B6
    =A1*A2*A3*A4*A5/B6
    A1至A5相乘除去B6 值为20
    计算乘幂值,比如要计算A2单元格值为底,A3单元格值为幂次指数的值(即2的3次方)
    则公式为
    =A2^A3
    =POWER(A2,A3)
    即为2的3次方=8
    输入公式的单元格不能是在公式中已被引用的单元格,以免形成回圈计算

    表格的顶上是一排字母A,B,C,.......这个就是列标
    表格的左边是一竖列的数字1,2,3,.......这个就是行号
    列标加上行号就是就是单元格的名称,单元格名称也叫做单元格地址,如A列的第三行,为A3单元格,C列的第18行为C18单元格,第五列的第七行就是E7单元格,这样形成了一个个的座标,标明了每个单元格的位置.

    求公路Excel设计好的计算表样

    需要计算什么？建议楼主自己设计出样表，然后到:exceltip./?fromuid=2【我的提问】版面求助，把需要计算的单元格和资料关系说明一下，自然有人帮你。
    本人也曾做多年高速公路施工。

    请哪位大师 告诉我一下 古建筑的向量图 如何设计啊 用PS和CorelDraw

    网上有许多的，这个素材你工作时一般都是用现成的为好，老板不会让你慢慢自己设计的，除非是个大单子，人家完全要求根据实际创作一种独特风格的。小价格的单子，每个元素都原创，你家老板会发疯咬你的。

    求大神告诉我x+1/(x^2)求导计算器怎么按（991的计算器）

    991只能求某一点的导数值，不能求导函式

    如何锁定设计好的EXCEL表格，让其他人只能在表格里填写内容，不能修改设计好的表格属性和调整大小？

    “工具”/“保护”/“保护工作表”
    然后设定密码及相关修改许可权即可。

    哪里有房贷的计算器啊 有谁告诉我呢

    各家银行网站上都有。

    求助高手，DELPHI计算器设计的流程图，哪位知道，告诉我呀，非常感谢！

    这是原始码：
    unit Unit1;
    interface
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Buttons, StdCtrls, ExtCtrls;
    type
    TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton10: TSpeedButton;
    StaticText1: TStaticText;
    SpeedButton0: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    GroupBox1: TGroupBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    var
    Form1: TForm1;
    restart: Boolean;
    isfirst: Boolean;
    fir_num,sec_num: String;
    sign: integer;
    result: real;
    save: String;
    implementation
    {$R *.dfm}
    function count(sign: integer):real;
    begin
    case sign of
    1: result:=strtofloat(fir_num)+strtofloat(sec_num); 为加号时
    2: result:=strtofloat(fir_num)-strtofloat(sec_num); 为减号时
    3: result:=strtofloat(fir_num)*strtofloat(sec_num); 为乘号时
    4: begin
    try
    result:=strtofloat(fir_num)/strtofloat(sec_num); 为除号时
    except
    ShowMessage('错误!');
    form1.close;
    end; 除数为0时,做出异常处理
    end;
    end;
    end;
    procedure TForm1.SpeedButton1Click(Sender: TObject);
    var
    i: integer;
    begin
    if restart then 如果是重新开始输入,则清除原来的运算元,并设定isfirst为True
    begin
    isfirst:=True;
    fir_num:='';
    sec_num:='';
    restart:=False;
    end;
    if isfirst then 如果是第一个运算元
    begin
    if (sender as TSpeedButton).Caption='.' then 如果输入的是小数点
    begin
    if (strlen(pChar(fir_num))<=0) then 如果第一个运算元并未输入
    fir_num:='0.'
    else
    for i:= 1 to strlen(pChar(fir_num)) do
    if fir_num[i]='.' then exit;
    如果第一个中已含有小数点而又输入小数点,则退出
    end;
    if (strlen(pChar(fir_num))>0) and (fir_num[1]='0') then 如果最高位为0
    begin
    if ((sender as TSpeedButton).Caption='.') then
    fir_num:='0.'
    else
    begin
    if strlen(pChar(fir_num))>1 then 如果是小数,则继续输入
    fir_num:=fir_num+(sender as TSpeedButton).Caption
    else
    fir_num:=(sender as TSpeedButton).Caption;
    如果不是小数,则去掉最高位的0
    end;
    end
    else
    fir_num:=fir_num+(sender as TSpeedButton).Caption;
    StaticText1.Caption:=fir_num;
    end
    else
    begin
    if (sender as TSpeedButton).Caption='.' then 如果第二个运算元并未输入
    begin
    if (strlen(pChar(sec_num))<=0) then
    sec_num:='0.'
    else
    for i:= 1 to strlen(pChar(sec_num)) do
    if sec_num[i]='.' then exit;
    如果第二个中已含有小数点而又输入小数点,则退出
    end;
    if (strlen(pChar(sec_num))>0) and (sec_num[1]='0') then 如果最高位为0
    begin
    if ((sender as TSpeedButton).Caption='.') then
    sec_num:='0.'
    else
    begin
    if strlen(pChar(sec_num))>1 then 如果是小数,则继续输入
    sec_num:=sec_num+(sender as TSpeedButton).Caption
    else
    sec_num:=(sender as TSpeedButton).Caption;
    如果不是小数,则去掉最高位的0
    end;
    end
    else
    sec_num:=sec_num+(sender as TSpeedButton).Caption;
    StaticText1.Caption:=sec_num;
    end;
    end;
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    StaticText1.Caption:='0.'; 设定StaticText1初始显示为0.
    restart:=False;
    Isfirst:=True;
    fir_num:='';
    sec_num:='';
    end;
    procedure TForm1.SpeedButton11Click(Sender: TObject);
    begin
    if (fir_num<>'') and (sec_num<>'') then
    如果两各运算元都不为空
    begin
    result:=count(sign); 呼叫函式,返回计算结果
    fir_num:=floattostr(result);
    sec_num:='';
    StaticText1.Caption:=floattostr(result);
    end;
    sign:=(sender as TSpeedButton).Tag;
    isfirst:=False;
    restart:=False;
    end;
    procedure TForm1.SpeedButton15Click(Sender: TObject);
    begin
    if (sec_num<>'') then
    如果第二个运算元不为空则返回结果
    begin
    result:=count(sign);
    fir_num:='';
    fir_num:=fir_num+floattostr(result);
    StaticText1.Caption:=floattostr(result);
    sec_num:='';
    end;
    restart:=true;
    end;
    procedure TForm1.SpeedButton16Click(Sender: TObject);
    begin
    restart:=True;
    fir_num:='';
    sec_num:='';
    self.StaticText1.Caption:='0.';
    end;
    procedure TForm1.SpeedButton17Click(Sender: TObject);
    begin
    Close;
    end;
    end.

    哪位能告诉我这种计算器怎么计算∑和产生随机数

    您的计算器无法进行西格玛求和运算 随机数请按[SHIFT] [.](小数点)和等于号

    相似回答
    求大师指点,如何把excel计算器表格用VB编辑实现软件形式,大师……答：要不你直接就写个vb的窗体，然后调用excel，然后直接run excel里的vba代码。把宏文件的excel放在exe文件夹里
    VB中如何与EXCEL关联,请教代码答：Set objExcelFile = New Excel.Application '´´创建新的excel应用程序 objExcelFile.DisplayAlerts = False 'Excel不可见 Set objWorkBook = objExcelFile.Workbooks.Open(App.Path & "\公司在册人员名单.xls")Set objImportSheet = objWorkBook.Sheets(1) '选定工作表单1 objW...
    如何运用VB与EXCEL答：1.Alt+F11,将你设计的计算器VB代码输入 2.Application.Selection是你当前选中的Excel单元格 3.假设计算结果保存在TextBox1中，则Application.Selection=TextBox1.Text 下面是个简单示例（只用了1、2、3、+、=、CE几个键，按“=”后计算结果自动保存到选定的单元格内）Dim A As Integer Private Sub ...
    如何通过VB给excel表格做界面?答：可以在VB的窗体中加OLE控件，就可以操作Excel。也可以在VBA中建立界面
    如何使用VB设计程序实现计算器的基本功能?答：MessageBox.Show("这是一个仿照windows的计算器应用程序"); } private void 关于计算器ToolStripMenuItem1_Click(object sender, EventArgs e) { MessageBox.Show("计算器---作者:---联系方式QQ:776799386"); }/* private void 关于计算器ToolStripMenuItem_Click(object sender, EventArgs e) { MessageBox.Show...
    用VB2005制作windows自带计算计算器类型的计算器,详细过程答：'计算符号右边的数字 dim stmiddle as string '计算符号 2.设置每个button的click响应事件，如按下数字1：textbox1.text= textbox.text & button1.text（这个你看得懂吧）其它的依样画葫芦 2.设置“计算”按钮的click响应事件，这个比较关键，你要用到ASCII码的知识。把me.textbox1.text中的字符串...
    vb程序设计 计算器答：先建立一个新的项目文件，里面包含一个Form1的窗体。然后，添加控件，包括一个Text框（Text1），和17个按钮，这17个按钮使用的名称都是Command1，只是Index属性不同，就好象一个数组，创立一组按钮的方法是，先在窗体上建立一个按钮（Command1），然后在Command1上击鼠标右键，选择复制（Copy），然后在...
    想把Excel里面的小计算器做成软件形式,应该是比较简单,可是不知道找...答：自己编辑呀，很简单。我用Excel几分钟就编辑一个公式。
    怎么用VB做一个计算器答：VB的实现： 文本框（两个） 表达式 标签 三、编制程序：(一) 在VB6.0中新建一个标准EXE工程 (二) 建立一个窗体，窗体属性设置如下：名称 = Maths2 Caption = "数学小工具2"(三) 在窗体上添加两个文本框TextBox，名称不改，分别为text1、text2,用于输入计算数值，将两个文本框的text属...
    大家正在搜
    如何用excel计算excel表格计算器怎么调出来excel表中的计算器excel计算器在哪excel表格自动计算天数哪位大神能告诉我excel计算器excel计算器快捷键表格计算器