ایجاد چند سطر یا ستون همزمان در بین 2 سطر یا ستون مشخص

[maziardm]

با سلام و شب خوش

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

با تشکر از شما منتظر راهنمایی هستم.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[حسام بحرانی]

با سلام ، فرض کنید قصد دارید بین ستون های A و B تعداد 100 ستون یا بیشتر ، ستون های خالی ایجاد کنید . برای این منظور بر روی ستون B کلیک چپ نموده و آن را به تعداد مورد نیاز ( بر فرض 100 ستون ) دراگ نمایید . سپس کنترل راست نموده و گزینه Insert را انتخاب نمایید . به خوبی خواهید دید که 100 ستون خالی مابین ستون های A و B ایجاد شده . برای ایجاد سطر خالی هم به همین صورت عمل می کنیم ( مثلاً سطر 4 را انتخاب نموده و تا سطر 104 یا بیشتر ادامه می دهیم و بقیه مراحل بالا را انجام می دهیم )
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ

[Nima]

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

[maziardm]

با سلام دوباره
نیما و حسام جان ممنون از پیغامتون
ولی یه مسئله ای هست. به نظرتون راه دیگری وجود نداره؟ چون برای مثال اگر ما بخواهیم 100 تا یا بیشتر ردیف یا ستون ایجاد کنیم درگ کردن شاید کمی سخت باشه و مشکلش این باشه که دقت کار کمتر میشه.
بازم تشکر

[حسام بحرانی]

با سلام ، ببینید دوست من ، در اکسل همه کار میشه کرد ! بله همه کار ! چون سلول های اکسل هوشمند و تابع دستورات ما هستند ، فقط کافیه به اونا ، درست فرمان بدیم ! در این مورد خاص ، در هنگام دراگ کردن ، خود اکسل تعداد ستون های مورد نظر را به ما می دهد ( مثلاً اگر 1000 ستون را بخواهیم دراگ کنیم ، در هنگام دراگ کردن و در کنار فلش دراگ ، عبارت C1000 را به ما میدهد و این یعنی 1000 ستون ( Column ) انتخاب شده ) . نمیدونم چه اصراری دارید که با توجه به فرمول این کار رو انجام بدید !!
اگر قصد دارین با توجه به ستون ها و سطرهای درخواستی این کار رو انجام بدین که بحثش جداست !
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ

[امين اسماعيلي]

این مورد که دارین بحثش رو میکنین بازم جزول موارد تکراری هستش در قسمت ویژوال راه کار راحت ترش هست به طور متنوع. مثلا 5 تا 5 نا 10 تا ردیف خال یا ستون براتون بیاره یا هرچی سزچ کنین نبود اونجا مطرح کنین

[امين اسماعيلي]

با درود

Private Sub CommandButton2_Click()
Dim tempstr As String
Dim Colnum As Integer
Dim n As Integer
prompt = "Enter the Column Letter"
tempstr = InputBox(prompt, "Column Letter")
n = InputBox(" Please enter the number of blank column to insert ")
Colnum = Range(tempstr & "1").Column

Columns(Colnum).Resize(, n).EntireColumn.Insert

End Sub

کد بالا را برای یک باتن به کار ببرید اول ستونی رو که میخواین n تا ستون خالی از اونجا شروع بشه رو به صورت A یا b وارد کنید بعدش تعداد ستون خالی که میخواین به صورت عدد . . یادتون نره اگر میخواین بعد از مثلا ستو b به تعداد 10 ستون خالی بیاد پس ستون خالی از C در واقع شروع میشه و باید C وارد بشه و fبعد 10

[~M*E*H*D*I~]

نمیدونم چرا این قضیه اینقدر پیچیده شده برای وارد کردن ستون یا سطر خالی به هر تعداد هیچ نیازی به کد ، کلید های ترکیبی و.. نداریم میشه در کسری از ثانیه 100 یا بیشتر سطر و ستون ایجاد کرد تنها با دو کلیک یک چپ کلیک برای انتخاب و یک راست کلیک برای insert اینقدر پیچیدگی نداره

[maziardm]

با سلام و روز خوش
تشكر از تمامي دوستان

این مورد که دارین بحثش رو میکنین بازم جزول موارد تکراری هستش در قسمت ویژوال راه کار راحت ترش هست ....

امين جان با تشكر متاسفانه من آشنايي به vba و نوشتن توابع جديد ندارم. علاقه دارم ياد بگيرم ولي خب وقتش رو به واقع ندارم. مي دونمم برام نياه
با تشكر

[maziardm]

د تنها با دو کلیک یک چپ کلیک برای انتخاب و یک راست کلیک برای insert اینقدر پیچیدگی نداره

سلام دوباره
منظورتون رو متاسفانه متوجه نشدم. پوزش ولي متوجه نشدم.
با تشكر