درخواست کمک برای رفع مشکل

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • gilivy71@yahoo.

    • 2017/01/26
    • 22

    [حل شده] درخواست کمک برای رفع مشکل

    سلام
    من یه فرم دارم در ستون h می خوام وقتی نوع خسارت رو انتخاب کنم فقط ستون های مربوط به همون قسمت نمایش داده بشه .مثلا وقتی در قسمت نوع خسارت راه رو انتخاب کنم در ادامه ستون های مربوط به راه فعال بشه و مثلا ستون های ابنیه فنی یا ایمنی و حریم دیگه نشون داده نشن.دوستان راهنمایی میکنید چطوری؟
    فایل رو هم پیوست می ذارم
    فایل های پیوست شده
  • majid_mx4

    • 2012/06/25
    • 699

    #2
    با سلام

    لطفا فایل ضمیمه را بررسی نمایید.

    توضیح: در صورت انتخاب هریک از خانه هایی که در ستون H قرار دارد فرمان مخفی کردن انجام میشود
    کد:
    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Column = 8 Then
        Dim c As Range
    ActiveSheet.Cells.EntireColumn.Hidden = False
    
    For Each acell In Target.Cells
        If acell.Value <> "" Then
    
        For Each c In Range("I1:AG1").Cells
             If c.Value <> "" Then
        If c.Value <> Range(acell.Address).Value Then
            
    
    MergedInfo = Range(c.Address).MergeArea.Address(0, 0)
    
    Range(MergedInfo).EntireColumn.Hidden = True
            
            End If
            End If
        Next c
    End If
    Next
    End If
    
    End Sub
    موفق باشید میر
    فایل های پیوست شده

    کامنت

    • gilivy71@yahoo.

      • 2017/01/26
      • 22

      #3
      ممنونم

      کامنت

      چند لحظه..