核信号采集与数字化处理

Lesson1

Sub 宏1()
    Pi = 3.1415926
    For i = 1 To 7200
        Index = "A" + Format(i)
        ff = 5 * Sin(i * Pi / 1800)
        Range(Index).Value = ff
    Next i
End Sub

Sub 宏2()
    For i = 1 To 500
        Index = "B" + Format(i)
        ff = 5 * (0.5 - Rnd(1))		'Rnd(1)用于生成0~1的等概率随机数
        Range(Index).Value = ff
    Next i
End Sub

Sub 宏3()
    For i = 1 To 50
        Index = "C" + Format(i)
        ff = 0
        Range(Index).Value = ff
    Next i
    
    For i = 50 To 2000
        Index = "C" + Format(i)
        ff = 500 * (Exp((50 - i) / 200) - Exp((50 - i) / 20))
        Range(Index).Value = ff
    Next i
End Sub

Sub 宏4()
    For i = 0 To 9
        For j = 1 To 50
        Index = "D" + Format(100 * i + j)
        ff = 50
        Range(Index).Value = ff
        Next j
        
        For j = 51 To 100
        Index = "D" + Format(100 * i + j)
        ff = 0
        Range(Index).Value = ff
        Next j
    Next i
End Sub

Sub 宏5()
    For i = 0 To 6
        tmp = tmp + 100 * Rnd(1)
        For j = 1 To 100
            Index = "E" + Format(100 * i + j)
            ff = tmp
            Range(Index).Value = ff
        Next j
    Next i
End Sub

'''''''''''''''''''''''字符串匹配用Like'''''''''''''''''''''''
'					?          任何单一字符
'					*          零个或多个字符
'					#          任何一个数字（0-9）
'				[字符列表]           字符列表中的任何一个字符
'				[!字符列表]           不在字符列表中的任何一个字符
'				其它字符(串)         与自身匹配
Sub 宏1()
    For i = 2 To 17966
        lol = "F" + Format(i)
        If Not Range(lol).Value Like "*pacifier*" Then
            Range(lol).Value = ""
        End If
    Next i
End Sub

Sub 宏1()
    For i = 2 To 690254
        index1 = "B" + Format(i)
        index2 = "C" + Format(i)
        strlength = Len(Range(index1).Value)     '计算字符串长度
        copSig = ","
        flag = InStr(Range(index1).Value, copSig)  '判断字符串中是否包含某个字符/子串
        realID = ""
        
        If flag > 0 Then
            split_result = Split(Range(index1).Value, ",", -1)  '将字符串按某字符/字串分割，并返回一个index从0开始的结果数组
            strlength = Len(split_result(0))
            realID = Mid(split_result(1), 2, strlength - 1)  '从字符串的某一位置开始取一定长度的子串
        Else
            realID = Mid(Range(index1).Value, 2, strlength - 2)
        End If
        
        For j = 2 To 5604
            index3 = "Y" + Format(j)
            index1 = "Z" + Format(j)
            If realID = Range(index3).Value Then   'vba中条件判断直接用等号，无需双等号
                Range(index2).Value = Range(index4).Value
                Exit For
            End If
        Next j
        
    Next i
End Sub