复制粘贴走天下-CSDN博客

原创 VBA Mid()函数截取字符串 - VBA函数学习笔记（一）

本期介绍的是VBA中的Mid函数。Mid()函数是截取字符串用的，比如“ABCDEF”字符串，我们想截取前面一部分，变成“ABCD”，那我们就需要Mid()函数，摘取网路上的书面解释，Mid()的释义如下：Mid()函数返回给定输入字符串中指定数量的字符。语法Mid(String, Start [,Length])参数String - 必需的参数。需要Mid处理哪个字符...

2019-08-21 22:48:19 70633 1

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

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

2019-08-31 15:51:53 10424

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

Instr函数是十分实用的，它可以查询某个字符串在另一个字符串中是否出现，并且返回该查询字符串最先出现的索引位置。Instr函数常常与Mid函数一起使用，会有非常好用的效果。不过Instr函数并非Excel内置的函数，因此，如果要使用Instr函数和Mid函数搭配，那就必须要使用VBA才行。语法InStr([start,] string1, string2 [,compare])参数...

2019-08-26 23:33:26 15356

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

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

2019-08-22 23:20:58 24685

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

某一个文件夹下存了许多文件，想知道某一文件是否存在，然后依据判断结果进行各样的操作。代码可以这么写：Sub test() Dim fileName As String fileName = ThisWorkbook.Path & "\机密文件.xlsx" If Len(Dir(fileName)) > 0 Then Debug.Print "Yes" E...

2019-08-21 22:18:02 4426

原创 option button的分组在多个option button中如何只能选择一个 vba控件

如何给option button分组，使得用户在选择是或者否的时候，可以二选一或者三选一，而且各个选项之间互不干扰呢。方法非常简单，只要使用groupname设置一下分组就可以了。这里设置一下分组后，同个分组的option button就只能选择一个了，非常方便。GroupName可以是数字也可以是英文，大家可以酌情取名。...

2019-08-06 22:13:21 4370

原创 vba 实现类似writeLine类似的功能

假设我们单元格里是这样的内容，我们需要根据这个单元格的内容，输出一行一行类似这样：下面的代码就是实现这个功能的Option Explicit' tarStr-需要解析的字符串' startOne-默认取1，表示这个字符串从第1个开始解析Private Function SplitString(ByVal tarStr As String, ByVal sta...

2019-04-29 22:06:45 1100

原创 vba中如何使用函数counta

COUNTA是excel中统计非空单元格的函数，有的时候我们在写vba代码的时候也非常需要这个函数。下面记录一下如何使用。Option ExplicitSub test() Dim i As Long Dim j As Long Dim sht_name As String Dim rng As Range Dim wb As Workbook sht_...

2019-04-24 23:08:54 12532

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

初学python，选择从GUI来入手。一来感觉Hello World有了载体和交互更加有趣。后来满足自己做windowns小工具的初衷。另外之前自己做的一些Excel的界面工具看看是否可以用tinker作为界面载体调用VBA代码。这样或许比直接打开EXCEL操作要人性化一点。import tkinter as tkwindow = tk.Tk()window.title('my wi...

2019-03-06 23:10:22 23046 1

原创 vba 选中所有区域但是不包括首行

当我们使用VBA将一个工作簿中的所有sheet内容，汇总到一个sheet中时，我们需要复制每个sheet中除首行之外的单元格，然后复制到对应位置。因此，选中所有单元格然后取出首行就显得比较必要。下面是操作的代码，大家可以参考一下。Option ExplicitSub main() Dim rng As Range Set rng = CurrentRegionButFirs...

2019-02-09 22:14:18 4258

原创 vba 引用Sheet的几种方法

今天来记录一下如何引用Sheet如果所有的操作都是在当前的Sheet完成的话，是不需要引用Sheet的。举个例子，当前有Sheet1和Sheet2两个Sheet，假设当前选中的是Sheet2，我们输入：Range("A1") = "Hello World"，那这两个Sheet中，哪个单元格会被赋值为Hello World呢。答案是Sheet2单元格。当单元格前没有Sheet...

2019-02-09 16:12:53 35490

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

有的时候，我们在操作Excel的时候，最后常常需要输出一个记录的log，这样可以供后期追溯。主要使用CreateTextFile方法。Private Sub CreateTxtFile() Dim fso As Object Dim myTxt As Object Dim MyFName As String Dim i As Integer Dim nowDate...

2019-02-08 18:25:26 17962 2

原创 excel 批量合并多个sheet的数据

Sub Run() Dim tar_wb As Workbook Set tar_wb = CreateWorkbook Call MergeContent(tar_wb)End Sub'函数名: CreateWorkbook'接受参数：无'返回值：Workbook（返回创建的Workbook）'说明：创建一个Excel文件，存放合并的数据Private Functio...

2019-02-06 20:00:21 6348

原创 vba dir 判断文件是否存在

我们主要使用VBA中的Dir方法来判断文件是否存在。Dir函数返回的是文件名、目录名或文件夹名称。这里还使用了Len方法判断Dir是否返回了结果。如果Dir返回的值长度为0，则Dir没有返回文件名。Sub Run() Dim filePath As String filePath = "C:\Users\Administrator\Desktop\Merge_Sheet\...

2019-02-06 17:01:23 5683

慕琦琦的博客