' @mas76nrm 2023/11/26Private Function WorksheetExists(shtName As String, Optional wb As Workbook) As BooleanDim sht As Worksheet If wb Is Nothing Then Set wb = ThisWorkbookOn Error Resume NextSet sht = wb.Sheets(shtName)On Error GoTo 0WorksheetExists = Not sht Is NothingEnd Function'Function WorksheetExists(sName As String) As Boolean' WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")'End Function'Private Function getCity(cityPersianName As String)' Dim cities As Variant' cities = Array( _' Array("مرکز استان", "Center"), _' Array("اردب?ل", "Ardabil"), _' Array("پارس آباد", "Parsabad"), _' Array("بيله سوار", "BileSavar") _' )' Dim i As Integer' getCity = "test"' For i = 0 To 3' If cities(i)(0) = cityPersianName Then' getCity = cities(i)(1)' Exit For' End If' Next i'End FunctionPrivate Function copyRow(sourceSheet As String, destinationSheet As String, rowNumber As Integer, Optional increaseRow As Boolean = False)Dim ws1 As Worksheet, ws2 As WorksheetDim lastRow As Long Set ws1 = ThisWorkbook.Sheets(sourceSheet)Set ws2 = ThisWorkbook.Sheets(destinationSheet)lastRow = ws2.Cells(Rows.Count, "A").End(xlUp).RowIf increaseRow ThenlastRow = lastRow + 1End Ifws1.Rows(rowNumber).EntireRow.copy ws2.Range("A" & lastRow)copyRow = TrueEnd FunctionPublic Sub extractCities() Dim rowCounter As IntegerDim city As StringDim res As BooleanThisWorkbook.Sheets("Personels").SelectFor How To Quickly Delete All Text Boxes In Excel?...ادامه مطلب

How to Split an Excel Sheet into Multiple WorksheetsExcelZakhar Yung11min readJan 24, 2024Table of ContentshideHow to split an Excel sheet into multiple worksheets: VBA optionVBA script to split Excel sheet into multiple sheets based on column valueVBA script to split Excel sheet into multiple files based on column valueHow to split Excel sheet into multiple worksheets based on rowsHow to split Excel sheets into multiple worksheets without VBASplit an Excel sheet manuallyHow to automate data import to ExcelWhat’s wrong with using VBA for splitting Excel sheets into multiple sheets?When we talk about splitting data in a spreadsheet, it means data partitioning – dividing a dataset into smaller subsets. These are extracted based on a shared attribute of a column (vertical split) or row (horizontal split). Excel, despite its supremacy in functionality, doesn’t offer any functions for splitting data. So, to split an Excel sheet into multiple worksheets, you’ll either need to do this manually or with VBA Macro Editor. In this tutorial, I’m going to reveal the ins and outs of each way, so buckle up and let’s go! How to split an Excel sheet into multiple worksheets: VBA optionThe main value of splitting datasets is to obtain smaller chunks of data that are easier to manage and analyze. You may not need to split an Excel sheet into multiple worksheets if the row count is up to 50. However, if you deal with a tremendously large dataset that is frequently refreshed, then it makes sense How To Quickly Delete All Text Boxes In Excel?...ادامه مطلب

تبدیل روز'>روز به سال ماه و روز در اکسل

=CONCATENATE(IF(INT(K12/365)>0;CONCATENATE(INT(K12/365);" سال ");"");CONCATENATE(IF(INT(MOD(K12;365)/30)>0;CONCATENATE(INT(MOD(K12;365)/30);" ماه ");"");CONCATENATE(IF(MOD(MOD(K12;365);30)>0;CONCATENATE(MOD(MOD(K12;365);30);" روز ");"");)))

How To Quickly Delete All Text Boxes In Excel?...

فرمول های زیر رو تست کنید : کد: = DATEDIF(0,A2,"y ")&" سال " & DATEDIF(0,A2,"ym ")&" ماه "& DATEDIF(0,A2,"md ")&" روز'>روز" کد: = CONCATENATE(INT(A1/365 )," سال ", INT(MOD(A1,365)/30 )," ماه ", MOD(MOD(A1,365),30 )," روز ") کد: = CONCATENATE(IF(INT(A2/365)>0,CONCATENATE(INT(A2/365 )," سال "),""), CONCATENATE(IF(INT(MOD(A2,365)/30)>0,CONCATENATE(INT(MOD(A2,365)/30 )," ماه "),""), CONCATENATE(IF(MOD(MOD(A2,365),30)>0,CONCATENATE(MOD(MOD(A2,365),30 )," روز How To Quickly Delete All Text Boxes In Excel?...

  فرمول‌نویسی آرایه‌ای در اکسل   با استفاده از فرمول‌نویسی آرایه‌ای (Array formulas) می‏‌توانید فرمول‏‌ها را به صورت کلی بنویسید و روی چندین سلول اعمال کنید. ساده‌ترین کاربرد فرمول نویسی آرایه‌ای، فرمول نویسی روی ستون‏‌ها است. به این صورت که دیگر به How To Quickly Delete All Text Boxes In Excel?...ادامه مطلب

How To Auto Number Merged Cells In Excel?How could we fill series numbers into a list of different size merged cells in Excel? First in our mind is to drag the Autofill handle to fill the merged cells How To Quickly Delete All Text Boxes In Excel?...ادامه مطلب

how to find duplicates in Excel: identify, highlight count, filter, and moreby Svetlana Cheusheva | updated on June 17, 2019 108 CommentsThe tutorial explains how to search for duplicates in Excel. Yo How To Quickly Delete All Text Boxes In Excel?...ادامه مطلب

تعداد اسامی موجود بدون شمارش تکرار در یک ستونمن یک ستون با اسامی زیادی دارم که بعضی از اسامی چندین بار تکرار شده یک تابع یا فرمول می خوام که تعداد اسامی رو بدون شمارش تکراری ها رو بهم بدهبا سلامفرمول How To Quickly Delete All Text Boxes In Excel?...ادامه مطلب

How To Count Unique Values In A Filtered Column In Excel?If you have a list of names which populated with some duplicates in a filtered column, and now, you want to count the number of unique names on How To Quickly Delete All Text Boxes In Excel?...ادامه مطلب

how can I manually add a thumbnail to the new tab page?

1 Recommended Answer

I like the fact that chrome keeps up with pages I've visited, but it would be REALLY helpful if you could manually add a thumbnail to the new tab page (ala Safari). The thing I love about Chrome first and foremost is that I can simply type my search string into the address and google automatically searches for it. But I'd like to be able to use the new tab page (also set as my home page) for my "normal" browsing shortcuts.

Community content may not be verified or up-to-date. Lea more.

Recommended Answer

How To Quickly Delete All Text Boxes In Excel?...