كد ماكرو براي نمايش يك شيت در شيت ديگر با فعال كردن تيك نمايش

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

    • 2015/04/25
    • 72

    [حل شده] كد ماكرو براي نمايش يك شيت در شيت ديگر با فعال كردن تيك نمايش

    سلام به استادان گرامي
    در فايل پيوست ارسالي سه شيت اطلاعات پايه دارم و در شيت الويت پكيج در ستونb نام شيت هاي اطلاعات پايه امده.
    در ستونcتعداد سفارش از پكيج امده
    و در ستون d تيك نمايش امده
    حالا ميخوايم وقتي مثلا براي شيت شماره1107 تعداد سفارش به طور مثال2عدد ميزنيم و تيك نمايش اجرا مي كنيم كنار جدول شيت شماره 1107 تا جايي كه اطلاعاتي نوشته داره در شيت الويت پكيج كنار جدول بياد
    حالا با اين تفاووت كه اگه من تيك شيت 1107 برداشتم اطلاعات وارد شده برداشته بشه يا مثلا
    تيك 1107 فعال هست تيك 1109 هم فعال ميكنيم اطلاعات شيت1109 پايين اطلاعات شيت1107 بياد.
    ---
    در شيت الويت پكيج ستونe به نام مورد نياز فرمولي نوشته شده كه ميخوام هروقت هر تيكي كه اجرا ميشه اين فرمول براي اون اطلاعات شيت نسبت به تعداد سفارش اجرا بشه

    ممنون ميشم كد ماكرو ها رو بگين
    فایل های پیوست شده
  • ordouei

    • 2013/05/01
    • 68
    • 45.00

    #2
    با سلام
    در شیت 1107 چندین ردیف وجود دارد - اطلاعات کدام ردیف در جلوی کد 1107 با 2 عدد ضاهر شود .
    مثلا
    3 شانه هلیکال برای دستگاه 2*6 145.020.220 1209-309 8.25 3
    یا
    5 واشر دنده ck d23 l5 1209-501 3 4 تراش qc مونتاژ

    کامنت

    • مائده

      • 2015/04/25
      • 72

      #3
      نوشته اصلی توسط ordouei
      با سلام
      در شیت 1107 چندین ردیف وجود دارد - اطلاعات کدام ردیف در جلوی کد 1107 با 2 عدد ضاهر شود .
      مثلا
      3 شانه هلیکال برای دستگاه 2*6 145.020.220 1209-309 8.25 3
      یا
      5 واشر دنده ck d23 l5 1209-501 3 4 تراش qc مونتاژ

      سلام
      ميخوام زماني كه تيك 1107در شيت الويت پكيج فعال ميكنم تمامي اطلاعات بياد
      مثلا:1107 سيزده رديف بياد-
      1108 بيست و يك رديفش بياد-
      يا هر شيتي به تعداد رديف اطلاعاتش بياد.


      براي بدست امدن موجودي مورد نياز هم:
      در شيت الويت پكيج ما تعداد سفارش ضرب تعداد كالا ميكنيم و نسبت به موجودي كسري يا اضافه در ستون مورد نياز بدست مياد

      کامنت

      • ordouei

        • 2013/05/01
        • 68
        • 45.00

        #4
        با سلام

        توضیحات مفهوم نیست - یعنی 13 ردیف بصورت افقی بیاید - یا عمودی در زیر هم ؟
        حالا دومین کد تکلیفش چیست ؟
        پاسخ شما اگر + باشد باید از اکسل پویا استفاده شود .
        یعنی با تغیرات شیت ها وضعیت انتخاب و نمایش تغییر نماید
        لطفا بصورت مثال خروجی ها را مشخص نمایید

        کامنت

        • iranweld

          • 2015/03/29
          • 3341

          #5
          با سلام

          در فایل پیوست با استفاده از قابلیت رویدادهای اکسل و فراخوانی یک ماکرو انجام شد

          کد PHP:
          Private Sub Worksheet_SelectionChange(ByVal Target As Range)
              If 
          Not Intersect(TargetMe.Range("D2:D21")) Is Nothing Then
              Application
          .ScreenUpdating False
             Application
          .EnableEvents False
              
              TEST
              
             End 
          If
           
          Application.EnableEvents True
          Application
          .ScreenUpdating True

          End Sub 
          ماکرو مورد نظر

          کد PHP:
          Sub TEST()

          On Error Resume Next

          Sheet1.Cells(Sheet1.Rows.Count"F").End(xlUp).Row

          ActiveCell.Row

          For 2 To 21
          Range
          ("D" I).Interior.ColorIndex 2
          Next
          Range
          ("D" T).Interior.ColorIndex 3

          Range
          ("F2:M" Z).ClearContents
                  Range
          ("F2").Select

          For 2 To 100


          Range
          ("F" I).Value Sheets("" Range("B" T).Value "").Range("B" I).Value
          Range
          ("G" I).Value Sheets("" Range("B" T).Value "").Range("C" I).Value
          Range
          ("H" I).Value Sheets("" Range("B" T).Value "").Range("D" I).Value
          Range
          ("I" I).Value Sheets("" Range("B" T).Value "").Range("E" I).Value
          Range
          ("J" I).Value Sheets("" Range("B" T).Value "").Range("F" I).Value
          Range
          ("K" I).Value Sheets("" Range("B" T).Value "").Range("G" I).Value
          Range
          ("L" I).Value Sheets("" Range("B" T).Value "").Range("H" I).Value
          Range
          ("M" I).Value Sheets("" Range("B" T).Value "").Range("I" I).Value

          Next

          Range
          ("D" T).Select

          On Error 
          GoTo 0

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

          کامنت

          • مائده

            • 2015/04/25
            • 72

            #6
            سلام و با تشكر فراوان
            احتراما مواردي به شرح زير اعلام ميشود:

            1-در شيت الويت پكيج در ستون مورد نياز فرمول بايد در ماكرو ايجاد بشه چون وقتي تيك نمايش مثلا1108 يا 1109 ايجاد ميكنم تعداد سفارش 1107 را در نظر ميگيره؟

            2-ميشه در شيت الويت پكيج وقتي تيك يك شيت را فعال ميكنيم بستگي به اقلام مورد نياز كسري ها فقط نمايش داده بشه.مثلا:شيت1107 فعال كرديم فقط اقلام كسري مثل رديف1.2.3.9 بياره.اين تغيير براي تمامي شيت هاي اطلاعات پايه ميخوام اجرا بشه.كسري ها فقط نمايش داده بشه.

            3-حالا همين كه تيك شيت 1107 فعاله تيك شيت 1108 هم فعال كنيم و داده ها پشت سر هم با يك خط فاصله نمايش داده بشه.


            ممنون راهنمايي كنين
            فایل های پیوست شده

            کامنت

            چند لحظه..