vba 不等于_EXCEL中VBA基础语句(1)

6d3ff25dd22d199ddf7fbc09ac1bb6de.png

萌二笔记分类目录及书单

一、If-Then语句

说明:条件判断,如果......那么......例1:A2单元格的成绩大于等于60,则弹出对话框提示“及格”。

Sub 判断成绩()

If Range("A2") >= 60 Then MsgBox "及格"

End Sub

操作过程:

2785850a44b75ede81aee108d9918510.gif

二、If-Then-Else语句

说明:条件判断,如果......那么......否则......例2:使用按钮(窗体控件)判断A2单元格的成绩,大于等于60则弹出对话框提示“及格”,否则弹出对话框提示“不及格”。

Sub 判断成绩()

If Range("a1") >= 60 Then

MsgBox "及格"

Else

MsgBox "不及格"

End If

End Sub

操作过程:

4bb5ac3863cc6dcb32799dd1dfb27fed.gif

三、For-Next语句

例3:判断A列成绩,在B列对应单元格一次性返回全部结果,大于等于60“及格”,反之“不及格”。

1cd7484b9e34b682686308aa3201ca87.png

①常规公式法:

3a0645aa2500b140ddc79773a338f226.png

②VBA法,for-next循环语句:

说明:循环语句,定义变量i(第一个要判断的单元格行号为2,最后一个行号为15)

Sub 判断成绩()

Dim i As Integer

For i = 2 To 15 Step 1

If Range("A" & i) >= 60 Then

Range("B" & i).Value = "及格"

Else

Range("B" & i).Value = "不及格"

End If

Next i

End Sub

635a77bff6c1ea6fee8309d2fbd96a48.png

操作过程:

7236fc2ac4f7195b99deb2edb1b07734.gif

四、Do-While语句

还是上面例3。

③VBA法,do-while循环语句:

说明:定义变量i(初始值为2),A列单元格不为空时按条件“判断成绩”,遇到空格则停止判断。这样不需要看最后一行是多少,增减数据不用更改代码。

Sub 判断成绩3()

Dim i As Integer

i = 2

Do While Range("A" & i).Value <> ""

If Range("A" & i) >= 60 Then

Range("B" & i).Value = "及格"

Else

Range("B" & i).Value = "不及格"

End If

i = i + 1

Loop

End Sub

2801bb22fe09ef759a0d35d2d1510426.png

操作过程:

3283446563a3f77e08875bef7d9fa106.gif

fdf0b02c8368228b86ab1e30ee766927.gif

把文件“另存为”EXCEL启用宏的工作簿(*.xlsm):

c2a15257bb00139bd923e5f35fc93640.png

【原文链接:EXCEL中VBA基础语句(1)】

7a997efe0e6e125c58a4030e720afc4a.png

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/306639.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

PHP大势已去,PHP宝藏可为我所用

编者注&#xff1a; PHP有着庞大的生态系统&#xff0c;还是可以为我dotnet所用&#xff1a;介绍一个基于 .NET 的船的新 PHP SDK Runtime: PeachPie。PHP 8 昨天发布了&#xff0c;今天不写代码&#xff0c;聊聊我对 PHP 的看法。昨天在今日头条发了一条微头条&#xff0c;引…

leetcode——242. 有效的字母异位词

问题描述&#xff1a; 给定两个字符串 s 和 t &#xff0c;编写一个函数来判断 t 是否是 s 的字母异位词。 示例 1: 输入: s “anagram”, t “nagaram” 输出: true 示例 2: 输入: s “rat”, t “car” 输出: false 说明: 你可以假设字符串只包含小写字母。 进阶: 如…

python常用函数和操作_python一条语句分析几个常用函数和概念 -

前言 过年也没完全闲着&#xff0c;每天用一点点时间学点东西&#xff0c;本文为大家介绍几个python操作的细节&#xff0c;包含all、any、for in等操作&#xff0c;以及介绍我解决问题的思路。 一、开篇 先从我看到的一个简单的语句开始。 刚看到这个语句的时候我整个人完全懵…

.NET5发布了,腾讯招聘点名要求精通MySQL,而不是SQLServer!

.NET5正式发布&#xff0c;社区一片欢腾&#xff0c;.NET相关技术栈也会迎来大变革&#xff0c;而大厂的招聘要求可谓是技术风向标&#xff01;紧盯腾讯网易顺丰等大厂的招聘&#xff0c;会发现都在明确要求。MySQL&#xff0c;而不是SQL Server了。究其根本&#xff0c;还是跨…

leetcode——344. 反转字符串

leetcode——344. 反转字符串 问题概述&#xff1a; 编写一个函数&#xff0c;其作用是将输入的字符串反转过来。输入字符串以字符数组 char[] 的形式给出。 不要给另外的数组分配额外的空间&#xff0c;你必须原地修改输入数组、使用 O(1) 的额外空间解决这一问题。 你可以假…

python面向对象编程思想书籍_Python的面向对象编程思想

什么是Python的多态&#xff1f;多态的好处就是&#xff0c;当我们需要传入Dog、Cat、Tortoise……时&#xff0c;我们只需要接收Animal类型就可以了&#xff0c;因为Dog、Cat、Tortoise……都是Animal类型&#xff0c;然后&#xff0c;按照Animal类型进行操作即可。由于Animal…

C# WPF:把文件给我拖进来!!!

❝首发公众号&#xff1a;Dotnet9作者&#xff1a;沙漠之尽头的狼日期&#xff1a;202-11-27一、本文开始之前上传文件时&#xff0c;一般是提供一个上传按钮&#xff0c;点击上传&#xff0c;弹出文件&#xff08;或者目录选择对话框&#xff09;&#xff0c;选择文件&#xf…

c++——reverse()函数的使用

c——reverse()函数的使用 使用方式&#xff1a; reverse(vec.begin(),vec.end()); queue和stack容器不支持遍历操作&#xff0c;没有迭代器&#xff0c;所以不能使用算法里的反转函数&#xff0c;其类也没有提供反转的成员函数 因为set和map是关联式容器&#xff0c;在插入元…

python3的float数精度_python浮点数精度问题

python浮点数的计算&#xff0c;结果并不像我们想象的那样&#xff0c;比如&#xff1a;>>> 0.250.25-0.40.09999999999999998>>> 0.60.3-0.260.6399999999999999在计算机上面运算的结果是我们实际期望的结果并不一致&#xff0c;导致这样的根本原因就是&…

.NET应用程序安全操作概述

介绍此页面旨在为开发人员提供.NET安全提示。.NET Framework.NET Framework是Microsoft用于企业开发的主要平台。它是ASP.NET&#xff0c;Windows桌面应用程序&#xff0c;Windows Communication Foundation服务&#xff0c;SharePoint&#xff0c;Visual Studio Tools for Off…

leetcode——面试题 17.10. 主要元素

问题描述&#xff1a; 数组中占比超过一半的元素称之为主要元素。给定一个整数数组&#xff0c;找到它的主要元素。若没有&#xff0c;返回-1。 示例 1&#xff1a; 输入&#xff1a;[1,2,5,9,5,9,5,5,5] 输出&#xff1a;5 示例 2&#xff1a; 输入&#xff1a;[3,2] 输出…

github设置中文_【Github】100+ Chinese Word Vectors 上百种预训练中文词向量

(给机器学习算法与Python学习加星标&#xff0c;提升AI技能) 该项目提供了不同表征(密集和稀疏)上下文特征(单词&#xff0c;ngram&#xff0c;字符等)和语料库训练的中文单词向量。开发者可以轻松获得具有不同属性的预先训练的向量&#xff0c;并将它们用于下游任务。此外&…

服务器重新部署踩坑记

服务器重新部署踩坑记Intro之前的服务器是 Ubuntu 18.04 &#xff0c;上周周末想升级一下服务器系统&#xff0c;从 18.04 升级到 20.04&#xff0c;结果升级升挂了... 后来 SSH 始终连不上&#xff0c;索性删除重新部署了一个&#xff0c;新部署了一个 Centos 8 的系统&#x…

c++——优先队列(priority_queue)

优先队列详解/C 优先队列 1.概念:什么是优先队列呢?在优先队列中&#xff0c;元素被赋予优先级&#xff0c;当访问元素时&#xff0c;具有最高级优先级的元素先被访问 .即优先队列具有最高级先出的行为特征。它可以说是队列和排序的完美结合体&#xff0c;不仅可以存储数据&am…

一个div 上下两行_Django 实战 | 搭一个 GitHub 用户展示网站 02

一、创建公共 HTML 模板在 templates 文件里面新建一个 base.html&#xff0c;再到Bootstrap4中文文档找到 最基本的模板&#xff0c;拷贝代码到 base.html&#xff0c;在 home.html 中引入 base.html&#xff1a;{% extends base.html %}{% block content %}<h1>Hello W…

C#如何回到主线程,如何在委托指定线程执行

在多线程情况下&#xff0c;有时候我们需要在主线程里面执行一些逻辑&#xff0c;比如修改UI控件SynchronizationContex可以帮助我们在指定的线程执行SynchronizationContext.Current 为获取当前线程的同步上下文&#xff0c;拿到线程的上下文之后可以通过调用Send&#xff08;…

算法设计与分析——递归与分治策略——循环日程赛

问题描述&#xff1a; 非递归方案一&#xff1a;代码 #include<bits/stdc.h> using namespace std;void gameTable(vector<vector<int>> &vec,int k) {int i0,j0;//二维数组的下标&#xff0c;行&#xff0c;列 int temp;//需要新安排选手数目 int n;//…

linux开发板推荐_【新品发布】WiFi开发板XW-01-Kit,超低功耗,冷启快联,智能门锁首选!...

智能门锁作为智能家居的入口级产品以及家庭智能安防的核心单品&#xff0c;已然成为智能家居生态链中不可或缺的核心组成部分。智能门锁方案的研发仍然面临着诸多痛点&#xff0c;如耗电问题、连接繁琐和安全隐患等。物联网的应用与发展必然离不开对更低功耗的追求&#xff0c;…

如何使用 C# 扩展方法

译文链接&#xff1a;https://www.infoworld.com/article/3130492/how-to-work-with-extension-methods-in-c.htmlC# 在 3.0 版本中提供了对 扩展方法 的支持&#xff0c;扩展方法常用于给一个已存在的类添加新的方法从而扩展该类的功能&#xff0c;最关键的是&#xff1a;你不…

算法设计与分析——递归与分治策略——最接近点对问题

【问题描述】 最近对问题要求在包含有n个点的集合S中&#xff0c;找出距离最近的两个点。设 p1(x1,y1)&#xff0c;p2(x2,y2)&#xff0c;……&#xff0c;pn(xn,yn)是平面的n个点。 严格地将&#xff0c;最近点对可能不止一对&#xff0c;此例输出一对即可。 【基本算法思想…