Excel——VBA

最新推荐文章于 2024-07-04 15:07:53 发布

乔眉

最新推荐文章于 2024-07-04 15:07:53 发布

阅读量167

点赞数 1

本文链接：https://blog.csdn.net/weixin_43213658/article/details/88060081

版权

#https://www.yiibai.com/vba/vba_constants.html
在这里插入图片描述

Function 文本(rng As Range) As String
Dim str As String
    For Each c In rng
        str = str & Chr(10) & c.Value
            Next
        文本 = Right(str, Len(str) - 1)
End Function

dim 变量名 as 数据类型 '声明一个数据类型为xx的变量
public 变量名 as 数据类型 '声明一个数据类型为xx的公共变量
private 变量名 as 数据类型 '声明一个数据类型为xx的私有变量
static 变量名 as 数据类型 '声明一个数据类型为xx的静态变量

Function my_rank(n1 As Integer, n2 As Integer) As Integer
    Dim s As Integer
    Dim i As Integer
    Dim flag As Integer
    
    Dim arr() As Integer
    ReDim arr(n2)
    
    For j = 1 To n2
        s = 0
        For i = 9 To 58
            s = Sheets("成绩页").Cells(j + 3, i) + s
        Next
        arr(j) = s
    Next
    
    flag = 0
    For i = 1 To n2
        If arr(i) > arr(n1) Then
        flag = flag + 1
        End If
    Next
    
    
    
    '从小到大排序

    'For i = 1 To (n2 - 1)
        'For j = i + 1 To n2
         '   If arr(i) > arr(j) Then
          '      TEMP = arr(j)
           '     arr(j) = arr(i)
                'arr(i) = TEMP
            'End If
        'Next j
   ' Next i


    my_rank = flag + 1
    
    
End Function