-
vba常用代码
2007-10-16 13:32:18vba常用代码,chm格式 -
vba常用代码大全x_常用vba代码
2020-10-07 22:42:42vba vba常用代码大全 vba vba常用代码大全 八 刖言 我们平时在工作表xx的公式xx常常使用函数Excel自带的常用的函数 多达300多个功能强大丰富多彩但是在 VBAxx不能直接应用必须在 函数名前面加上对象比如 Applicati ... -
VBA 常用代码
2021-02-08 20:18:231、运用VBA.Split() 给字符串分列,选取第一部分 例:“101203\其他货币资金\低于等于3个月的流动性理财存款”,选取“101203” Sub test() Dim rows As Integer '声明变量 rows = Range("A1048576").End(xlUp)...1、运用VBA.Split() 给字符串分列,选取第一部分
例:“101203\其他货币资金\低于等于3个月的流动性理财存款”,选取“101203”
Sub test() Dim rows As Integer '声明变量 rows = Range("A1048576").End(xlUp).Row '数据的最下边位置 'Range("c1") = rows For i = 1 To rows If (Range("B" & i) = "") Then Range("B" & i) = Range("A" & i) Range("C" & i) = rows Range("A" & i) = VBA.Split(Range("B" & i), "\")(0) '将字符串按“\”分列,取第一部分 End If Next End Sub
注:split函数的用法:
Split函数是在处理字符串时常用的一个函数,它的作用是将字符串按特定的字符分开,返回的是一个一维数组,数组的起始下标为0,看下面的例子
Sub test() Dim arr,brr,s,m,n,y s = "abc,d,e,f,g" arr = Split(s,",") '结果是一个包含5个项的一维数组 m = Split(s,")(0) '令m为数据的第1个项,为abc brr =Split(s,",2)将s以逗号分为2项,brr(0)=abc,brr(1)="d,e,f,g" n = Split(s,",2)(0) '令n=abc y = Split(s,",2)(1) '令y="d,e,f,g" End Sub
现在有一个字符串"abc,d,e,f.g,h",arr = Split(s,",")就是将字符串以","为分隔符分开,返回的arr是一个一维数组,arr(0)-abc,arr(1)=d,arr(2)=e,arr()=f,arr(4)=-g,当然在这里split(s,",")(0)与arr(0)是等价的,将split(s",")直接看成一个数组,(0)表示这个数组的第1项。如果不想将s全部分开,可以在分隔符后面再加上个参数来表示你想分成几份。比如split(s,",2)这里的2就表示将s分成2份即可,返回结果是"abc"和"d,e,fg",如果是split(s,",3)那么结果就是"abc","d","e,f,g"三个值了。
2、将excel 中的每张sheet单独保存成一个文件
Sub test() Dim sht As Worksheet '声明变量 Application.ScreenUpdating = False '关闭屏幕更新 For Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\拆分后文件\" & sht.Name & ".xlsx" '另存的位置 ActiveWorkbook.Close Next Application.ScreenUpdating = True '开启屏幕更新 End Sub
-
VBA常用代码
2020-02-17 23:15:35392、 将一列已文本保存的数字转换为数字 Sub txtToNumber() Application.ScreenUpdating = False For Each Rng In Range(“D2:D” &...If VBA.IsNumeric(Rng) Then Range(Rng.Address) = Rng + 0 End...392、 将一列以文本保存的数字转换为数字
Sub txtToNumber()
Application.ScreenUpdating = False
For Each Rng In Range(“D2:D” & Range(“d65536”).End(xlUp).Row)
If VBA.IsNumeric(Rng) Then
Range(Rng.Address) = Rng + 0
End If
Next Rng
Application.ScreenUpdating = True
End Sub393、 将一列中的值转换为数值
Sub valueToNumber()
Application.ScreenUpdating = False
For Each Rng In Range(“C2:C” & Range(“A65536”).End(xlUp).Row)
Rng.Value = Rng
Next Rng
Application.ScreenUpdating = True
End Sub
394、 经纬度距离计算函数
Function distance(lon1 As Range, lat1 As Range, lon2 As Range, lat2 As Range)
Dim d As Double
Dim dislon As Double
Dim dislat As Double
Dim dislatp As Double
dislon = lon1 - lon2
dislatp = lat1 + lat2
dislat = lat1 - lat2
d = 111100 * VBA.Sqr((dislon * VBA.Cos(dislatp * 3.14159265358979 / 360)) ^ 2 + dislat ^ 2)
distance = d
End Function -
excelVBA常用代码实战大全
2018-08-14 16:00:13excelVBA常用代码实战大全excelVBA常用代码实战大全excelVBA常用代码实战大全excelVBA常用代码实战大全 -
VBA常用代码和常用的代码
2011-07-13 13:27:41VBA常用代码和常用的代码,方便我们快速的掌握VBA编程,应用到我们的工作中 -
ppt课件vba常用代码
2011-06-03 22:39:25ppt课件vba常用代码,ppt课件vba常用代码 -
Excel VBA常用代码总结1资料_excel运行代码
2020-05-09 00:38:39Excel VBA常用代码总结1 精品文档 精品文档 收集于网络如有侵权请联系管理员删除 收集于网络如有侵权请联系管理员删除 精品文档 收集于网络如有侵权请联系管理员删除 Excel VBA常用代码总结1 改变背景色 Range"erior... -
Excel VBA常用代码总结.doc
2020-08-09 00:02:43Excel VBA常用代码总结1 改变背景色 Range"erior.ColorIndex = xlNone ?ColorIndex一览 改变文字颜色 Range"A1.Font.ColorIndex = 1 获取单元格 Cells(1, 2) Range"H7) 获取范围 Range(Cells(2, 3, Cells(4, 5) ... -
VBA常用代码讲课稿.docx
2020-04-24 00:45:03VBA常用代码 excel? 常用宏? 宏代码? 大全 本示例为设置密码窗口 (1? If Application.InputBox"请输入密码) = 1234 Then? [A1] = 1 '密码正确时执行? Else: MsgBox "密码错误即将退出" '此行与第2行共同设置密码? ... -
VBA常用代码讲解学习.docx
2020-04-18 01:38:17VBA常用代码 excel? 常用宏? 宏代码? 大全 本示例为设置密码窗口 (1? If Application.InputBox"请输入密码) = 1234 Then? [A1] = 1 '密码正确时执行? Else: MsgBox "密码错误即将退出" '此行与第2行共同设置密码? ... -
VBA常用代码合集
2020-03-03 22:52:41VBA常用代码合集 ——本文内容来源于《全民一起VBA基础篇》 ' 强制变量声明 Option Explicit Sub 做加法() Dim r As Integer r = 2 Do While Cells(r, 2) <> "" Cells(r, 6) = Cells(r, 2) + Cells(r, 4...——本文内容来源于《全民一起VBA基础篇》
' 强制变量声明 Option Explicit Sub function_name() '定义变量 Dim a,name '定义常量 const PI = 3.14159 '定义对象 Set A_Range = Worksheets("Sheet4").UsedRange '赋值 a = 18.35 r = 2 '流控制 'while循环 Do While Cells(r, 2) <> "" Cells(r, 6) = Cells(r, 2) + Cells(r, 4) r = r + 1 Loop 'for循环 For i = 1 To j Next 'if判断 If a > 75 Then '单元格写入 Cells(8, 6) = "A" Elseif a > 55 Then Cells(8, 6) = "B" Else Cells(8, 6) = "C" End If 'switch分支 Select Case B.Cells(j, 3) Case Is = A.Cells(1, 3) Case Is = A.Cells(1, 6) Case Is = A.Cells(1, 6) Case Else End Select End sub
-
EXCEL VBA常用代码实战大全
2013-03-20 04:09:24excel vba EXCEL VBA常用代码实战大全 -
VBA常用代码解析.doc
2015-10-19 19:21:54VBA常用代码解析,非常详细的解析.从入门到精通. 更多内容请关注我的微信 -
ExcelVBA常用代码总结1.doc
2020-08-21 16:15:13Excel VBA常用代码总结1 改变背景色 Range"erior.ColorIndex = xlNone ?ColorIndex一览 改变文字颜色 Range"A1.Font.ColorIndex = 1 获取单元格 Cells(1, 2) Range"H7) 获取围 Range(Cells(2, 3, Cells(4, 5) Range... -
ExcelVBA常用代码实战大全.pdf
2019-07-19 14:11:13《Excel VBA常用代码实战大全》重点强调实践性,旨在帮助Excel初学者和有一定ExcelVBA编程基础、希望进一步提高的读者掌握VBA编程设计的技巧。全书精选150个典型范例,近245个技巧,以实用为主,知识点针对性强,并... -
Excel-VBA常用代码总结1.docx
2020-05-02 00:55:59Excel VBA常用代码总结1 改变背景色 Range"erior.ColorIndex = xlNone ?ColorIndex一览 改变文字颜色 Range"A1.Font.ColorIndex = 1 获取单元格 Cells(1, 2) Range"H7) 获取范围 Range(Cells(2, 3, Cells(4, 5) ... -
EXCEL_VBA常用代码大全.doc
2019-10-18 11:26:08EXCEL_VBA常用代码大全(有具体的实例,非常适用开始使用的人员学习使用。要边学边练才好。(有具体的实例,非常适用开始使用的人员学习使用。要边学边练才好。(有具体的实例,非常适用开始使用的人员学习使用。要边学... -
《EXCEL VBA 常用代码实战大全》示例文件
2017-04-19 19:34:44《EXCEL VBA 常用代码实战大全》示例文件 -
EXCEL2010 VBA常用代码 示例文件
2013-06-04 13:41:07EXCEL2010 VBA常用代码 示例文件 -
VBA常用代码大全x_常用代码大全
2020-08-23 09:12:19八 - 刖言 我们平时在工作表单元格的公式中常常使用函数EGcel自带的常用的函数多达300多个, 功能强大丰富多彩但是在 VBA中不能直接应用必须在函数名前面加上对象比如 Applicatio n. WorksheetF un ctio n.Sum(arg1,... -
Excel VBA常用代码总结1教案资料.doc
2020-09-05 00:09:29Excel VBA常用代码总结1 改变背景色 Range"erior.ColorIndex = xlNone ?ColorIndex一览 改变文字颜色 Range"A1.Font.ColorIndex = 1 获取单元格 Cells(1, 2) Range"H7) 获取范围 Range(Cells(2, 3, Cells(4, 5) ... -
EXCEL_VBA常用代码实战大全.doc
2015-02-25 18:17:39EXCEL_VBA常用代码实战,新手快速入门 -
EXCEL VBA 常用代码实战大全
2011-12-15 10:52:46Excel vba 常用代码及实例.本资源来自网络,共享给大家. -
EXCEL+VBA常用代码实战大全
2012-11-14 11:38:53EXCEL+VBA常用代码实战大全,TXT文件,文件小巧,手机也能看