Vba 基础知识 | ExcelOffice

如何用vba将形成ab+c+de的数学表达式展开?

2018年6月20日作者：exceloffice

暂无评论

比如将“75*2+90*3+120*1”形式的字符串展开为”75+75+90+90+90+120″形式的字符串。

可以使用如下的自定义函数：

Function GetString(ByVal oRng As Variant) As String
    arr = Split(oRng, "+")
    For i = 0 To UBound(arr)
        k = 0
        arr1 = Split(arr(i), "*")
        If UBound(arr1) > 0 Then
            For j = 1 To arr1(1) * 1
                n = arr1(0)
                ReDim Preserve arrTemp(k)
                arrTemp(k) = n
                k = k + 1
            Next j
            arr(i) = Join(arrTemp, "+")
        End If
    Next i
    sResult = Join(arr, "+")
    GetString = sResult
End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

Function GetString(ByVal oRng As Variant) As String

arr = Split(oRng, "+")

For i = 0 To UBound(arr)

k = 0

arr1 = Split(arr(i), "*")

If UBound(arr1) > 0 Then

For j = 1 To arr1(1) * 1

n = arr1(0)

ReDim Preserve arrTemp(k)

arrTemp(k) = n

k = k + 1

Next j

arr(i) = Join(arrTemp, "+")

End If

Next i

sResult = Join(arr, "+")

GetString = sResult

End Function

如何在vba中定义常量？

2018年6月7日作者：exceloffice

暂无评论

在编写vba代码的过程中对于经常使用的不变的数据，我们可以通过定义常量的形式把使得该数据的含义更加清晰。

比如要在一段vba代码中要反复使用3000这个数字，它代表的是基础工资，那么可以定义如下的常量:

Const 基础工资 = 3000

1	Const 基础工资 = 3000

一般的，在vba中定[……]

阅读全文

如何用vba生成随机的不重复整数？

2018年6月6日作者：exceloffice

暂无评论

在如何用vba生成随机数？一文中我们介绍了用vba函数Rnd生成随机的0到1之间的不重复实数。

如果要生成区间范围更大的随机整数，比如生成4到10之间的随机整数，可以使用如下的代码：

Sub QQ1722187970()
    '生成一个随机数seed
    Randomize
    Dim oWK As Worksheet
    Set oWK = Sheet2
    With oWK
        .Cells.Clear
        For i = 1 To 5
            .Cells(i, 1) = Int(VBA.Rnd() * (10 - 4 + 1) + 4)
        Next i
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

Sub QQ1722187970()

'生成一个随机数seed

Randomize

Dim oWK As Worksheet

Set oWK = Sheet2

With oWK

.Cells.Clear

For i = 1 To 5

.Cells(i, 1) = Int(VBA.Rnd() * (10 - 4 + 1) + 4)

Next i

End With

End Sub

一般地，如果要生成[a,b]之间的随机整[……]

阅读全文

如何用vba生成随机数？

2018年6月5日作者：exceloffice

暂无评论

在vba中可以使用Rnd函数生成一个小于1，大于等于0的随机实数。

它的语法如下：

Rnd[(number)]

1	Rnd[(number)]

1.如果number参数不提供或者是＞0的话，则生成随机数序列中的下一个随机数。

例如如下的代码将在工作表中生成100个小于1，大于等[……]

阅读全文

如何用vba获取任意月份的最后一天的日期？

2018年6月4日作者：exceloffice

暂无评论

在excel 中有个工作表函数EOMONTH，可以返回指定日期的月所在最后一天的日期。

在vba中没有这样的函数，但是可以使用DateSerial函数变通的获取到任意月的最后一天的日期。

代码如下：

Sub QQ1722187970()
    Dim d1 As Date
    d1 = #12/25/2018#
    Dim d2 As Date
    d2 = VBA.DateSerial(Year(d1), Month(d1) + 1, 1) - 1
    Debug.Print d2
End Sub

1

2

3

4

5

6

7

Sub QQ1722187970()

Dim d1 As Date

d1 = #12/25/2018#

Dim d2 As Date

d2 = VBA.DateSerial(Year(d1), Month(d1) + 1, 1) - 1

Debug.Print d2

End Sub

实现原理就是先获取[……]

阅读全文

如何在vba中使用shell.application对象？

2018年5月11日作者：exceloffice

暂无评论

Shell.Application表示外壳中的对象。方法被提供于控制外壳和执行外壳内的命令，也有一些方法获得其他外壳相关的对象。

以下代码将打开运行对话框：

Sub QQ1722187970()
    Dim oShell As Object
    Set oShell = VBA.CreateObject("shell.application")
    With oShell
        .FileRun
    End With
End Sub

1

2

3

4

5

6

7

Sub QQ1722187970()

Dim oShell As Object

Set oShell = VBA.CreateObject("shell.application")

With oShell

.FileRun

End With

End Sub

以下代码相当于按下ctrl+tab键在打开的窗口之间切换：
[c[……]

阅读全文

如何在vba中实现将单列数据分列为多列数据的功能？

2018年5月7日作者：exceloffice

暂无评论

在excel的“数据”选项卡下的“数据工具”组中有“分列”功能，可以实现将单列数据按照固定宽度或者指定的分隔符进行分列。

在vba中可以使用range对象的TextToColumns方法实现以上功能。

它的语法如下：

expression . TextToColumns( Destination , DataType , TextQualifier , ConsecutiveDelimiter , Tab , Semicolon , Comma , Space , Other , OtherChar , FieldInfo , DecimalSeparator , ThousandsSeparator , TrailingMinusNumbers )

1	expression . TextToColumns( Destination , DataType , TextQualifier , ConsecutiveDelimiter , Tab , Semicolon , Comma , Space , Other , OtherChar , FieldInfo , DecimalSeparator , ThousandsSeparator , TrailingMinusNumbers )

[……]

阅读全文

如何在vba中求二进制序列的任意高低位值？

2018年5月6日作者：exceloffice

暂无评论

我们知道十进制数111，可以表示为1*10^0+1*10^1+1*10^2，即可以等于1+10+100。

任何一个n位的十进制数都可以表示为m位的数字（1≤m≤n）与10的m-1次幂的乘积之和。

类似的一个二进制数10010，可以表示为0*2^0+1*2^1+0*2^2+0*2^3+1*[……]

阅读全文

如何用vba返回两个数的余数？

2018年5月6日作者：exceloffice

暂无评论

在vba中提供了一个操作运算符mod可以直接计算两个数相除后的余数。

比如要求32与6相除后的余数，可以是用如下的代码：

Sub QQ1722187970()
    Dim i As Integer
    i = 32 Mod 6
    MsgBox i
End Sub

1

2

3

4

5

Sub QQ1722187970()

Dim i As Integer

i = 32 Mod 6

MsgBox i

End Sub

如何用vba返回数值的整数部分？

2018年5月6日作者：exceloffice

暂无评论

比如数值1.23的整数部分为1,5.67的整数部分为5。

一个数值的整数部分就是将该数值的小数部分去除，不进行四舍五入。

vba中提供了一个内置的int函数可以方便的实现这个目的。

代码如下：

Sub QQ1722187970()
    Dim i As Integer
    i = VBA.Int(5.64)
    MsgBox i
End Sub

1

2

3

4

5

Sub QQ1722187970()

Dim i As Integer

i = VBA.Int(5.64)

MsgBox i

End Sub

但是如果是一个负数[……]

阅读全文

如何用vba将形成ab+c+de的数学表达式展开?

如何在vba中定义常量？

如何用vba生成随机的不重复整数？

如何用vba生成随机数？

如何用vba获取任意月份的最后一天的日期？

如何在vba中使用shell.application对象？

如何在vba中实现将单列数据分列为多列数据的功能？

如何在vba中求二进制序列的任意高低位值？

如何用vba返回两个数的余数？

如何用vba返回数值的整数部分？

分类目录

近期文章

功能

分类目录

近期文章

标签

功能