EXCEL VBA限制工作数据批号或者自定义规则完整

EXCEL VBA限制工作数据批号或者自定义规则完整


Private Sub Worksheet_Change(ByVal Target As Range)Dim nRow%, Arr(), cMc$, cPc$, cTxt$, nSum!If Target.Row = 1 Or Target.Column <> 4 Then Exit SubIf Target.CountLarge > 1 Then Exit SubcMc = Target.Offset(0, -1).ValuecPc = Target.ValueIf cMc = "" Or cPc = "" Then Exit SubFor sh = 0 To 1With Sheets(Array("期初", "入库")(sh))nRow = .Range("a1048576").End(xlUp).RowArr = .Range("a1:e" & nRow).ValueEnd WithFor i = 2 To nRowIf Arr(i, 2 + sh) = cMc And Arr(i, 3 + sh) = cPc ThennSum = nSum + Arr(i, 4 + sh)End IfNextNextnRow = Target.Row - 1With MeArr = .Range("a1:e" & nRow).ValueEnd WithFor i = 2 To nRowIf Arr(i, 3) = cMc And Arr(i, 4) = cPc ThennSum = nSum - Arr(i, 5)End IfNextWith Target.Offset(0, 1).Validation.Delete.Add 2, 1, 8, nSum.InputTitle = "最大值".InputMessage = nSumEnd With
End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Dim nRow%, Arr(), cMc$, cTxt$, sh%If Target.Row = 1 Or Target.Column <> 4 Then Exit SubIf Target.CountLarge > 1 Then Exit SubcMc = Target.Offset(0, -1).ValueIf cMc = "" Then Exit SubFor sh = 0 To 1With Sheets(Array("期初", "入库")(sh))nRow = .Range("a1048576").End(xlUp).RowArr = .Range("a1:d" & nRow).ValueEnd WithFor i = 2 To nRowIf Arr(i, 2 + sh) = cMc ThenIf Not cTxt & "," Like "*," & Arr(i, 3 + sh) & ",*" ThencTxt = cTxt & "," & Arr(i, 3 + sh)End IfEnd IfNextNextWith Target.Validation.DeleteIf cTxt <> "" Then .Add 3, 1, 1, cTxtEnd With
End Sub

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

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

相关文章

再说机器学习

之前我们讨论过机器学习&#xff0c;那是在大厂AI课笔记里面。 今天我们再来说说机器学习。 机器学习概念 机器学习是人工智能的一个子领域&#xff0c;它的核心是让计算机从数据中学习&#xff0c;从而能够自动地改进其性能&#xff0c;在没有明确编程的情况下能够预测新数…

基于两个单片机串行通信的电子密码锁设计

1.功能 电子号码锁在实际应用中应该有两部分&#xff0c;一部分在外部&#xff0c;有键盘部分和密码显示&#xff1b;另一部分内部&#xff0c;设置密码、显示密码。使用单片机自身带有的串口可以很方便的实现单片机之间的通信&#xff0c;使输入的密码值传送到主机检验是否是…

ctf题目

目录 1.文件包含的一道题目&#xff0c;没什么难度&#xff0c; 2.一道sql注入的题目&#xff0c;伪静态 3.限制只能本地访问。 1.文件包含的一道题目&#xff0c;没什么难度&#xff0c; 但是一个点就是它这里去包含的那个文件名就是flag&#xff0c;而不是flag.php也不是f…

数据库---------完全备份和增量备份的数据恢复,以及断点恢复

目录 一、在数据库表中&#xff0c;分三次录入学生考试成绩 1.1先创建库&#xff0c;创建表&#xff0c;完成三次数据的录入 1.2首次录入成绩后&#xff0c;做该表的完全备份 1.3第二次插入后 做增量备份 1.4第三次插入后 做增量备份 二、模拟数据丢失&#xff0c;并使用…

小练习——java中循环语句打印乘法口诀表

正向乘法表 for (int i 1; i<9; i) {for (int j 1; j < i; j) {System.out.print(j "X" i "" (i * j) "\t");}System.out.println();}代码结果&#xff1a; 打印反向乘法表 for (int i 9; i > 1; i--) {for (int j 1; j <…

P32—P33:数据类型概述

P32 数据类型的作用&#xff1a;指导虚拟机JVM在运行时给该数据分配多大的内存 java中的数据类型包括两种&#xff1a;基本数据类型和引用数据类型 基本数据类型包括四大类八种&#xff1a; 第一类&#xff1a;整数型—byte、short、int、long第二类&#xff1a;浮点型—floa…

大数据技术之 Apache Doris(一)

第 1 章 Doris 简介 1.1 Doris 概述 Apache Doris 由百度大数据部研发&#xff08;之前叫百度 Palo&#xff0c;2018 年贡献到 Apache 社区后&#xff0c;更名为 Doris &#xff09;&#xff0c;在百度内部&#xff0c;有超过 200 个产品线在使用&#xff0c;部署机器超过 10…

机器学习周报第35期

目录 一、文献阅读&#xff1a;You Only Look Once: Unified, Real-Time Object Detection1.1 摘要1.2 背景1.3 论文模型1.4 网络设计1.5 YOLO的局限性1.6 实现代码 target 7*7*30 值域为0-1 一、文献阅读&#xff1a;You Only Look Once: Unified, Real-Time Object Detection…

从0开始搭建基于VUE的前端项目(三) Vuex的使用与配置

准备与版本 vuex 3.6.2(https://v3.vuex.vuejs.org/zh/)概念 vuex是什么? 是用作 【状态管理】的 流程图如下 state 数据状态,成员是个对象 mapState 组件使用this.$store.state.xxx获取state里面的数据 getters 成员是个函数,方便获取state里面的数据,也可以加工数据 ma…

LC 106.从中序与后序遍历序列构造二叉树

106. 从中序与后序遍历序列构造二叉树 给定两个整数数组 inorder 和 postorder &#xff0c;其中 inorder 是二叉树的中序遍历&#xff0c; postorder 是同一棵树的后序遍历&#xff0c;请你构造并返回这颗 二叉树 。 示例 1: 输入&#xff1a; inorder [9,3,15,20,7], post…

突破编程_C++_网络编程(OSI 七层模型(物理层与数据链路层))

1 OSI 七层模型概述 OSI&#xff08;Open Systems Interconnection&#xff09;七层模型&#xff0c;即开放系统互联参考模型&#xff0c;起源于 20 世纪 70 年代和 80 年代。随着计算机网络技术的快速发展和普及&#xff0c;不同厂商生产的计算机和网络设备之间的互操作性成为…

个人主页导航源码

源码简介 个人主页导航源码&#xff0c;个人主页导航源码&#xff0c;一款带后台的个人导航主页源码。 搭建环境 PHP 5.2 Nginx Mysql5.6 安装教程 1.上传源码压缩包到网站目录并解压 2.访问网站域名安装提示进行安装即可 后台路径为&#xff1a;https://域名/admin/ …

ngrok 内网穿透使用

title: ngrok 内网穿透使用 search: 2024-02-29 文章目录 背景Windows安装ngrok指令授权ngrok个人用户Authtoken穿透 http 或 https 服务ngrok的代理http指令ngrok获得静态域名指令ngrok的代理ssh指令 背景 这次寒假回家&#xff0c;很无奈&#xff0c;很多东西放在项目组服务…

3月份 月总结

抓住3月份的尾巴&#xff0c;简单写一篇月度总结。 3月份之所以产出比较少&#xff0c;是因为时间都花在学习和工作上了。 学习的内容包括但不限于 开源Grbl_Esp32 gcode学习 web串口 svg转gcode的生成 字体转svg 位图转矢量图 potrace算法 扫描线相关知识 矢量图编辑器调研 …

Vue2(十一):脚手架配置代理、github案例、插槽

一、脚手架配置代理 1.回顾常用的ajax发送方式&#xff1a; &#xff08;1&#xff09;xhr 比较麻烦&#xff0c;不常用 &#xff08;2&#xff09;jQuery 核心是封装dom操作&#xff0c;所以也不常用 &#xff08;3&#xff09;axios 优势&#xff1a;体积小、是promis…

微软Azure推出9种逼真AI语音服务;OpenAI有限开放Voice Engine访问权限

&#x1f680; 微软Azure推出9种逼真AI语音服务 摘要&#xff1a;微软Azure团队在2023年9月对外宣布&#xff0c;针对商业客户推出了一系列逼真的AI语音服务。最近&#xff0c;该公司进一步表示&#xff0c;这些服务现已包含9种更为真实的人工智能声音&#xff0c;并且已于所有…

PostgreSQL:所有支持的数据类型及建表语句实例

哈喽&#xff0c;大家好&#xff0c;我是木头左&#xff01; 一、引言 在当今这个数据驱动的时代&#xff0c;数据库已经成为了企业和个人不可或缺的工具。而在众多数据库产品中&#xff0c;PostgreSQL以其强大的功能和高度的可扩展性&#xff0c;受到了越来越多开发者的青睐。…

ZC706+AD9361 运行 open WiFi

先到github上下载img&#xff0c;网页链接如下&#xff1a; https://github.com/open-sdr/openwifi?tabreadme-ov-file 用win32 Disk lmager 把文件写入到SD卡中&#xff0c;这一步操作会把SD卡重新清空&#xff0c;注意保存数据。这个软件我会放在最后的网盘链接中 打开linu…

对接中泰极速行情 | DolphinDB XTP 插件使用教程

XTP 是中泰证券推出的高性能交易平台&#xff0c;专为专业投资者提供高速行情及交易系统&#xff0c;旨在提供优质便捷的市场接入通道。目前支持股票、基金、ETF、债券、期权等多个市场&#xff0c;可满足不同投资者需求。 基于 XTP 官方 C SDK&#xff0c;DolphinDB 开发了 X…

【PyTorch Tensor】PyTorch Tensor编程教学:基础与实战

PyTorch是一个开源的机器学习库&#xff0c;它提供了强大的张量计算&#xff08;Tensor computation&#xff09;能力和动态计算图&#xff08;Dynamic computation graph&#xff09;&#xff0c;使得深度学习模型的构建和训练变得更加灵活和直观。在本文中&#xff0c;我们将…