در این آموزش VLOOKUP اکسل برای مقایسه 2 ستون و یافتن موارد منطبق، یاد می گیرید که چگونه:
این آموزش VLOOKUP اکسل برای مقایسه 2 ستون و یافتن موارد منطبق با یک نمونه فایل کار اکسل همراه با داده ها و فرمول هایی است که من هنگام توضیح روند گام به گام زیر استفاده می کنم.
می توانید با کلیک بر روی دکمه زیر این نمونه کار را (به صورت رایگان) دریافت کنید.
دریافت
عنوان: پیدا کردن تکراری ها و مقایسه ی دو ستون در اکسل
حجم: 8.75 کیلوبایت
توضیحات: پیدا کردن تکراری ها و مقایسه ی دو ستون در اکسل
برای تبدیل عدد به نام ستون در اکسل می توانید از برنامه زیر استفاده نمایید
این برنامه تا 702 ستون اول در اکسل نوشته شده است.
برای سفارش کامل با آیدی تیم اوستا اکسل با نام
در تلگرام تماس بگیرید.
Function charCol(num As Integer) As String
' one char A_Z
If num <= 26 Then
charCol = Chr(64 + num)
Else
' two char AA_ZZ
If num <= 26 Then
charCol = IIf(num Mod 26 = 0, _
Chr(Int(64 + (num / 26) - 1)), _
Chr(Int(64 + num / 26))) & _
IIf(num Mod 26 = 0, Chr(64 + 26), _
Chr(64 + num Mod 26))
End If
End If
End Function
با توجه به محدود بودن تعداد سطرها در اکسل که برابر 1048576 می باشد، اگر بخواهیم از اکسل به عنوان دیتابیس استفاده کنیم نوشتن یک برنامه که بتواند بعد از پرشدن یک ستون به ستون بعدی مراجعه کند الزامی است.
برای دریافت این برنامه و سفارشی نمودن آن برای کاربرد شما به آیدی @jalil_abbasi در تلگرام مراجعه نمایید.
تنها مشکل شاید این باشد که بسادگی نتوانید اطلاعاتی که در دو یا چند ستون قرار گرفتند را مرتب کنید چون محدودیت اکسل این است که می تواند اطلاعات یک فیلد را که در یک ستون قرار گرفته اند، مرتب نماید. بنابراین برای مرتب کردن اطلاعات یک فیلد که در در چند ستون قرار گرفته اند بطوری که بتوان فیلد را در ستون هایی از چپ به راست مرتب نمود و جستجو را از ستون یکم شروع کرده و تا ستون آخر ادامه داد مد نظر تیم ماست تا یکی دیگر از محدودیت های اکسل توسط تیم اوستااکسل برطرف شود.
برای اطلاع از آخرین تکنیک های ارتباطی با دیتابیس از طریق اکسل با تیم اوستااکسل تماس بگیرید
نرم افزار محاسبه کیلومتراژ مأمورین راه آهن جمهوری اسلامی ایران توسط اکسل و با برنامه نویسی VBA ساخته شده است.
شروع پروژه:1387
ساخت برنامه ساده اولیه: 1387
بهره برداری اولیه در ناحیه راه آهن طبس: 1387
طراحی و ساخت برنامه تحت شبکه: 1394
بهره برداری برنامه چند کاربره تحت شبکه در ناحیه راه آهن طبس: بهار 1395
معرفی به معاونت راه آهن در تهران: فروردین 1395 (در حال بررسی، امیدواریم این زحمات چندساله به ثمر بنشیند)
بخش ها:
خصوصیات:
توسط اوستا اکسل
دریافت فایل اکسل
عنوان: 250 میانبر اکسل
حجم: 17.3 کیلوبایت
توضیحات: تعداد 250 میانبر صفحه کلید در اکسل
Public Function searchValueIsExist(val As Long, ws As Worksheet, col As String, firstCellAsCol As Integer) As Boolean
Dim boolVal As Boolean
boolVal = False
Dim lrow As Long
lrow = ws.Cells(ws.Rows.Count, col).End(xlUp).row
Dim c As Range
Dim str1 As String
str1 = col & firstCellAsCol & ":" & col & lrow
With ws.Range(str1)
Set c = .Find(val, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
boolVal = True
End If
End With
searchValueIsExist = boolVal
End Function
موفق باشید
اوستا اکسل
اگه قصد دارید نام صفحه ها یا شیت های اکسل دیده نشود یا نتوانند صفحه ای اضافه کنند.
ActiveWindow.DisplayWorkbookTabs = False
اگه قصد دارید منو های اکسل دیده نشود.
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
اگه قصد دارید اسکرول افقی اکسل دیده نشود.
ActiveWindow.DisplayHorizontalScrollBar = False
اگه قصد دارید اسکرول عمودی اکسل دیده نشود.
ActiveWindow.DisplayVerticalScrollBar = False
اگه قصد دارید شماره های عمودی و حروف افقی اکسل دیده نشود.
ActiveWindow.DisplayHeadings = False
اگه قصد دارید خطوط پیش فرض خانه های یک صفحه از اکسل دیده نشود.
ActiveWindow.DisplayGridlines = False
اگه قصد دارید اکسل به صورت تمام صفحه دیده شود.
Application.DisplayFullScreen = True
اگه قصد دارید نوار وضعیت افقی پایین اکسل دیده نشود.
Application.DisplayStatusBar = Not Application.DisplayStatusBar
اگه قصد دارید پنجره بصورت حداکثر دیده شود.
Application.WindowState = xlMaximized
اگه قصد دارید در این فایل اکسل پنجره بصورت حداکثر دیده شود.
ActiveWindow.WindowState = xlMaximized
اگه قصد دارید نوار فرمول اکسل دیده نشود.
Application.DisplayFormulaBar = False
اگه قصد دارید نوار زوم پایین دیده نشود و کاربر نتواند زوم را تغییر دهد.
ActiveWindow.Zoom = 100
اگه قصد دارید در نوار عنوان نام اکسل دیده نشود و بجای آن متن دلخواه خود را بنویسید.
Application.Caption = "DayaAfzar.ir"
ALT+Enter
می توان از
Char(10)
نیز استفاده کرد.
مثال:
="Ali" & Char(10) & "Abbasi"
کپی یک TextBox در یک شیت
Sub copy_textboxInSheet(row1 As Integer, col1 As Integer)
Sheet2.Shapes("TextBox 1").Copy
Application.Goto Reference:=Worksheets("Sheet2").Cells(row1, col1), Scroll:=True
Sheet2.Paste
End Sub
سطر و ستون را بصورت عددی به این تابع بدهید تا در مکان مورد نظر textBox 1 را کپی نماید.
نکته: بین کلمه TextBox و عدد 1 که هر دو مربوط به نام TextBox می باشد یک فاصله قرار دارد و اگر آن را بچرخانید نقطه موس و بالا را در نظر می گیرد.
حذف همه TextBox ها از یک شیت بجز TextBox 1
Sub del_textboxInSheet()
Dim tb As Object
For Each tb In ActiveSheet.TextBoxes
If tb.Name <> "TextBox 1" Then
tb.Delete
End If
Next
End Sub
نکته: این تابع غیر از TextBox 1 بقیه را حذف می نماید.
حذف همه TextBox ها از یک شیت
Sub del_textboxInSheet()
Dim tb As Object
For Each tb In ActiveSheet.TextBoxes
tb.Delete
Next
End Sub