Vraag : Vastgestelde waaiernaam dynamisch in VBA Excel

Ik heb een procedure die lijnen door het werkboek en de lijsten alle rekeningsaantallen van het aantekenvel tabel.  Deze variëren elke maand en ik moet een genoemde waaier (die in de invoer in een gegevensbestand van de TOEGANG 2003) wordt gebruikt tot stand brengen dat dynamisch word gecre�ërd gebaseerd op het aantal rekeningen in de kolom.  Één maand zou 35 kunnen zijn volgende, 125.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Public SubCreateWorksheetList ()
'Dit wordt gedaan wanneer het gegeven enkel desgevallend daar is een verandering in de rapporten wordt uitgevoerd
'dat wordt gecre�ërd.  Het wordt gebruikt om tegen het gegevensbestand te controleren als daar
'zijn om het even welke nieuwe rekeningen die niet daar zijn ingegaan.
Schemerige rngTOC als Waaier, rngWksName als Waaier
Schemerige rngAccount als Waaier

    Reeks wksTOC = Aantekenvellen („Table_Of_Contents“)
    wksTOC.Activate
    Reeks rngTOC = Waaier („Z2“)
        Voor Elke wks in Aantekenvellen
            Als wks. Naam zoals „Acct_*“ toen
        Reeks rngWksName = rngTOC.Offset (1, 0)
            rngTOC.Value = Juiste CStr ((wks. Naam, 6))
        Reeks rngTOC = rngWksName
            Eind als
        Daarna
        
       Reeks rngAccount = wksTOC.Range („Z2“). Eind (xlDown). Compensatie (0, 0). Selecteer
        
Beëindig Sub

Antwoord : Vastgestelde waaiernaam dynamisch in VBA Excel

deze code zal tot een genoemde waaier zichtbaar in de naammanager leiden, is de naam van de waaier Doel, kijkt het gelijkaardig aan wat u zei u probeerde maar het werkt voor me geeft het zo een schot

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Sub Macro1 ()

Schemerig doel als Waaier

Waaier (ActiveCell, ActiveCell.End (xlDown)). Selecteer
Stel doel vast = Application.Selection
    
ActiveWorkbook.Names.Add noem: = " Doel ", RefersTo: =target
ActiveWorkbook.Names („Doel“). Commentaar = ""

Sub van het eind
Andere oplossingen  
 
programming4us programming4us