文档章节

VBA计算器的全部实现

o
 osc_zoa3moe9
发布于 2019/12/07 13:33
字数 193
阅读 9
收藏 0

精选30+云产品,助力企业轻松上云!>>>

我们将加入 除零逻辑 和 对话框提示。

 

后面 就很简单了~~~

 

提供效果图跟 代码

代码示例

Sub 矩形1_Click()
'
' 矩形1_Click Macro
' 代码编辑

    Dim number1 As Integer
    Dim number2 As Integer
    


    number1 = Cells(5, 4)
    number2 = Cells(6, 4)
    
    Cells(7, 4) = number1 + number2


    
End Sub
Sub 矩形2_Click()
'
' 矩形2_Click Macro
'
    Dim number1 As Integer
    Dim number2 As Integer
    
    number1 = Cells(5, 4)
    number2 = Cells(6, 4)
    
    Cells(7, 4) = number1 - number2
    
End Sub
Sub 矩形4_Click()
'
' 矩形4_Click Macro
'
    Dim number1 As Integer
    Dim number2 As Integer
    
    number1 = Cells(5, 4)
    number2 = Cells(6, 4)
    
    Cells(7, 4) = number1 * number2
End Sub
Sub 矩形5_Click()
'
' 矩形5_Click Macro
'
    number1 = Cells(5, 4)
    number2 = Cells(6, 4)
    
    If number2 = 0 Then
        MsgBox ("除数不能为零~")
    Else
    
        Cells(7, 4) = number1 / number2
    End If
    
End Sub

参考文献:

https://www.yiibai.com/vba/vba_message_box.html

 

o
粉丝 1
博文 500
码字总数 0
作品 0
私信 提问
加载中
请先登录后再评论。
用VBA写一个计算器

着急的 玩家 可以 跳过“============”部分 ======================================可以跳过的 部分 开始====================================================== 之所以 要有今天这样一篇...

osc_zoa3moe9
2019/12/07
2
0
VB资料免积分下载——【下载目录】

小弟最近整理了一批免积分下载的VB方面的资料,在这里把下载的目录地址给大家,希望大家喜欢~ 学校学生选课系统数据库 http://down.51cto.com/data/318175 VBScript语言参考手册 http://dow...

IT小白白
2012/07/24
120
1
word VBA——用尾注内容替换文中相应引用位置的尾注编号

作为一个公司里的小渣渣,经常会接到各种奇怪的活计,比如说:让我将一个几百页的文档中的全部尾注上的文字,拷贝到文中引用的相应位置,替换掉相应的尾注编号。文档几百页,尾注也有几百个啊...

bear_miao
2016/10/23
0
0
解析ArcGis的字段计算器(一)——数值型数据计算,从“面积计算”开始

先来点儿背景知识铺垫: ArcMap的字段计算器提供了两种脚本语言的支持用以计算,两种脚本语言是VBScript与Python。 多数人选择使用前者,因为它的基本函数和Excel的函数貌似一样。注意我这里...

osc_yc40ey49
2018/12/05
7
0
如果WPS增加这些功能,或许可以撼动MS Office的地位

WPS文字相较于MS Word有几个亮点,一是支持多标签页,二是集成了MathType的功能。(MathType现在被流氓公司思杰马克丁“代理”了,网上的序列号被扫得干干净净,给Word配Mathtype变得很困难了...

磁悬浮青蛙呱呱呱
04/01
0
0

没有更多内容

加载失败,请刷新页面

加载更多

签到领金币模块

  最近做了一个签到模块的需求,主要就是签到,根据连签天数提供不同和奖励并在首页展示不同的文案。奖励分为金币和话费,话费也是通过金币的形式发放,但是有效期只有1天。 签到需求 每日...

osc_2frf70qv
25分钟前
17
0
正交多项式介绍及应用

1 正交多项式的定义 1.1 正交多项式定义 定义: 一个多项式序列 ${ {p_n}(x)} _{n = 0}^\infty $,其阶数为 \([{p_n}(x)] = n\) ,对于每一个 \(n\),这个多项式序列在开区间 \((a,b)\) 上关...

osc_mbhfa1vl
27分钟前
19
0
百万级别数据Excel导出优化

前提 这篇文章不是标题党,下文会通过一个仿真例子分析如何优化百万级别数据Excel导出。 笔者负责维护的一个数据查询和数据导出服务是一个相对远古的单点应用,在上一次云迁移之后扩展为双节...

osc_3g4j2ghj
28分钟前
21
0
Java 字符串比较、拼接问题

@ 目录 1.字符串的比较 1. 1 字符串常量池 1.2 String类型的比较方式 1.3 String的创建方式 1.3.1 直接使用“=”进行赋值 1.3.2 使用“new”关键字创建新对象 1.3.3 intern()方法返回的引用地...

osc_bjmmswh6
29分钟前
12
0
EJB到底是什么?(通俗易懂白话文)

1. 我们不禁要问,什么是"服务集群"?什么是"企业级开发"? 既然说了EJB 是为了"服务集群"和"企业级开发",那么,总得说说什么是所谓的"服务 集群"和"企业级开发"吧! 这个问题其实挺关键的,......

onedotdot
30分钟前
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部