صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 11

موضوع: امکان کلیک راست داخل تکست باکس یوزم فرم

  1. #1


    آخرین بازدید
    2019/12/14
    تاریخ عضویت
    September 2014
    نوشته ها
    64
    امتیاز
    22
    سپاس
    3
    سپاس شده
    12 در 11 پست
    سطح اکسل
    37.00 %

    امکان کلیک راست داخل تکست باکس یوزم فرم

    باسلام
    آیا امکان داره وقتی داخل تکست باکس یوزرفرم راست کلیک کنی منوی copy و paste و ... باز بشه؟

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

  2.  

  3. #2


    آخرین بازدید
    2021/09/04
    تاریخ عضویت
    September 2012
    محل سکونت
    قم
    نوشته ها
    193
    امتیاز
    450
    سپاس
    233
    سپاس شده
    507 در 131 پست
    تعیین سطح نشده است

    Smiley

    نقل قول نوشته اصلی توسط mreza نمایش پست ها
    باسلام
    آیا امکان داره وقتی داخل تکست باکس یوزرفرم راست کلیک کنی منوی copy و paste و ... باز بشه؟

    ممنون
    سلام
    بله امکانش هست که منوی راست کلیک فعال کنی
    کافیه از کد زیر استفاده کنی
    کد PHP:
          Sub MakePopUp()
    'Remove any old instance of MyPopUp
    On Error Resume Next
    CommandBars("MyPopUp").Delete
    On Error GoTo 0

    With CommandBars.Add(Name:="MyPopUp", Position:=msoBarPopup)
    .Controls.Add Type:=msoControlButton, ID:=19
    .Controls.Add Type:=msoControlButton, ID:=22
    End With
    End Sub



    Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    MakePopUp
    If Button = 2 Then
    Application.CommandBars("MyPopUp").ShowPopup
    End If
    End Sub 

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2019/12/14
    تاریخ عضویت
    September 2014
    نوشته ها
    64
    امتیاز
    22
    سپاس
    3
    سپاس شده
    12 در 11 پست
    سطح اکسل
    37.00 %

    نقل قول نوشته اصلی توسط hosseinamerey نمایش پست ها
    سلام
    بله امکانش هست که منوی راست کلیک فعال کنی
    کافیه از کد زیر استفاده کنی
    کد PHP:
          Sub MakePopUp()
    'Remove any old instance of MyPopUp
    On Error Resume Next
    CommandBars("MyPopUp").Delete
    On Error GoTo 0

    With CommandBars.Add(Name:="MyPopUp", Position:=msoBarPopup)
    .Controls.Add Type:=msoControlButton, ID:=19
    .Controls.Add Type:=msoControlButton, ID:=22
    End With
    End Sub



    Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    MakePopUp
    If Button = 2 Then
    Application.CommandBars("MyPopUp").ShowPopup
    End If
    End Sub 
    ممنون از راهنمایی شما

  6. #4


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط hosseinamerey نمایش پست ها
    سلام
    بله امکانش هست که منوی راست کلیک فعال کنی
    کافیه از کد زیر استفاده کنی
    کد PHP:
          sub makepopup()
    'remove any old instance of mypopup
    on error resume next
    commandbars("mypopup").delete
    on error goto 0

    with commandbars.add(name:="mypopup", position:=msobarpopup)
    .controls.add type:=msocontrolbutton, id:=19
    .controls.add type:=msocontrolbutton, id:=22
    end with
    end sub



    private sub textbox1_mouseup(byval button as integer, byval shift as integer, byval x as single, byval y as single)
    makepopup
    if button = 2 then
    application.commandbars("mypopup").showpopup
    end if
    end sub 

    سلام من هم همچین مشکلی داشتم و این کد را در فرمم گذاشتم تقریبآ کار میکند و پاپ آپ را باز میکند ولی وقتی روی گزینه جای گزینی کلیک میکنم اطلاعاتی رو که میخوام بجای تکست باکس توی ستون a شیت جاری مینویسه چرا ؟

  7. #5


    آخرین بازدید
    2 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

  8. #6


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    سلام
    كل كدتون رو بذاريد بهتون بگم مشكل كجاست
    سلام
    کل فایل رو براتون میذارم کد توی فرمیه که با فلش مشخصه

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

  9. #7


    آخرین بازدید
    2 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    شما براي دكمه ها تعريف نكرديد چه عملياتي انجام بدن. براي تعريف عمليات مورد نظر به اين ترتيب عمل كنيد:


    در ساب روتين MakePopUp اين دو خط رو در انتها اضافه كنيد

    کد:
    CommandBars("MyPopUp").Controls(1).OnAction = "CopyText"
    CommandBars("MyPopUp").Controls(2).OnAction = "PasteText"
    در انتهاي ماژول اين كدها رو اضافه كنيد
    کد:
    ' Action Copy
    Private Sub CopyText()
        Set txtData = New DataObject
        txtData.SetText fullint.TextBox1.SelText
        txtData.PutInClipboard
    End Sub
    
    
    ' Action Paste
    Private Sub PasteText()
        fullint.TextBox1.Paste
    End Sub

  10. سپاس ها (2)


  11. #8


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    شما براي دكمه ها تعريف نكرديد چه عملياتي انجام بدن. براي تعريف عمليات مورد نظر به اين ترتيب عمل كنيد:


    در ساب روتين MakePopUp اين دو خط رو در انتها اضافه كنيد

    ............
    ممنون فقط یه موضوع تموم کد هائی که این کار رو انجام میدن میشه
    کد:
        Sub MakePopUp()
    'Remove any old instance of MyPopUp
    On Error Resume Next
    CommandBars("MyPopUp").Delete
    On Error GoTo 0
    
    
    With CommandBars.Add(name:="MyPopUp", Position:=msoBarPopup)
    .Controls.Add Type:=msoControlButton, ID:=19
    .Controls.Add Type:=msoControlButton, ID:=22
    End With
    CommandBars("MyPopUp").Controls(1).OnAction = "CopyText"
    CommandBars("MyPopUp").Controls(2).OnAction = "PasteText"
    End Sub
    و
    کد:
    ' Action CopyPrivate Sub CopyText()
        Set txtData = New DataObject
        txtData.SetText fullint.TextBox1.SelText
        txtData.PutInClipboard
    End Sub
    و
    کد:
    ' Action PastePrivate Sub PasteText()
        fullint.TextBox1.Paste
    End Sub
    و
    کد:
    Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    MakePopUp
    If Button = 2 Then
    Application.CommandBars("MyPopUp").ShowPopup
    End If
    End Sub
    حالا من تو یه کار دیگه چندین عدد تکست باکس دارم اگه بخوام از این کد استفاده کنم آیا باید همه شونو برای هر کدوم تکرار کنم (با تغییرات هر فرم ) یا بعضیهاش مشترکه و فقط یه دفعه نوشتنش کافیه ؟

  12. #9


    آخرین بازدید
    2 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    اگر داخل يك فرم باشه با يكسري تغييرات جزئي ديگه نيازي نيست چند بار نوشته بشه اما در غير اين صورت بايد همه كدها مجزا نوشته بشن

    اون تغييرات اينطوري هستند:

    کد:
    Sub MakePopUp(field As String)
    'Remove any old instance of MyPopUp
    On Error Resume Next
    CommandBars("MyPopUp").Delete
    On Error GoTo 0
    
    With CommandBars.Add(name:="MyPopUp", Position:=msoBarPopup)
    .Controls.Add Type:=msoControlButton, ID:=19
    .Controls.Add Type:=msoControlButton, ID:=22
    End With
    
    CommandBars("MyPopUp").Controls(1).OnAction = "'CopyText """ & field & """'"
    CommandBars("MyPopUp").Controls(2).OnAction = "'PasteText """ & field & """'"
    End Sub
    
    ' Action Copy
    Sub CopyText(tb As String)
        Set txtData = New DataObject
        txtData.SetText fullint.Controls(tb).SelText
        txtData.PutInClipboard
    End Sub
    
    
    ' Action Paste
    Sub PasteText(tb As String)
        fullint.Controls(tb).Paste
    End Sub
    حالا كافيه موقع فراخواني ساب MakePopUp رو با آرگومان اسم تكست باكس بنويسيد. به اين صورت:
    کد:
    MakePopUp "TextBox1"

  13. سپاس ها (2)


  14. #10


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    اگر داخل يك فرم باشه با يكسري تغييرات جزئي ديگه نيازي نيست چند بار نوشته بشه اما در غير اين صورت بايد همه كدها مجزا نوشته بشن

    اون تغييرات اينطوری................

    ممنون از زحمتتان ولی من این کد را داخل برنامه گذاشتم
    1 - اگه فقط یکی باشه کار میکنه
    2 - اگه 2 دفعه بنویسم و توی هر کدام اسم فرم خودش رو بنویسم به محض راست کلیک خطا میده از خطوط کپی و پیست
    3 - اگه اون خطوط رو یکیشو حذف کنم خطا نمیده ولی بفد از باز گردن پاپ آپ دیگه هیچکاری نمیکنه
    خلاصه گیج شدم
    حالا اگه شما لطف کنید این کدهارو با این شرطهائی که میگم برام عوض کنید ممنون میشم
    فرض کنید یه فایله با 3 فرم هر فرم هم 2 خانه textbox1 و textbox2 داره


صفحه 1 از 2 12 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 0
    آخرين نوشته: 2017/05/06, 11:59
  2. مشکل مطالب چپ به راست و کپی در شیت راست به چپ
    توسط alibobo در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/24, 16:40
  3. پرسش درخواست راهنمایی در رابطه با جست وجوی پیشرفته توسط تابع Vlookup
    توسط Ali_Sedaghat در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/23, 17:13
  4. [حل شده] آمارگیری در یوزفرم با دقت بیشتر
    توسط khasteh1 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2016/12/23, 23:57
  5. طراحی ستون*هاي با بست چپ و راست تك
    توسط alieddy0 در انجمن اسپريد شيت هاي مهندسي - Engineering spreadsheet
    پاسخ ها: 0
    آخرين نوشته: 2014/03/18, 12:22

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است