متحرک بودن دکمه فرمان در صفحه

[payam]

با درود
من در یک صفحه اکسل یک command button قرار دادم. ولی وقتی صفحه به چپ حرکت می کنه دکمه ناپدید میشه و باید دوباره صفحه رو برگردونم تا پیدا بشه. آیا راهی هست که دکمه به صورت شناور در صفحه قرار بگیره و در هر لحظه قابل دیدن باشه؟
ممنون میشم راهنمایی کنید.

[komeilex]

RE: متحرک بودن دکمه فرمان در صفحه

سلام. برای شناور بودن دکمه که چیزی به نظرم نمیرسه مگر این که با کد نویسی بشه کاری انجام داد. ولی راه ساده ایی که به نظرم می رسه اینه که سطر و ستون مربوط به اون دکمه رو فریز کنین.
[attachment=1149]

[امين اسماعيلي]

RE: متحرک بودن دکمه فرمان در صفحه

با درود

فایل زیرم با کد نویسی هستس
هر وقت که یه سل رو اکتیو کنی دکمه میاد کنا سل شما. شیت 2 هم یه نمونه کد دیگست

http://www.uplooder.net/cgi-bin/dl.cgi?key=c8e8f4807bf6a5d00e555f0eb1efdbb8

[milad.moafi]

RE: متحرک بودن دکمه فرمان در صفحه

سلام، میتونی به جای command button از shape استفاده کنی، و کدت رو به شکل assign کنی، و حالا اون خواسته ات رو میتونی عملی کنی که اگه تو properties شکلت بتونی چک باکس move with text رو پیدا کنی و غیر فعالش کنی، به هدفت رسیدی.
شایدم تو همون properties دکمه active x ات باشه، دقیقا نمیدونم...

[Nima]

فکر کنم باید از کد زیر در ایونت شیت استفاده کنید:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveWindow.VisibleRange
        ActiveSheet.Shapes("CommandButton1").Top = .Top
        ActiveSheet.Shapes("CommandButton1").Left = .Left
    End With
End Sub

[Ali Parsaei]

در آدرس ياد شده آقاي اسماعيلي ديگر فايلي در آن براي دانلود نيست!
آقا نيما کد فوق را هم امتحان کردم جواب نمي دهد.

[Nima]

کد زیر رو هم تست کنید:

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    With ActiveWindow.Selection
        Me.CommandButton1.Top = .Top + 20
        Me.CommandButton1.Left = .Left + 20
    End With
End Sub

[Nima]

و کد زیر:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    CommandButton1.Left = Target.Left + Target.Width
    CommandButton1.Top = Target.Top + Target.Height
End Sub

[Ali Parsaei]

خيلي آقايي،
کد دوم و سوم هر دو درست کار مي کند. بسيار ممنونم.
اين پاسخهاي سريع که لطف مي کنيد و مي دهيد نتيجه زحماتي است که قبلا" کشيده و تجربه اي است که در کد نويسي کسب کرده ايد و راحت در اختيار بنده حقير قرار مي دهيد، و من به اين موضوع کاملا" واقفم فکر نکني حواسم نيست ها!!!!! و از اين بابت بسيار متشکرم.

[alieddy0]

با سلام
جهت اكتيو شدن كليد در محدوده خاص ميتونيد از كد زير در كنار كد جناب آقا نيما استفاده نماييد

If ActiveCell.Row < 88 And ActiveCell.Row > 53 And ActiveCell.Column = 13 ThenCommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If 

اين كد كليد رو در محدوده ستون 13 در رديف هاي 54 تا 87 نمايش ميدهد

[Ali Parsaei]

سلام،
آيا امکان دارد که کد مربوطه را به صورتي نوشت تا در تمام صفحات اجرا شود (يک کد نوشته شود، ولي هر صفحه که فعال بود در آن قابل اجرا باشد)
فايل پيوست را نگاه کنيد، در شيت يک در صورت انتخاب خانه هاي c3:c12 آيکون کامندبوتن در سل پديدار و با کليک آن يوزرفرم و عمليات مربوطه آن اجرا مي گردد ولي مي خواهم در صفحات ديگر هم همين عمل اجرا گردد.
البته کد را در قسمت WORKBOOK نوشتم و يک کم تغيير دادم ولي اجرا نشد، البته من هنوز سواد درست حسابي در مورد VBA ندارم ولي شايد مشکل اين است که COMMANDBUTTON در هر صفحه بايد جداگانه اعمال گردد.

[Nima]

سلام،
آيا امکان دارد که کد مربوطه را به صورتي نوشت تا در تمام صفحات اجرا شود (يک کد نوشته شود، ولي هر صفحه که فعال بود در آن قابل اجرا باشد)
فايل پيوست را نگاه کنيد، در شيت يک در صورت انتخاب خانه هاي c3:c12 آيکون کامندبوتن در سل پديدار و با کليک آن يوزرفرم و عمليات مربوطه آن اجرا مي گردد ولي مي خواهم در صفحات ديگر هم همين عمل اجرا گردد.
البته کد را در قسمت WORKBOOK نوشتم و يک کم تغيير دادم ولي اجرا نشد، البته من هنوز سواد درست حسابي در مورد VBA ندارم ولي شايد مشکل اين است که COMMANDBUTTON در هر صفحه بايد جداگانه اعمال گردد.

برای یه همچین کاری ابتدا باید در ایونت workbook sheetactivate باتن رو تعریف کنی تا وقتی شیت اکتیو شد یک باتن به ان اضافه بشه

بعد هم در ایونتworkbook sheetdeactivate اون باتن که ایجاد شده بود رو حذف کنی تا حین پیمایش بین شیتها تعداد زیادی باتن ایجاد نشده باشه

و کد مربوط به ظاهر شدن باتن با سلکت کردن سلولها رو هم برای تمام شیتها بنویسی

[امين اسماعيلي]

با درود
با تشکر از اقا نیما و توضیحانتشون . یه فایل براتون میزارم . از اونایی که بهشون قول دادم و بازم زدم زیرش معذرت ........................
تو ورک بوک کد ها رو نوشتم . خود به خود کلید رو براتون تو هر شیتی درست میکنه تو اون محدوده. اگر قبلا کلیدی باشه با اون نام پاک میکنهو خودکار به یک ماکرو به نام امین که یوزر فرم 1 رو باز میکنه وصل میشه و خلاصه نمیدونم بقیشو تو فایل ببین.............................

[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