Microsoft Excel-da hujayralarni bir-biriga nisbatan siljitish

Microsoft Excel elektron jadvalida ishlayotganda hujayralarni bir-biri bilan almashtirish zarurati juda kam. Biroq, bunday vaziyatlar mavjud va ularni hal qilish kerak. Keling, Excel-da qanday qilib hujayralarni almashtirish mumkinligini bilib olaylik.

Harakatlanuvchi hujayralar

Afsuski, standart asboblar qutisida qo'shimcha harakatlarsiz yoki diapazonni o'zgartirmasdan ikkita hujayrani almashtirishga qodir bo'lgan bunday funktsiya mavjud emas. Ammo, shu bilan birga, ushbu harakat protsedurasi biz xohlagan darajada sodda bo'lmasa ham, uni baribir tartibga solish mumkin va bir necha usullar bilan.

1-usul: Nusxa yordamida harakatlantiring

Muammoni hal qilishning birinchi yechimi ma'lumotlarni keyinchalik alohida almashtirish bilan alohida joyga banal nusxa ko'chirishni o'z ichiga oladi. Keling, bu qanday amalga oshirilganligini ko'rib chiqaylik.

1. Ko'chiriladigan katakni tanlang. Tugmani bosing Nusxalash. Yorliqdagi lentaga joylashtirilgan "Uy" sozlamalar guruhida Vaqt almashtirish paneli.



2. Varaqdagi boshqa bo'sh elementlarni tanlang. Tugmani bosing Yopish. U lentadagi tugma bilan bir xil asboblar qutisida joylashgan. Nusxalash, ammo farqli o'laroq, u kattaligi tufayli ancha sezilarli ko'rinishga ega.



3. Keyin, ikkinchi kameraga o'ting, uning ma'lumotlari birinchi joyga ko'chirilishi kerak. Uni tanlang va yana tugmani bosing. Nusxalash.



4. Kursor bilan ma'lumotlarga ega bo'lgan birinchi uyani tanlang va tugmani bosing Yopish lentada.



5. Biz bitta qiymatni kerakli joyga ko'chirdik. Endi bo'sh katakka kiritgan qiymatimizga qaytamiz. Uni tanlang va tugmani bosing. Nusxalash.



6. Ma'lumotlarni ko'chirmoqchi bo'lgan ikkinchi katakni tanlang. Tugmani bosing Yopish lentada.



7. Shunday qilib, kerakli ma'lumotlarni almashdik. Endi siz tranzit katakchaning tarkibini yo'q qilishingiz kerak. Uni tanlang va o'ng tugmasini bosing. Ushbu harakatlardan so'ng faollashtirilgan kontekst menyusiga o'ting Tarkibni tozalash.

Endi tranzit ma'lumotlar o'chirildi va katakchalarni ko'chirish vazifasi to'liq bajarildi.

Albatta, bu usul mutlaqo qulay emas va ko'plab qo'shimcha qadamlarni talab qiladi. Ammo, aksariyat foydalanuvchilar uchun amal qiladi.

2-usul: Suring va torting

Hujayralarni almashtirishning yana bir usulini oddiy tortish va tushirish deb atash mumkin. To'g'ri, ushbu imkoniyatdan foydalanganda hujayraning siljishi yuz beradi.

Boshqa joyga ko'chib o'tmoqchi bo'lgan uyani tanlang. Kursorni chegarasiga qo'ying. Bunday holda, uni o'qga aylantirish kerak, uning oxirida to'rt tomonga yo'naltirilgan ko'rsatmalar mavjud. Kalitni ushlab turing Shift klaviaturada bosib kerakli joyga sudrab o'ting.

Qoida tariqasida, bu qo'shni hujayra bo'lishi kerak, chunki bu tarzda uzatishda butun diapazon o'zgaradi.

Shuning uchun, bir nechta hujayralar orqali harakatlanish ko'pincha ma'lum bir jadval kontekstida noto'g'ri bo'ladi va kam ishlatiladi. Ammo bir-biridan juda uzoq bo'lgan hududlarning tarkibini o'zgartirish zarurati yo'qolmaydi, balki boshqa echimlarni talab qiladi.

3 usul: makroslarni qo'llang

Yuqorida ta'kidlab o'tilganidek, Excel-da ikkita qo'shni hujayralarni qo'shni hududlarda bo'lmagan taqdirda, ular oralig'ida nusxa ko'chirmasdan nusxalashning tez va to'g'ri usuli yo'q. Ammo bunga makroslar yoki uchinchi tomon qo'shimchalari yordamida erishish mumkin. Quyida bunday maxsus so'llardan birini ishlatish haqida gaplashamiz.

1. Birinchidan, agar siz ularni hali faollashtirmagan bo'lsangiz, dasturdagi so'l rejimini va ishlab chiquvchi panelini faollashtirishingiz kerak, chunki ular odatiy holatda o'chirilgan.
2. Keyinchalik, "Tuzuvchi" yorlig'iga o'ting. "Kod" asboblar blokidagi lentada joylashgan "Visual Basic" tugmachasini bosing.



3. Muharrir ishlamoqda. Unga quyidagi kodni kiriting:

   Pastki hujayralar harakati ()
Dim Ra As Range: Set ra = Tanlash
msg1 = "Ikkita bir xil o'lchamdagi ikkita diapazonni tanlang"
msg2 = "IDENTICAL o'lchamining ikkita diapazonini tanlang"
Agar ra.Areas.Count 2 Keyin MsgBox msg1, vbCritical, Muammo: Chiqish Sub
Agar ra.Areas (1) .RaAreas (2) .So'ngra MsgBox msg2, vbCritical, "Muammo": Chiqish Sub
Application.ScreenUpdating = noto'g'ri
arr2 = ra.Areas (2) .Qiymat
ra.Areas (2) .Vale = ra.Areas (1) .Vale
ra.Areas (1) .Vale = arr2
End pastki

   Kod kiritilgandan so'ng, uning yuqori o'ng burchagidagi standart yopish tugmasini bosib, muharrir oynasini yoping. Shunday qilib, kod kitobning xotirasida saqlanadi va biz kerakli operatsiyalarni bajarish uchun uning algoritmi takrorlanishi mumkin.



4. Biz almashtirishni istagan ikkita katak yoki teng o'lchamdagi ikkita diapazonni tanlaymiz. Buning uchun sichqonchaning chap tugmasi bilan birinchi elementni (diapazoni) bosing. Keyin tugmani bosib turing Ctrl klaviaturada va shuningdek, ikkinchi uyani (diapazon) sichqonchaning chap tugmachasini bosing.



5. Makronni ishga tushirish uchun tugmani bosing Makroslartabda lentaga joylashtirilgan "Dasturchi" asboblar guruhida "Kod".



6. Ibratli tanlash oynasi ochiladi. Kerakli narsani belgilang va tugmani bosing Yugur.



7. Ushbu amaldan so'ng, so'l avtomatik ravishda tanlangan hujayralarning tarkibini o'zgartiradi.

Shuni ta'kidlash kerakki, faylni yopganingizda, so'l avtomatik ravishda o'chiriladi, shuning uchun keyingi safar uni yana yozib olish kerak bo'ladi. Har safar ma'lum bir kitob uchun bunday ishlarni qilmaslik uchun, agar siz doimiy ravishda bunday harakatlar qilishni rejalashtirmoqchi bo'lsangiz, faylni so'l yordami bilan (xlsm) Excel Workbook sifatida saqlashingiz kerak.

Dars: Qanday qilib Excelda so'l yaratish

Ko'rib turganingizdek, Excel-da hujayralarni bir-biriga nisbatan siljitishning bir necha yo'li mavjud. Buni dasturning standart vositalari yordamida amalga oshirish mumkin, ammo bu variantlar juda noqulay va ko'p vaqt talab etadi. Yaxshiyamki, vazifani iloji boricha tez va oson hal qilishga imkon beradigan uchinchi tomon makroslari va qo'shimchalari mavjud. Shunday qilib, bunday harakatlar doimiy ravishda qo'llanilishi kerak bo'lgan foydalanuvchilar uchun bu eng maqbul bo'lgan oxirgi variant.