سلام توی فایل نمونه توضیح دادم اگه میشه کمک کنید. تشکر
-
-
با سلام
از فرمول ذیل بصورت آرایه ای استفاده کنید یعنی بعد تایپ فرمول کلیدهای CTR+ALT+INTER را همزمان فشار دهید و سپس فرمول را به تعداد سطر مورد نیاز به سمت پایین درک نمایید
کد PHP:=IFERROR(INDIRECT("B" & SMALL(IF(Table1[[کد ]]=$I$4,ROW(Table1[[کد ]]),""),ROW(A1))),"")
-
با سلام
از این فرمول آرایه ای هم میتونید استفاده کنید.
بعد از نوشتن فرمول کلید های ctrl+shift+enter را با هم فشار دهید.کد PHP:=IFERROR(INDEX($A$3:$E$21;SMALL(IF($I$4=$A$3:$A$21;ROW($A$3:$A$21)-2);ROW(A1));2);"")
[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
-
سلام دوستان از بابت پاسختون واقعا ممنونم ولی در این فرمول فقط یک کد میشه تو جدول وارد کرد اگه بخوام چند تا کد وارد کنم و اطلاعاتش رو بگیرم باید چه کار کنم از طریق کدنویسی ویژوال راهی نداره؟؟؟؟کامنت
-
شما کد تکراری دارید ...برای کد تکراری با موارد گوناگون چه کار میخواهید بکنید...
فایل نمونه را ببینید.[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
-
سلام امیر. تقریبا مثل فایل دومیت ولی تمام جزئیات ردیف دو رو هم می خوام. اگه می شه این فایل رو یه نگاه بیندازکامنت
-
دوست عزیز متوجه مبنای اطلاعاتی که شما در لیست قرار دادید نمیشم.
شما کد تکراری دارید اگر جستو بر اساس کد باشه باید موارد تکراری کد رو لیست کنید (فرمول اول) اگر کد واحد باشه با تابع ساده vlookup میشه تمام اطلاعات رو پشت سر هم آورد....
ترکیب کد واحد و تکراری در یک لیست و فراخوانی تمام آنها پشت سر هم مشکل است.[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
-
بله عزیز. این اطلاعات مربوط به شرکت فرشه. هر رول فرشی یه کد داره که در یک رول میتونه چند تا نقشه فرش باشه. وقتی این رول خارج میشه باید تعداد فرشهای خارج شده رو بنویسید. من میخواستم با زدن کد رول تمام نقشه های موجود در اون رول لیست بشه. ممکنه چندین رول همزمان از انبار خارج بشه به همین خاطر این فرمول رو می خواستم. به هر حال از بابت پاسختون واقعا ممنونم. البته فکر می کنم از طریق کد ویژوال بشه یه کارایی کرد ولی هنوز چیزی پیدا نکردم. امیدوارم موفق باشینکامنت
-
در فایل پیوست با استفاده از VB کدهای مشابه پشت سرهم لیست شده و قابلیت تایپ کد بعدی نیز فراهم گردیده است
کد PHP:Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Me.Range("i4:i9")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error Resume Next
z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
K = Target.Row
For I = 1 To z1
If Target = Range("A" & I) Then
Range("A" & I & ":E" & I).Copy Destination:=Range("I" & K)
K = K + 1
End If
Next
End If
Macro1
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
کامنت
-
سلام واقعا دمت گرم. خیلی عالی بود. کمک بزرگی بود. به قول مادربزرگا امیدورام هیچ وقت درنمونی ننه
. شرمنده دیر پاسخ دادم دو سه روزی بود وارد اینترنت نشده بودم.
کامنت
کامنت