پرسش تکرار یک کد برای چند Shape

[pelisuru]

سلام و خسته نباشید
این کد رو اگه بخوایم برای چندتا shape بنویسیم چکار باید کرد. خیلی ممنون

Private Sub Worksheet_SelectionChange(ByVal Target As Range)'Updateby Extendoffice 20161116
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("RoundedRectangle1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False


End Sub

[Amir Ghasemiyan]

سلام دوست عزيز
اين كد رو تست بفرماييد

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161116
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
For Each shp In ActiveSheet.Shapes
    With shp
        .Top = ActiveWindow.VisibleRange.Top + 5
        .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
    End With
    Application.ScreenUpdating = False
Next
End Sub

[pelisuru]

سلام دوست عزيز
اين كد رو تست بفرماييد

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161116
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
For Each shp In ActiveSheet.Shapes
    With shp
        .Top = ActiveWindow.VisibleRange.Top + 5
        .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
    End With
    Application.ScreenUpdating = False
Next
End Sub

خیلی ممنون از جواب شما
عالیه کار میکنه.
فقط راهی هست که هر کدوم رو جدا مقدار دهی کنیم که کجای صفحه قرار بگیرن؟
خیلی ممنون

[Amir Ghasemiyan]

خیلی ممنون از جواب شما
عالیه کار میکنه.
فقط راهی هست که هر کدوم رو جدا مقدار دهی کنیم که کجای صفحه قرار بگیرن؟
خیلی ممنون

بله ميشه
شما در يك سلول اسم اون آبجكت رو بنويسيد و در سلول هاي رو به روش مقاديري كه براي تعيين موقعيت بايد بهش بديد رو بنويسيد
بعد داخل كد با استفاده از if يا select بررسي كنيد اگر اسم اون آبجكت فلان بود مقادير رو به روي اون رو استفاده كنه

[pelisuru]

سلام به اساتید این مجموعه بزرگ و ارزشمند که بی مزد و منت کاربران رو راهنمایی می کنند
یه سوال داشتم که به این بخش مربوط نمیشه برای همین قبلا بابت این سوال عذرخواهی میکنم
شاید باورتون نشه بنده بیش از 15 ساله با اکسل کارکردم ولی اطلاعاتم در این زمینه بسیار بسیار محدوده. دلیلش هم اینه که هیچوقت به صورت حرفه ای و تحصصی به دنبال یادگیریش نبودم و فقط زمانی که به مورد خاصی برمیخوردیم با جستجوی اینترنت و سوالاتی در انجمن دوستان لطف می کردند و کار انجام میشد. چند بار هم شده که استاد شمس العلما تلفنی مشکلات رو حل کردن.(چندین سال قبل)
می خواستم اینو بگم الان که بنده سنی ازم گذشته و 34 ساله شدم میتونم مثل سایر اساتید به قولی تو این زمینه محلی بشم؟
دو سه ماهی رو وقت آزاد دارم می خواستم اگه راهی داره چطور و از کجا باید شروع کنم؟ روزانه چقدر باید وقت بزارم؟
باز هم به خاطر پست نامربوط از همه عذرخواهی می کنم.
با تشکر

[حسام بحرانی]

افزایش مهارت در اکسل

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

مهمترین اصل در یادگیری هر هنر و دانشی، داشتن انگیزه و اشتیاقه. خوشبختانه شما اشتیاق فراوانی برای یادگیری دارید و این خیلی خوبه.

بهترین پیشنهاد من به شما ایجاد پرسش برای خودتون هست و سعی کنید راهی برای پرسش هاتون پیدا کنید.

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

اصولاً کسانی که در نرم افزار اکسل تبحر دارند بر اساس یکی از دلایل زیر آن را دنبال کرده اند و مهارت کسب نموده اند:

1- در محل کار خود از این برنامه استفاده میشده و سعی کردند با گسترش توانایی خود در اکسل کارهایشان را سریعتر و جالب تر ارائه دهند.

2- برای پرسش هایی که از قبل در ذهن داشته اند با کمک این نرم افزار به پاسخ رسیده اند.

3- کارکردن با این نرم افزار را راحت تر و ساده تر از نرم افزارهای دیگر دیده اند.

4- در بسیاری از ادارات و موسسات دولتی و خصوصی با این نرم افزاز ارتباط داشته اند و ......

همه ی این دلایل باعث اشتیاق دوچندان به این نرم افزار شده و آنها را بصورت حرفه ای به دنبال اکسل کشانده است.

شما باید ببینید چرا به یادگیری این نرم افزار بیش از پیش علاقمند شده اید؟ و همان را هدف اصلی خودتون قرار بدید و دنبال کنید.

در ضمن پیشنهاد می کنم این تاپیک را هم حتماً ببینید: جایگاه نرم افزار اکسل در شغل شما

مطمئناً موفق خواهید شد و شما را بعنوان یک کاربر حرفه ای در این انجمن و دیگر محافل آفیس خواهیم دید.
موفق و پیروز باشید.