کشویی کردن چند سطر با سر تیتر

**Javid Mokhtari** · 2016/12/09, 18:42

نوشته اصلی توسط Mohammad Acc

سلام دوستان عزیز

به دلیل کمتر و در دسترس بودم محتویات شیت Actor Search می خواستم اون سطر های که شماره خورده رو خلاصه کنم یعنی :

در شیت Actor Search وقتی بر روی سلول B2 کلیک میکنم محتویاتشو ( از سلول A3 تا سلول H 63 رو نشون بده ) یعنی در حالت عادی نتونم محتویاتشو ببینم
نکته : اگه سطر یا ستونی به این مجموعه اضافه یا کسر شد فرمول بهم نریزه

ممنون میشم راهنمایی کنید

باسلام...

نمونه زیر رو نگاه کنین ببینین به مدنظرتون هست یا نه...

فایل های پیوست شده

List 1 mn.xlsm (1.19 مگابایت, مشاهدات 20)

**rahi_feri** · 2016/12/10, 17:20

سلام

نکته : اگه سطر یا ستونی به این مجموعه اضافه یا کسر شد فرمول بهم نریزه

می خواهید با یه مقدارش با فرمول یه مقدار با کد انجام بشه یا همش با کد ؟
منظورتون از کلیک کردن روی سلول B2 یعنی همون شکلی که در اون سلول رسم شده دیگه یا Command Button؟!

از سلول A3 تا سلول H 63 رو نشون بده

یعنی فقط این محدوده Hide بشه!؟ یا تمام سطرهایی که داده داره؟!یا چیز دیگه ای؟

توضیحات بیشتر بدید !
با سپاس

**Mohammad Acc** · 2016/12/10, 17:57

نوشته اصلی توسط rahi_feri

سلام

می خواهید با یه مقدارش با فرمول یه مقدار با کد انجام بشه یا همش با کد ؟
منظورتون از کلیک کردن روی سلول B2 یعنی همون شکلی که در اون سلول رسم شده دیگه یا Command Button؟!

یعنی فقط این محدوده Hide بشه!؟ یا تمام سطرهایی که داده داره؟!یا چیز دیگه ای؟

توضیحات بیشتر بدید !
با سپاس

در رابطه با سوال اول : فرقی نمیکنه همش با فرمول باشه یا کد نویسی هر کدوم کاراتر باشه و بتونم برای بقیه ی مجموعه خودم انجامش بدم - از B2 منظورم همون نوشته بنفش رنگ هست ( Penelope Cruz )

نه فقط همین محدوده هاید بشه تا با کلیک کردن بر روی B2 نمایان بشه ( یه نوعی زیر مجموعش باشه )

چون دقت کنید هر چند سطر یه تیتر داره اونا جداس این بازه ای که بالا گفتم برای B2 هست

**rahi_feri** · 2016/12/10, 20:05

سلام
فایل زیر یه نمونه اولیست!
متاسفانه چون سلول شما Merge هست کمی مشکل در کار پیش میاد! و به دنبال راه حلم البته امیدوارم این کار شما رو راه بندازه!؟ با کلیک بر روی سلول a2 !
تست کنید ببینیم همین منظورتون بود!

کد:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 And Range("a2").Value = "-" And Rows("3:63").Hidden = flase Then
        If Not Intersect(Target, Range("a2")) Is Nothing Then
            Rows("3:63").Hidden = True
            Range("a2").Value = "+"
            Range("a1").Select
        End If
Exit Sub
Else
    If Selection.Count = 1 And Range("a2").Value = "+" And Rows("3:63").Hidden = True Then
        If Not Intersect(Target, Range("a2")) Is Nothing Then
            Rows("3:63").Hidden = False
            Range("a2").Value = "-"
            Range("a1").Select
        End If
    End If
End If
End Sub

Collapse Ansd Extend

http://s8.picofile.com/file/8277993542/Collapse_Ansd_Extend.zip.html

**Mohammad Acc** · 2016/12/10, 21:47

نوشته اصلی توسط rahi_feri

سلام
فایل زیر یه نمونه اولیست!
متاسفانه چون سلول شما merge هست کمی مشکل در کار پیش میاد! و به دنبال راه حلم البته امیدوارم این کار شما رو راه بندازه!؟ با کلیک بر روی سلول a2 !
تست کنید ببینیم همین منظورتون بود!

کد:

private sub worksheet_selectionchange(byval target as range)
if selection.count = 1 and range("a2").value = "-" and rows("3:63").hidden = flase then
        if not intersect(target, range("a2")) is nothing then
            rows("3:63").hidden = true
            range("a2").value = "+"
            range("a1").select
        end if
exit sub
else
    if selection.count = 1 and range("a2").value = "+" and rows("3:63").hidden = true then
        if not intersect(target, range("a2")) is nothing then
            rows("3:63").hidden = false
            range("a2").value = "-"
            range("a1").select
        end if
    end if
end if
end sub

http://s8.picofile.com/file/82779935...xtend.zip.html

ممنون عزیز
به جز همون ادرس کلیک اول درسته فقط دو نکته 1- می خوام پیش فرض بهم نشون نده یعنی هیدن باشه 2- با اضافه و کم شدن سطر و ستون فرمول بهم نمیریزه؟

بعد یک سوال با کپی پیست کردن و تغییر ادرس سلول ها میتونم چنتا سطر دیگه رو به همین شکل انجام بدم؟ می خوام علاوه بر این یک فرمول دیگه هم بنویسم به جای a2 بشه a64 ادرس سلول هم از 3:63 بشه 65:121 یعنی جفش در صفحه وجود داشته باشه امکانش هست؟

**Javid Mokhtari** · 2016/12/11, 03:11

نوشته اصلی توسط Mohammad Acc

ممنون عزیز
به جز همون ادرس کلیک اول درسته فقط دو نکته 1- می خوام پیش فرض بهم نشون نده یعنی هیدن باشه 2- با اضافه و کم شدن سطر و ستون فرمول بهم نمیریزه؟

بعد یک سوال با کپی پیست کردن و تغییر ادرس سلول ها میتونم چنتا سطر دیگه رو به همین شکل انجام بدم؟ می خوام علاوه بر این یک فرمول دیگه هم بنویسم به جای a2 بشه a64 ادرس سلول هم از 3:63 بشه 65:121 یعنی جفش در صفحه وجود داشته باشه امکانش هست؟

سلام
برادر هنوز گیر این سئوالین...
امیدوارم به خواستتون نزدیک باشه..

و تشکر فراوان از کاربر عزیز و زحمتکش rahi_feri که یک تنه پاسخگوی سئوالات عزیزان هستش

فایل های پیوست شده

List 1 mn.xlsm (1.10 مگابایت, مشاهدات 24)

**Mohammad Acc** · 2016/12/11, 12:56

نوشته اصلی توسط jansiz hayat

سلام
برادر هنوز گیر این سئوالین...
امیدوارم به خواستتون نزدیک باشه..

و تشکر فراوان از کاربر عزیز و زحمتکش rahi_feri که یک تنه پاسخگوی سئوالات عزیزان هستش

ممنون از شما

خیلی عالی هست
فقط 2 مشکل داره
1- وقتی روی ردیف های سمت چپ ( همون اعداد شمارنده ) کلیک میکنم هاید نشه
2- نحوه ی اضافه کردن سطر مابین محدوده ها بدون تغییر فرمول

**Javid Mokhtari** · 2016/12/11, 19:34

نوشته اصلی توسط Mohammad Acc

ممنون از شما

خیلی عالی هست
فقط 2 مشکل داره
1- وقتی روی ردیف های سمت چپ ( همون اعداد شمارنده ) کلیک میکنم هاید نشه
2- نحوه ی اضافه کردن سطر مابین محدوده ها بدون تغییر فرمول

کد PHP:


On Error Resume Next
Application.ScreenUpdating = False
Dim r1 As Integer
Dim r2 As Integer
If ActiveCell.Column <> 1 Then
Dim rng As Range
If ActiveCell.Value <> "" And ActiveCell.Offset(0, -1).Value = "" Then
For Each rng In Range(ActiveCell.Offset(1, -1).Address, "a1000000")
Rows(r3 & ":" & r4).EntireRow.Hidden = True
    If rng = "" Then
    r1 = ActiveCell.Offset(1, -1).Row
    r2 = rng.Offset(-1, 0).Row
        Rows(ActiveCell.Offset(1, -1).Row & ":" & rng.Offset(-1, 0).Row).EntireRow.Hidden = False
        r3 = r1
        r4 = r2
                Exit For
    End If
Next rng
End If

End If
Application.ScreenUpdating = True