Vraag : Herschrijf de code voor de verwezenlijking van de werkboektitel.

Hallo zouden de Deskundigen,

I willen vragen de Deskundigen helpen om het manuscript in bijlage te herschrijven. Momenteel gebruik ik dit manuscript voor het noemen van het werkboek. Nu zou ik de waarde van de Cel A3 van Bladen („Bron“) toevoegen. De gegevens in Cel A3 zijn altijd in dit formaat „Datum: 22 de Zondag van Augustus 2010“. Deskundigen van de hoop konden helpen om dit code.




 te herzien
" codeBody " 
1:
" notpretty " 
ws2.Name = „verzoent“ & Formaat (ws. Waaier („G2“). Waarde, „dd-mm-yyyy“)

Antwoord : Herschrijf de code voor de verwezenlijking van de werkboektitel.

Als de „bron“ in wb is, dan gelieve te veranderen zoals hieronder.

ws2.Name = Weggegaan („verzoen“ & vervang (wb. Aantekenvellen („Bron“). Waaier („A3“). Tekst,“: „,“. „), 30)

Anders veronderstelde het de „Bron“ in ActiveWorkbook is
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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

De sub Uitvoer ()

    Schemerige wb als Werkboek, wb2 als Werkboek
    Schemerige ws als Aantekenvel, ws1 als Aantekenvel, ws2 als Aantekenvel
    'Schemerige dt als Koord
   
    Vastgesteld wb = ThisWorkbook
    Vastgesteld ws = wb. Aantekenvellen („verzoen“)
   
    Plaats wb2 = Workbooks.Add
    Plaats ws2 = wb2.Worksheets („Sheet1“)
    
    'ws2.Name = „verzoen“ & Formaat (ws. Waaier („G2“). Waarde, „dd-mm-yyyy“)

    ws2.Name = Weggegaan („verzoen“ & vervang (wb. Aantekenvellen („Bron“). Waaier („A3“). Tekst,“: „,“. „), 30)
    ws. Kolommen („A: F“). De Bestemming van het exemplaar: =ws2.Columns („A: F“)
    
    ActiveSheet.PageSetup.PrintArea = ""
    Met ActiveSheet.PageSetup
        . Richtlijn = xlLandscape
        „. Gezoem = Vals“ beter inbegrepen enkel desgevallend!
        . Gezoem = 40 'beter inbegrepen enkel desgevallend!
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    Eind met
    Kolommen („A: F“) .EntireColumn.AutoFit

    Application.DisplayAlerts = Vals
   
    Voor Elke ws1 in wb2.Worksheets
        Als ws1.Name <> ws2.Name toen ws1.Delete
    Volgende ws1
       
    'Zorg ervoor er omslag van de Lijst bestaat
    'dt = „TDC_“ & ws. Waaier („B2“). Waarde &“ .xls "
    dt = „\ \ 04 \ FileServices \- Document \ DBD \ meldt \ Reconcile_“ & Formaat (ws. Waaier („G2“), „dd-mm“) &“ .xls "

    Application.DisplayAlerts = Waar
       
    wb2.SaveAs dt
        
Sub van het eind
Andere oplossingen  
 
programming4us programming4us