Vraag : resize verdelingen van vensters 2003 server

is er om het even welk vrij nut resize verdelingen van vensters 2003 server?

Antwoord : resize verdelingen van vensters 2003 server

Op Fout hervat daarna zou moeten over het algemeen slechts in eenvoudige enige doelsubs en functies worden gebruikt die door uw hoofdsubs worden geroepen (b.v. is controleren van een werkboek open of een blad bestaat). Voorbij dat, fout is de behandeling werkelijk voor het vangen van onverwachte fouten of fouten geen die u op een andere manier kunt gemakkelijk behandelen. Typisch hebt u:

Op Fout Goto err_handler

lijn bij het begin (waar „err_handler“ een etiket in uw code is)

dan een sectie van de foutenmanager aan het eind, die in mijn geval u gewoonlijk op een schoonmaaksectie aan het eind van de code terugkomt. Bijvoorbeeld:


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Privé SubWorksheet_Change (Doel ByVal als Waaier)
    Schemerige rngCell als Waaier, strPrefix als Koord
    
   Op Fout GoTo Worksheet_Change_Error
    
    Application.EnableEvents = Vals
    
    Als om te snijden niet (Doel, Waaier („A: “)) Is dan niets
        strPrefix = Waaier („C2“). Waarde
        Voor Elke rngCell snijd binnen (Doel, Waaier („A: “))
            Als Len (rngCell.Value) > 0 toen
                Als InStr (1, rngCell.Value, strPrefix, vbTextCompare) <> 1 toen
                    rngCell.Value = strPrefix & rngCell.Value
                Eind als
            Eind als
        Volgende rngCell
    Eind als

clean_up:
    Application.EnableEvents = Waar
   Sub van de uitgang

Worksheet_Change_Error:

    MsgBox „Fout“ & Err.Number & „(“ & Err.Description & „) in procedure Worksheet_Change van Vba- Document Sheet1“
    Hervat clean_up
Beëindig Sub
Andere oplossingen  
 
programming4us programming4us