精华内容
下载资源
问答
  • vba常用代码

    2007-10-16 13:32:18
    vba常用代码,chm格式
  • vba vba常用代码大全 vba vba常用代码大全 八 刖言 我们平时在工作表xx的公式xx常常使用函数Excel自带的常用的函数 多达300多个功能强大丰富多彩但是在 VBAxx不能直接应用必须在 函数名前面加上对象比如 Applicati ...
  • VBA 常用代码

    2021-02-08 20:18:23
    1、运用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:35
    392、 将一列已文本保存的数字转换为数字 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 Sub

    393、 将一列中的值转换为数值
    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常用代码实战大全excelVBA常用代码实战大全excelVBA常用代码实战大全excelVBA常用代码实战大全
  • VBA常用代码和常用的代码,方便我们快速的掌握VBA编程,应用到我们的工作中
  • ppt课件vba常用代码

    2011-06-03 22:39:25
    ppt课件vba常用代码,ppt课件vba常用代码
  • Excel VBA常用代码总结1 精品文档 精品文档 收集于网络如有侵权请联系管理员删除 收集于网络如有侵权请联系管理员删除 精品文档 收集于网络如有侵权请联系管理员删除 Excel VBA常用代码总结1 改变背景色 Range"erior...
  • Excel 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常用代码 excel? 常用宏? 宏代码? 大全 本示例为设置密码窗口 (1? If Application.InputBox"请输入密码) = 1234 Then? [A1] = 1 '密码正确时执行? Else: MsgBox "密码错误即将退出" '此行与第2行共同设置密码? ...
  • VBA常用代码 excel? 常用宏? 宏代码? 大全 本示例为设置密码窗口 (1? If Application.InputBox"请输入密码) = 1234 Then? [A1] = 1 '密码正确时执行? Else: MsgBox "密码错误即将退出" '此行与第2行共同设置密码? ...
  • VBA常用代码合集

    2020-03-03 22:52:41
    VBA常用代码合集 ——本文内容来源于《全民一起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 EXCEL VBA常用代码实战大全
  • VBA常用代码解析.doc

    2015-10-19 19:21:54
    VBA常用代码解析,非常详细的解析.从入门到精通. 更多内容请关注我的微信
  • Excel 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...
  • 《Excel VBA常用代码实战大全》重点强调实践性,旨在帮助Excel初学者和有一定ExcelVBA编程基础、希望进一步提高的读者掌握VBA编程设计的技巧。全书精选150个典型范例,近245个技巧,以实用为主,知识点针对性强,并...
  • Excel 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常用代码大全(有具体的实例,非常适用开始使用的人员学习使用。要边学边练才好。(有具体的实例,非常适用开始使用的人员学习使用。要边学边练才好。(有具体的实例,非常适用开始使用的人员学习使用。要边学...
  • 《EXCEL VBA 常用代码实战大全》示例文件
  • EXCEL2010 VBA常用代码 示例文件
  • 八 - 刖言 我们平时在工作表单元格的公式中常常使用函数EGcel自带的常用的函数多达300多个, 功能强大丰富多彩但是在 VBA中不能直接应用必须在函数名前面加上对象比如 Applicatio n. WorksheetF un ctio n.Sum(arg1,...
  • Excel 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常用代码实战,新手快速入门
  • Excel vba 常用代码及实例.本资源来自网络,共享给大家.
  • EXCEL+VBA常用代码实战大全,TXT文件,文件小巧,手机也能看

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 835
精华内容 334
关键字:

vba常用代码