一位VBA和JSA、书法爱好者

一、使用ProgressBar控件制作Private Sub UserForm_Activate() Dim i As Integer With Me.ProgressBar1 .Min = 1 .Max = 10000 .Scrolling = 0 '设置进行条的显示是连续的还是隔断的 For i ...

数据图如所示首先找到我们的TreeView控件插入然后键入如下代码Private Sub UserForm_Initialize() Dim i As Integer Dim j As Integer Dim arr arr = Sheet3.Range("b3").CurrentRegion With Me.TreeView1 ...

ListView控件基本操作一、找到ListView控件二、Listview控件显示数据一、找到ListView控件工具——附加控件——Microsoft ListView Control。二、Listview控件显示数据首先我们插入一个ListView控件，如图所示。数据如图所示然后再对应事件中插入如下代码Private Sub UserForm_Initializ...

首先我们需要在VBE窗口工具栏下找到我们所需要的控件MonthView。然后画出如下窗体在Monthview控件对应事件中写入如下代码Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Dim i As Integer Dim arr() ListBox1.Clear arr = Ran...

首先我们找到开发工具栏下的ActiveX控件——其他控件，如图所示。然后找到我们需要的控件最后用代码控制DTP控件的位置和输入。Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Me.DTPicker1 If Target.Address = Range("a2").Address ...

现在我们有两列数据如图所示需要通过窗体做成如下效果首先呢，我们画一个类似图中的两个复合框在UserForm_Initialize事件中键入如下代码Private Sub UserForm_Initialize() Dim i As Long, j As Long Dim col As New Collection Dim rng As Range ...

一、允许多项选择代码如下Private Sub UserForm_Initialize() arr = Sheets("产品表").Range("a1").CurrentRegion With ListBox1 '设置列表框属性 .List = arr .MultiSelect = fmMultiSelectExtended ...

在自学应用10我们已经讲过了如何给列表框添加元素，今天我们就来看看如何移动列表框的元素并且数据源的位置也随之变动。首先我们用listbox的list属性添加元素，这里自学应用10已经提过，不再做赘述如图是我的窗体部分在上移按钮中键入如下代码Private Sub CommandButton1_Click() With ListBox1 j = .ListI...

给组合框或列表框添加元素一、RowSource属性添加元素二、为工作表中的ActiveX控件中的列表框添加元素三、使用list属性添加元素四、使用additem方法添加列表项五、列表框的其他属性一、RowSource属性添加元素Private Sub UserForm_Initialize() Dim i As Long i = Sheet5.Cells(Rows.Count,...

不知道大家还记不记得很多商铺前都挂了电子荧幕，用来显示游走字幕——“本店今推出特价商品咸鱼excel、麻辣ppt”，今天就让我们自己用excel来制作这样的游走字幕，方法如下按ALT+F11打开vbe窗口，选择插入→用户窗体在用户窗体上添加frame控件，通过属性窗口设置backcolor为你喜欢的颜色,borderstyle为0,caption=""-添加label控件，设置backs...

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With TextBox1 If Len(Trim(TextBox1.Text)) > 0 Then If KeyCode = vbKeyReturn Then...

代码如下Private Sub TextBox1_Change() Dim i As Integer Dim strs As String Dim reg As Object, reg1 As Object Set reg = CreateObject("vbscript.regexp") With reg .Global = True ...

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _ByVal szFileName As String, ByVal dwReserved As Long, _ByVal lpfn...

平时我们工作表太多了，想给他建立一个目录吗，该怎么做到呢？这里我以自己常用的为例。如图我有很多日期的工作表，现在我要把它做成下面的效果这里注意：我是以每个工作表第一列作为工作表目录的名称，所以在每个工作表第一列的的字段都会列入"目录"工作表代码如下：Sub 刷新() Application.ScreenUpdating = False Dim sht As Work...

今日表格中有很多图片，老板要我把图片全部保存到一个文件夹下。这点小事岂能难倒我？于是我打开Excel表格，拉到了最后面我勒个擦，有一千多个。没事，我还有VBA秘籍！具体情况如图所示于是我默默打开了VBE编辑器，输入了如下代码：Private Sub CommandButton1_Click()'注意，如果存在重名的，那么就会把原来的给覆盖 With Application.F...

平时我们工作中会遇到要将一个工作表的数据拆分成若干个工作簿的要求。我辈中人当然是一个个“复制粘贴”啦，那么该如何将类似下图的数据按照要求拆分成工作簿呢？要求：1、数据只有2018年的数据，以下单时间为准；2、一个客户一个文件，以客户代码为准；3、要求保存为：客户代码-客户名称.xlsx。代码如下Sub 拆分表格() '客户代码 9 '客户名称 10 App...

现如今有两张表，一张产品表，一张录入表，如图所示。如今我们要做出如下效果：

现在有两列这样的数据，我们要将它做成如下效果我们该如何做到呢？请见如下代码Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Columns("C:D")) Is Nothing Then Exit Sub Dim d As Object Dim arr,...