|
|
别怕，Excel VBA其实很简单（书籍）
10年职场:专研Excel、VBA、函数公式、办公自动化
试运行了下你的代码，主要存在问题如下： 这一段，理解你的意思应该是，想对Sheets("sheet1")第9列的单元格里的每个字符进行判断，然后再做字体格式的修改，修改字符和长度，都来源于sheets("sheet2")第2列的字符。 For Each rng In Sheets("sheet1").Cells(i, 9) T = Sheets("sheet2").Cells(j, 2).Value k = 1 If InStr(k, rng, T) > 0 Or InStr(k, T, rng) > 0 Then rng.Characters(InStr(k, rng, T), Len(T)).Font.ColorInde…
10年职场:专研Excel、VBA、函数公式、办公自动化
instr函数报错，里面的参数用了a、b都是数组，改成文本就没问题了，代码里的a、b采用数组没起到作用，直接改成文本就行，代码修改如下： Private Sub CommandButton4_Click() Dim a As Variant Dim b As Variant Dim k As String Dim j As Integer Dim p As String Dim n As String Dim i As Integer Dim m As String For i = 1 To Sheet1.Cells(Rows.Count, "I").End(xlUp).Row For j = 1 To Sheet2.Cells(Rows.Count, "a").End…
VBA编程：项目Spec相关内容的批量处理
SAS Programmer，每天喝茶，公众号：SAS茶谈。
在临床试验项目中，SDTM、ADaM的SPEC一般保存在EXCEL文档中。SPEC的创建和维护，有许多 规则明确、机械重复的步骤。对于这些内容，如果能实现自动化批量处理，将会大大缩短工作时间、提高工作效率。这篇文章，会展示3个使用VBA编程对EXCEL Spec进行批量处理的示例： 在每张Sheet中批量添加Analysis列名不同版本Spec的变量更新标记不同版本Spec的相同变量的内容提取文章内容以介绍 VBA程序思路、分享代码为主，不会聚焦具体语法细…
热爱生活热爱健身的java程序员
在 VBA 中，可以使用 Application.CutCopyMode 属性来禁止特定行或列的复制粘贴操作。具体实现方法如下：禁止复制特定行：使用 Application.CutCopyMode = False 将 CutCopyMode 属性设置为 False 即可禁止复制操作。以下示例代码禁止第 5 行的复制操作：vbCopy code Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 5 Then Application.CutCopyMode = False End If End Sub 禁止粘贴特定列：使…
高效办公 Access VBA, VX：zstmtony
一、获取文件修改日期： 如果是获取文件修改日期可以直接使用VBA内置的FileDateTime，这样最快最简单 ？FileDateTime(strFileName) 二、获取文件创建日期和其它日期 这个就要用到FSO这个对象了，它可取到以下属性 1）DateCreated 属性 返回指定文件或文件夹的创建日期和时间。 2）DateLastModified属性 返回最后一次修改指定文件或文件夹的日期和时间 3）DateLastAccessed属性 返回最后一次访问指定文件或文件夹的日期和时间 [图片] 三、…
VBA数据库解决方案之前言
社会的进步，源于社会对知识的尊重和敬仰。
【分享成果，随喜正能量】做任何事情需要耐心、多观察自己的发心，不要凑合的心态做事，比如做一顿饭，如果你发心做最好吃的饭就会很用心去做，味道一定很棒，如果你发心做一顿凑合能吃的，那饭菜味道也可想而知；还有的人总爱把事情往坏处想，明明不存在的事在那不停地想象，那结果只会烦恼，要知道心的力量很大，应积极向上。 。 《VBA数据库解决方案》教程（10090845）是我推出的第二套教程，目前已经是第二版修订了。这套…
提供翻译、快递查询、网页抓取、正则表达式等公式或自动化工具
用VBA写爬虫，不管是在Excel表格还是WPS表格都不是一件容易的事情，或者说难度比较大，而且不一定稳定。 用VBA行不通，是不是就没有办法了呢？ 这里，我推荐使用Excel网络函数库的网页抓取公式，写公式爬数据。 GetWebContentById(Url, Element_id, [Encoding], [Method], [Headers])。根据网页元素id查找指定网页Url中的数据。Encoding指网页编码，默认GB2312；Method指访问类型包括GET或POST两种方式，默认GET方式；Headers指…
VBA 当前光标所在的行列
程序猿/攻城狮/架狗狮/码畜/咖啡控
当前光标所在的行列 ActiveSheet.Rows.Range("A1") = Application.ActiveCell.Row ActiveSheet.Rows.Range("B1") = Application.ActiveCell.Column 选择数据区 ActiveSheet.UsedRange.Select Sub Sample01() Worksheets("Sheet1").UsedRange.Select End Sub返回工作表中已使用区域的行数或列数 Activesheet.UsedRange.Rows.count 返回当前工作表中已使用单元格区域的行数。 Activesheet.UsedRange.Columns.count返回当前工作表中…
专门分享数据分析干货技能
要在Excel VBA中访问公司的数据库，你需要通过ADO（ActiveX Data Objects）来实现。 例如对于MYSQL数据库，以下是一个简单的VBA代码示例： Sub ConnectToMySQL() '定义变量 Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset '建立连接 Set Conn = New ADODB.Connection Conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=server_name;DATABASE=db_name;UID=user_name;PWD=password;PORT=port_num…