مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.

انا لله و انا الیه راجعون

Shape شناور

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • احسان رنجبر

    • 2019/09/23
    • 25
    • 44.00
    #1

    پرسش Shape شناور

    سلام خدمت همه اساتید
    من یک shape ایجاد کردم میخوام حالت شناور داشته باشه و برای این کار از کد زیر استفاده کردم
    ------------------------------
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveWindow.VisibleRange
    ActiveSheet.Shapes("Rounded Rectangle 1").Top = .Top + 314
    ActiveSheet.Shapes("Rounded Rectangle 1").Left = .Left + 617
    End With
    End Sub
    ------------------------
    ولی میخوام فاصله از سمت چپ فقط در راستای ستون K باشد
    یعنی اینکه ارتفاع از بالا 314 باشد ولی از چپ عدد نباشد و در راستای ستون K باشد .
    به عبارتی با حرکت از بالا به پایین شیپ شناور باشد ولی در وقتی با حرکت از چپ به راست ،شیپ ثابت باشد
    برچسب ها: هیچ‌کدام
    • mrhartsclube

      • 2017/11/15
      • 130
      • 81.00
      #2
      سلام دوست عزیز

      کد PHP:
      //Left of "K" Column
      ActiveSheet.Shapes("Rounded Rectangle 1").Left = ActiveSheet.Range("k1").Left
      //Right of "K" Column
      ActiveSheet.Shapes("Rounded Rectangle 1").Left = ActiveSheet.Range("k1").Left + ActiveSheet.Range("K1").Width - ActiveSheet.Shapes("Rounded Rectangle 1").Width
      //Center of "K" Column
      ActiveSheet.Shapes("Rounded Rectangle 1").Left = ActiveSheet.Range("k1").Left + ActiveSheet.Range("K1").Width / 2 - ActiveSheet.Shapes("Rounded Rectangle 1").Width / 2 
      [CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
      [/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester

      [/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER]

        کامنت

        • احسان رنجبر

          • 2019/09/23
          • 25
          • 44.00
          #3
          سلام
          بزرگوار این کد عمل نمیکنه

            کامنت

            • mrhartsclube

              • 2017/11/15
              • 130
              • 81.00
              #4
              دوست عزیز سلام
              لطفا فایلتونو ارسال کنید
              توی سیستم من روی یه شیت خالی کاملا جواب داد


              Sent from my iPhone using Tapatalk
              [CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
              [/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester

              [/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER]

                کامنت

                • mrhartsclube

                  • 2017/11/15
                  • 130
                  • 81.00
                  #5
                  نوشته اصلی توسط احسان رنجبر
                  سلام
                  بزرگوار این کد عمل نمیکنه
                  و اینکه لطفا دقت کنید که از کدوم کد استفاده کردین و بخشهای مورد نیاز رو بنا به مشخصات فایلتون تغییر دادین یا نه


                  Sent from my iPhone using Tapatalk
                  [CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
                  [/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester

                  [/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER]

                    کامنت

                    • احسان رنجبر

                      • 2019/09/23
                      • 25
                      • 44.00
                      #6
                      نوشته اصلی توسط mrhartsclube
                      و اینکه لطفا دقت کنید که از کدوم کد استفاده کردین و بخشهای مورد نیاز رو بنا به مشخصات فایلتون تغییر دادین یا نه


                      Sent from my iPhone using Tapatalk
                      سلام مجدد و ممنونم از پیگیری شما
                      فایل رو ضمیمه کردم

                      فقط فرمت فایل رو مجبور شدم تغییر بدم چونکه آپلود نمیشد
                      فایل های پیوست شده

                        کامنت

                        • mrhartsclube

                          • 2017/11/15
                          • 130
                          • 81.00
                          #7
                          سلام دوست عزیز

                          کد درست کار میکنه (البته فایل شما کد نداشت)، فکر میکنم مشکلتون با Event ای باشه که کد رو داخلش گذاشتین. مثلا داخل Selection_Change که میذارین وقتی سلول دیگه ای رو انتخاب کنید اجرا میشه.
                          فعلا برای Scroll کردن Event ای نیست، هرچند اگه با فلشها توی صفحه جابجا بشید همون Selection_Change بسیار عالی عمل میکنه. ولی برای اسکرول کردن با موس باید تایمر بذارین که به لحاظ مصرف سی پی یو به صرفه نیست.
                          یه سری Event بود که با API ویندوز مینوشتیم که از وقتی سیستمای 64 بیتی اومد دیگه درگیرشون نشدم چون کار نمیکردن و منم پیگیر نشدم.
                          اگه نیاز مبرم به اسکرول شدن با موس و فیکس موندن اون دکمه ها داشتین بگین انشاالله که بتونم کدهای API رو برای 64 بیتی هم درست کنم که کارتون راه بیفته انشاالله.
                          [CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
                          [/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester

                          [/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER]

                            کامنت

                            قبلی template بعدی
                            چند لحظه..