【VBA(六)：操作单元格对象2】【将数据拆分为多表（筛选）+Inputbox函数+Msgbox函数+小结】

最新推荐文章于 2021-08-10 15:47:44 发布
最新推荐文章于 2021-08-10 15:47:44 发布
阅读量989 收藏 9
点赞数 1
分类专栏： VBA 文章标签： excel vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_42893334/article/details/105509755
版权

上一篇：【VBA(五)：操作单元格对象】【单元格+单元格对象常用操作+小结及练习】

文章目录

将数据拆分为多表（筛选）

前提有新建的表

在这里插入图片描述

新建表（避免重名）

原数据
在这里插入图片描述
代码
在这里插入图片描述

效果图（运行多次也不会新建表和报错）
在这里插入图片描述

新建表（原数据有重复的）

在这里插入图片描述

代码
在这里插入图片描述
效果图
在这里插入图片描述

案例

根据部门列创建工作表
在这里插入图片描述

代码（d与4关联，根据哪列筛选都可以改）

在这里插入图片描述

效果图
在这里插入图片描述

Inputbox函数

InputBox是Visual Basic和VBS中的函数，功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字。该函数与MsgBox函数类似，区别就是InputBox函数用于简单地接受用户输入的一些文本。
代码
在这里插入图片描述
效果图
在这里插入图片描述
在这里插入图片描述

Msgbox函数

MsgBox是Visual Basic和VBS中的一个函数，功能是弹出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。
“MsgBox”即为“Message Box”的缩写，在英语中意为“信箱”。

代码
在这里插入图片描述
效果图
在这里插入图片描述

小结

Msgbox “OK”
i= Inputbox(“请输入”)
批量处理表，注意重名问题。

下一篇：【VBA(七)：事件与典型应用案例】【关于单元格格式设置中的WITH语句+事件与典型应用案例+小结与练习】

LinGavinQ
关注
  • 1
    点赞
  • 踩
  • 9
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
【VBA(十四)：VBA中的用户信息交互】【Msgbox+Inputbox+GetOpenFilename+小结】
LinGavinQ
04-29 2395
本章主要内容：Msgbox，Inputbox，GetOpenFilename，小结。
【VBA(七)：事件与典型应用案例】【关于单元格格式设置中的WITH语句+事件与典型应用案例+小结与练习】
LinGavinQ
04-21 1064
本章主要内容：关于单元格格式设置中的WITH语句，事件与典型应用案例，小结与练习。
操作单元格对象2
积一时之步，臻千里之遥程
03-05 294
1.拆分表 上次的题目：归类每一个部门信息，用的是for循环，效率很低 调用清空过程 '归类 Sub tt() Call t1 '调用t1清空过程 Dim i, j, k As Integer For j = 2 To Sheets.Count For i = 2 To Sheets(1).Range("d65536").End(xlUp).Row If Sheet...
中的inputbox_VBA中实现高级筛选
weixin_42523718的博客
01-14 690
实现excel里手动操作高级筛选全部动作的代码化。Sub Advanced_filter() Dim rngData As Range, rngCriteria As Range, rngResult As Range Dim i As Integer Dim temp As String i = Range("a" & Rows.Count).E...
VBS实现文本文件按行数拆分的脚本
weixin_34143774的博客
08-01 546
今天写了一个VBS脚本，用于将指定的文本文件按行数拆成多个文件，如源文件为20万行，按5万行进行拆分，则通过该脚本可将其拆成4个文件。其中实现了分级日志的功能，即可以设置不同的日志级别，在运行过程中向用户展现不同的提示信息。代码如下：12345678910111213141516171819202122232425262728293031323334353637383940414243444546...
VBA对数据表进行拆分（分列）及保存
叶雪青的博客
07-29 6845
同事经常遇到问题，这个按照部门进行分类，还要进行保存，好麻烦，每次手动都要半天，还可能出错。所以针对这个问题，用VBA写了个分列和保存的宏。 一、使用前说明： 1.要分列的表列中间不要出现空内容，比如要分第2列部门，里面有A部门，B部门，还有个空内容的，可能导致计算行数不准。 2.分列后的表序号功能还未完善，分列后还要手动拉一下序号 3.其他bug还在完善中 先放效果图 1.这是要进行操作的表 2.运行分列的宏 以第二列部门进行分列 ...
mysql+两行+一样+筛选_Excel两行交换及两列交换，快速互换相邻表格数据的方法...
weixin_39557087的博客
02-07 847
经常使用办公软件的人可能有遇到过需要将Excel相邻两行数据相互交换的情况,需要怎么弄才最方便呢?您还是像大家通常所做的那样先在Excel文件相应位置插入一个新的空白行然后在复制粘贴数据然后删除原来那行数据的方法么? 要想在Excel中交换相邻两行数据,可以借助Shift键快速实现. 例如需要交换第4行和第5行的数据,那么您需要先选中第4行,然后把鼠标指向第4行的上边缘,当指针变为双十字箭头(即移...
一户一表拆分- 输入模式
最新发布
04-07
以上知识点详细说明了文件中提到的一户一表拆分输入模式的VBA宏代码的实现原理和操作过程。通过这些知识点，可以更好地理解宏如何自动化地处理Excel数据，以及如何将数据拆分到单独的工作簿中。
Excel 2010 VBA 入门 118 反复提示对话框直到数据合法
复行数十步
08-10 334
目录 例 码1 IsNumeric函数 码2 Application. InputBox方法 例 使用对话框要求用户输入信息时，在有些时候需要限制用户输入的内容以进行下一步的处理。如本例要求用户输入一个数字，并查找出大于该数字的所有数据。使用VBA实现要求用户输入一个数字，若输入非数字则反复要求其输入。 码1 使用Do---Loop循环不断调用InputBox方法，并利用IsNumeric函数判断其返回值是否为数字，当为数字时则跳出循环。 Option Explic...
你的MCU串口丢过数据包吗？
11-30 1268
串口在我印象中是从来不会丢包的，那是因为以前都是用的厂家提供的SDK，现在用MCU裸板开发，自己做驱动，如果驱动没做好，就会丢包。今天来总结两个串口驱动层的丢包问题，一个是发数据丢包，即...
【VBA(五)：操作单元格对象】【单元格+单元格对象常用操作+小结及练习】
LinGavinQ
04-13 1302
本章主要内容：单元格，单元格对象常用操作，小结及练习。
excel单元格内容拆分_Excel分列解决不了的问题，VBA轻松搞定之拆分单元格
weixin_39918588的博客
11-18 1151
最近遇到一个小需求，如何将Excel单元格中的内容拆分到多行？下图中左边是原始数据，每位员工需要上班的日期，合并在一个单元格内，日期之间间隔一个空白符；现在需要拆分成表右边所示的样子，即将员工需要上班的日期拆分成一行行数据；传统的方法可以直接对班期列进行分列操作，再将分列所得数据一行行复制转置粘贴，步骤繁琐麻烦，这里用VBA处理，写好代码，一秒钟搞定，一劳永逸~话不多说，让我们看下处理效果：思路1...
VBA 单一单元格的多行内容拆分为多行
Delay_coder的博客
11-25 5212
多行拆分需求 假如一个单元格包含多行信息，比如说一些唯一的ID信息，我需要将该列的这些多行信息进行拆分，将其拆分为多行，其余列信息进行复制。例如如下图所示的示例。 可以看到，该Excel表格的A列每一行都有两行的数据，而我们的目的就是把这七行进行拆分为十四行，每一行包含单元格内单行的一条信息，其余列的文件进行复制，如下图所示。 解决方案 在这里提供一个可设定的解决方案，也是一个SUB子程序。源代码如下。 Sub SplitCopyValues() Dim arr As Variant D
VBA EXCEL 对象操作 - 新建工作表
热门推荐
navy2009的专栏
02-28 1万+
From  http://club.excelhome.net/forum.php?mod=viewthread&tid=470603&page=23#pid3118642 新建一个工作表（Worksheet)，要调用工作表(Worksheet对象）的Add方法（可以建制一个新建工作表的宏来查看相关的代码）。         如果我们想在当前工作表中新建一个工作表，代码可以
VBA编程秘籍：InputBox函数详解与对象基础
InputBox函数是VBA编程中的一个关键组件，它在Excel、Access等Microsoft Office应用程序中扮演着交互式数据输入的角色。该函数用于在用户界面上弹出一个对话框，让用户输入文本，然后将输入值作为字符串返回。具体...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值