Filtrlənmiş hüceyrələrin içərisinə necə daxil etmək olar. Excel-də görünən sətirlərə yapışdırın. Sətirləri Sütunlara və Yenidən Geriyə çevirmək
Pavlov Nikolay
Bu yazıda sizə işləmək üçün ən təsirli üsulları təqdim etmək istərdim Microsoft Excel, son 10 il ərzində layihələr üzərində işləmək və bu gözəl proqram üzrə təlimlər keçirmək zamanı topladığım. Burada super mürəkkəb texnologiyaların təsviri yoxdur, lakin hər gün üçün üsullar var - sadə və effektiv, "su" olmadan təsvir - yalnız "quru qalıq". Bu nümunələrin əksəriyyətini mənimsəmək bir və ya iki dəqiqədən çox çəkməyəcək, lakin onlar sizə daha çox qənaət etməyə kömək edəcək.
Sürətlə istədiyiniz vərəqə keçin
Sizinlə işləyirsiniz Excel iş dəftərləriçoxlu sayda vərəqdən ibarətdir? Əgər onlardan çoxu varsa, onda növbəti tələb olunan vərəqə hər keçid özlüyündə kiçik bir problemə çevrilir. Bu problemin sadə və zərif bir həlli pəncərənin aşağı sol küncündə vərəq nişanlarını sola deyil, sağ siçan düyməsinə sürüşdürmək üçün düymələri vurmaqdır - kitabın məzmunu cədvəli ilə görünəcək. tam siyahı bütün vərəqlər və istədiyiniz vərəqə bir hərəkətlə keçə bilərsiniz:
Bu, sizə lazım olanı axtarmaq üçün eyni düymələrdən istifadə edərək vərəqlər arasında sürüşməkdən daha sürətlidir.
Formatlamaya zərər vermədən kopyalayın
Təlimlər zamanı tələbələrimin arxasında dayanan bu şəkli neçə yüzlərlə (minlərlə?) dəfə görmüşəm: istifadəçi birinci xanaya düstur daxil edir və sonra onu bütün sütun üzrə “uzanır”, aşağıdakı sətirlərin formatını pozur, çünki bu üsul təkcə düsturu deyil, həm də hüceyrə formatını kopyalayır. Müvafiq olaraq, daha sonra zərəri əl ilə düzəltməlisiniz. Kopyalamaq üçün bir saniyə və sonra kopyalama ilə zədələnmiş dizaynı təmir etmək üçün 30.
Excel 2002-dən başlayaraq bu problemin sadə və zərif həlli var. Formulu bütün sütuna köçürdükdən (sürüklədikdən) dərhal sonra ağıllı etiketdən istifadə etməlisiniz - müvəqqəti olaraq diapazonun aşağı sağ küncündə görünən kiçik bir simvol. Bunun üzərinə kliklədikdə siyahı görünəcək mümkün variantlar Kopyalama, burada formatlaşdırmadan Doldur seçə bilərsiniz. Bu halda, düsturlar kopyalanır, lakin formatlaşdırma belə deyil:
Yalnız görünən hüceyrələrin kopyalanması
Əgər siz Microsoft Excel-də bir həftədən çox işləyirsinizsə, artıq oxşar problemlə qarşılaşmısınız: bəzi hallarda xanaları kopyalayıb yapışdırarkən, ilk baxışda kopyalanandan daha çox xana daxil edilir. Kopyalanan diapazonda gizli sətirlər/sütunlar, qruplaşmalar, yarımcəmlər və ya filtrasiya varsa, bu baş verə bilər. Nümunə olaraq bu hallardan birini götürək:
Bu cədvəldə yarımcəmlər hesablanır və sətirlər şəhər üzrə qruplaşdırılır - bunu cədvəlin solunda yerləşən artı-mənfi düymələri və görünən cərgələrin nömrələnməsində fasilələrlə başa düşmək asandır. Bu cədvəldən məlumatları adi şəkildə seçib, kopyalayıb yapışdırsaq, 24 əlavə sətir əldə edəcəyik. Biz yalnız nəticələri kopyalayıb yapışdırmaq istəyirik!
Problemi CTRL düyməsini basıb saxlayarkən cəmlərin hər bir sırasını diqqətlə seçməklə həll edə bilərsiniz - bitişik olmayan diapazonları seçmək üçün olduğu kimi. Bəs üç-beş belə sətir yox, bir neçə yüz və ya minlərlə olarsa necə? Başqa, daha sürətli və daha rahat bir yol var:
Kopyalanacaq diapazonu seçin (bizim nümunəmizdə A1:C29-dur)
Klaviaturanızda F5 düyməsini, sonra açılan pəncərədə Seç düyməsini sıxın.
İstifadəçiyə ardıcıl olaraq hər şeyi deyil, yalnız lazımi xanaları seçməyə imkan verən bir pəncərə görünəcək:
Bu pəncərədə Yalnız görünən hüceyrələr seçimini seçin və OK düyməsini basın.
Nəticə seçimi indi təhlükəsiz şəkildə kopyalana və yapışdırıla bilər. Nəticədə, biz dəqiq surətini alacağıq görünən hüceyrələr və lazımsız 29 yerinə yalnız bizə lazım olan 5 sətir daxil edin.
Əgər belə bir əməliyyatı tez-tez yerinə yetirməli olduğunuzdan şübhələnirsinizsə, belə bir funksiyanı tez bir zamanda çağırmaq üçün Microsoft Excel alətlər panelinə bir düymə əlavə etməyin mənası var. Bunu Alətlər> Fərdiləşdir menyusu vasitəsilə etmək olar, sonra Əmrlər sekmesine keçin, Redaktə etmək kateqoriyasında Görünən hüceyrələri seçin düyməsini tapın və siçan ilə alətlər panelinə sürükləyin:
Sətirləri Sütunlara və Yenidən Geriyə çevirmək
Sadə bir əməliyyat, ancaq bunu necə düzgün edəcəyinizi bilmirsinizsə, ayrı-ayrı hüceyrələri əl ilə sürükləmək üçün yarım gün sərf edə bilərsiniz:
Əslində sadədir. Ali riyaziyyatın matrisləri təsvir edən hissəsində transpozisiya anlayışı var - matrisdə sətir və sütunları bir-biri ilə əvəz edən hərəkət. Microsoft Excel-də bu, üç mərhələdə həyata keçirilir: Cədvəli kopyalayın
Boş xanaya sağ klikləyin və Xüsusi Yapışdır seçin.
Açılan pəncərədə Transpoze bayrağını yoxlayın və OK düyməsini basın:
Tez bir qrafikə məlumat əlavə edin
Sadə bir vəziyyəti təsəvvür edək: vizual diaqramla keçən ay üçün hesabatınız var. Tapşırıq bu ay üçün qrafikə yeni rəqəmsal məlumat əlavə etməkdir. Bunu həll etməyin klassik yolu, diaqram üçün məlumat mənbəyi pəncərəsini açmaqdır, burada adını daxil etməklə və aralığı istədiyiniz məlumatla vurğulamaqla yeni məlumat seriyası əlavə edirsiniz. Üstəlik, bunu demək çox vaxt etməkdən daha asandır - hamısı diaqramın mürəkkəbliyindən asılıdır.
Başqa bir yol - sadə, sürətli və gözəl - yeni məlumatları olan xanaları seçmək, onları kopyalamaq (CTRL+C) və birbaşa diaqrama yapışdırmaqdır (CTRL+V). Excel 2003, sonrakı versiyalardan fərqli olaraq, hətta seçilmiş məlumat xanalarının diapazonunu dartıb siçan vasitəsilə birbaşa diaqrama atmaq qabiliyyətini dəstəkləyir!
Bütün nüanslara və incəliklərə nəzarət etmək istəyirsinizsə, o zaman menyudan Edit > Paste Special seçərək adi deyil, xüsusi pastadan istifadə edə bilərsiniz. Bu halda, Microsoft Excel yeni məlumatların dəqiq harada və necə əlavə olunacağını konfiqurasiya etməyə imkan verən bir dialoq qutusu göstərəcək:
Eynilə, müxtəlif vərəqlərdəki müxtəlif cədvəllərdən verilənlərdən istifadə edərək asanlıqla diaqram yarada bilərsiniz. Eyni işi klassik şəkildə yerinə yetirmək daha çox vaxt və səy tələb edəcəkdir.
Boş hüceyrələrin doldurulması
Bəzi proqramlardan hesabatları endirdikdən sonra Excel formatı və ya pivot cədvəlləri yaratarkən istifadəçilər tez-tez bəzi sütunlarda boş xanaları olan cədvəllərlə nəticələnirlər. Bu boşluqlar cədvəllərə avtomatik filtrləmə və çeşidləmə kimi tanış və rahat alətləri tətbiq etməyə imkan vermir. Təbii ki, boşluqları daha yüksək səviyyəli hüceyrələrdən alınan dəyərlərlə doldurmağa ehtiyac var:
Əlbəttə ki, az miqdarda məlumatla bunu sadə surətdə çıxarmaqla asanlıqla həyata keçirmək olar - A sütununda hər bir başlıq xanasını əl ilə boş xanalara sürükləmək. Cədvəldə bir neçə yüz və ya min cərgə və bir neçə onlarla şəhər varsa nə etməli?
Bir düsturdan istifadə edərək bu problemi tez və gözəl şəkildə həll etməyin bir yolu var:
Boş boşluqları olan sütundakı bütün xanaları seçin (məsələn, bizim vəziyyətimizdə A1: A12 diapazonu)
Seçimdə yalnız boş xanaları saxlamaq üçün F5 düyməsini və açılan naviqasiya pəncərəsində Seç düyməsini sıxın. Hansı xanaları seçmək istədiyinizi seçməyə imkan verən bir pəncərə görəcəksiniz:
Düyməni Boş vəziyyətinə qoyun və OK düyməsini basın. İndi seçimdə yalnız boş xanalar qalmalıdır:
Seçimi dəyişdirmədən, yəni. Siçana toxunmadan düsturu ilk seçilmiş xanaya (A2) daxil edin. Klaviaturanızda bərabər işarəsini, sonra yuxarı oxu basın. Əvvəlki hüceyrəyə istinad edən bir düstur alırıq:
Yaradılmış düsturu bir anda bütün seçilmiş boş xanalara daxil etmək üçün ENTER düyməsini deyil, CTRL + ENTER birləşməsini basın. Formula bütün boş xanaları dolduracaq:
İndi qalan yalnız nəticələri qeyd etmək üçün düsturları dəyərlərlə əvəz etməkdir. A1: A12 diapazonunu seçin, onu kopyalayın və Xüsusi Yapışdırmaqdan istifadə edərək dəyərlərini hüceyrələrə yapışdırın.
Hüceyrədəki açılan siyahı
Mübaliğəsiz Exceldə işləyən hər kəsin bilməli olduğu texnika. Onun istifadəsi məqsədindən asılı olmayaraq demək olar ki, hər hansı bir cədvəli yaxşılaşdıra bilər. Bütün məşqlərdə çalışıram ki, ilk gün tələbələrimə bunu göstərim.
İdeya çox sadədir - hər hansı bir dəstdən məlumat daxil etməli olduğunuz bütün hallarda, klaviaturadan hüceyrəni əl ilə daxil etmək əvəzinə, açılan siyahıdan siçan ilə istədiyiniz dəyəri seçin:
Qiymət siyahısından məhsulun seçilməsi, müştəri məlumat bazasından müştərinin adı, ştat cədvəlindən işçinin tam adı və s. Bu funksiyadan istifadə etmək üçün bir çox variant var.
Hüceyrədə açılan siyahı yaratmaq üçün:
Açılan siyahı yaratmaq istədiyiniz xanaları seçin.
Excel 2003 və ya daha köhnə versiyanız varsa, menyudan Data>Validation seçin. Əgər sizdə Excel 2007/2010 varsa, Məlumatlar sekmesine keçin və Məlumatların doğrulanması düyməsini klikləyin.
Açılan pəncərədə açılan siyahıdan Siyahı seçimini seçin.
Mənbə sahəsində siyahıda olması lazım olan dəyərləri göstərməlisiniz. Budur mümkün variantlar:
Bu sahəyə nöqtəli vergüllə ayrılmış mətn seçimlərini daxil edin
Orijinal dəyərləri olan xanaların diapazonu cari vərəqdədirsə, onu sadəcə siçan ilə seçmək lazımdır.
Əgər o, bu iş kitabının başqa vərəqində yerləşirsə, onda siz əvvəlcədən ona ad verməli olacaqsınız (xanaları seçin, CTRL+F3 düymələrini basın, aralığın adını boşluq olmadan daxil edin) və sonra bu adı sahəyə yazın.
Yalnız görünən xətlərə yapışdırınExcel rəqəmlər, düsturlar, mətn bir neçə yolla edilə bilər. Cədvəlin bütün sətirlərinə deyil, rəqəmlər, düsturlar, mətn daxil etmək lazım olduqda, filtrdən istifadə edə bilərsiniz. Bir filtri necə quraşdırmaq və Excel-də necə süzmək olar, "Excel-də filtr" məqaləsinə baxın. Ancaq məlumatları yalnız görünən hüceyrələrə daxil etmək üçün, xüsusən də bir çox satır varsa, öz metodlarınız lazımdır.
Birinci yoldur adi siravi .
Gəlin belə bir masa götürək. Cədvəl bütün nümunələr üçün eyni olacaq.
Cədvəldən bütün 2 rəqəmlərini silmək üçün filtrdən istifadə edək. Qalan görünən xanalarda biz 600 rəqəmini qoyuruq. B2 xanasına 600 rəqəmini qoyuruq, sonra onu sütunun aşağısına köçürük (B2 xanasının aşağı sağ küncünü çəkin). Dəyərlər yalnız görünən xanalara kopyalandı. Eyni şəkildə düsturları da daxil edə bilərsiniz. C2 xanasına aşağıdakı düsturu yazırıq. =A2*10
Belə çıxdı. 
Gəlin filtri ləğv edək. Nəticə belə bir cədvəldir.
Düstur və rəqəmlər yalnız süzülmüş sətirlərə daxil edilmişdir.
İkinci yol.
Biz həmçinin məlumatları filtrləyəcəyik. Birinci xanaya rəqəm, düstur, mətn və s. İndi minlərlə cərgə varsa, bu kimi xanaları seçin: "Ctrl" + "Shift" + aşağı ox düyməsini basın (yaxud xanaları seçmək istədiyimiz yerdən asılı olaraq yuxarı düymə - aşağıda və ya yuxarıda) nömrənin yazıldığı xana) .
İndi, və ya "Ctrl" + G düymələri birləşməsini və ya F5 düyməsini basın. Keçid informasiya qutusu görünəcək. "Seç..." düyməsini basın. Və yeni "Bir qrup hüceyrə seçin" informasiya qutusunda "Yalnız görünən hüceyrələr" sözlərinin yanındakı qutuyu işarələyin.
"OK" düyməsini basın. Sonra hər zamanki kimi daxil edin.
Hüceyrələr Qrupunu Seçin dialoq qutusunu gətirməyin başqa bir yolu."Ev" sekmesinde, "Redaktə" bölməsində "Tap və Seç" düyməsini basın. Görünən siyahıda "Bir qrup hüceyrə seçin" funksiyasını vurun.
Kimə seçilmiş xanalarda görünən xanaları doldurun Excel sütunları , "Ctrl" + D düymələri birləşməsini basın. Və bütün seçilmiş sütunlar birinci xanada olduğu kimi məlumat və ya düsturla doldurulacaq. Nümunəmizdə D2 xanasının D sütununa 800 rəqəmini yazdıq.
Üçüncü yol.
Yeni sütunda (nümunəmizdə E sütunu) xanaları seçin. F5 düyməsini basın. Keçid informasiya qutusu görünəcək. "Seç..." düyməsini basın. Və yeni "Bir qrup hüceyrə seçin" informasiya qutusunda "Yalnız görünən hüceyrələr" sözlərinin yanındakı qutuyu yoxlayın. "OK" düyməsini basın. İndi seçimi ləğv etmədən, sütunun birinci xanasına (bizimki E2) düstur, nömrə və s. "Ctrl" + "Enter" düymələri birləşməsini basın.
Excel-də məlumat seçimi filtr və ya çeşidləmə vasitəsi ilə həyata keçirilirdi. İndi onları çap etmək və ya başqa yerə köçürmək lazımdır. Excel-ə kopyalayın gizli hüceyrələrin də kopyalanması üçün konfiqurasiya edilmişdir.
Gəlin iki yolu nəzərdən keçirək, Kimə
Excel-də süzülmüş sətirləri necə kopyalamaq olar.
Birinci yol.
Excel-də əla funksiya var - Xüsusi funksiyanı Excel-də yapışdırın.
Beləliklə, masamız var.
Bir filtri necə quraşdırmaq olar, məqaləyə baxın " Excel-də filtr ".
Bütün İvanovları siyahıdan çıxarmaq üçün filtrdən istifadə edirik. Belə çıxdı.
Cədvəl seçin və kontekst menyusunda "Kopyala" düyməsini basın. A9 xanasına sol klikləyin və kontekst menyusunda "dəyərlər" seçin.
"OK" düyməsini basın. Voila. Yalnız görünən sıraların dəyəri deyil, həm də xanaların formatı kopyalandı.
Bir nüans var- filtrin yerləşdiyi sətirlərə deyil, süzülmüş məlumatları daxil edin. Məsələn, bizim nümunəmizdə - 1-7-ci sətirlərdə deyil, aşağıda və ya başqa vərəqdə və s. Əgər filtrin yerləşdiyi sətirlərə daxil etsək, o zaman süzülmüş məlumatlar da filtrin gizlətdiyi sıralara daxil ediləcək. Ümumiyyətlə, bir qarışıqlıq olacaq. 
İkinci yol.
Cədvəl eynidir. Süzgəcdən keçmiş məlumatları olan cədvəli seçin. "Ev" sekmesinde, "Redaktə" bölməsinə klikləyin Excel-də funksiyaları tapın və vurğulayın. Sonra, "Get" düyməsini basın. Görünən informasiya qutusunda "Seç..." düyməsini basın. "Bir qrup hüceyrə seçin" pəncərəsində "yalnız görünən hüceyrələr" nin yanındakı qutuyu yoxlayın. "OK" düyməsini basın. İndi sağ siçan ilə eyni seçilmiş masada zəng edirik kontekst menyusu. "Kopyala" funksiyasına klikləyin. Yeni yerdə (bizim nümunəmizdə bu, A15 xanasıdır) "Daxil et" düyməsini basın. Hamısı. Belə çıxdı.
Necə, kopyalamadan, dərhal Excel-də filtr məlumatlarını çap edin, məqaləyə baxın "Əlfəcin Excel vərəqi"Səhifə tərtibatı""
Siyahılar və aralıqlar (5)
Makroslar (VBA prosedurları) (63)
Müxtəlif (39)
Excel səhvləri və səhvləri (4)
Kopyalanmış xanaları yalnız görünən/süzülmüş xanalara necə yapışdırmaq olar
Ümumiyyətlə, məqalənin mənası, məncə, artıq başlıqdan aydın görünür. Mən onu bir az genişləndirəcəm.
Heç kimə sirr deyil ki, Excel sizə yalnız görünən sətirləri seçməyə imkan verir (məsələn, bəziləri gizlədilibsə və ya filtr tətbiq edilibsə).
Beləliklə, yalnız görünən hüceyrələri bu şəkildə köçürsəniz, onlar gözlənildiyi kimi kopyalanacaqlar. Lakin süzülmüş diapazona (və ya gizli sətirləri ehtiva edən) kopyalanmış bir şeyi yapışdırmağa çalışdığınız zaman yapışdırmanın nəticəsi gözlədiyiniz kimi olmayacaq. Məlumat hətta gizli sətirlərə də daxil ediləcək.
Tək bir xana aralığını kopyalayın və yalnız görünənlərə yapışdırın
Məlumatları yalnız görünən xanalara daxil etmək üçün aşağıdakı makrodan istifadə edə bilərsiniz:
| Seçim Açıq Dim rCopyRange diapazon kimi “Bu makro ilə biz məlumatları kopyalayırıq Sub My_Copy() Əgər Selection.Count > 1-dirsə, onda rCopyRange = Selection.SpecialCells(xlVisible) təyin edin. Əksinə: rCopyRange = ActiveCell End Əgər Sonda Alt “Bu makro ilə biz seçilmiş xanadan başlayaraq məlumatları daxil edirik Sub My_Paste() Əgər rCopyRange heç bir şey deyilsə, rCopyRange.Areas.Count > 1 olarsa, MsgBox-dan çıxın. "Yapışdırılmış diapazonda birdən çox bölgə olmamalıdır!",vbKritik, "Yanlış sıra": Exit Sub Dim rCell As Range , li As Long , le As Long , lCount As Long , iCol As Long , iCalculation As As Integer Tətbiq.ScreenUpdating = Yanlış iCalculation = Application.Calculation: Application.Calculation = -4135 For iCalculation =1anCopy .Columns.Count li = 0: lCount = 0: le = iCol - rCopyRange.Columns(iCol) daxilindəki hər rCell üçün 1. Hüceyrələr ActiveCell.Offset(li, le).EntireColumn.Hidden = False və _ ActiveCell.Offset olduqda bunu edir. (li, le).EntireRow.Hidden = False Sonra rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 End while lCount >= rCell.Row - rCopyRange.Cells(1) ).Sıra Sonrakı rCell Növbəti iCol Tətbiqi.ScreenUpdating = Doğrudur: Tətbiq.Hesablama = iCalculation End Sub |
Seçim Açıq Dim rCopyRange diapazon kimi "Məlumatları köçürmək üçün bu makrodan istifadə edin Sub My_Copy() Əgər Selection.Count > 1 Sonra rCopyRange = Selection.SpecialCells(xlVisible) təyin edin Əksinə: rCopyRange = End Sub varsa ActiveCell End seçin "Yapışdırmaq üçün bu makrodan istifadə edin. seçilmiş xanalardan başlayan verilənlər Sub My_Paste() Əgər rCopyRange Heç bir şey deyilsə, Çıxın Sub Əgər rCopyRange.Areas.Count > 1 Sonra MsgBox "Yapışdırılmış diapazonda birdən çox sahə olmamalıdır!", vbCritical, "Yanlış diapazon": Çıx Alt Dim rCell diapazon kimi, li kimi uzun, le kimi uzun, lcount kimi uzun, iCol kimi tam, iCalculation As As Application.ScreenUpdating = Yanlış iCalculation = Application.Calculation: Application.Calculation = -4135 For iCol = 1 To rlumCons. .Count li = 0: lCount = 0: le = iCol - rCopyRange.Columns(iCol)-da hər rCell üçün 1. Cells ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset(li) edirsə , le).EntireRow.Hidden = False Sonra rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 End while lCount >= rCell.Row - rCopyRange.Cells(1). Sıra Növbəti rCell Next iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation End Sub
Şəkli tamamlamaq üçün bu makroları isti düymələrə təyin etmək daha yaxşıdır (aşağıdakı kodlarda bu, kodla kitab açarkən avtomatik olaraq edilir). Bunun üçün sadəcə aşağıdakı kodları modula köçürmək lazımdır Bu kitab (Bu iş dəftəri) :
Seçim Açıq "İş kitabını bağlamazdan əvvəl isti düymələrin təyinini ləğv edin Private Sub Workbook_BeforeClose(Ləğv Et Boolean) Application.OnKey "^q": Application.OnKey "^w" End Sub "İş kitabını açarkən isti düymələri təyin edin Private Sub Workbook_Open() Application .OnKey "^q", "My_Copy": Application.OnKey "^w", "My_Paste" End Sub
İndi düymələri basaraq istədiyiniz diapazonu kopyalaya bilərsiniz Ctrl + q , və onu süzülmüş birinə daxil edin - Ctrl + w .
Nümunə yükləyin
(46,5 KiB, 9,622 endirmə)
Yalnız görünən hüceyrələri kopyalayın və yalnız görünənlərə yapışdırın
Sayt ziyarətçilərinin xahişi ilə təkmilləşdirməyə qərar verdim bu prosedur. İndi istənilən diapazonu kopyalamaq mümkündür: gizli cərgələr, gizli sütunlar və kopyalanmış xanaları istənilən diapazona yapışdırın: gizli sıralar, gizli sütunlar ilə. Əvvəlki ilə eyni işləyir: düymələri basmaqla Ctrl
+
q
istədiyiniz diapazonu kopyalayın (gizli/süzülmüş sətir və sütunlarla və ya gizli deyil), və klaviatura qısayolu ilə yapışdırın Ctrl
+
w
. Daxiletmə həmçinin gizli/süzülmüş sətir və sütunlarda və ya gizli olanlar olmadan həyata keçirilir.
Kopyalanan diapazonda düsturlar varsa, istinad yerdəyişməsinin qarşısını almaq üçün yalnız hüceyrə dəyərlərini kopyalaya bilərsiniz - yəni. Dəyərlər daxil edilərkən düsturlar deyil, onların hesablanmasının nəticəsi daxil ediləcək. Və ya daxiletmənin baş verdiyi xanaların formatlarını qorumaq lazımdırsa, yalnız xana dəyərləri kopyalanacaq və yapışdırılacaq. Bunu etmək üçün koddakı xətti dəyişdirməlisiniz (aşağıdakı faylda):
| rCell.Copy rResCell.Offset(lr, lc) |
rCell.Copy rResCell.Offset(lr, lc)
buna:
| rResCell.Offset(lr, lc) = rCell.Value |
rResCell.Offset(lr, lc) = rCell.Value
Bu sətirlərin hər ikisi aşağıdakı faylda mövcuddur; sadəcə olaraq tapşırıqlarınız üçün daha uyğun olanı tərk etməlisiniz.
Yükləmə nümunəsi:
(54,5 KiB, 7,928 endirmə)
Həmçinin baxın:
[]
("Alt panel":("textstyle":"statik","textpositionstatic":"alt","textpositionstatic":true,"textpositionmarginstatic":0,"textpositiondynamic":"bottomleft","textpositionmarginleft":24," textpositionmarginright":24,"textpositionmargintop":24,"textpositionmarginbottom":24,"texteffect":"slide","texteffecteasing":"easeOutCubic","texteffectduration":600,"texteffectslidedirection":"left"texteffects","distance :30,"texteffectdelay":500,"texteffectseparate":false,"texteffect1":"slide","texteffectslidedirection1":"right","texteffectslidedistance1":120,"texteffecteasing1":"easeOuttexteffect:01"duration"Cubic01", ,"texteffectdelay1":1000,"texteffect2":"slide","texteffectslidedirection2":"right","texteffectslidedistance2":120,"texteffecteasing2":"easeOutCubic","texteffectduration2":6010",texteffect2":6010" textcss":"display:block; padding:12px; text-align:sol;","textbgcss":"display:blok; mövqe:absolute; top:0px; sol:0px; en:100%; hündürlük:100% ; background-color:#333333; qeyri-şəffaflıq:0.6; filter:alpha(opacity=60);","titlecss":"display:block; mövqe: qohum; şrift:bold 14px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; rəng:#fff;","descriptioncss":"ekran:blok; mövqe: qohum; şrift:12px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; rəng:#fff; margin-top:8px;","buttoncss":"display:blok; mövqe: qohum; margin-top:8px;","texteffectresponsive":true,"texteffectresponsivesize":640,"titlecssresponsive":"font-size:12px;","descriptioncssresponsive":"display:none !important;","buttoncssresponsive":" "","addgooglefonts":false,"googlefonts":"","textleftrightpercentforstatic":40))
