ارتباط بین شیت های اکسل
Collapse
این تاپیک قفل است.
X
X
-
-
سلام
منظور از جستجو فرمول هست یا ابزار find[CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:
[URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
[URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
:wcom:
[B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
[EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
[/CENTER] -
با سلام
از کدهای ذیل میتوانید در تمام شیت های موجود نسبت به سرچ دیتا سلولA1 شیت اول اقدام نمایید
کد PHP:Sub test()
Z = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row
Range("B1:C" & Z).ClearContents
x = LCase(Sheet1.Range("a1").Value)
t = 1
For Each Sheet In Worksheets
Cells.Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
End With
Range("A1").Select
Next
For Each Sheet In Worksheets
For Each cell In Sheet.UsedRange.SpecialCells(xlCellTypeConstants)
If LCase(cell.Value) = x Then
cell.Interior.ColorIndex = 3
End If
Next cell
Next
End Sub
Last edited by iranweld; 2015/10/31, 15:06.کامنت
-
با درود
ضمن تشکر از جناب iranweld
دوست عزیز اگر منظور شما رو درست متوجه شده باشم میتونید از ابزار find خود اکسل استفاده کنید. با زدن کلیدهای ترکیبی Ctrl+F پنجره جستجو ظاهر میشود که برای جستجوی مقدار مورد نظر در تمام شیتها، در پنجره مذکور روی کلید Option کلیک کنید و سپس از قسمت Within گزینه Workbook رو به جای Sheet انتخاب کنید. در این حالت در هر شیتی که باشید حالت عملیات جستجو در تمام شیتها انجام می گردد.کامنت



کامنت