一 VBA 与对象1.1 VBA 基础application 就是 VBA里的 Aapplication 就是 EXCEL程序，VBA寄生的这个宿主工具，估计也可能是WORK,PPT等EXCEL程序下，可能开启很多EXCEL工程（多个EXCEL表）1.2 Application 即 excel ， excel 就是 VBA的最大对象集合EXCELwordPPT1.3 什么是
Sub 产品图片导出重新对应命名()
Dim Ad$, FileName$, sfolder$, Shp As Shape, FSO
Application.ScreenUpdating = False
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
转载
2023-06-27 21:59:20
206阅读
为什么使用数组？1. 缩减工作薄文件大小，提高运行效率一般而言只是使用 Excel 的内置工作表函数，在运算方面还是很高效的，但有时因为一个单元格牵扯的计算太多，比如调用多单元格数据，对结果文本进行部分替换，按照优先级和条件判断来确定不同的返回结果，这都会造成一个单元格的公式文本过长，当以此单元格为基础进行数千行的相对引用填充时，必然会导入工作薄快速的膨胀；如果因为某些复杂的处理，而
最近一直在研究VBA，写报表的工作。将所得的知识，经验总结一下，与大家分享。工具篇，VBA1.EXCEL一个最好用的功能就是录制宏，当一个函数拿不准要怎么写，用什么函数表示的时候，录制就帮了大忙了。2.VBA相对于录制的宏，可以更精确，更聪明，逻辑更清晰，执行也更有效。特别是它的循环和递归，直接解放了人的双手。3.VBA的基本操作（1）定位：基本单位：sheets(页)，Rows(行），Colum
转载
2024-08-26 14:24:00
534阅读
大家好，今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录，来源于我多年的经验。今日分享的是NO.225-NO.226，内容是：NO. 225：数组的赋值和回填工作表NO. 226：将数组的值批量回填给工作表的办法 VBA过程代码225：数组的赋值和回填工作表Sub Mynz ()'创建数组，并赋值Dim arr(1 To 60000), i As
转载
2024-05-10 16:49:30
144阅读
## 实现“vba mysql rs 遍历 记录”的步骤
### 整体流程
```mermaid
journey
title Implement "vba mysql rs loop record"
section Start
开始
section Step1
Step1: 连接到MySQL数据库
section Step2
原创
2024-05-30 05:29:35
104阅读
DLL文件制作与在VBA调用初级进阶
作者：ldhyob 本文用一简例来演示如何将一正常在vba中运行的代码移植到VB制作的DLL中去，并介绍如何在vba中进行调用。这仅仅是最初级的介绍，希望能对此内容想了解的版友们一些帮助，而已掌握该技术的FANS们完全可以跳过本文。先来了解一下什么是DLL：DLL是Dynamic Link Library的缩写，意为动态链接库。在Windows中，许多应用
转载
2024-08-19 10:18:47
60阅读
本文基于以下文件http://pan.baidu.com/s/1nvJtsu9（部分）内容预览：1. 边框样式Sub cell_format()
Dim sht As Worksheet
Dim rng As Range
Set sht = Worksheets("Parameter")
Set rng = sht.Range("B2:C20")
转载
2024-03-24 14:45:24
427阅读
大家好,我们今日继续讲解VBA数据库解决方案的第27讲内容：利用VBA，把数据表中特殊的记录删除的方法。这讲的内容比较简单，在理解和掌握了前几讲内容的基础上很容易掌握。为什么要提出这讲的课题呢？其实，我们在实际的工作中有各式各样的问题会遇到，我只能尽可能多的给大家多举些实例来说明。今天的话题是，在数据库员工信息的数据表中有些人的记录是要删除的，因为这些人退休了啊，而退休的条件又是比较
转载
2024-04-22 20:10:25
197阅读
1 VBA和EXCEL使用符号常数有语法差别1.1 语法差别比如EXCEL里使用char(10)VBA中只能写成 chr(10)VBA的语法错误，VBE没有把第1个首字母大写就应该看出来 char(13) 是错误的 1.2 举例： chr(32) 类空格MsgBox "hello" & Chr(32) & "world" &
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
周俊敏
转载
2023-12-27 13:28:32
100阅读
保留Ole控件对象，删除其他所有
Private Sub CommandButton3_Click()
Dim shp As Object
For Each shp In ActiveSheet.Shapes
If shp.Type = msoOLEControlObject Then
Else
shp.Delete
End If
Next shp
End Sub
转载
2012-07-24 08:14:10
2781阅读
Dim s$, fNm$ '定义公共变量：关键词s和文件名结果fNm Sub FindFile() Dim Arr, i&, pth$, ML, MT, MW, MH, shp Arr = [a1].CurrentRegion With Cells(2, 2) MW = .Width MH = .H ...
转载
2021-07-21 10:51:00
258阅读
2评论
一、增加数据记录： rs.AddNew '增加一个新行（记录） rs.fields(0)=... '各个字段赋值 ...... rs.Update &
转载
2024-04-19 14:25:33
1908阅读
mSwipeListView.setOnScrollListener(new OnScrollListener() { @Overridepublic void onScrollStateChanged(AbsListView arg0, int arg1) { // TODO 自动生成的方法存根 if (arg1 == OnScrollListener....
原创
2022-03-08 13:41:39
138阅读
1 "use strict";
2
3 var __emptyPoint = null, __emptyContext = null, __emptyPointA = null;
4
5 const ColorRefTable = {
6 "aliceblue": "#f0f8ff",
7 "antiquewhite": "#faebd7",
转载
2023-08-16 11:10:24
43阅读
日常开发中，经常会针对默写数据表进行增删改查。每次都要单独处理，费时费力，考虑通过一个窗体进行封装。（借鉴当时接触的某家公司的套路）外围在调用时，传入sql字符串，展示字符串，然后 被调用窗体根据传入的信息进行排版展示。同时通过设置 增删改查标志，提供增删改查的关联操作。Public m_Sql As String
Public m_lbls As String
Public m_View As
转载
2024-05-02 15:01:34
699阅读
我们先来看看SetWindowPos函数的定义和参数： 使用API函数之前必须先在程序中声明如下： Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx A
转载
2024-04-19 07:40:30
426阅读
1 本地取其他EXCEL的表名，很简单1.1 下面2种写法都是可以的Sub williamDing1()
k = 1
For i = 1 To Worksheets.Count
Worksheets("统计").Cells(k, 1) = Worksheets(i).Name
k = k + 1
Next
End Sub
Sub williamDing2()
j = 1
For
在页面布局中，常常会用到九宫格布局，如下图所示：本次我们就以九宫格为基础进行图片的布局操作，首先我们以上面的图片的为例，假设每个格子的大小都相同，将每一个格子相对其父元素进行定位，这样，我们只需要控制每个格子的left和top属性，就可以控制图片的位置了，例如上面序号为4的格子，其left属性值就是每个格子一倍的宽度值，top属性值就是每个格子的一倍高度值，以此为基础，我们将实现下面的效果：通过用
转载
2024-01-03 10:13:47
341阅读
