تنظيم خودكار پهنا يا ارتفاع يك سلول

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • arsalan135

    • 2013/11/10
    • 61
    • 58.00

    تنظيم خودكار پهنا يا ارتفاع يك سلول

    با سلام خدمت دوستان
    براي اينكه در يك سلول پس از اينكه متني وارد شد ( يا عددي ) پهنا يا ارتفاع سلول بطور اتوماتيك تنيم شود ، چه راهكاري داريد ؟
    البته راههاي دستي اعم از وارد كردن پهنا يا ارتفاع سلول و يا دبل كليك روي مرز رديف يا سلول ( يا Auto fit .....) بايستي بعد از وارد كردن متن حتما اينكارها رو انجام داد. ولي من مي خواهم بعنوان مثال نتيجه محاسبه يك سلول كه عددي است ، با توجه به اينكه ممكن است تعداد رقمها تغيير كند ، بعد از بدست آمدن نتيجه يا تغيير در محاسبه همزمان پهنا يا ارتفاع سلول هم تغيير كند تا ديگر نيازي به انجام دستي نباشد
    ممنون
  • mokaram
    مدير تالار اکسل و بانک اطلاعاتی

    • 2011/02/06
    • 1805
    • 74.00

    #2
    به فایل زیر توجه کنید
    فایل های پیوست شده
    [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
    [/CENTER]

    کامنت

    • Amir Ghasemiyan

      • 2013/09/20
      • 4561
      • 100.00

      #3
      نوشته اصلی توسط barrai
      به فایل زیر توجه کنید

      ممنون دوست عزيز. فقط دو مورد هست كه بايد دقت كنيد
      اول اينكه اين كدي كه شما نوشتين فقط چند ستون خاص رو پوشش ميده.
      دوم اينكه تا جايي كه امكان داره از گذاشتن فايل آماده خودداري بفرماييد

      اين كد رو در قسمت كد شيت مورد نظرتون كپي كنيد:

      کد:
      Private Sub Worksheet_Change(ByVal Target As Range)
          q = Target.Column
          Columns(q).EntireColumn.AutoFit
      End Sub

      کامنت

      • arsalan135

        • 2013/11/10
        • 61
        • 58.00

        #4
        بعد از اينكه كد رو توي كد شيت وارد مي كنيم ، UNDO و REDO غيرفعال مي شود ، چه بايد كرد ؟

        کامنت

        • arsalan135

          • 2013/11/10
          • 61
          • 58.00

          #5
          البته undo و redo براي تنظيم فرمت سلولها فعال است ولي زماني كه در سلولها تغييري ايجاد شود و يا فرمولي نوشته شود و يا سلولي را به اشتباه پاك كنيم گزينه هاي undo , redo غيرفعال هستند و نمي شود تغييرات انجام شده را برگرداند

          کامنت

          • ~M*E*H*D*I~
            • 2011/10/19
            • 4377
            • 70.00

            #6
            از قطعه کد زیر میتونید استفاده کنید
            کد PHP:

            With Cells
              
            .EntireColumn.AutoFit
               
            .EntireRow.AutoFit
               
            .HorizontalAlignment xlGeneral
                    
            .VerticalAlignment xlTop
                  End With 
            [CENTER]
            [SIGPIC][/SIGPIC]
            [/CENTER]

            کامنت

            • arsalan135

              • 2013/11/10
              • 61
              • 58.00

              #7
              كد رو داخل كد شيت كپي كردم ولي كار نمي كند

              کامنت

              • Amir Ghasemiyan

                • 2013/09/20
                • 4561
                • 100.00

                #8
                نوشته اصلی توسط arsalan135
                البته undo و redo براي تنظيم فرمت سلولها فعال است ولي زماني كه در سلولها تغييري ايجاد شود و يا فرمولي نوشته شود و يا سلولي را به اشتباه پاك كنيم گزينه هاي undo , redo غيرفعال هستند و نمي شود تغييرات انجام شده را برگرداند
                وقتي شما با كد تغييراتي در سلول ها ايجاد ميكنيد آندو و ريدو غير فعال ميشن. اين طبيعي هست ولي اگر با نوشتن در سلول ها بصورت دستي اين مشكل رو دارين قضيش فرق ميكنه

                کامنت

                • ~M*E*H*D*I~
                  • 2011/10/19
                  • 4377
                  • 70.00

                  #9
                  نوشته اصلی توسط arsalan135
                  كد رو داخل كد شيت كپي كردم ولي كار نمي كند
                  این یک قطعه کد هست نه کد اصلی ، بایستی در انتهای کدی که باعث تغییرات میشن داخل ساب روتین کپی کنید
                  [CENTER]
                  [SIGPIC][/SIGPIC]
                  [/CENTER]

                  کامنت

                  • Ali Parsaei
                    مدير تالارتوابع اکسل

                    • 2013/11/18
                    • 1521
                    • 71.67

                    #10
                    بعضي مواقع shrink to fit در قسمت فرمت سل هم به کار مي آيد، يعني به جاي فيت کردن عرض ستون با نوشته ها، عرض نوشته ها را با ستون فيت کنيد، البته در مواقعي است که مثلا" با يک درجه کوچک کردن فونت بعضي سل ها مشکل برطرف مي گردد.
                    [SIGPIC][/SIGPIC]

                    کامنت

                    • arsalan135

                      • 2013/11/10
                      • 61
                      • 58.00

                      #11
                      نوشته اصلی توسط ~M*E*H*D*I~
                      این یک قطعه کد هست نه کد اصلی ، بایستی در انتهای کدی که باعث تغییرات میشن داخل ساب روتین کپی کنید
                      مي بخشيد من با برنامه نويسي در اكسل آشنايي ندارم اگر امكان دارد واضحتر توضيح بدهيد .

                      کامنت

                      • ~M*E*H*D*I~
                        • 2011/10/19
                        • 4377
                        • 70.00

                        #12
                        Alt+F11 رو بزنید وارد محیط VBA که شدید روی مثلا sheet1 دابل کلیک کند صفحه ای که باز میشه کد زیر رو وارد کنید
                        کد PHP:


                        Private Sub Worksheet_Change(ByVal Target As Range)
                        With Cells
                          
                        .EntireColumn.AutoFit
                           
                        .EntireRow.AutoFit
                           
                        .HorizontalAlignment xlGeneral
                                
                        .VerticalAlignment xlTop
                              End With
                        End Sub 
                        [CENTER]
                        [SIGPIC][/SIGPIC]
                        [/CENTER]

                        کامنت

                        • arsalan135

                          • 2013/11/10
                          • 61
                          • 58.00

                          #13
                          ولي بازهم undo , Redo غير فعال هستند

                          کامنت

                          • ~M*E*H*D*I~
                            • 2011/10/19
                            • 4377
                            • 70.00

                            #14
                            از امکان shrink to fit استفاده کردید؟
                            فایل های پیوست شده
                            [CENTER]
                            [SIGPIC][/SIGPIC]
                            [/CENTER]

                            کامنت

                            • arsalan135

                              • 2013/11/10
                              • 61
                              • 58.00

                              #15
                              بله استفاده كردم ولي چون فونتها متفاوت هستند جالب در نمياد

                              کامنت

                              چند لحظه..