VB2010 ผมอยากให้นับจำนวนแถวที่ขอ้มูลในexcelว่ามีเท่าไหร่ต้องใช่คำสั่งไหนครับ

[kubasf]

VB2010 ผมอยากให้นับจำนวนแถวที่มีข้อมูลในexcelว่ามีเท่าไหร่ต้องใช่คำสั่งไหนครับ

[snasui]

Code ต้องเขียนมาเอง ติดปัญหาตรงไหนค่อยถามกันต่อครับ

[kubasf]

อันนี้เป็นนับจาก rich box ว่าข้อความที่เราพิมพ์มีอักษร # อยู่เท่าไหร่แต่ผมอยากได้ที่linkไปในexcelแล้วนับว่ามีข้อความ Pass อยู่เท่าไหร่น่ะครับรบกวนอาจารย์ช่วยแนะนำแนวทางให้ด้วยน่ะครับ

Code: Select all

Public Function numofchar(ByVal a As String) As Integer
        Dim i, cnt As Integer
        Dim ch As Char
        For i = 1 To Len(a)
            ch = Mid(a, i, 1)
            Select Case UCase(ch)
                Case "#"
                    cnt = cnt + 1
            End Select
        Next
        Return cnt
    End Function

    
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim has As Integer
        has = numofchar(RichTextBox1.Text)
        TextOK.Text = has
    End Sub

[snasui]

ลองประยุกต์ Code จาก Link นี้ดูครับ http://www.dotnetperls.com/excel-vbnet