在活动中,我们常会有抽奖,抽奖箱准备繁琐,现在多采用线上抽奖方式,下面用Excel VBA写了一个简单的抽奖小程序 简单测试效果如下,可实现: 多次抽奖,且每次抽奖都不重复 抽奖界面滚动人员信息,点击抽奖按钮锁定中奖人员 中奖人员信息在右侧公示区域展示,最新中奖人员展示在最上方 设置了一部分误点.误操作提示,以及抽奖完成提示等 做了一个抽奖简单演示,演示GIF如下: 实现代码如下,按需自取,转载请备注出处: '申明Flag.d.e三个模块变量,跨进程引用,实现滚动和抽奖数据传递 Dim Flag

原文:https://blog.csdn.net/zutsoft/article/details/45441343 编程往往与数据库密不可分,一个项目往往有很多的表,很多时候通过excel来维护表结构,记录表名,字段,类型,注释等等信息,将表结构整理到excel已经是件很累的事了,如果整理好的表结构只是用来查字段当字典用,那就太浪费了,excel提供vba编程,我们可以通过一段小脚本来实现一键创建表结构.使用脚本创建的语句需要标准化每个sheet页的格式,格式根据自己需要来做,这里给出我使用的格

EXCEL的VBA编程 杨康需要我完成的需求 第一列是名称 第二列是甲方账户 第三列是甲方金额 第四列是乙方账户 第五列是乙方金额 第六列是true或false 第七列备注 需求 开始时数据对齐的,如果甲方金额比乙方金额大,就将交易名称,甲方账户,甲方金额下移一行,反之则将乙方账户,乙方金额下移一行 最终效果图 我的代码 Sub func() Dim pos, total, mate1 Rem 获取行数 total = Sheet1.UsedRange.Rows.Count Rem 开始循环 F

公司现在的很多自动化代码生成使用excel VBA,本来这事跟自己一点关系打不着,不过计划年底切换中间件,这得导致部分代码结构调整,自己还得去调整测试,老忘掉这快捷键,特记录下,Alt + F11

遇到的问题 在工作中遇到了一点小小的问题,需要给我负责带的班级的同学们测试男生1000米,女生800米的成绩.表格是这样的: 体育成绩表 序号 班级 姓名 性别 男1000.女800 成绩 1 1 张三 男 3.50   2 1 李四 女 3.44   我们在录入完成绩后,需要按照一定的标准去给出学生成绩,标准是这样的: 需要我们根据每个学生的成绩,给出对应的分数.于是,我就计算了下我的工作量:每个人对应的需要给分数,总共需要给六个班 x 70 个人也就是差不多420个人给分数.那样的一个工作量

本文主要涉及: VBA中的MySQL环境配置 VBA连接MySQL数据库 VBA读写MySQL数据 在Excel中连接MySQL数据库及数据读写 系统环境: Windows 10 Excel 2013 XAMPP.其中集成的数据库是MariaDB 10.1.13(如果不懂MariaDB为何物,可把它当成是MySQL.事实上它的使用和MySQL也几乎完全一致) 1. VBA连接MySQL前的环境配置 系统中必须先安装有MySQL服务,这个就不多说了.可以选择使用官方安装包,或者使用PHP集成环境中

背景 有个PHPCMS的网站停了,但是网站的历史文章又想要看看,网站停了以后,管理员发来了网站的所有数据. 分析 因为不会PHP,所有本地环境跑网站不优先考虑. 有MySQL数据库文件,但是不熟悉MySQL数据库,也就不下载数据库了. 有PHPCMS导出的SQL文件,但是不是标准的SQL文件,不能用于导入数据库.不过这个文本格式的文件已经包含了所有文章的内容. 尝试 1.将v9_news 文章主表,v9_news_data 文章从表 用 vlook 函数拼接了一个 “news full”表. 2

从我学生时代就知道EXCEL,但是对VBA了解那可真是中学认知了,但是很遗憾,那时没太研究,就像BASIC一样,那时的视野层面认为代码没有大括号什么的,看着也麻烦,其实是没有编程经验,所以看着不适应,随着在程序员界的逐渐深入.了解,发现语言是相通的.特别是大学“读研”时.发现它还可以做指令集编排.工作后可以做数据可视化.就连我在报社做设计也是用它的数据图表化.真是无所无能.如果初中时就去研究它.现在就是大神,那么多高级语言,为啥还用有它呀,方便呗...业务需求,就像老师的板报一样,彩色笔虽然好用

一.一种纯粹的录制宏.(未使用此方法,如有兴趣可自学),就是Excel提供了“所见即所得”的方式生成宏.把自己想要的操作记录,录制成宏. 自学网等各种网站有教学视频或文章 二.常用VBA语法及函数笔记: Excel 中[开发工具]--查看代码或者VB或者查看宏即可打开代码编辑. https://blog.csdn.net/szwangdf/article/details/2338683 https://blog.csdn.net/Jesikundin/article/details/766018

1.合并字符串A1&A22.拆分字符串LEFT(A2,SEARCH("-",A2)-1)3.下拉选项Data->Data validation->List 1.在工具栏上显示开发选项 2.新建个Module就可以在几个sheet里共享变量 Public cn As New ADODB.Connection Public strCn As String Public strCom As String Public rs As New ADODB.Recordset P

将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件 打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示 将代码复制到这个模块中,代码如下:Private Sub VBAPassword() '你要解保护的Excel文件路径(把要破解的excel保存为2003-97 xls)Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls

(一)什么是VBA?什么是宏? VBA (Visual Basic For Application)是一种编程语言,是建立在Office中的一种应用程序开发工具.可以利用VBA有效地扩展Excel的功能,设计和构建人机交互界面,打造自己的管理系统,帮助Excel用户更有效地完成一些基本操作.函数公式等不能完成的任务,从而提高工作效率.顾名思义,VBA使用的编程语言是VB. VBA是编程语言,宏是用VBA代码保存下来的程序.录制的宏只是VBA里最简单的程序,正因为如此,录制的宏存在许多的缺陷:如无

在网上找EXCEL多文件合并的方法,思路: 一.Linux 或者window+cmder,直接用命令行cat合并EXCEL文件,但是,需要安装辅助东西才能直接处理(也许也不可以,但是,可以用文件格式转换工具转换是可行的,把EXCEL文件转换成txt文件,再操作,操作好了,再转换成EXCEL格式):还有一种是perl或者Python有自己自带的EXCEL处理包,能像处理数组一样,实现直接处理EXCEL文件的目的 二.EXCEL自带VBA编程实现合并,但是,网上搜了很多,格式很类似的VBA脚本,都不

添加引用 "Scripting.FileSystemObject" (Microsoft Scripting Runtime) '用于操作文件.目录 Sub 数据整理部分() ' ' 数据整理到新的Sheet '' Dim fso As New FileSystemObject Dim folder As folder Dim file As file Dim strExt As String Dim wkb As Workbook strExt = "xlsx"

参考:https://wenku.baidu.com/view/6c60420ecc175527072208af.html 比如将选区变为图片保存到桌面: Sub 将选区转为图片存到桌面() Dim ans As Byte, Pic As String, Paths As String On Error Resume Next Paths = CreateObject("WScript.Shell").SpecialFolders("Desktop") &

在数据分析中经常需要对数据进行排序.排名,观察指标排名变化情况,手工处理的话不是太困难,但经常使用,还是编写宏比较方便. 宏命令比较简单,不多解释,只说一下注意事项: 1.有合并单元格,比如列.行合并后,直接选择会全选合并的列/行,这时候,不用管选择,直接进行插入.删除.或者格式化就可 Columns(nCol).Insert 2.输入格式化公式时,需要固定单元格$,可以使用FormulaR1C1,R[1]C[1]标示当前行.列加1,R1C1标示$a$1,使用时还要注意 把数字转换成字符串. S

Sub GetData() Dim strConn As String, strSQL As String Dim conn As ADODB.Connection Dim ds As ADODB.Recordset Dim col As Integer '清空电子表格的所有数据 Cells.Clear '连接数据库的字符串 strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=name;Password=pwd;In

Sub 将所有列全部转换为文本() t=timer 'Cells(Rows.Count, 1).End(xlUp).Row 获取第一列最后一个非空单元格的行号 s = Cells(, Columns.Count).End(xlToLeft).Column '获取第一行最后一个非空单元格的列号 For i = To s Columns(i).Select Selection.TextToColumns Destination:=Cells(, i), DataType:=xlDelimited,

Dim f As Double, f1 As Double, f2 As Double, df As Double, oxy() As Double, R() As Double, k As Double, k1 As Double, k2 As Double, b As Double, b1 As Double, b2 As Double Dim dk As Double, db As Double Dim iRow As Long, i As Integer Sub readExcelToA

实验成功的: ExcelApp.Workbooks.Open(文件路径,,,'密码') 这里很坑,搜了别人的博客,下面这个方法试了N次,都没用... ExcelApp.Workbooks.Open(文件路径,Password='密码.') 可能是我的有毒吧...

Excel里使用VBA对已经合并的单元格添加注释,直接使用AddComment会报: 运行时错误 '1004':应用程序定义或者对象定义错误 找了很多文章都没找到怎么解决,最后发现在AddComment之前,先ClearComments一下,就好了 Excel using vba to add comment to a merged cell if occur runtime error 1004, before invoking addcomment, first  invoke ClearC