IT Links

http://spreadsheets.about.com/od/excel101/ss/freeze_pane_3.htm

Public Sub myproc()
    RW = 1
    For Numb = 1 To 200
        tmp = Cells(RW, "C") + 13000000
        Cells(RW, "C") = tmp
        RW = RW + 1
    Next Numb
End Sub

Public Function add_all_date(c1 As String, c2 As String)
    range("A1:A100").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 14
    End With
End Function


Public Function myReplace(myString, myFind As String, myRepl As String)

    If Trim(myString & "") <> "" Then
      myReplace = Replace(myString, myFind, myRepl)
    End If

End Function

   

Public Sub Bank()   
    Range("G1").Select
    Do Until Selection.Offset(0, -6).Value = Empty
        Selection.Value = "'01"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("I1").Select
    Do Until Selection.Offset(0, -8).Value = Empty
        Selection.Value = "'04"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("K1").Select
    Do Until Selection.Offset(0, -10).Value = Empty
        Selection.Value = "©"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("M1").Select
    Do Until Selection.Offset(0, -12).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "            " Then
            Selection.Value = "'000000000000"
        End If
        Selection.Offset(1, 0).Select
    Loop
    
    Range("O1").Select
    Do Until Selection.Offset(0, -14).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "        " Then
            Selection.Value = "'00000000"
        End If
        Selection.Value = Selection.Value + 13000000
        Selection.Offset(1, 0).Select
    Loop
   
    Range("Q1").Select
    Do Until Selection.Offset(0, -16).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "               " Then
            Selection.Value = "'000000000000000"
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("S1").Select
    Do Until Selection.Offset(0, -18).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "        " Then
            Selection.Value = 0
        End If
        Selection.Value = Selection.Value + 13000000
        Selection.Offset(1, 0).Select
    Loop
   
    Range("U1").Select
    Do Until Selection.Offset(0, -20).Value = Empty
        Selection.Value = "'01"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("W1").Select
    Do Until Selection.Offset(0, -22).Value = Empty
        Selection.Value = "'0001"
        Selection.Offset(1, 0).Select
    Loop
       
    Range("AA1").Select
    Do Until Selection.Offset(0, -26).Value = Empty
       
        If Selection.Value <> "          " Then
          If Len(Selection.Value) = 9 Then
            tmp1 = "'0" + Str(Selection.Value)
            tmp2 = myReplace(tmp1, " ", "")
            Selection.Value = tmp2
          End If
          If Len(Selection.Value) = 8 Then
            tmp1 = "'00" + Str(Selection.Value)
            tmp2 = myReplace(tmp1, " ", "")
            Selection.Value = tmp2
          End If
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("AC1").Select
    Do Until Selection.Offset(0, -28).Value = Empty
        If Selection.Value = "¢¤õ" Then
            Selection.Value = "ô"
        ElseIf Selection.Value = " ö¥" Then
            Selection.Value = "¥"
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("AE1").Select
    Do Until Selection.Offset(0, -30).Value = Empty
        If Selection.Value = "—õ" Then
            Selection.Value = "–"
        ElseIf Selection.Value = "›õ" Then
            Selection.Value = "ô"
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("AG1").Select
    Do Until Selection.Offset(0, -32).Value = Empty
        Selection.Value = "ô"
        Selection.Offset(1, 0).Select
    Loop
   
   Range("AI1").Select
     Do Until Selection.Offset(0, -34).Value = Empty
        If Selection.Value = Empty Then
            Selection.Value = "'01"
           
        ElseIf Selection.Value = "                        ¢ø¨þ“" Then
            Selection.Value = "'01"
           
        ElseIf Selection.Value = "                  üþ¢—“ö‘þ‘•" Or _
            Selection.Value = "                  üþ¢—“ ô›÷•" Or _
            Selection.Value = "                  üþ¢—“ö‘þ‘•" Or _
            Selection.Value = "                  üþ‘õ÷û¤ ôø¢" Or _
            Selection.Value = "                   –®ú÷ üóþõî—" Or _
            Selection.Value = "                  –®ú÷ ü—‘õ¢ìõ" Or _
            Selection.Value = "                 üþ¢—“ ô¤‘ú" Or _
            Selection.Value = "                  ùõþ¢ì –òþ¬Ÿ—" Or _
            Selection.Value = "              üõøõä–‘õþóã—ù¤ø¢" Or _
            Selection.Value = "                   üþ¢—“ ôø¨" Or _
            Selection.Value = "                   –®ú÷ ü÷‘þ‘•" Or _
            Selection.Value = "                   üþ¢—“ ñø" Or _
            Selection.Value = "                   üþ¢—“ ôø¢" Or _
            Selection.Value = "                   üþ¢—“ ôªª" _
        Then
            Selection.Value = "'02"
           
        ElseIf Selection.Value = "                üþ‘õ÷û¤/ ñîþ¨" Or _
           Selection.Value = "                  üþ‘õ÷û¤ ñø" Or _
           Selection.Value = "                  üþ‘õ÷û¤ ôø¢" Or _
           Selection.Value = "                   ö‘—¨¤÷û ñø" Or _
           Selection.Value = "           (ôþ¢ìô‘à÷)ù¯¨ø—õôø¨" Or _
           Selection.Value = "           (ôþ¢ìô‘à÷)ù¯¨ø—õñø" Or _
           Selection.Value = "             ¢þ¢›ô‘à÷ù¯¨ø—õôø¨" Or _
           Selection.Value = "                   ö‘—¨¤÷û ôø¢" Or _
           Selection.Value = "           (ôþ¢ìô‘à÷)ù¯¨ø—õôø¢" Or _
           Selection.Value = "                   ö‘—¨¤÷û ôø¨" _
        Then
            Selection.Value = "'03"
           
        ElseIf Selection.Value = "                         ôó•þ¢" Then
            Selection.Value = "'04"
           
        ElseIf Selection.Value = "                     ôó•þ¢ ëøê" Or _
                Selection.Value = "              ž¯¨ýù¥øŸ–òþ¬Ÿ—" Or _
                Selection.Value = "                       ü÷¢¤‘î" Then
            Selection.Value = "'05"
       
        ElseIf Selection.Value = "                        §÷‘¨þó" Or _
                Selection.Value = "             ‚ ž¯¨ýù¥øŸ–òþ¬Ÿ—" Or _
                Selection.Value = "                  §÷‘¨þó ñ¢‘ãõ" _
        Then
            Selection.Value = "'06"
                  
        ElseIf Selection.Value = "                    §÷‘¨þó ëøê" Or _
               Selection.Value = "             ƒ ž¯¨ýù¥øŸ–òþ¬Ÿ—" _
        Then
            Selection.Value = "'07"
       
        ElseIf Selection.Value = "                         ý¤—î¢" Then
            Selection.Value = "'08"
        End If
 
        Selection.Offset(1, 0).Select
    Loop
    
    Range("AK1").Select
    Do Until Selection.Offset(0, -36).Value = Empty
        Selection.Value = "'002"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("AM1").Select
    Do Until Selection.Offset(0, -38).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "            " Then
            Selection.Value = "'000000000000"
        End If
        Selection.Offset(1, 0).Select
     
    Loop
   
    Range("AO1").Select
    Do Until Selection.Offset(0, -40).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "            " Then
            Selection.Value = "'000000000000"
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("AQ1").Select
    Do Until Selection.Offset(0, -42).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "            " Then
            Selection.Value = "'000000000000"
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("AS1").Select
    Do Until Selection.Offset(0, -44).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "          " Then
            Selection.Value = "'0000000000"
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("AU1").Select
    Do Until Selection.Offset(0, -46).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "                                 " Then
            Selection.Value = "'000000000000000000000000000000000"
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("AW1").Select
    Do Until Selection.Offset(0, -48).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "                                 " Then
            Selection.Value = "'000000000000000000000000000000000"
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("AY1").Select
    Do Until Selection.Offset(0, -50).Value = Empty
        If Selection.Value = Empty Or Selection.Value = "                                 " Then
            Selection.Value = "'000000000000000000000000000000000"
        End If
        Selection.Offset(1, 0).Select
    Loop
   
    Range("BA1").Select
    Do Until Selection.Offset(0, -52).Value = Empty
        Selection.Value = "'0000000000000000"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("BC1").Select
    Do Until Selection.Offset(0, -54).Value = Empty
        Selection.Value = "'0000000000"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("BE1").Select
    Do Until Selection.Offset(0, -56).Value = Empty
        Selection.Value = "'0000000000"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("BG1").Select
    Do Until Selection.Offset(0, -58).Value = Empty
        Selection.Value = "'010"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("BI1").Select
    Do Until Selection.Offset(0, -58).Value = Empty
        Selection.Value = "'001"
        Selection.Offset(1, 0).Select
    Loop
   
    Range("BK1").Select
    Do Until Selection.Offset(0, -60).Value = Empty
        Selection.Value = "                    0"
        Selection.Offset(1, 0).Select
    Loop

  
End Sub