百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 文章教程 > 正文

实现窗体录入数据的代码

xsobi 2024-12-05 17:29 2 浏览

【分享成果,随喜正能量】学会坚强,这世上,真正在乎你的人并不多,相反,倒是有很多人都在等着看你的笑话。就算遇到天大的麻烦,也不要自暴自弃。你不勇敢,没人替你坚强。《VBA之Excel应用》是非常经典的,是我推出的第七套教程,定位于初级。这套教程从简单的录制宏开始讲解,一直到窗体的搭建,内容丰富,实例众多。大家可以非常容易的掌握相关的知识,这套教程共三册,十七章,都是我们在利用EXCEL工作过程中需要掌握的知识点,希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”的第十七章 “用户窗体(Userform)的实例应用”的第3节:实现窗体录入数据的代码

第三节 创建一个录入数据的窗体(三)

我们在前面的两节中讲了各个控件及窗体的搭建及属性的设置,我们在这讲开始代码的讲解。如果说控件的搭建是骨骼及肌肉建立,那么这讲的内容就相当于给骨骼和肌肉联上神经单元。没有神经单元的连接,骨骼永远只是骨骼,肌肉永远是肌肉,只有联上了神经单元,一切才获得了重生。

6 实现录入数据窗体的代码

我们看下面的代码:

1)命令按钮“确定”的代码:

Private Sub CommandButton1_Click()

[详细代码见教程]

End Sub

2)按钮“清空”的代码:

Private Sub CommandButton2_Click()

Call UserForm_Initialize

End Sub

3)按钮“退出”的代码

Private Sub CommandButton3_Click()

Unload Me

End Sub

4)滚动条的改变事件响应代码

Private Sub ScrollBar1_Change()

TextBox3.Value = ScrollBar1.Value

End Sub

5)窗体的加载事件

Private Sub UserForm_Initialize()

[详细代码见教程]

End Sub

代码的部分截图:

7 代码的解读

1) emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

取得工作表中非空单元格的行数值

2)If Len(TextBox2.Value) <> 11 Then

MsgBox "手机号码位数不对"

TextBox2.SetFocus

Exit Sub

End If

验证手机号码是否为11位。

3) Cells(emptyRow, 1).Value = TextBox1.Value

将文本框1的值填入单元格。

4) Call UserForm_Initialize

执行窗体的加载事件

5) With ListBox1

.Clear

.AddItem "秦皇岛"

.AddItem "长沙"

.AddItem "青岛"

End With

在窗体的加载事件中,在列表框中添加必要的项目.

6)With ComboBox1

.Clear

.AddItem "汉族"

.AddItem "回族"

.AddItem "满族"

.Value = "汉族"

End With

在窗体的加载中,在ComboBox控件中添加项目。

8 代码的运行效果

我们最后看代码的运行:

1)在工作表窗口中点击“显示录入表单”,会弹出录入窗口:

2)我们在这个窗口录入信息资料:

点击“确定”按钮,这个时候窗体重新加载了.

3)我们点击退出,返回工作表窗口

这时我们发现,录入窗口上的信息就到了工作表中,完成了录入。

今日内容回向:

1) 如何显示录入窗口?

2) 录入窗口如何实现数据的预加载?

3) 录入窗口的数据如何保存到工作表中?


本讲内容参考程序文件:工作簿17.xlsm



【分享成果,随喜正能量】学会珍惜在乎你的人,你的父母,你的挚友,你的爱人,如果他们在乎你,就请一定要好好珍惜。因为他们是你这辈子最宝贵的财富。不要把过多的热情浪费在生命中的过客上,人生匆匆,要把时间,留给最值得的人。。

相关推荐

Android Studio 导入项目出现缺失解决

很多朋友安装好Androidstudio后准备试一把,但是导入项目的时候出现错误Cannotfindfile"...../project_name/settings.jar"这个错误是因为导入...

首个安卓12开发者预览版发布:隐私保护升级、更新UI、优化性能

来源:环球网2月20日消息,据engadget报道,来到二月,惯例也是谷歌发布安卓12开发者预览版的时候,以便于让开发者提前查看下一版安卓系统的新属性。谷歌工程副总裁戴夫·波尔克(DaveBurke...

推荐几个非常有用的开发工具之Android Studio插件

我们都知道Eclipse开发Android将在今年年底google不再继续提供相应的开发支持,转而开始强烈发展AndroidStudio,现在我就分享几款能帮助团队提升工作效率的几个Android...

Android Studio下的应用性能优化总结-内存优化

上一篇文章总结的布局优化的问题,如果对布局优化不是很熟悉的,可以看一下AndroidStudido下的应用性能优化总结–布局优化,这周一直筹划总结一下内存优化的问题,因为现在对于应用优化的文章很...

安卓开发之环境搭建「图文教程」 安卓应用开发环境搭建

安卓(Android)是一种基于Linux的自由及开放源代码的操作系统。主要使用于移动设备,如智能手机和平板电脑,由Google公司和开放手机联盟领导及开发。接下来开始第一个安卓应用吧!需要用到的软...

Android APP性能测试上篇--启动时长、内存

如图所示,列出了目前app主要的一些性能指标,以及对应使用的测试工具。普遍的app性能测试,主要是以下几类:启动时长、内存、cpu、FPS(app使用的流畅度)、GPU过度渲染、耗电、耗流、cras...

AndroidStudio下的依赖管理 安卓依赖管理

在开发中用第三方库是很常见的事,如何在AndroidStudio下管理这些依赖呢?这就是这篇文章的目的。目录Maven/Ivy仓库依赖Module依赖aar文件依赖jar文件依赖例子完整代码一、Mav...

基于Android的师生学习交流平台:Android课程设计

基于Android的师生学习交流平台(Androidstudio毕业设计,Android课程设计)一、项目介绍系统分为学习资料,作业,师生交流,个人资料四大模块(1)学生端:新用户需要填写真实姓名,...

Android Studio 贴士 - 综述#3 android studios

(点击上方公号,可快速关注)英文原文:http://www.developerphil.com/android-studio-tips-of-the-day-roundup-3注:文中链接皆为国外链接...

Android 11 Developer Preview首次更新发布:修复诸多问题

此前在2月19日,谷歌放出了Android11DeveloperPreview(安卓11开发者预览版),并表示Beta版本将于5月份推出,最终发行版将于2020年Q3面世。如今距离Android...

Android12 支持无线usb调试应用 安卓 usb调试

背景在android12版本中已经支持wifiusb调试了,再也不用查数据线了,下面主要说下连接步骤:1.在开发者启动无线调试...

InstantRun原理--深度剖析AndroidStudio2.0

http://crash.163.com/#news/!newsId=8推荐理由AndroidStudio2.0开始支持InstantRun特性,使得在开发过程中能快速将代码变化更新到设...

集成开发环境Android Studio整合Gemini:可生成、补全代码

IT之家4月9日消息,谷歌近日发布新闻稿,宣布在AndroidStudio中集成Gemini1.0Pro,从而帮助开发人员更快、更好地写出代码。谷歌表示目前相关整合仍处于预览阶段,...

Android studio 最新版本下Gradle的一些配置

当我们把Androidstudio版本更新到Bumblebee版本时,我们会发现创建新的项目时,有了一些改变。项目根目录下面的build.gradle变了:旧版本下的是这样子的:setting.gr...

Android Studio最新版下载安装:Android Studio模拟器怎么启动

目录第一部分:AndroidStudio软件介绍...