sava and quit

جلوگیری از تایپ اطلاعات تکراری در ستون... - تاریخ: 1398/12/17 ساعت: 11:40

جلوگیری از تایپ اطلاعات تکراری در ستون... برای این کار روش استفاده از Data Validation به نظرم مفید بود که برایتان توضیح می دهم.1.ستونی را که می خواهید در آن هیچ اطلاعات تکراری تایپ نشود را انتخاب

ترفند تابع lOOKUP بخش ۲ (پیدا کردن آخرین متن یا عدد در یک ستون) - تاریخ: 1398/12/17 ساعت: 11:40

تابع lookup میخواهیم آخرین متن یا عدد ثبت شده درون ستون C را پیدا کنیم. قبلا در پست ترفند تابع LOOKUP روش پیدا کردن مقدار آخرین سلول پر گفته شد ولی در این پست میخواهیم آخرین مقدار عددی یا متنی ثبت شده

یافتن آخرین داده در سطر حتی با فواصل خالی در اکسل - تاریخ: 1398/12/17 ساعت: 11:40

هر محدوده که بخواهیم در فرمول وارد میکنیم (LOOKUP(2;1/(DE2:DJ2"");DE2:DJ2=

نحوه فعال سازی آپدیت ویندوز - تاریخ: 1398/12/17 ساعت: 11:40

نحوه فعال سازی آپدیت ویندوز در صورتی که به هر دلیلی از جلوگیری از آپدیت ویندوز منصرف شدید و مایل به فعال سازی آپدیت ویندوز7 بودید: 1- از منوی استارت (Start) وارد کنترل پنل (Control Panel) شوید. 2- گزی

this workbook - تاریخ: 1397/12/9 ساعت: 0:22

Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False Application.CommandBars("Ply").Enabled = False ThisWorkbook.Sheets("welcome").Visible = True For Each ws In ThisWorkboo

userform open pass - تاریخ: 1397/12/9 ساعت: 0:22

Private Sub CommandButton1_Click()Dim x As Stringx = TextBox1.ValueIf x "0915532" ThenMsgBox "Invalid Password"ThisWorkbook.SaveApplication.QuitApplication.DisplayAlerts = FalseExit SubEnd IfDim C As IntegerFor C = 0 To 500Me.Height = 500 - C - 150Me.Width = 500 - CNextEndEnd SubPrivate Sub UserForm...

userform sapt va farakhani - تاریخ: 1397/12/9 ساعت: 0:22

Private Sub UserForm_Initialize()Application.ScreenUpdating = False Application.EnableEvents = False Application.AskToUpdateLinks = False Application.DisplayAlerts = False ActiveWindow

delete row bay userform - تاریخ: 1397/12/9 ساعت: 0:22

Private Sub CommandButton1_Click()Sheets("ramfish").Unprotect Password:=""RowNumber = TextBox1.ValueIf TextBox1.Value = "" ThenMsgBox "ÔãÇÑå ÓØÑãÔÎÕ äíÓÊ"Sheets("ramfish").Protect Password:=""Exit Sub

jelogiri az rast click - تاریخ: 1397/12/9 ساعت: 0:22

Sub close1()Application.CommandBars("Ply").Enabled = TrueEnd Sub

copy data to another sheet - تاریخ: 1397/12/9 ساعت: 0:22

copy data sheet mabda to sheet maghsad dar row 3 column 2 blank not blank LastCount = Sheets("sheet maghsad").Cells(Rows.Count, 2).End(xlUp).RowSheets("sheet mabda").Range("savabegh_print").CopySh

hiden all sheets only one sheet - تاریخ: 1397/12/9 ساعت: 0:22

Sub gotoramfish()sheettoshow = "ramfish"Sheets("ramfish").Protect Password:=""Call HideAllmysheetsEnd SubSub HideAllmysheets()ThisWorkbook.Sheets(sheettoshow).Visible = TrueFor Each ws In ThisWorkbook.SheetsIf ws.Name sheettoshow Then ws.Visible = xlVeryHiddenNext wsEnd Sub

farakhani per az bank va control - تاریخ: 1397/12/9 ساعت: 0:22

Set ra = Cells.Find(What:=Sheets("report").Range("p6"), LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If r

sava and quit - تاریخ: 1397/12/9 ساعت: 0:22

Sub quitSave()Application.DisplayAlerts = Trueanswer = MsgBox("ÂíÇãí ÎæÇåíÏ ÇÒ ÈÑäÇãå ÎÇÑÌ ÔæíÏ¿", vbYesNo + vbQuestion, "Exit") If answer = vbYes ThenThisWorkbook.SaveApplication.QuitApplication.DisplayAlerts = FalseEnd IfEnd Sub