=IF(COUNTIF(B:B,A1)>0,A1,"")
公式说明：B列的数据中如果含有A1，显示A1单元格内容，否则显示空白。
-------a列，填写内容的最后一行
endRow = Sheet24.Range("a65536").End(xlUp).Row
----取sheet最后一行，包括格式，
Sheet1.UsedRange.Rows.Count
-----弹出窗口
MsgBox shtMessage.Range("B5").Value, vbExclamation
-
vba 常用函数
2017-07-25 15:31:00=IF(COUNTIF(B:B,A1)>0,A1,"") 公式说明：B列的数据中如果含有A1，显示A1单元格...endRow = Sheet24.Range("a65536").End(xlUp).Row ----取sheet最后一行，包括格式， Sheet1.UsedRange.Rows.Count -----弹出...展开全文转载于:https://www.cnblogs.com/cancelbug/p/7234413.html
-
VBA函数
2017-04-06 17:11:03自定义函数VBA 输出相同函数： 按alt+f11 右键新建一个模块 查找相同 Function 查找相同(rg1 As Range, rg2 As Range) For i = 1 To Len(rg1.Value) If InStr(rg2, Mid(rg1.Value, i, 1)) ...展开全文自定义函数VBA
输出相同函数：
按alt+f11 右键新建一个模块
查找相同
Function 查找相同(rg1 As Range, rg2 As Range)
For i = 1 To Len(rg1.Value)
If InStr(rg2, Mid(rg1.Value, i, 1)) > 0 Then
a = a & Mid(rg1, i, 1)
End If
Next
查找相同 = a
End Function
判断是否一致：
=IF(OR(ISERROR(FIND(A1,B1,1)),ISERROR(FIND(B1,A1,1))),"一样","不一样")
=IF(OR(ISNUMBER(FIND(A1,B1,1)),ISNUMBER(FIND(B1,A1,1))),"一样","不一样")
FIND(A1,B1,1)左边是否包含右边
FIND(B1,A1,1)右边是否左边
ISNUMBER(FIND(A1,B1,1)
提取第一个汉字及其之后的所有内容:
1.数组公式：=MID(A2,MATCH(1=1,LENB(MID(A2,ROW($1:$25),1))=2,),25)
使用组合键Ctrl+Shrift+Enter
2.VBA函数：
Sub CommandButton1_Click()
Dim arr, brr(), str$, mr%
mr =Range("a65536").End(xlUp).Row
arr = Range("a2:a" &mr)
ReDim brr(1 To UBound(arr))
For i = 1 To UBound(arr)
For j = 1 To Len(arr(i, 1))
str = Mid(arr(i, 1), j,1)
If VBA.Asc(str) < 0Then
brr(i) = Mid(arr(i, 1), j,Len(arr(i, 1)))
Exit For
End If
Next j
Next i
Range("e2:e" &mr).ClearContents
Range("e2").Resize(UBound(brr), 1) =Application.Transpose(brr)
End Sub
-
VBA自定义函数-Minkowski距离
2019-11-17 13:35:14接触VBA第一天，写了个闵可夫斯基距离 当r=1时，距离为曼哈顿距离 当r=2时，距离为欧几里得距离距离（直线...Public Function distance(a As Range, b As Range, Optional r As Integer = 2) Dim i As Integer ...展开全文接触VBA第一天，写了个闵可夫斯基距离
当r=1时，距离为曼哈顿距离当r=2时，距离为欧几里得距离距离（直线距离）
当r→∞时，距离为切比雪夫距离
根据闵可夫斯基距离距离公式，在VBA写出以下代码
Public Function distance(a As Range, b As Range, Optional r As Integer = 2) Dim i As Integer '为支持横向数组和纵向数组的距离计算，数组长度设为“行长度和列长度两者中较大的数值” If a.Rows.Count > a.Columns.Count Then i = a.Rows.Count Else i = a.Columns.Count End If Dim j As Single j = 0 Dim k As Integer If r = 1 Then '当r=1时，距离为 For k = 1 To i j = j + Abs(a(k) - b(k)) Next k ElseIf r = 999 Then '当r→∞时（这里用999表示），距离为 Dim t As Single For k = 1 To i t = 0 t = Abs(a(k) - b(k)) If t > j Then j = t End If Next k ElseIf r = 2 Then '当r=2时，距离为 For k = 1 To i j = j + (a(k) - b(k)) ^ 2 Next k j = Sqr(j) End If distance = j End Function由于设置了支持横向数组和纵向数组，所以横竖数组都能运用此函数，
函数和其参数为: distance(a, b, r) 其中a和b类型为范围（即a,b两点的坐标），r的类型为整数(选择范围为1, 2, 999)，下面看个例子
有一说一，感觉在VBA里写Minkowski距离实际用处不太大
-
VBA Find函数的常见用法
2018-05-04 21:47:26学习杨老师的全民一起vba课程内容整理：Find语法： Range.Find(What,After,LookIn，LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)（）What：唯一一个必选参数，含义为需要查询的内容，...展开全文学习杨老师的全民一起vba课程内容整理：
Find语法：
Range.Find(What,After,LookIn，LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)（）
What：唯一一个必选参数，含义为需要查询的内容，特点为变体类型，可以接受数字，字符串，日期等数据类型
此外，该参数可以接受通配符。
常用通配符
？一个任意字符，比如？a？可以表示bac aaa等
！任意多个任意字符（包括0个），比如*a*可以表示123aadd23， ade，a等
MatchCase: 是否匹配大小写字母，True-大小写视作不同，False-大小写视作相同
LookAt：匹配单元格，取值：1代表单元格的内容必须与欲查找内容长度相同，不能多出字符
2单元格的内容只需包含欲查找的字符串即可
SearchFormat：是否按照格式查找 true是，false否
其他参数因为不常用就不一一介绍啦
-
vba 窗体单选框怎么传回sub_EXCEL表格VBA中函数的日常使用
2020-12-11 13:19:28在日常工作中，Excel里面很多函数我们都用过，那在VBA中该怎么使用函数达到你的目的呢？以上图为例，一、用VBA在F2中计算金额，如果使用公式，那很简单，直接在F2中输入：=B2*C2在VBA中表达如下：Sub 普通公式()... -
excel vba自定义函数集合操作
2017-11-20 12:51:26[code="js"] 方式功能：某个范围的数然后...Function isinrange(quyu As Range, xiao As Integer, da As Integer) As String Dim flag As Boolean flag = False For i = xiao To da For Each ... -
vba replace函数_「学点VBA」让电脑帮你把乘法口诀读出来
2020-12-14 16:44:43之前的一篇我们讲到如何用VBA制作出一个乘法口诀表，然后有小伙伴提建议，如何把它读出来呢？先把代码发出来。第1、2、6行代码给定格式最开始的Sub和最后的End Sub就没什么好说的咯，第二行的Dim rg As Range，声明... -
如何将下面的VBA函数改为C#，C#如何定义Excel的Range类型？
2021-03-23 12:39:39如何将下面的VBA函数改为C#，C#如何定义Excel的Range类型？多谢！ <code>Function TheCell(RowNumber As Integer, Optional ColumnName As String = "A") As Range Set TheCell &#... -
VBA自定义函数一例
2010-10-13 15:52:00可以在单元格通过输入=FindRow(D1,A1:A12)来使用 功能：返回content在target中所在...Function FindRow(content, target As Range) Dim sindex As Integer, eindex As Integer, colindex As Integer sindex... -
c++ 双引号中加入变量_EXCEL表格VBA中函数的日常使用
2021-01-16 18:38:07在日常工作中，Excel里面很多函数我们都用过，那在VBA中该怎么使用函数达到你的目的呢？以上图为例，一、用VBA在F2中计算金额，如果使用公式，那很简单，直接在F2中输入：=B2*C2在VBA中表达如下：Sub 普通公式()... -
VBA 自定义函数返回find查找的符合条件集合 demo
2019-05-11 11:02:36Sub t1() Dim fNum As Collection ...numStr = "全民VBA" Set fNum = findNum(numStr) For Each num In fNum Range(num).Interior.ColorIndex = 0 Next num End Sub Function findNum... -
VBA函数 find
2019-06-11 15:30:00Range.Find 方法 (Excel) 在区域中查找特定信息。 语法 表达式.Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat) expression 一个表示 Range 对象的变量... -
vba的if条件函数和range用法超详细介绍
2020-07-08 09:18:15Range的用法： 下面是常见的比较基础的range的用法，想要学习更多用法可自行查资料或者私信我！ 1.选择A1单元格，不做任何操作 SubrangeTest() Range("a1").SelectEndSub 2.选择A1单元格，并且赋值“I am a1” ... -
【Excel VBA】在VBA中调用函数
2019-03-23 11:10:15EXCEL的表函数也可以直接在VBA中直接调用执行，具体调用格式如下： 调用方法1：变量对象= Application.WorksheetFunction.表函数（表函数参数） 实例：Range("d8") = Application.WorksheetFunction.CountIf(Range... -
我整理的VBA 自定义函数大全 共138页
2008-11-21 16:14:036.按SplitType取得RangeName串值中的起始位置 7.将金额数字转成中文大写 8.计算某种税金 9.人民币大、小写转换 10.查汉字区位码 11.把公元年转为农历 12.返回指定列数的列标 13.用指定字符替换某字符 14.从右边开始... -
取单元格红色字体的VBA自定义函数
2010-03-02 22:23:00Function GetColorChar(Rng As Range) Application.Volatile True Dim i%, str$ For i = 1 To Len(Rng) If Rng.Characters(i, 1).Font.Color = 255 Then str = str & Mid(Rng. -
xssfdataformat 设置单元格式为数值_VBA常用函数——单元格常用格式设置1
2020-12-11 13:30:10Part 1：字体设置Sub test1() Set sht1 = ThisWorkbook.Worksheets("示例") Set cell1 = sht1.Range("A1") Set cell2 = sht1.Range("A2") '设置字体，大小，是否加粗，字体的颜色，对齐方式 cell1.Font.Name = "黑体... -
excel vba 调用webbrowser_VBA 公式与函数
2020-11-25 10:07:58一, 在单元格中输入公式的3种方法:1) 用VBA在单元格中输入普通公式Sub formula_1() Range("d2") = ("=B2 * C2") End Sub运行程序后,在D2的单元格内显示的是公式 =B2 * C2 ,并非程序返回值.下文(二)中会介绍另外一种... -
vba 调用 countif 函数问题
2019-01-07 23:28:00源数据是A1:G18，需求是在K列显示A1:A18中...在L列中是用countif函数直接计算的， Private Sub test() Dim rng As Range, i As Integer i = 1 For Each rng In Range("A1:A18") Range("I" & i) = A... -
VBA之dir函数综合使用
2020-03-30 21:13:411.dir函数的有判断一个文件是否存在的功能,也可以使用通配符模糊匹配 返回的是该文件的文件名 Sub test() Dim i As Integer For i = 1 To 5 If Dir(“d:\data” & Range(“a” & i) & ".xls*) = “” ... -
和Excel函数date同样功能的VBA函数DateSerial用法
2018-07-20 18:37:00Sub 日期别()On Error Resume Nextlastrow = Sheets("运营日报").Range("a1048576").End(xlUp).Rowlastday = VBA.Day(Sheets("运营日报").Range("a" & lastrow)) + 1lastcolumn = Sheets("运营统计表").Range(... -
VBA API函数实现串口自发自收：Writefile正常，但Readfile时cbInQue为0
2013-11-03 10:03:07代码如下（函数申明略）： Option Explicit Public Const GENERIC_READ = &H80000000 Public Const GENERIC_WRITE = &H40000000 Public Const OPEN_EXISTING = 3 Public Const FILE_ATTRIBUTE_NORMAL = &H80 ... -
VBA之split函数,instr函数等其他函数的使用
2020-03-27 21:28:22instr:判断字符再文本的第几位 split:分割 里面有两个参数,第一个参数是要分割的单元格字符串,第二个是想要分割完的数组的第几位 1.需求 想把A列的字符串,按-分割,然后添...For i = 2 To Sheet2.Range(“a65536”).E... -
VBA中Range和Cells的速度
2020-03-18 09:51:39Range和Cells这两个函数，都可以获取单元格内容和将内容写入单元格。既然这两个功能相同，那么速度就成为了选择的关键。 注：Range有着比Cells更强大的功能，大家千万不要把这两个函数完全等同。当然了，这也从侧面... -
vba调用javascript函数封装
2014-09-01 09:23:12//过滤 function filter(sheet, rangeStr, col, value) { sheet.range(rangeStr).AutoFilter(col, value); } //取消过滤 function filterCancel(sheet, rangeStr) { sheet.range(rangeStr).AutoFilter; } -
excel中161个VBA_自定义函数超级实用
2018-03-28 08:36:32函数作用：按SplitType取得RangeName串值中的起始位置12 '7.函数作用:将金额数字转成中文大写....................13 '8.函数作用:计算某种税金..............................18 '9.函数作用:人民币大、小写转换...... -
vba中如何使用函数counta
2019-04-24 23:08:54COUNTA是excel中统计非空单元格的函数，有的时候我们在写vba代码的时候也非常需要这个函数。 下面记录一下如何使用。 Option Explicit Sub test() Dim i As Long Dim j As Long Dim sht_name As String Dim ...
收藏数
219
精华内容
87