VBA - 随笔分类 - myrj

EXCEL VBA 宏

摘要：Sub Lineups()Dim rng As RangeSet rng = Range("E2:E1501") Dim ac As RangeSet ac = Application.ActiveCell rng.Find(what:=ac).Selectac.Interior.Color = 6 阅读全文

posted @ 2023-02-22 15:46 myrj 阅读(102) 评论(0) 推荐(0)

EXCEL 宏收集

摘要：Sub CheckTableCells() Application.DisplayAlerts = False Dim sht As Worksheet Dim i, j As Integer For i = 1 To 284 If (Range("e" & i).Value = "") Then 阅读全文

posted @ 2023-02-18 08:08 myrj 阅读(56) 评论(0) 推荐(0)

STATA CFPS变量列表导出到EXCEL整理

摘要：Sub CheckTableCells() Application.DisplayAlerts = False Dim sht As Worksheet Dim i, j As Integer For i = 1 To 284 If (Range("e" & i).Value = "") Then 阅读全文

posted @ 2023-02-17 22:12 myrj 阅读(267) 评论(0) 推荐(0)

excel vba宏函数应用

摘要：=IF(ISNUMBER(FIND("经济学",M1)),1,0) 判断单元格m1中是否包含“经济学”，如果包含值为1，不包含值为0=IF(ISNUMBER(FIND("党员",N1)),1,0)判断单元格n1中是否包含“党员”，如果包含值为1，不包含值为0=IF(AND(S1=1,T1=0),1, 阅读全文

posted @ 2023-02-16 19:49 myrj 阅读(76) 评论(0) 推荐(0)

VBA：判断单元格内容是否为汉字

摘要：vba 判断单元格内容是否为汉字=if(lenb(d1)<>len(d1),1,0)1为汉字0不是汉字阅读全文

posted @ 2023-02-15 10:08 myrj 阅读(664) 评论(0) 推荐(0)

VBA:修改单元格的值删除行

摘要：Sub CheckTableCells() Application.DisplayAlerts = False Dim sht As Worksheet Dim i, j As Integer For i = 1 To 10000 If (Range("e" & i).Value = "") The 阅读全文

posted @ 2023-02-15 07:43 myrj 阅读(57) 评论(0) 推荐(0)

VBA工作薄引用方法

摘要：工作簿的引用方法引用不同的工作簿有如下的方法： 1、使用工作簿名称工作簿名称是指 Excel 文件的文件名，可以使用 Workbooks 集合引用方式来引用工作簿。 Sub test() MsgBox "名称为：" & Workbooks("1.xlsx").Path '显示路径，但是目前打开的名阅读全文

posted @ 2022-11-26 15:39 myrj 阅读(591) 评论(0) 推荐(0)

VBA 技巧二

摘要：Public Sub 技巧()'保存并关闭工作薄 Dim wb As Workbook Set wb = ThisWorkbook '可指定任意工作簿 wb.Close savechanges:=False Set wb = Nothing End Sub Public Sub 技巧()'查询指定工阅读全文

posted @ 2022-11-26 15:30 myrj 阅读(259) 评论(0) 推荐(0)

VBA 技巧一

摘要：Public Sub 技巧()#判断单元格是否有公式 Dim myRange As Range Set myRange = Range("A1") '指定任意单元格 If myRange.HasFormula = True Then MsgBox "单元格 " & myRange.Address & 阅读全文

posted @ 2022-11-25 17:25 myrj 阅读(165) 评论(0) 推荐(0)

VBA代码收集：基础操作

摘要：Public Sub 获取窗口状态() Dim myState As String myState = Application.WindowState If myState = xlMaximized Then MsgBox "Excel窗口最大化", vbInformation ElseIf my 阅读全文

posted @ 2022-11-24 20:59 myrj 阅读(238) 评论(0) 推荐(0)

VBA手工输入关键字在当前工作表中模糊查找，并将目标整行复制到另一工作表

摘要：Sub cha() Dim result As String, str1 As String Dim hang As String Dim hha As Integer hha = 0 Dim c As Range, rng As Range result = "航空" result = Appli 阅读全文

posted @ 2022-11-17 15:22 myrj 阅读(619) 评论(0) 推荐(0)

VBA分列

摘要：Sub fenlie() Dim dict1 As Object Set dict1 = CreateObject("scripting.dictionary") maxr1 = Range("d65536").End(xlUp).Row arr1 = Range("a1:a" & maxr1) F 阅读全文

posted @ 2022-11-17 13:04 myrj 阅读(308) 评论(0) 推荐(0)

VBA 确定工作表数据区域

摘要：在使用VBA编写程序时，有几种常用方法可以在工作表中查找包含已有数据的区域，但这些方法都多少存在一些局限。 Activesheet.Cells(1).CurrentRegion 如果已有数据区域中存在空行或空列，将无法获取正确的区域。 Activesheet.Cells(Activesheet.Ro 阅读全文

posted @ 2022-11-17 10:53 myrj 阅读(423) 评论(0) 推荐(0)

VAB excel FIND使用

摘要：求：多个表格内容相加公式：=PHONETIC(A2:A7) 说明：Phonetic函数只能对字符型内容合并，数字不可以。求：前三位公式：=LEFT(A2,LEN(A2)-8) 说明：LEN计算出总长度,LEFT从左边截总长度-8个操作示例求：-前边的文字公式:=LEFT(A2,FIND 阅读全文

posted @ 2022-11-17 07:02 myrj 阅读(149) 评论(0) 推荐(0)

VBA笔记

摘要：1、[A 65536] .End(xl Up) .Row 'A列末行向上第一个有值的行数2、[A 1] .End(xl Down) .Row 'A列首行向下第一个有值之行数3、[IV 1] End(xl To Lef) .Column '第一行末列向左第一列有数值之列数。阅读全文

posted @ 2022-11-11 14:19 myrj 阅读(64) 评论(0) 推荐(0)

VBA:全选全不选复选框

摘要：Sub qx() For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" Then '选中了 chk.Value = 1 End If If chk.Caption = "1.6" Then '选中了 chk.Value = 1 E 阅读全文

posted @ 2021-08-08 16:52 myrj 阅读(402) 评论(0) 推荐(0)

VBA:数组应用赋值

摘要：Sub jian() Dim xx As Double Dim ji As Double Dim b1 As String Dim arr(8) As Variant For xx = 255 To 0 Step -1 ji = xx b1 = DECtoBINa(ji) For a = 1 To 阅读全文

posted @ 2021-08-08 16:50 myrj 阅读(1118) 评论(0) 推荐(0)

VBA:移动文本框修改文本框背景颜色修改文本框中的文本

摘要：‘移动文本框Sub ydwbb(aa, xx, yy) ab = "TextBox " & aa With ActiveSheet.Shapes(ab) .Select .Left = xx .Top = yy End With End Sub’修改文本框背景颜色文本框文字内容 Sub yanse 阅读全文

posted @ 2021-08-08 16:42 myrj 阅读(1277) 评论(0) 推荐(0)

VBA:判断复选框的选择状态 chk.value<>1未选择状态 chk.value=1选择状态

摘要：For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" And chk.Value = 1 Then '选中了 chk.Value = 0 ElseIf chk.Caption = "1.7" And chk.Value <> 1 阅读全文

posted @ 2021-08-08 16:37 myrj 阅读(974) 评论(0) 推荐(0)

VBA:根据复选框的提示字符确认，并修改复选框的选择状态 chk.value=0取消 chk.value=1选择

摘要：For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.6" Then '选中了 chk.Value = 0 End If If 阅读全文

posted @ 2021-08-08 16:33 myrj 阅读(349) 评论(0) 推荐(0)

myrj

随笔分类 - VBA

公告