Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս ֆայլեր տեղադրել գրացուցակում և պատճենել տվյալները Excel- ի գլխավոր թերթի մեջ:

Ենթադրելով, որ թղթապանակում կան բազմաթիվ Excel աշխատանքային գրքեր, և դուք ցանկանում եք պտտվել այս բոլոր Excel ֆայլերի մեջ և տվյալների պատճենել նույն անունի սահմանված տիրույթից ՝ Excel- ի գլխավոր աշխատանքային թերթում, ի՞նչ կարող եք անել: Այս հոդվածը մանրամասնորեն ներկայացնում է դրան հասնելու մեթոդ:

Ֆայլերի միջով անցեք գրացուցակում և պատճենեք տվյալները VBA կոդով հիմնական թերթի մեջ


Ֆայլերի միջով անցեք գրացուցակում և պատճենեք տվյալները VBA կոդով հիմնական թերթի մեջ

Եթե ​​ցանկանում եք A1: D4 տիրույթի սահմանված տվյալները պատճենել որոշակի թղթապանակի աշխատանքային գրքերի բոլոր թերթ 1-ից `հիմնական թերթիկի մեջ, խնդրում ենք վարվել հետևյալ կերպ.

1. Աշխատանքային գրքում դուք կստեղծեք հիմնական աշխատանքային թերթ, սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդը ծածկագրի պատուհանում:

VBA կոդ. Թղթապանակում տեղադրեք թղթապանակի ֆայլերը և պատճենեք տվյալները հիմնական թերթիկի մեջ

Sub Merge2MultiSheets()
    Dim xRg As Range
    Dim xSelItem As Variant
    Dim xFileDlg As FileDialog
    Dim xFileName, xSheetName, xRgStr As String
    Dim xBook, xWorkBook As Workbook
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    xSheetName = "Sheet1"
    xRgStr = "A1:D4"
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    With xFileDlg
        If .Show = -1 Then
            xSelItem = .SelectedItems.Item(1)
            Set xWorkBook = ThisWorkbook
            Set xSheet = xWorkBook.Sheets("New Sheet")
            If xSheet Is Nothing Then
                xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.Count)).Name = "New Sheet"
                Set xSheet = xWorkBook.Sheets("New Sheet")
            End If
            xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
            If xFileName = "" Then Exit Sub
            Do Until xFileName = ""
               Set xBook = Workbooks.Open(xSelItem & "\" & xFileName)
                Set xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
                xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
                xFileName = Dir()
                xBook.Close
            Loop
        End If
    End With
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Նշում:

1) Կոդում «A1: D4"Եւ"Sheet1”Նշանակում է, որ ամբողջ Sheet1- ի A4: D1 տիրույթում գտնվող տվյալները պատճենվելու են հիմնական թերթում: Եվ «Նոր թերթ”- նոր ստեղծված գլխավոր թերթի անունն է:
2) Հատուկ թղթապանակում գտնվող Excel ֆայլերը չպետք է բացվեն:

3. Սեղմեք F5 ծածկագիրը գործելու համար:

4. Բացման մեջ Թերթել պատուհանը, ընտրեք պանակը, որը պարունակում է այն ֆայլերը, որոնցում դուք կփոխանցեք, ապա կտտացրեք OK կոճակ Տեսեք,

Այնուհետև ընթացիկ աշխատանքային գրքի վերջում ստեղծվում է «Նոր թերթ» անունով հիմնական աշխատաթերթ: Իսկ ընտրված թղթապանակի A1: D4 տիրույթի բոլոր տվյալները նշված են աշխատաթերթի ներսում:


Առնչվող հոդվածներ քանակը:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (20)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն vba կոդի համար: Այն աշխատում է կատարելապես! Կցանկանայի՞ք իմանալ, թե որն է կոդը, եթե դրա փոխարեն պետք է PASTE AS VALUE: Thx նախապես!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Լայ Լինգ,
Հետևյալ կոդը կարող է օգնել ձեզ լուծել խնդիրը. Շնորհակալություն մեկնաբանության համար։

Sub Merge2MultiSheets()
Dim xRg որպես տիրույթ
Dim xSelItem որպես տարբերակ
Dim xFileDlg As FileDialog
Խոնավեցրեք xFileName, xSheetName, xRgStr որպես տող
Dim xBook, xWorkBook As Workbook-ը
Dim xSheet As Worksheet-ը
Ս.թ. սխալի Ռեզյումե Next
Application.DisplayAlerts = Սխալ
Application.EnableEvents = False
Դիմում. ScreenUpdating = Սուտ է
xSheetName = "Թերթ 1"
xRgStr = «A1:D4»
Սահմանել xFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xFileDlg-ով
Եթե ​​.Ցույց տալ = -1 Ապա
xSelItem = .SelectedItems.Item(1)
Սահմանել xWorkBook = ThisWorkbook
Սահմանել xSheet = xWorkBook.Sheets («Նոր թերթ»)
Եթե ​​xSheet-ը ոչինչ է, ապա
xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.count)).Name = "New Sheet"
Սահմանել xSheet = xWorkBook.Sheets («Նոր թերթ»)
Վերջ: Եթե
xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
Եթե ​​xFileName = "" Ապա Դուրս եկեք Sub
Արեք մինչև xFileName = ""
Սահմանել xBook = Workbooks.Open (xSelItem & "\" & xFileName)
Սահմանել xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
xFileName = Dir()
xBook.Close
Հանգույց
Վերջ: Եթե
Վերջ
Սահմանել xRg = xSheet.UsedRange
xRg.ClearFormats
xRg.UseStandardHeight = Ճշմարիտ
xRg.UseStandardWidth = Ճշմարիտ
Application.DisplayAlerts = Ճիշտ է
Application.EnableEvents = Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շնորհակալություն կոդի համար: Խնդրում եմ, կարո՞ղ եք ինձ տեղեկացնել, թե ինչպես կարող եմ ներառել Excel ֆայլի անունը, որտեղից պատճենվել է տվյալների տիրույթը: Սա մեծ օգնություն կլինի:

Շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Շնորհակալություն ձեռնարկի համար:

Ինչպե՞ս կարող եմ. պատճենել միայն «Sheet1» տողը «ընդհանուր» տողից արժեքներով և տեղադրել [filename]-ով «New Sheet» անունով հիմնական աշխատաթերթում: Total-ով տողը նշելը կարող է տարբեր լինել յուրաքանչյուր աշխատաթերթում:

Օրինակ `
Ֆայլ 1. Թերթ 1
Col1, Col2, Colx
1,2,15
Արդյունք, 10,50

Ֆայլ 2. Թերթ 1
Col1, Col2, Colx
1,5,10
2,4,16
3,3,6
4,5,6
5,7,10
Արդյունք, 300,500

MasterFile. «Նոր թերթ».
ֆայլ 1, 10, 50
ֆայլ 2, 300, 500
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, սա հիանալի է աշխատում: Արդյոք կա՞ փոխելու միջոց՝ պարզապես արժեքները, այլ ոչ թե բանաձեւը անցնելու համար:
Thanks !!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Trish,
Հետևյալ կոդը կարող է օգնել ձեզ լուծել խնդիրը. Շնորհակալություն մեկնաբանության համար։

Sub Merge2MultiSheets()
Dim xRg որպես տիրույթ
Dim xSelItem որպես տարբերակ
Dim xFileDlg As FileDialog
Խոնավեցրեք xFileName, xSheetName, xRgStr որպես տող
Dim xBook, xWorkBook As Workbook-ը
Dim xSheet As Worksheet-ը
Ս.թ. սխալի Ռեզյումե Next
Application.DisplayAlerts = Սխալ
Application.EnableEvents = False
Դիմում. ScreenUpdating = Սուտ է
xSheetName = "Թերթ 1"
xRgStr = «A1:D4»
Սահմանել xFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xFileDlg-ով
Եթե ​​.Ցույց տալ = -1 Ապա
xSelItem = .SelectedItems.Item(1)
Սահմանել xWorkBook = ThisWorkbook
Սահմանել xSheet = xWorkBook.Sheets («Նոր թերթ»)
Եթե ​​xSheet-ը ոչինչ է, ապա
xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.count)).Name = "New Sheet"
Սահմանել xSheet = xWorkBook.Sheets («Նոր թերթ»)
Վերջ: Եթե
xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
Եթե ​​xFileName = "" Ապա Դուրս եկեք Sub
Արեք մինչև xFileName = ""
Սահմանել xBook = Workbooks.Open (xSelItem & "\" & xFileName)
Սահմանել xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
xFileName = Dir()
xBook.Close
Հանգույց
Վերջ: Եթե
Վերջ
Սահմանել xRg = xSheet.UsedRange
xRg.ClearFormats
xRg.UseStandardHeight = Ճշմարիտ
xRg.UseStandardWidth = Ճշմարիտ
Application.DisplayAlerts = Ճիշտ է
Application.EnableEvents = Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, այն դեռևս քաշում է ոչ թե արժեքները, այլ բանաձևերը, ուստի ինձ տալիս է #REF սխալ: Ես գիտեմ, որ դա կարող է ինչ-որ տեղ .PasteSpecial xlPasteValues-ի կարիք ունենալ, բայց ես չեմ կարող հասկանալ, թե որտեղ: Կարող եք օգնել? Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Շնորհակալություն դրա համար:


Ինչպե՞ս կարող եմ ներառել կոդը բոլոր թղթապանակների և ենթաթղթապանակների միջով անցնելու և վերը նշված պատճենը կատարելու համար:


Thanks!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև - Այս կոդը կատարյալ է այն ամենի համար, ինչ ես փորձում եմ հասնել:

Կա՞ միջոց բոլոր թղթապանակների և ենթաթղթապանակների միջով անցնելու և պատճենումը կատարելու:


Thanks!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն – Այս կոդը շատ լավ է աշխատում յուրաքանչյուր ֆայլի առաջին 565 տողերի համար, բայց հետո բոլոր տողերը համընկնում են հաջորդ ֆայլի հետ:
կա՞ սա շտկելու միջոց
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն. ինչպե՞ս կարելի է պատճենել և տեղադրել (հատուկ արժեքները) աշխատանքային գրքույկի յուրաքանչյուր աշխատաթերթից հիմնական Master ֆայլի առանձին թերթերի մեջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող ես ծածկագիրը թողնել դատարկ, եթե բջիջը դատարկ է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինձ համար «Sheet1» ներդիրի անունը փոխվում է իմ յուրաքանչյուր ֆայլի համար: Օրինակ՝ Tab1, Tab2, Tab3, Tab4...Ինչպե՞ս կարող եմ կարգավորել օղակ, որպեսզի անցնի Excel-ի ցուցակը և շարունակի փոխել «Sheet1» անունը, մինչև այն անցնի ամեն ինչի միջով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Նիկ, ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում ենք փորձել: Sub LoopThroughFileRename()
«Թարմացվել է Extendofice 2021/12/31-ի կողմից
Dim xRg որպես տիրույթ
Dim xSelItem որպես տարբերակ
Dim xFileDlg As FileDialog
Խոնավեցրեք xFileName, xSheetName, xRgStr որպես տող
Dim xBook, xWorkBook As Workbook-ը
Dim xSheet As Worksheet-ը
Dim xShs As Sheets
Dim xName As String
Dim xFNum-ը որպես ամբողջ թիվ
Ս.թ. սխալի Ռեզյումե Next
Application.DisplayAlerts = Սխալ
Application.EnableEvents = False
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xFileDlg.Show
xSelItem = xFileDlg.SelectedItems.Item(1)
xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
Do while xFileName <> ""
Սահմանել xWorkBook = Workbooks.Open (xSelItem & "\" & xFileName)
Սահմանել xShs = xWorkBook.Sheets
xFNum-ի համար = 1 To xShs.Count
Սահմանել xSheet = xShs.Item (xFNum)
xName = xSheet.Name
xName = Փոխարինել (xName, "Թերթ""Tab«) «Փոխարինել թերթիկը ներդիրով
xSheet.Name = xName
հաջորդ
xWorkBook.Save
xWorkBook.Փակել
xFileName = Dir()
Հանգույց
Application.DisplayAlerts = Ճիշտ է
Application.EnableEvents = Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես ուզում եմ կոդը պատճենել տվյալները 6 տարբեր աշխատանքային գրքույկներում (թղթապանակում), որոնց մեջ ներառված են թերթիկներ ՆՈՐ ԱՇԽԱՏԱՆՔԱՅԻՆ ԳՐՔՈՒՄ: vba-ում
խնդրում եմ օգնեք ինձ asp
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Պարանուշա,
Հետևյալ հոդվածում VBA սկրիպտը կարող է միավորել բազմաթիվ աշխատանքային գրքույկներ կամ աշխատանքային գրքույկների նշված թերթիկներ հիմնական աշխատանքային գրքույկի հետ: Խնդրում ենք ստուգել, ​​արդյոք դա կարող է օգնել:
Ինչպե՞ս համատեղել բազմաթիվ աշխատանքային գրքույկներ Excel-ում մեկ հիմնական աշխատանքային գրքույկի մեջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Olá bom dia.
Gostei muito dessde codigo, mas não me ajudou com os relatórios que eu preciso impreimir.
Preciso imprimir 2.400 relatório de exel que estão em pastas diferentes and não estão configuradas corretamente para impressão. Կարող եմ նախանձել, որ VBA-ն ավտոմատացնե՞ր տպավորությունները: Me ajudaria muito, obrigada.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մարիա Սոարես,
Խնդրում ենք ստուգել, ​​արդյոք կարող է օգնել հետևյալ գրառման VBA կոդը:
Ինչպե՞ս տպել բազմաթիվ աշխատանքային գրքեր Excel- ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իմ սցենարը նման է, բացառությամբ, որ ես ունեմ մի քանի թերթ յուրաքանչյուր ֆայլում, բոլորը տարբեր անուններով, բայց համահունչ ֆայլերի միջև: Արդյո՞ք կա այս կոդը Loop-ի միջոցով պատճենելու տվյալները ֆայլերի ներսում և տեղադրելու (արժեքները) հիմնական աշխատանքային գրքում հատուկ թերթերի անուններում: Հիմնականում թերթերի անունները նույնն են, ինչ ֆայլերում: Ես ուզում եմ շրջել դրանց միջով: Նաև յուրաքանչյուր թերթիկի տվյալների քանակը տարբեր կլինի, ուստի ես պետք է ընտրեմ յուրաքանչյուր թերթի տվյալները՝ օգտագործելով հետևյալը.

Շրջանակ («A1»): Ընտրեք
Range(Selection, Selection.End(xlDown)).Ընտրեք
Range(Selection, Selection.End(xlToRight)).Ընտրեք


Ֆայլի թերթիկների անվանումներն են՝ Տալ, Ծառայություններ, Ապահովագրություն, Մեքենա, Այլ Ծախսեր և այլն...

Thanks in advance.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Էնդրյու Շահան,
Հետևյալ VBA կոդը կարող է լուծել ձեր խնդիրը. Կոդը գործարկելուց և թղթապանակ ընտրելուց հետո կոդը ավտոմատ կերպով կհամապատասխանի աշխատաթերթին ըստ անվանման և տվյալները կտեղադրի հիմնական աշխատանքային գրքում նույնանուն աշխատաթերթում:
Sub Merge2MultiSheets()
'Updated by Extendoffice 20221209
    Dim xRg As Range
    Dim xSelItem As Variant
    Dim xFileDlg As FileDialog
    Dim xFileName, xSheetName, xRgStr As String
    Dim xBook As Workbook, xMainBook As Workbook
    Dim xSheet As Worksheet
    On Error Resume Next
    
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Set xMainBook = ThisWorkbook
    
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    With xFileDlg
        If .Show = -1 Then
            xSelItem = .SelectedItems.Item(1)
            xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
            If xFileName = "" Then Exit Sub
            
            Do Until xFileName = ""
            Set xBook = Workbooks.Open(xSelItem & "\" & xFileName)

            For Start = 1 To xBook.Worksheets.Count
                Set xSheet = xBook.Worksheets.Item(Start)
                xSheet.Activate
                xSheetName = xSheet.Name
                xSheet.UsedRange.Copy (xMainBook.Worksheets.Item(xSheetName).Range("A1048576").End(xlUp).Offset(1, 0))
            Next
                xFileName = Dir()
                xBook.Close
            Loop
        End If
    End With
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից