vba

VBA代码拆分excel

忙活两小时，终于帮老姐实现了拆分工作excel的需求，记录下，说不定以后可以用到。。需求：一个excel文件工作簿可能包含多个工作表(比如sheetA，sheetB,sheetC),每个sheet里每一行都有一个地市字段，现需要根据地市拆分成不同的excel（每个excel包含sheetA，sheetB,sheetC，而且每个sheet里的记录都是同一个地市的）。代码如下：Sub复制表()Dimj
tsh18523266651·2020-09-11 21:35

excel中用宏拆分字符串

晚上有个朋友打电话问我可不可以给他做个小程序，要实现的功能比较简单，想把"xxx省xxx市xxx区(县)"这类的字符串拆分成省市区三段，由于原本数据就是在excel中存放的，想了想应该可以通过VBA来实现
洛晓·2020-09-11 21:28

vba实现分类汇总功能

OptionExplicitSubtest()DimshtAsWorksheet,rngAsRangeSetsht=ActiveSheetDimiAsInteger,indexAsInteger,subtotalAsDouble,dmAsVariantDimoldIndexAsInteger,oldSubtotalAsDoubleDimstartLineAsIntegerDimlastLineAs
qq_42678477·2020-09-11 21:24

VBA操作ACCESS

OptionCompareDatabaseOptionExplicitSubOpen_Ado_RS_Recordset()DimrsAsADODB.Recordset,kfml,kfrqSetrs=NewADODB.Recordsetrs.ActiveConnection=CurrentProject.Connectionrs.CursorType=adOpenKeysetrs.LockType=
qq_42678477·2020-09-11 21:23

VBA自定义类型示例

OptionExplicitTypecwTypexhAsIntegerxzAsStringcwAsStringslAsIntegerEndTypeSubtest()Debug.PrintGetChaoShiTable(ActiveSheet)EndSubFunctionGetChaoShiTable(sht)Dimi,cwArr()AscwType,count,j,tableContentcoun
qq_42678477·2020-09-11 21:23

vba二维数组排序及转为一维数组

OptionExplicitSubtest1()DimshtSetsht=ActiveSheetDebug.PrintGetDataXz(sht)EndSubFunctionGetDataXz(sht)Dimarr(1To8,1To2),i,j,temp1,temp2,content'小组Fori=1To8arr(i,1)="'"&sht.Cells(i+2,1)&"'"arr(i,2)=Roun
qq_42678477·2020-09-11 21:23

VBA代码实例---个人所得税计算

¤工资计算原理¤根据最新的个人所得税计算方法，其计算方法如下：应纳个人所得税=应纳所得税额×使用税率-速算扣除数¤代码实现公式¤使用selectcase语句，根据金额匹配税率和速算扣除数；¤代码示例¤OptionExplicitSub个人所得税()DimIncomeAsDoubleDimtaxRateAsDoubleDimdeductAsDoubleDimiAsIntegerFori=2ToRan
半个馒头·2020-09-11 21:42

VBA之字典和数组,控件综合使用

@[TOC]VBA学习1.VBA的字典定义和python一样都是键值对,键唯一在第一次创建字典时,要加入字典的.dll文件2.把sheet2里的AB列数据取出来作为数组的值,把其中的B列类别加入字典里最后把字典的键放入
amamiyayouko·2020-09-11 21:41

VBA代码实例---批量新建工作表模板升级版本

对上一篇博文进行补充：VBA代码实例---批量新建工作表模板¤升级内容¤新建了工作表之后，把新建的工作表，一个工作表新建到工作簿中，并以工作表的名称命名工作簿。
半个馒头·2020-09-11 21:10

VBA之连接各种数据库

1.连接各种数据库接口DimconnAsNewADODB.Connectionconn.Open“Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\data\Edata.xlsx;extendedproperties=”“excel12.0;HDR=YES”""conn.CloseACCESS文件conn.Open“Provider=Microsoft
amamiyayouko·2020-09-11 21:08

VBA之灵活的拆分表

有这样的需求,想把工作表中的D列,按照筛选部门拆分成一个个独立的工作表,新的工作表名就是部门的名字Subchaifenshuju()DimshtAsWorksheetDimk,i,jAsIntegerDimirowAsInteger'这个说的是一共多少行irow=Sheet1.Range(“a65536”).End(xlUp).Row'拆分表Fori=2Toirowk=0ForEachshtInS
amamiyayouko·2020-09-11 21:07

VBA之几个交互式对话框

1.Msgbox2.Inputbox3.GetOpenFilename4.Application.Dialogs5.深入理解
amamiyayouko·2020-09-11 21:07

VBA之合并多个表格的数据

有很多的工作表,如何把它们合并到sheet1里呢?代码如下Subhebing()Dimi,jAsInteger'i是数据源表的最后一行，j是目标表(数据表)的最后一行DimshtAsWorksheet'先要删除所有数据Sheet1.Range(“a1:f65536”).ClearContents'复制表头Sheet2.Range(“a1:f1”).CopySheet1.Range(“a1”)'复制
amamiyayouko·2020-09-11 21:07

VBA之dir函数综合使用

1.dir函数的有判断一个文件是否存在的功能,也可以使用通配符模糊匹配返回的是该文件的文件名Subtest()DimiAsIntegerFori=1To5IfDir(“d:\data”&Range(“a”&i)&".xls*)=“”ThenRange(“b”&i)=“无此文件”ElseRange(“b”&i)=“有文件”EndIfNextEndSub2.如果一个文件夹下有重名文件,dir函数会如何
amamiyayouko·2020-09-11 21:36

VBA之with语句用法

想对一个工作表进行同样的操作,每次都要加前缀subtest()sheet2.range(“a1”)=1sheet2.range(“b1”)=1sheet2.range(“c1”)=1sheet2.range(“d1”)=1endsub可以用with语句来简化,中间插入别的工作表的操作也不会影响他Subtest()WithSheet2.Range(“a1”)=1.range(“b1”)=1Sheet
amamiyayouko·2020-09-11 21:36

VBA : 将excel按照某一列拆分成多个文件

Sub保留表头拆分数据为若干新工作簿()Dimarr,dAsObject,k,t,i&,lc%,rngAsRange,c%c=Application.InputBox("请输入拆分列号",,4,,,,,1)Ifc=0ThenExitSubApplication.ScreenUpdating=FalseApplication.DisplayAlerts=Falsearr=[a1].CurrentRe
愤怒的小虾米vivian·2020-09-11 21:02

VBA拆分一个excel文件为多个excel文件

有时候时候需要将一个大的excel表格，拆分成多个文件，这里通过VBA提供一种方法步骤一打开VB编辑器步骤二插入模块步骤三复制代码到模块中步骤四运行代码Sub保留表头拆分以表头命名新工作簿()Dimarr
lumangnote·2020-09-11 21:00

excel 宏 把一个工作表按照某几个列拆分为多个工作表

前言step1进入excelvba编程界面step2粘贴代码step3运行代码step4删除宏代码前言这两天接触到excel比较多，才发现使用excel不仅仅是简单的复制粘贴。
菜鸟的梦想ff·2020-09-11 21:54

Excel拆分工作簿方法

如图，打开VBA插入模块：开发者工具》visualbasic》模块》插入模块输入下面的代码：Sub拆分多工作表()'将工作薄按工作表拆分成多个工作薄DimPATHAsStringPATH=Application.ActiveWorkbook.PATHDimshtAsWorksheetApplication.ScreenUpdating
Cool_noodles·2020-09-11 21:20

Excel如何拆分sheet（宏功能应用）

需要分别变成一个单独的Excel表格，复制粘贴不仅费时，还会出现格式等问题，通过Excel中的宏应用可以轻松搞定操作步骤：1、确认WPS版本支持宏功能（灰色为不可用）2、如WPS版本不支持宏功能可以下载vba
大数据-98k·2020-09-11 20:47

EXCEL用VBA代码拆分sheet为新EXCEL文件

新文件用sheet名命名，sheet为当前sheet名SubMacro1()DimshtAsWorksheetApplication.ScreenUpdating=FalseApplication.DisplayAlerts=FalseForEachshtInSheetssht.CopyActiveWorkbook.SaveAsFilename:=ThisWorkbook.Path&"\"&sht
helln.w·2020-09-11 20:16

Excel VBA 宏 拆分Excel表

问题：excel文件如下：numcharkey1a关键字11a关键字11a关键字11a关键字12b关键字22b关键字22b关键字22b关键字2按照关键字拆分成多个excle表（非sheet）关键字1.xlsnumcharkey1a关键字11a关键字11a关键字11a关键字1关键字2.xlsnumcharkey2b关键字22b关键字22b关键字22b关键字21.思路生成字典，保存相应分组对应的行数，
河杨·2020-09-11 20:16

vba拆分工作簿的工作表至多个独立工作簿

SubDetachWorkbook()OnErrorResumeNextDimpathStrAsString,iAsLong,activeWbAsStringWithApplication.FileDialog(msoFileDialogFolderPicker)If.ShowThenpathStr=.SelectedItems(1)ElseExitSubEndIfEndWithpathStr=p
qq_42678477·2020-09-11 20:16

如何将一个工作表按某一列拆分成多个工作表（支持指定多列），或多个工作簿（Sheet），或多个文件的绿色工具

使用这个在线工具，无需vba，不用复杂的透视表，地址：http://www.excelfb.com/,点击：（按指定列）拆分成多个表操作如下图：（如果是多列，例如A列和B列，在按第几列填入A，B用‘，’
loubo_001·2020-09-11 20:40

VBA代码实例---一个工作表拆分为N个工作表

这是一个常用而且经典的例子：根据内容，把一个工作表中的内容，拆分到N个工作表中，并根据内容命名新建的工作表。¤主要知识点¤1、影响代码执行闪屏以及提示框的处理：Application.ScreenUpdating=FalseApplication.DisplayAlerts=FalseApplication.DisplayAlerts=TrueApplication.ScreenUpdating=
半个馒头·2020-09-11 20:08

VBA之按照筛选条件拆分多表通用方法

在一个工作簿中,想对某一列做筛选,并且拆分到后面的工作表里,通用代码如下:Subchaifenshuju()DimshtAsWorksheetDimk,i,jAsIntegerDimirowAsInteger'这个说的是一共多少行DimlAsIntegerDimsht0AsWorksheetSetsht0=ActiveSheetl=InputBox(“请输入你要按哪列分”)'删除无意义的表Appl
amamiyayouko·2020-09-11 20:07

vbe6ext.olb不能被加载 office2016

解决方案电脑环境win764位，office2016首先找到你电脑中的VBA文件夹，大致有两种情况第一种是比较普遍的，大部分人电脑都是在C:\P
雨碎江南ldy·2020-09-11 20:10

VBA 从一个未打开的Excel文件中读取数据到，已打开的文件中.

PrivateSubCommandButton1_Click()SubCommandButton1_Click()CallMacro1EndSubPrivateSubCommandButton2_Click()SubCommandButton2_Click()''根据项目名称获取部门名'A8显示在B8中c3--c40DimxDisAsIntegerDimxNoAsIntegerDimstrProj
swfsunboy·2020-09-11 20:01

vue同个目录下使用import...from引入文件夹,使其下多个组件一起加载

这两天在看前任的后台管理系统,看到layout布局的时候,有点不是很明白,为什么他这里可以直接同时加载多个组件,即下面的一段代码,不是很理解是怎么实现的.就想着要不自己去单独写一个,看看是怎么实现的.import{Navbar
南有樛木。·2020-09-11 15:07

Android 自定义View画一条线

自定义View代码:publicclassNavBarBackgroundViewextendsView{privatePaintmPaint=newPaint();publicNavBarBackgroundView
在路上的大蜗牛·2020-09-11 15:24

关于脚本中使用nohup启动项目的问题

/usr/bin/envbash...省略...nohupjava$JAVA_OPTS$JAVA_MEM_OPTS$JAVA_DEBUG_OPTS$JAVA_JMX_OPTS-classpath$CONF_DIR
虾米吃螃蟹·2020-09-11 15:51

在SQL Server的WHERE子句中使用长于128个字符的字符串时，MS Access VBA错误3146

*Sigh**叹*Somedaytherewillbeprogress.总有一天会有进步。Nottodayapparently.今天显然不是。InAccess2003,whenyouwenttobuildaSQLstringforbuildingarecordset,aslongasitwassyntacticallycorrect,youwereOK(theupperlimitwas~64,00
cunchi8090·2020-09-11 14:03

(精华)2020年7月17日 vue vue-image-crop-upload头像上传

npminstallvue-image-crop-uploadnpminstall–save-devbabel-polyfill设置头像import'babel-polyfill';//es6shimimportmyUploadfrom'vue-image-crop-upload
愚公搬代码·2020-09-11 13:42

vue-image-crop-upload头像上传

npminstallvue-image-crop-uploadnpminstall–save-devbabel-polyfill设置头像import'babel-polyfill';//es6shimimportmyUploadfrom'vue-image-crop-upload
卡姿兰大长腿·2020-09-11 13:48

Excel按Sheet页拆分成多个.xlsx文件（宏）

文章目录1.右键点击Sheet页，选择“查看代码”2.粘入下面的代码3.在项目中点击VBAProject，然后运行宏如果运行宏报错4.测试这里使用的Office版本：MicrosoftExcel20191
一名小码农·2020-09-11 12:12

VBA 常用代码及自定义函数整理

文章目录1.自定义函数1.1去除空格1.2测试图片格式1.3获取打印机信息1.4GB/T8170修约1.5邮箱格式检查1.6汉字转拼音1.7列标签字母与列序号数值转换1.自定义函数1.1去除空格FunctionDStrim(KeyInstrAsString)DimnAs
一刀^••^·2020-09-11 12:31

整理总结 Python编程中时间日期类数据处理与类型转换(含 pandas)

——尤其当你本身不是程序员，但多少跟表格或数据打点交道时，pandas比excel的VBA简单优雅多了。
IT白鸽·2020-09-11 11:09

vba 创建txt文件 并且写入字符串

有的时候，我们在操作Excel的时候，最后常常需要输出一个记录的log，这样可以供后期追溯。主要使用CreateTextFile方法。PrivateSubCreateTxtFile()DimfsoAsObjectDimmyTxtAsObjectDimMyFNameAsStringDimiAsIntegerDimnowDateAsStringDimshtAsWorksheetnowDate=CDat
慕琦琦·2020-09-11 10:23

vba如何判断某个文件夹下是否存在某工作簿

某一个文件夹下存了许多文件，想知道某一文件是否存在，然后依据判断结果进行各样的操作。代码可以这么写：Subtest()DimfileNameAsStringfileName=ThisWorkbook.Path&"\机密文件.xlsx"IfLen(Dir(fileName))>0ThenDebug.Print"Yes"ElseDebug.Print"No"EndIfEndSub不过这样的代码只能判断
慕琦琦·2020-09-11 10:52

VBA Instr()函数 返回搜索到的字符位置 - VBA函数学习笔记（三）

不过Instr函数并非Excel内置的函数，因此，如果要使用Instr函数和Mid函数搭配，那就必须要使用VBA才行。
慕琦琦·2020-09-11 10:52

python tkinter 如何锁定窗体尺寸 防止用户调整尺寸 固定大小

另外之前自己做的一些Excel的界面工具看看是否可以用tinker作为界面载体调用VBA代码。这样或许比直接打开EXCEL操作要人性化一点。
慕琦琦·2020-09-11 10:52

VBA InStrRev()函数 返回搜索到的字符位置 - VBA函数学习笔记（四）

上一篇文章已经学习了Instr()函数，InStrRev()函数正好与Instr()函数相反，查找的方向是相反的。Instr()的查找方向是从左到右，而InStrRev()函数的方向是从右到左。语法InStrRev(string1,string2[,start,[compare]])参数●string1-必须的参数，要匹配的字符串；●string2-必须的参数，string2在string1中查询
慕琦琦·2020-09-11 10:52

VBA Trim()函数 去除头部和尾部的空格 - VBA函数学习笔记（二）

本期学习的函数是Trim()函数。要处理的字符串前面和后面都有讨厌的空格，必须要把他们去掉，每个单元格的内容才可以保持整齐。因此我们需要使用Trim()函数。语法Trim(String)参数String-必需的参数，需要Trim()函数处理的字符串。说明这个函数比较简单，只接受一个参数。Trim()函数只会去掉头部和尾部的空格，因此，如果字符串中间有空格，是无法被去掉的。使用Trim()函数来去掉
慕琦琦·2020-09-11 10:52

React Navigation 的使用基础部分（八）术语汇编

原文链接Header（导航栏）也称为navigationheader,navigationbar,navbar,或者其他。是界面上方的矩形区域，包含返回键和该页的标题。
小xuanxuan·2020-09-11 10:31

VBA中FIND方法的使用说明 以及默认参数的写法

如下函数很多参数，只想填写其中几个的时候用(参数:=xxx)形式填写Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)比如只想填What和LookAtSetc=Rows(1).Find(What:="AA",LookAt:=xlValues)下面文章转自http://
Uncle_higo·2020-09-11 10:11

Excel-VBA操作文件四大方法

https://www.cnblogs.com/top5/archive/2009/10/29/1591937.htmlExcel-VBA操作文件四大方法之一在我们日常使用Excel的时候，不仅会用到当前
Uncle_higo·2020-09-11 10:11

vba 导入 TXT 到 access

导入TXT，是需要导入规格的，而这个导入规格是怎么来的呢？其实很简单，请看以下图然后就选择高级~！！这个就是导入规格了！然后就这个规格另存为“XXX”，如“TXT_Upload”好了，这样，我们就是可以在VB上写代码了！SubuploadDoCmd.TransferTextacImportDelim,"TXT_Upload","表名","TXT文件的路径"EndSub如果，结合我博客的第一篇文章，
solosu00·2020-09-11 10:12

VBA中字符串的相关函数

目录trim()、lcase()、ucase()使用len()函数获得一个字符串长度使用left()mid(),right()截取字符串使用replace()把字符串中的某个字符替换成其它字符使用split()把字符串按某个字符分割instr运算符Like运算符使用string()进行填充trim()、lcase()、ucase()trim去掉字符串空格，lcase小写、ucase大写，都是直接加
qq7652401741·2020-09-11 09:49

C#.NET平台的AutoCAD二次开发

本文基于AutoCAD2006新推出的.NETAPI为工具，介绍了在.NET平台下对AutoCAD进行二次开发的技术，并与目前常用的VBA、ObjectARX作了对比。
phqm·2020-09-11 09:02

Excel中VBA编程学习笔记（十六）--Access数据库更新操作

【例1】使用Connection的Execute的方法数据库格式:Subtest()DimconString$,sqlString$Dimcnn,rstSetcnn=CreateObject("ADODB.Connection")Setrst=CreateObject("ADODB.Recordset")Dimi%,sex$,Address$,Name$,birthDay$conString="p
数据之道·2020-09-11 08:08
上一页 61 62 63 64 65 66 67 68 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他