- جلوگیری از تایپ اطلاعات تکراری در ستون...
- ترفند تابع lOOKUP بخش ۲ (پیدا کردن آخرین متن یا عدد در یک ستون)
- یافتن آخرین داده در سطر حتی با فواصل خالی در اکسل
- نحوه فعال سازی آپدیت ویندوز
- this workbook
- userform open pass
- userform sapt va farakhani
- delete row bay userform
- jelogiri az rast click
- copy data to another sheet
آخرین مطالب
امکانات وب
جلوگیری از تایپ اطلاعات تکراری در ستون...
برای این کار روش استفاده از Data Validation به نظرم مفید بود که برایتان توضیح می دهم.1.ستونی را که می خواهید در آن هیچ اطلاعات تکراری تایپ نشود را انتخاب sava and quit...ادامه مطلب
ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 82
تابع lookup
میخواهیم آخرین متن یا عدد ثبت شده درون ستون C را پیدا کنیم. قبلا در پست ترفند تابع LOOKUP روش پیدا کردن مقدار آخرین سلول پر گفته شد ولی در این پست میخواهیم آخرین مقدار عددی یا متنی ثبت شده sava and quit...ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 56
هر محدوده که بخواهیم در فرمول وارد میکنیم
(LOOKUP(2;1/(DE2:DJ2<>"");DE2:DJ2=
sava and quit...ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 63
نحوه فعال سازی آپدیت ویندوز
در صورتی که به هر دلیلی از جلوگیری از آپدیت ویندوز منصرف شدید و مایل به فعال سازی آپدیت ویندوز7 بودید: 1- از منوی استارت (Start) وارد کنترل پنل (Control Panel) شوید. 2- گزی sava and quit...ادامه مطلب
ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 57
Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False Application.CommandBars("Ply").Enabled = False ThisWorkbook.Sheets("welcome").Visible = True For Each ws In ThisWorkboo sava and quit...ادامه مطلب
ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 59
Private Sub CommandButton1_Click()
Dim x As String
x = TextBox1.Value
If x <> "0915532" Then
MsgBox "Invalid Password"
ThisWorkbook.Save
Application.Quit
Application.DisplayAlerts = False
Exit Sub
End If
Dim C As Integer
For C = 0 To 500
Me.Height = 500 - C - 150
Me.Width = 500 - C
Next
End
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "Enter Password", vbCritical
End If
End Sub
Private Sub UserForm_Activate()
Me.Top = 50
Me.Left = 50
Dim C As Integer
For C = 0 To 500
Me.Height = C - 150
Me.Width = C
Next
End Sub
sava and quit...
ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 60
Private Sub UserForm_Initialize()Application.ScreenUpdating = False Application.EnableEvents = False Application.AskToUpdateLinks = False Application.DisplayAlerts = False ActiveWindow sava and quit...ادامه مطلب
ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 68
Private Sub CommandButton1_Click()Sheets("ramfish").Unprotect Password:=""RowNumber = TextBox1.ValueIf TextBox1.Value = "" ThenMsgBox "ÔãÇÑå ÓØÑãÔÎÕ äíÓÊ"Sheets("ramfish").Protect Password:=""Exit Sub sava and quit...ادامه مطلب
ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 57
Sub close1()
Application.CommandBars("Ply").Enabled = True
End Sub
sava and quit...
ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 60
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 sava and quit...ادامه مطلب
ما را در سایت sava and quit دنبال می کنید
برچسب : نویسنده : parsargham بازدید : 57