نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

موضوع: ماتریس متقارن

  1. #1


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    ماتریس متقارن

    با سلام
    با ترکیب این دو فرمول میتوان یک ماتریس متقارن ساخت
    اول داده های قطر بالا مثلثی را وارد میکنیم سپس برای قطر پائین مثلثی از این فرمول استفاده میکنیم
    دقت کنید برای این فرمول باید اولین خانه ماتریس جائی از شیت قرار بگیره که شماره سطر و ستون یکی باشند
    بطور مثال اگه بخواهیم اولین خانه ماتریس در سطر 1 ایجاد کنیم شماره ستون هم باید 1 باشه که در کل آدرسش میشه a1
    اگه بخواهیم اولین خانه ماتریس در سطر 1 ایجاد کنیم شماره ستون هم باید 1 باشه که در کل آدرسش میشه b2
    اگه بخواهیم اولین خانه ماتریس در سطر 1 ایجاد کنیم شماره ستون هم باید 1 باشه که در کل آدرسش میشه c3

    البته برای این فرمول اینطوره که میتونیم با کم یا زیاد کردن پارامترها به خواسته خود برسیم بدون اینکه موارد بالا رو رعایت کنیم

    اینم فرمول
    کد PHP:
    =indirect(address(column();row())) 
    کافیه این فرمول رو برای کل قطر پائینی نوشت
    در مورد توضیح کد بالا تنها نکته ای که داره اینه آرگومان اول فرمول آدرس مربوط به سطر هست که من توی فرمول شماره ستون رو نوشتم و آرگومان دوم شماره ستون هست که شماره سطر رو نوشتم
    این عمل کار تقارن رو انجام میده

    فایل ضمیمه گردید

    از دوستانی که Vba کار میکنند اگه زحمت کد نویسیش رو انجام بدید و توی همین پست قرار بدید ممنون میشم
    کد طوری باشه که کاربر فقط قطر بالا مثلثی رو وارد کنه که نیازی نباشه فرمول نویسی رو انجام بده
    شاید بعد ماتریس هم تغییر پیدا کنه این هم مد نظر باشه

    با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط generalsamad : 2015/05/06 در ساعت 01:34




  2.  

  3. #2


    آخرین بازدید
    2018/05/03
    تاریخ عضویت
    October 2014
    محل سکونت
    جنوب
    نوشته ها
    351
    امتیاز
    3436
    سپاس
    2,033
    سپاس شده
    1,229 در 331 پست
    تعیین سطح نشده است

    با درود
    ضمن تشکر از جناب آقای generalsamad در تکمیل آموزش و بنا به در خواست ایشان کدنویسی vba ماتریس متقارن به همراه فایل نمونه تقدیم دوستان میگردد. امیدوارم برای دوستان مفید واقع شود.

    توضیح عمکرد کد:
    جهت ایجاد یک ماتریس متقارن کافیه در یکی از سلولها دوبارکلیک کنید، پس از آن از شما پرسیده میشود طول قطر ماتریس چه تعداد باشد که با وارد کردن طول قطر، ماتریس متقارن خالی به ابعاد مورد نظر تولید میشود. سپس شما در هر سلول از این ماتریس که مقداری وارد کنید در سلول متقارن آن، مقدار مربوطه ایجاد خواهد شد ضمن اینکه محدودیتی در وارد کردن کدام سمت مثلثی ماتریس ندارید، یعنی در هرسمت که مقدار وارد شد در سمت متقارن مثلث مقدار شما ایجاد میشود.
    همچنین با دوبارکلیک مجدد در یک سلول شما می توانید ماتریس قبلی را کاملا حذف و ماتریس جدید با ابعاد دلخواه ایجاد کنید و در صورتیکه بخواهید بدون ایجاد ماتریس جدید ماتریس قبلی را حذف کنید پس از دوبارکلیلک در یک سلول و ظاهر شدن پرسش طول قطر ماتریس، مقدار صفر را وارد و اینتر کنید.

    البته دوستان بسته به نیاز خود می توانند کد زیر را تغییر و استفاده کنند.
    کد PHP:
    Public Src As RangeMtx As Range

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As RangeCancel As Boolean)
        
    On Error Resume Next
        Dim Vtr 
    As Integer
        p1 
    "Please enter the dimension of Matrix:"
        
    p2 "(Enter '0' to erase Matrix)"
        
    p1 Chr(13) + Chr(13) + p2
        t 
    "Enter Dimension"
        
    ib InputBox(pt7)
        
        If 
    ib "" Then Exit Sub Else Vtr Val(ib)
        If 
    Vtr And Vtr <> 0 Then
            MsgBox 
    "Dimension of Matrix Not less than 2!"vbExclamation"Error"
            
    Cancel True
            
    Exit Sub
        End 
    If
        
        If 
    Not Mtx Is Nothing Then
            Mtx
    .Clear
            
    If Vtr 0 Then Cancel True: Exit Sub
        End 
    If
        
        
    Set Mtx Range(Target.Address ":" Target.Offset(Vtr 1Vtr 1).Address)
        
    Set Src Target
        
        Application
    .EnableEvents False
        Application
    .ScreenUpdating False
        Mtx
    .Clear
        
        
    For Src.Row To Src.Row Mtx.Rows.Count 1
            
    For Src.Column To Src.Column Mtx.Columns.Count 1
                
    If Src.Row Src.Column Then
                    Cells
    (ij).Interior.Color 15921906
                
    ElseIf Src.Row Src.Column Then
                    Cells
    (ij).Interior.Color 15849925
                
    Else
                    
    Cells(ij).Interior.Color 14281213
                End 
    If
            
    Next j
        Next i
                
        Mtx
    .Borders.LineStyle xlContinuous
        Application
    .EnableEvents True
        Application
    .ScreenUpdating True
        Cancel 
    True
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
        
    On Error Resume Next
        Dim Vtr 
    As Integer
        Vtr 
    Mtx.Columns.Count
        
        
    If Target.Row Src.Row Or Target.Row >= Src.Row Vtr Then
            Target
    .Interior.Pattern xlNone
            
    Exit Sub
        End 
    If
        If 
    Target.Column Src.Column Or Target.Column >= Src.Column Vtr Then
            Target
    .Interior.Pattern xlNone
            
    Exit Sub
        End 
    If
        
        
    Application.EnableEvents False
        Src
    .Offset(Target.Column Src.ColumnTarget.Row Src.Row).Value Target.Value
        Application
    .EnableEvents True
    End Sub 

    هرکاری کردم فایل با پسوند xlsm نشد آپ کنم و اجبارا اون رو به rar تبدیل و آپ کردم!!!!
    فايل هاي پيوست شده فايل هاي پيوست شده


  4. #3


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام
    سلام
    با تشکر از دوستان
    برای اینکه بتونین ماتریس متقارن را هر جای شیت داشته باشین از فایل زیر میتونین استفاده کنین.
    فايل هاي پيوست شده فايل هاي پيوست شده
    در یادگیری سیر نشوید

    برای ارتباط بیشتر به سایت ExcelPedia سربزنید.
    برگزاری دوره های آموزش اکسل در تهران
    آموزش توابع اکسل


  5. #4

    آخرین بازدید
    2019/01/11
    تاریخ عضویت
    April 2015
    نوشته ها
    4
    امتیاز
    22
    سپاس
    2
    سپاس شده
    5 در 2 پست
    تعیین سطح نشده است

    با سلام می خواستم بدونم کاربرد این ماتریکسها چیه و کجا به درد میخوره؟

  6. #5


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    با سلام
    این یک مسئله ریاضی هستش و شاید در ماتریسهای مختلف ، یا محاسبات مختلف کاربرد داشته باشه

    هدف از این آموزش آشنائی با ترکیب چند فرمول جستجو بوده که شاید مسئله ای داشته باشیم یا بخواهیم برنامه ای (بازی) بسازیم که چنین کاری رو انجام بده



  7. سپاس ها (2)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. تبدیل ماتریس n درn به یک ماتریس ستونی
    توسط میثم66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 14
    آخرين نوشته: 2014/12/09, 14:00
  2. ماتریس
    توسط exceliran در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 2014/09/27, 22:40
  3. صدای بلندگو کیس
    توسط Haji hadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 2014/02/07, 05:08
  4. ماتریس همانی
    توسط مجید در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2013/11/13, 14:07
  5. ضرب ماتریس به کمک نرم افزار اکسل
    توسط mohsen1987 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 0
    آخرين نوشته: 2012/02/16, 20:29

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد