فرض کنید شرایطی داریم که می خواهیم ردیفی را در زیر یا بالای یک مقدار مشخص وارد کنیم. این فرآیند به طور پیش فرض در اکسل قابل انجام نیست، بنابراین ما از کمک برنامه VBA برای تکمیل فرآیند خود استفاده خواهیم کرد. این آموزش را بخوانید تا بیاموزید که چگونه میتوانید ردیفها را بر اساس مقادیر سلول به طور خودکار در اکسل وارد کنید. اگر بخواهیم این کار را به صورت دستی کامل کنیم، میتواند یک فرآیند زمانبر باشد، زیرا درج یک ردیف جدید یک فرآیند چند مرحلهای است.
درج خودکار ردیف ها در اکسل بر اساس مقادیر سلول
در اینجا ابتدا یک ماژول VBA را وارد می کنیم و سپس کد را برای تکمیل کار اجرا می کنیم. اجازه دهید یک فرآیند ساده را ببینیم تا بفهمیم چگونه میتوانیم یک ردیف را بر اساس مقدار سلول در اکسل در زیر وارد کنیم.
مرحله 1
اجازه دهید یک برگه اکسل را در نظر بگیریم که در آن داده ها مشابه داده های نشان داده شده در تصویر زیر است.
حالا روی نام شیت کلیک راست کرده و view code را انتخاب کنید تا اپلیکیشن vba باز شود، سپس بر روی insert کلیک کنید و module را انتخاب کنید، سپس برنامه را در کادر متنی مانند تصویر زیر تایپ کنید.
مثال
Sub BlankLine() 'Updated by Nirmal Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "Enter the value" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Set WorkRng = WorkRng.Columns(1) xLastRow = WorkRng.Rows.Count Application.ScreenUpdating = False For xRowIndex = xLastRow To 1 Step -1 Set Rng = WorkRng.Range("A" & xRowIndex) If Rng.Value = "10000" Then Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown End If Next Application.ScreenUpdating = True End Sub
در کد، 10000 مقدار سلولی است که می خواهید درج کنید.