ترفندی ساده اما کاربردی برای دسترسی به شیت ها
Collapse
X
-
اين فرمول چه ربطي به اين ترفند داشت؟
لطف كنيد بيشتر توضيح بدينکامنت
-
برای مدیریت خطا بادی از فرمول هایی نظیر Iferror استفاده کنید
ارگومان اول فرمول که منجر به خطا میشه یعنی vlookup و ارگومان دوم، هرچیزی که بخواید بجای خطا بهتون نشون بده[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]کامنت
-
ببخشید بنده چند تا سلول دارم که اگسل چند تا را جمع می زنه و تعداد را در زیر جمع جمع نمی کنه ، امکان دارد بررسی کنید ببینید ، اشکال کارم در کجاست ستون l - m - n برام مهمهفایل های پیوست شدهکامنت
-
فایل پیوست رو ببینیدفایل های پیوست شدهکامنت
-
کامنت
-
کامنت
-
ماکرو ذیل را تست کنید
کد PHP:Sub TEST()
Dim xx As Integer
Dim LIST1 As New Collection
Columns("B:B").ClearContents
z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
k = 1
For j = 1 To z1
Set LIST1 = Nothing
T = 0
For i = Len(Range("A" & j)) To 1 Step -1
If Mid(Range("A" & j), i, 1) = "-" And T < 2 Then
LIST1.Add i
T = T + 1
End If
Next
xx = Mid(Range("A" & j), LIST1.Item(2) + 1, LIST1.Item(1) - LIST1.Item(2) - 1)
For i = 1 To xx
Range("b" & k) = Left(Range("A" & j), LIST1.Item(2)) & i & Right(Range("A" & j), _
Len(Range("A" & j)) - LIST1.Item(2) - 1)
k = k + 1
Next
Next
End Sub
فایل های پیوست شدهLast edited by iranweld; 2016/11/07, 13:17.کامنت
-
حل شد مشکلم با ماکرویی که دوست عزیز زححمتش رو کشیدن.
سپاسگزارمLast edited by mohamad2man; 2016/11/07, 20:52.کامنت
-
کامنت
کامنت