Այս ձեռնարկում ես կտրամադրեմ որոշ հնարքներ Excel- ի թերթում հատուկ թղթապանակի բոլոր նկարների անունների կամ ֆայլերի անունների արագ ցուցակման վերաբերյալ, ինչպես ցույց է տրված նկարում Արագ նավարկություն >Excel- ում VBA- ի հետ ցուցակեք թղթապանակի նկարների անունները >Listուցակեք Excel- ում ֆայլի անվանացանկով թղթապանակի նկարների կամ հատուկ ձևաչափի ֆայլերի անուններ >Ներբեռնեք ֆայլի նմուշը

Excel- ում չկա ներկառուցված գործառույթ, որը կարող է ավտոմատ կերպով թվարկել ձեր ընտրած թղթապանակի բոլոր նկարների անունները թերթիկի վանդակում, բայց այստեղ ես ունեմ VBA կոդ, որը կարող է օգնել ձեզ արագ լուծել այս գործը:

1. Excel- ում, ապա սեղմեք ալտ + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Պատուհանի պատուհանում կտտացրեք Տեղադրել > Մոդուլներ ստեղծել նոր Մոդուլի սցենար:

3. Պատճենեք կոդը և տեղադրեք դրանք նոր Մոդուլի սցենարի պատուհանում:

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. Մամուլ F5 ստեղնը, այնուհետև բացվում է երկխոսություն, որպեսզի ընտրեք բջիջ նկարների անունները տեղադրելու համար:

5: սեղմեք OK շարունակելու համար ընտրեք այն թղթապանակը, որը ցանկանում եք թվարկել նկարների անունները Bննարկել երկխոսության մեջ:

6: սեղմեք OK, այժմ ընտրված թղթապանակի բոլոր նկարների անունները ցուցակում են հայտնվել Excel- ում:

Նշում: VBA կոդում դուք կարող եք jpg / png / the կոդի տողի մեջ Եթե ​​InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Ապա անհրաժեշտ ֆայլի ընդլայնմանը, օրինակ, եթե ցանկանում եք ֆայլի ֆայլի անունները ցուցադրել փաստաթղթում, փոխեք միայն կոդի տողը Եթե ​​InStr (1, xFileName, ".doc")> 0 Ապա:

Եթե ​​ձեր ամենօրյա աշխատանքում սովորաբար անհրաժեշտ է ցուցակում թվարկել թղթապանակի մեկ կամ բոլոր ձևաչափերի ֆայլերի անունները Excel խցում, կոդը բարդ է և հեշտ չէ կարգավորել, բայց ստորև նշված եղանակով կարող եք արագ լուծել այս գործը:

Անկանու՞մ եք աշխատավարձի բարձրացում և շատ ժամանակ ընտանիքի հետ ընկերանալու համար: Office Tab- ը 50% -ով բարձրացնում է ձեր արդյունավետությունը Microsoft Office- ում, որն աշխատում է հենց հիմա Անհավատալի է, որ երկու կամ ավելի փաստաթղթերի վրա աշխատելը ավելի հեշտ է և արագ, քան մեկում աշխատելը: Համեմատելով հայտնի բրաուզերների հետ, Office Tab- ի ներդիրով գործիքն ավելի հզոր է և արդյունավետ: Նվազեցրեք ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներն ու ստեղնաշարի մուտքագրումը, հիմա հրաժեշտ տվեք մկնիկի ձեռքին: Եթե ​​սովորաբար աշխատում եք բազմաթիվ փաստաթղթերում, Office Tab- ը ձեզ համար ժամանակի մեծ խնայողություն կլինի: 30- օր անվճար փորձաշրջան, վարկային քարտ չի պահանջվում: Կարդալ ավելինԱզատ Download Now

Ահա օգտակար Ֆայլի անվանացանկ in Excel- ի համար նախատեսված գործիքներ, որը կարող է

>> ցուցակագրել բոլոր նիշքերի բոլոր անունները պանակի բոլոր ձևաչափերում նոր թերթում;

>> ցուցակի ֆայլերի անունները Excel- ում ձեր կողմից նշված մեկ կամ մի քանի ֆայլերի ձևաչափերով:

>> ցուցակի ֆայլերի անունները, ներառյալ ենթապանակները և թաքնված ֆայլերը և պանակները Excel- ում:

Free Trial Հիմա հրաժեշտ տվեք մկնիկի ձեռքի և արգանդի վզիկի սպոնդիլոզին

Kutools-ի 300 առաջադեմ գործիքներ Excel-ի համար 80% Excel-ի առաջադրանքները վայրկյանների ընթացքում ձեզ դուրս են բերում մկնիկի հազարավոր սեղմումներից:

Հեշտությամբ զբաղվեք 1500 աշխատանքային սցենարներով, կարիք չկա ժամանակ վատնել լուծումներ փնտրելու համար, շատ ժամանակ ունեցեք ձեր կյանքը վայելելու համար: Ամեն օր բարելավեք 80% արտադրողականությունը 110000+ բարձր արդյունավետությամբ մարդկանց համար, իհարկե, ներառյալ ձեզ: Այլևս չտանջվեք ցավոտ բանաձևերից և VBA- ից, ձեր ուղեղին հանգստացեք և ուրախ աշխատանքային տրամադրություն տվեք: 30-օրյա անվճար փորձարկում՝ ամբողջական հնարավորություններով, 30-օրյա գումարի վերադարձ՝ առանց պատճառների։ Ավելի լավ մարմինը ստեղծում է ավելի լավ կյանք:

Կարդալ ավելին Download Now

Excel- ի համար Kutools- ի անվճար տեղադրումից հետո արեք, ինչպես ստորև.

1. Միացրեք աշխատանքային գիրքը, որը ցանկանում եք թվարկել ֆայլի անունները, ապա կտտացնել Kutools Plus > Ներմուծում / Արտահանում > Ֆայլի անվանացանկ.

2. Մեջ Ֆայլի անվանացանկ երկխոսություն, նախ `կտտացրեք  ընտրելու համար այն թղթապանակը, որը ցանկանում եք թվարկել դրա ֆայլի անունները, ապա կարող եք ստուգել վանդակները Ներառեք ֆայլերը ենթագրացուցակներում և Ներառեք թաքնված ֆայլերը և պանակները ինչպես դուք պետք է:

3. Դրանից հետո ընտրեք այն ֆայլի ձևաչափը, որի մեջ ցանկանում եք թվարկել անունները Ֆայլերի տեսակը բաժնում:

Ստուգում Բոլոր ֆայլերը տարբերակը, այն կցուցադրի բոլոր ֆայլերի անունները ընտրված թղթապանակում գտնվող բոլոր ֆայլերի ձևաչափերում

Ստուգում Ընդհանուր տարբերակը և ընտրեք այն ֆայլի կոնկրետ ձևաչափը, որը ցանկանում եք ցուցակի ցուցակում թվարկել ֆայլի անունները, ապա այն կցուցադրի ձեր կողմից ընտրված ֆայլի ձևաչափի բոլոր ֆայլի անունները

Ստուգում Մատնանշել տարբերակ, ապա մուտքագրեք ֆայլի ընդարձակումները (օգտագործելով ստորակետ ՝ դրանք առանձնացնելու համար): Դուք ցանկանում եք ֆայլերի անունները ցուցակել տեքստային տուփում, ապա այն միայն ցուցակելու է ֆայլերի անունները Excel- ում մուտքագրող ֆայլերի ընդլայնումներով:

4. Ընտրեք չափի միավորը, քանի որ ձեզ հարկավոր է բացվող ցուցակից ներս Ֆայլի չափի միավոր բաժնում, եթե ցանկանում եք հղում ստեղծել ֆայլի անունների վրա, ստուգեք Ստեղծեք հիպերհղումներ տարբերակ.

5: սեղմեք Ok, կստեղծվի նոր թերթ `ֆայլի անունները և որոշ տեղեկատվություն ֆայլերը թվարկելու համար:

Ձեր պատասխանը ուղարկված չէ: եթե ցանկանում եք ցուցակում թվարկել բոլոր թերթերի անունները, կարող եք կիրառել Kutools Excel- ի համար ' Ստեղծեք թերթիկների անունների ցուցակ օգտակարություն, այն կստեղծի նոր թերթ `բոլոր կապվող թերթիկների անունները թվարկելու համար:

Excel- ի համար նախատեսված գործիքներ+ օգտակար օգտակար գործիքներ ՝ Excel- ի բարդ առաջադրանքները պարզեցնելով մի քանի կտտոցների:

Առաջարկվող արտադրողականության գործիքներ

Office Tab - Microsoft Office 2019 - 2003 և Office 365 փաստաթղթերի ներդիրներով զննում, խմբագրում, կառավարում փաստաթղթերի

Անվճար ներբեռնում

Excel 2019–2007 – ի արագացման համար արհեստավարժ լրացում ՝ ժամերի առաջադրանքները կրճատելով վայրկյանների

Այս հավելումը ներառում է տասնյակ մասնագիտական ​​խմբեր, 300+ ընտրանքներով ավտոմատացնում են ձեր ամենօրյա առաջադրանքները Excel- ում և բարձրացնում ձեր արտադրողականությունը առնվազն 50% -ով: Օրինակ `մեկ կտտոցով օպտոնների խմբերի և խմբաքանակի փոխակերպումների:
Այժմ ձեր հնարավորությունն է արագացնել ձեզ Excel- ի համար նախատեսված Kutools- ը:

Անվճար ներբեռնում