اکسل پیشرفته
حذف ردیف هایی که با داده های شیت دیگر مطابقت ندارد در اکسل
با سلام خدمت کاربران عزیز سواد دیجیتال حذف ردیف هایی که با داده های شیت دیگر مطابقت ندارد با vba ۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود . ۲. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قراردهید .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
Sub DeleteRow() 'Updateby20140618 Dim rng As Range Dim Rng1 As Range, Rng2 As Range Dim arr1 As Variant Dim arr2 As Variant Dim dic2 As Variant Dim OutArr As Variant xTitleId = "سواد دیجیتال" Set Rng1 = Application.Selection Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8) Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8) Set Rng1 = Rng1.Columns(1) Set Rng2 = Rng2.Columns(1) Set dic2 = CreateObject("Scripting.Dictionary") arr1 = Rng1.Value arr2 = Rng2.Value For i = 1 To UBound(arr2, 1) xKey = arr2(i, 1) dic2(xKey) = "" Next Rng1.ClearContents OutArr = Rng1.Value xIndex = 1 For i = 1 To UBound(arr1, 1) xKey = arr1(i, 1) If dic2.Exists(xKey) Then OutArr(xIndex, 1) = xKey xIndex = xIndex + 1 End If Next Rng1.Value = OutArr End Sub |
۳. سپس … ادامه
چگونه سطرها با مقادیر منفی در اکسل را حذف کنیم ؟
با سلام خدمت کاربران عزیز سواد دیجیتال فرض کنید شما داده های زیر را دارید و می خواهید ردیف هایی که در ستون B مقدار منفی در آن هست را حذف کنید ، راه حل انجام آن چیست؟ حذف سطرها با مقادیر منفی در اکسل با استفاده از کد VBA ۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual … ادامه
آی تی سواد | یافتن شماره ردیف اولین یا آخرین سلول غیر خالی در Worksheet
با سلام خدمت کاربران عزیز سواد دیجیتال آیا تا به حال سعی کردهاید که شماره سطر اول یا آخرین سلول غیر خالی را در کاربرگ مانند عکس زیر به دست آورید ؟ بدست آوردن شماره سطر اولین یا آخرین سلول غیرخالی با فرمول در سلول خالی که می خواهید جواب را ببینید فرمول (((ROW(INDEX(A2:A20,MATCH(TRUE,INDEX((A2:A20<>0),0),0= و کلید Enter … ادامه