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

[payam]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[komeilex]

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

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

با درود

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

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

[milad.moafi]

سلام، میتونی به جای 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 نمايش ميدهد