讲嘢人

Wikipedia:Babel
这个使用者不能读写任何语言。请帮忙。
用户语言|察看用户语言

---

A pie chart

---

My 吴语 edit count

---

看看讲嘢人讲个嘢: Pone Kingpetch

My VB code to pick those Big-5 codes

i think its problem is too slow - so not very useful but it works,

Function insertPair(RN2, VX1, VX2)
    Windows("CodeAO1EZWT.htm").Activate
     
    cel1 = "A" + CStr(RN2)
    cel2 = "B" + CStr(RN2)
    cel3 = "D" + CStr(RN2)
    
    Range(cel1).Select
    ActiveCell.FormulaR1C1 = VX1
    
    Range(cel2).Select
    ActiveCell.FormulaR1C1 = VX2
    
    VX3 = "{{TraditionalToSimplifiedParameters|"
    VX3 = VX3 + Trim(VX2)
    VX3 = VX3 + "|" + Trim(VX1) + "}}"
    '' {{TraditionalToSimplifiedParameters|?|?}}
    Range(cel3).Select
    ActiveCell.FormulaR1C1 = VX3
End Function

Sub compareZ1()
    Dim rowz As Integer
    rowz = 950
    For zon1 = 169 To 188
        For cod2 = 151 To 254
            cv1 = selectJT(zon1, cod2)
            cv2 = selectFT(zon1, cod2)
            
            If cv1 <> cv2 Then
                rowz = rowz + 1
                rv = insertPair(rowz, cv1, cv2)
            End If
        Next
    Next
End Sub

Function selectJT(X1, Y1)
    Windows("CodeAIF4PQR.htm").Activate
    Range("B2").Select
    
    str_gr1 = CStr(X1) + ")(" + CStr(Y1)
    For ik = 2 To 950
        cel1 = "A" + CStr(ik)
        cel2 = "D" + CStr(ik)
        cel3 = "G" + CStr(ik)
        cel4 = "J" + CStr(ik)
        
        Range(cel1).Select
        vlu1 = ActiveCell.FormulaR1C1
        
        Range(cel2).Select
        vlu2 = ActiveCell.FormulaR1C1
        
        Range(cel3).Select
        vlu3 = ActiveCell.FormulaR1C1
        
        Range(cel4).Select
        vlu4 = ActiveCell.FormulaR1C1
        
        If InStr(vlu1, str_gr1) >= 1 Then
            celM = "B" + CStr(ik)
            Range(celM).Select
            vluM = ActiveCell.FormulaR1C1
            selectJT = vluM
            Exit Function
        End If
        
        If InStr(vlu2, str_gr1) >= 1 Then
            celM = "E" + CStr(ik)
            Range(celM).Select
            vluM = ActiveCell.FormulaR1C1
            selectJT = vluM
            Exit Function
        End If
        
        If InStr(vlu3, str_gr1) >= 1 Then
            celM = "H" + CStr(ik)
            Range(celM).Select
            vluM = ActiveCell.FormulaR1C1
            selectJT = vluM
            Exit Function
        End If
        
        If InStr(vlu4, str_gr1) >= 1 Then
            celM = "K" + CStr(ik)
            Range(celM).Select
            vluM = ActiveCell.FormulaR1C1
            selectJT = vluM
            Exit Function
        End If
    Next
    
    selectJT = ""
End Function
    
Function selectFT(X2, Y2)
    Windows("CodeAO1EZWT.htm").Activate
    Range("B2").Select
    
    str_gr1 = CStr(X2) + ")(" + CStr(Y2)
    For jk = 2 To 950
        cel1 = "A" + CStr(jk)
        cel2 = "D" + CStr(jk)
        cel3 = "G" + CStr(jk)
        cel4 = "J" + CStr(jk)
        
        Range(cel1).Select
        vlu1 = ActiveCell.FormulaR1C1
        
        Range(cel2).Select
        vlu2 = ActiveCell.FormulaR1C1
        
        Range(cel3).Select
        vlu3 = ActiveCell.FormulaR1C1
        
        Range(cel4).Select
        vlu4 = ActiveCell.FormulaR1C1
        
        If InStr(vlu1, str_gr1) >= 1 Then
            celN = "B" + CStr(jk)
            Range(celN).Select
            vluN = ActiveCell.FormulaR1C1
            selectFT = vluN
            Exit Function
        End If
        
        If InStr(vlu2, str_gr1) >= 1 Then
            celN = "E" + CStr(jk)
            Range(celN).Select
            vluN = ActiveCell.FormulaR1C1
            selectFT = vluN
            Exit Function
        End If
        
        If InStr(vlu3, str_gr1) >= 1 Then
            celN = "H" + CStr(jk)
            Range(celN).Select
            vluN = ActiveCell.FormulaR1C1
            selectFT = vluN
            Exit Function
        End If
        
        If InStr(vlu4, str_gr1) >= 1 Then
            celN = "K" + CStr(jk)
            Range(celN).Select
            vluN = ActiveCell.FormulaR1C1
            selectFT = vluN
            Exit Function
        End If
    Next
    
    selectFT = ""
End Function