Вот пример простого макроса, который подсчитывает количество знаков препинания в ячейке:

Sub CountPunctuation()
    'Declare variables
    Dim strText As String
    Dim intCount As Integer

    'Get the text from the selected cell
    strText = Selection.Value

    'Loop through each character in the text
    For i = 1 To Len(strText)
        'Check if the character is a punctuation mark
        If InStr(".,;:!?", Mid(strText, i, 1)) > 0 Then
            'If it is, increment the count
            intCount = intCount + 1
        End If
    Next i

    'Display the count in a message box
    MsgBox "The number of punctuation marks in the selected cell is: " & intCount
End Sub
 ต่อไปนี้เป็นตัวอย่างของมาโครง่ายๆ ที่นับจำนวนเครื่องหมายวรรคตอนในเซลล์: Sub CountPunctuation() 'ประกาศตัวแปร Dim strText As String Dim intCount As Integer 'รับข้อความจากเซลล์ที่เลือก strText = Selection.Value 'วนซ้ำแต่ละเซลล์ อักขระในข้อความ For i = 1 To Len(strText) 'ตรวจสอบว่าอักขระเป็นเครื่องหมายวรรคตอนหรือไม่ ถ้า InStr(".,;:!?", Mid(strText, i, 1)) > 0 จากนั้น 'ถ้าเป็น เพิ่มการนับ intCount = intCount + 1 End If Next i 'แสดงจำนวนในกล่องข้อความ MsgBox "จำนวนเครื่องหมายวรรคตอนในเซลล์ที่เลือกคือ: " & intCount End Sub
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence