اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در اکسل

اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در اکسل

اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در اکسل

به نام خدا این جلسه از آموزش را اختصاص میدهیم به نحوه اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در محیط نرم افزار اکسل . همانطور که میدانید به منظور اضافه کردن سطر و ستون در صفحه گسترده می بایست ابتدا سطر و یا ستون را انتخاب و سپس با راست کلیک کردن و زدن گزینه Insert ، سطر و ستون جدیدی را به صفحه گسترده اضافه نماییم.

برای درک بهتر ، تصویر زیر را مشاهده نمایید:

اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در اکسل
اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در اکسل

در محیط وی بی ای و ماکرونویسی نیز عمل اضافه کردن سطر و ستون عینا مشابه با روش صفحه گسترده است ، به کدهای ماکروی زیر دقت کنید:

Sub excellearn()
Sheets(1).Columns("C").Insert
End Sub

در ماکروی فوق ابتدا ستون C صفحه نخست انتخاب و سپس یک ستون اضافه گردید ، همچنین به منظور اضافه کردن چندین ستون میتوانیم چندین ستون را انتخاب و سپس Insert کنیم .

برای درک بهتر ، تصویر زیر را مشاهده نمایید :

اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در اکسل
اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در اکسل

ماکروی زیر عمل فوق را به منظور اضافه کردن چندین ستون در اکسل ، انجام خواهد داد :

Sub excellearn()
Sheets(1).Columns("C:D").Insert
End Sub

در ادامه دستورات زیر به منظور اضافه کردن یک و یا چندین ردیف مورد استفاده قرار میگیرند :

Sub excellearn()
Sheets(1).Rows("2").Insert
End Sub

و همچنین اضافه کردن چندین ردیف :

Sub excellearn()
Sheets(1).Rows("2:3").Insert
End Sub

جهت درک بهتر دستورات فوق ، کلیپ آموزشی تهیه نمودیم که میتوانید از قسمت زیر مشاهده کنید :

امیدواریم مطلب آموزشی ” اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در اکسل” مورد رضایت شما عزیزان قرار گرفته باشد.در صورت وجود هرگونه سوال پیرامون پست مذکور میتوانید آن را در قسمت نظرات و یا در تالار گفتمان سایت مطرح نموده تا در اسرع وقت توسط تیم پشتیبانی سایت نسبت به پاسخگویی آن اقدام گردد .

سایر مطالب مفید و کاربردی مرتبط با ماکرونویسی در اکسل :

منبع آموزشی : سایت اکسل لرن

اکسل لرن
فیسبوک توییتر گوگل + لینکداین تلگرام واتس اپ کلوب

امتیاز شما به مطلب

دوست داشتم: 204
دوست نداشتم: 184
میانگین امتیازات: 1.11

36 دیدگاه در “اضافه کردن سطر و ستون توسط کدهای ماکرونویسی در اکسل

بسیار عالی سپاسگزارم . انشاله در مسیری که انتخاب کردین بالاخص اموزش برای هموطنانی که دارای کمترین امکانات آموزشی هستند ، موفق و پویا و ثابت قدم باشید.
اقای حسینی اگر بعنوان مثال ۲۰ تا شیت داشته باشیم و بخواییم توسط ماکرو نویسی تمام شیت ها را پشت یر هم انتخاب و در هر شیت یک ستون یا سطر اضافه کند چکار باید انجام بدهیم ؟

سلام سپاسگزارم ، انشالله
این عمل نیاز به کدهای ماکرونویسی ندارد .
شما میتوانید تمام ورک شیت هارو با نگاه داشتن Ctrl انتخاب و سپس یک ردیف در یک ورک شیت اضافه کنید .
بصورت اتوماتیک در تمامی صفحات ایجاد میشود .
Sub excellearn()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Rows(“2”).Insert
Next i
End Sub

با سلام و عرض خسته نباشید به استاد بزرگوار آقای حسینی از بابت آموزش های کاربردی

سلام جناب مهندس حسینی گرانقدر
من میخوام محتویات چند ردیف از یک شیت رو در یک یک شیت دیگه کپی کنم اما باید طوری باشه که قبل از اون آخرین ردیف خالی رو پیدا کنده بعد انتقال رو انجام بده که overwriنشه.ممنون میشم کدش رو راهنمایی بفرماییید

سلام بابت مطالبی که در اختیارمون گذاشتی سپاسگزارم و به شما خداقوت میگم 🤗

سلام ارادتمندم جناب جهانیان عزیز
ممنونم بابت قوت قلبی که بهم میدین
انشالله بتوانم بیشتر به شما سروران گرامی خدمت کنم

مهندس جان چطور میشه کاری کرد که هر دفعه یک عدد به شماره ردیف مون اضافه بشه که دفعه بعد یه سطر به پایین اون سطر مورد نظرموت اضافه بشه. نه بالاش؟

سلام / ممنون استاد خیلی مفید بود.
یه سواال چجوری یه سطر به سطر بعدی اضافه کنم که فرمولهای سطر بالایی هم اعمال شده باشه.ممنمون

سلام خواهش میکنم آقا محمد عزیز
ممنون از اینکه وقت گذاشتی و با نظر خوبت بهم انرژی دادی قربان
آقا یکی از خصوصیات جدول اینه اتوماتیک بسط داده می شود، یعنی با اضافه شدن سطر جدید باید فرمول ها نیز بسط داده شود !
مجدد بررسی کنید زیرا نیاز به کدی نیست این بخش

البته عذرخواهی میکنم ، بنده تصویر کردم در پست اضافه کردن سطر و ستون در جدول مطرح کنید
این پست را مطالعه کنید:
http://blog.excellearn.ir/%d8%a7%d8%b6%d8%a7%d9%81%d9%87-%da%a9%d8%b1%d8%af%d9%86-%d8%b3%d8%b7%d8%b1-%d9%88-%d8%b3%d8%aa%d9%88%d9%86-%d8%af%d8%b1-%d8%ac%d8%af%d8%a7%d9%88%d9%84-%d8%a7%da%a9%d8%b3%d9%84-%d8%aa%d9%88%d8%b3%d8%b7/

ممنون/ همین که زود پاسخ میدید یعنی کارتون درسته/
من منظورمو بد گفتم
اجازه بدین اینجوری مطرح کنم
یه sheet دارم که کلا محاسباتیه و داخل هر ردیف کلی فرموله متفاوته
و دایما باید سطر اضافه کنم و فرمولها را درگ(Drag) کنم
برای اینکه سریع تر بشه کارم و نخوام هی درگ کنم و از طرفی شلوغ نشه و گیج نشم/ میخواستم ببینم میشه یه ماکرویی درست کرد که وقتی یه دکمه ای بزنم خودش ردیف ایجاد کنه که فرمولا هم داخلش درگ شده باشن؟
ببخشید سرتونم درد اوردم/ اگه امکانش هست ممنون میشم کمک کنید

ممنون/ همین که زود پاسخ میدید یعنی کارتون درسته/
من منظورمو بد گفتم
اجازه بدین اینجوری مطرح کنم
یه sheet دارم که کلا محاسباتیه و داخل هر ردیف کلی فرموله متفاوته
و دایما باید سطر اضافه کنم و فرمولها را درگ(Drag) کنم
برای اینکه سریع تر بشه کارم و نخوام هی درگ کنم و از طرفی شلوغ نشه و گیج نشم/ میخواستم ببینم میشه یه ماکرویی درست کرد که وقتی یه دکمه ای بزنم خودش ردیف ایجاد کنه که فرمولا هم داخلش درگ شده باشن؟
ببخشید سرتونم درد اوردم/ اگه امکانش هست ممنون میشم کمک کنید

سلام خواهش میکنم آقا محمد
ببینید این روش استاندارد نیست قطعا ، زیرا ما Table رو داریم.
در جدول بصورت اتوماتیک با وی بی می تونیم سطر و ستون ایجاد کنیم که خود به تنهایی فرمول هارو بسط می دهد.
به همین خاطر پیشنهاد میکنم محدوده رو تبدیل به Table کنید و سپس از کدهای این بخش استفاده کنید بدون اینکه نیاز باشد دستی فرمول هارو بسط داد.

با سلام و عرض خدا قوت
من می خوام دو sheet 1 و 2 رو ردیف به ردیف با هم مقایسه کنه و اگر مقدار مثلا سلa1 از sheet 1 در sheet2 وجود نداشت ، یک ردیف به sheet2 اضافه کنه و مقدار سل a1 اون رو هم از همون sheet1 بگیره . ممنون میشم راهنماییم کنین .

در واقع من چندین sheet دارم (100 تا )که با یک sheet به عنوان مرجع مقایسه میشه و ردیف هایی که در اون sheet ها وجود ندارند باید با مقدار sheet مرجع اضافه بشه

سلام شما می بایست یک شرط با استفاده از دستور if ایجاد کنید که اگر برقرار بود عملیات اضافه کردن را انجام دهد.

بله باید با دستور if و یک حلقه for که sheet رو پیمایش می کنه این کار رو انجام بدم اما تو کدنویسی مشکل درم . ممنون میشم راههنمایی کنین

سلام از طریق ربات زیر وارد گروه پرسش و پاسخ شوید @Masoudhosseini_bot
در این قسمت امکانات راهنمایی بیشتر نیست متاسفانه

سلام، وقت بخیر
یک فرم کد نویسی شده و با ورود داده به فرم، داده ها به شیت اضافه میشه، اما من میخوام که این داده ها که به شیت اضافه میشه به صورت یک جدول باشه، چطوری باید این کار انجام بدم؟

با درود و احترام
لطفا در صورت امکان نحوه ایجاد سطر اتوماتیک در یک جدول اکسل با روش فرمول نویسی (بطوریکه با تکمیل سطر قبل سطر همانند جدید خالی بعدی زیر آن ایجاد شود) را توضیح فرمایید. با تقدیم احترام سروش همایون

سلام ارادتمندم
قطعا این کار بدون ماکرونویسی امکان پذیر نیست
همچنین استفاده از ماکرونویسی برای این نیز صحیح نخواهد بود زیرا حسابی فایل اکسل را درگیر و کند می‌کند.
پیشنهاد میکنم به دنبال روشی دیگر در خصوص ذخیره سازی داده ها باشید به عنوان مثال طراحی یوزرفرم ها

سلام و عرض ادب
واقعا خدا قوت و دستتون درد نکنه آموزش هاتونو تو تلگرام هم دنبال میکنم ممنون از زحمتی که تو این شرایط سخت برای مردم میکشید
سوالی که داشتم خدمتتون اینه من یسری (چند هزارتا)فایل اکسل تو فولدرهای مختلف دارم اول می خواهم تو ی ستون جدید مسیر هر فایل را بنویسه سپس بیاد این فایل ها را ادغام کنه. ممنون میشم اگر جوابمو بدید. برای مثال سطر c همه فایل هام مسیر هر فایل را در همه ردیف ها که اطلاعات داره بنویسه.

سلام و وقت بخیر امیرخان
ممنونم از همراهی شما و وقتی که برای یادگیری اختصاص می دهید.
امیرخان خواهشمندم سوالات خود را در گروه پرسش و پاسخ ما مطرح نمایید. جهت دریافت لینک گروه از ربات زیر استفاده کنید.
Masoudhosseini_Bot
در گروه بهتر می توانیم شمارو راهنمایی کنیم

ضمن تشکر از آموزش های خوب شما
اگر یک شیت که محتوای آن شماره عضویت آن بین 1 تا 5000 می تواند باشد و مقابل هر عضویت میزان سهام آن موشته شده است حال اگر بخواهیم در این صفحه برای اعضایی که ردیف عضویت و سهام آنها حذف شده است بصورت خودکار ردیف با شماره عضویت وسهام صفر ایجاد شود چه باید کرد؟ متشکر

یعنی باید حتما جدول هدف ما دارای ردیف های از 1 تا 5000 شده باشد

سلام خوبین؟
خواهشمندم سوالات اکسل را در گروه ما مطرح کنید. تا بهتر بتوانیم شمارو راهنمایی کنیم.
دریافت لینک گروه از ربات زیر:
@Masoudhosseini_bot
در قسمت کامنت ها فضای کافی و امکانات برای راهنمایی شما نیست متاسفانه

سلام
با استفاده از وی بی ای فرمول‌هایی نوشتم که مثلاً از شیت یک و سلول c1را در سلول g1 کپی کنه
حالا اگه یک ستون بین a و b ایجاد کنیم در وی بی ای فرمول مربوط به c1 و g1 تبدیل به d1وf1 نمیشود
چکار باید کرد

سلام وقتتون بخیر. متاسفانه در قسمت کامنت امکان راهنمایی به خوبی وجود ندارد. خواهشمندم از طریق ربات زیر عضو گروه تلگرامی ما شوید. آنجا در صورت امکان شمارو با تصویر راهنمایی خواهیم نمود.عضویت در گروه تلگرامی ما کاملا رایگان است Masoudhosseini_bot

پاسخ دهید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

فهرست مطالب