پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 12

موضوع: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

  1. #1


    آخرین بازدید
    03 _ 12 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    با سلام خدمت همه دوستان و اساتيد لطفا راهنمايي كنيد.
    با vba ميشه فقط درمحدوده خاصي از سلول هاي شيت (نه همه شيت) قابليت cut و paste رو حذف كرد؟ (قابليت copy رو لازم دارم )
    بيشتر اينو براي اين لازم دارم كه cut سلول باعث خطاي refrence
    نشه.
    ممنون

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

  2.  

  3. #2


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    January_2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,169
    امتیاز
    2482
    سپاس
    1,383
    سپاس شده
    1,938 در 616 پست

    jansiz hayat به Yahoo ارسال پیام

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    با سلام.
    خب این کار رو از طریق قفل کردن سلول هم می توانید انجام دهید.
    کد VBهم... :
    Range("A1:A10").Locked = True
    ActiveSheet.Protect

  4. #3


    آخرین بازدید
    03 _ 12 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    ممنون از راهنماييتون ولي قفل كردن قابليت copy , cut , past و وارد كردن اطلاعات روميگيره هدف من صرفا حذف قابليت cutهست و نه بيشتر

    Private Sub Workbook_Activate()
    Application.CutCopyMode = False

    End Sub
    مشابه اين دستور روميخوام ولي صرفا براي cut
    امكان داره؟

  5. #4


    آخرین بازدید
    28 _ 03 _ 2015
    تاریخ عضویت
    March_2012
    نوشته ها
    118
    امتیاز
    87
    سپاس
    11
    سپاس شده
    80 در 31 پست

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    سلام شما میخواهید که کار برنتونه تعدادی از سلولها را cut یا delete کنه را هش اینه که روی رویداد changeیک شیت اینکد را تایپ کنید:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NoChgRg As Range
    Dim chg As Range
    Set NoChgRg = [a1:f74,j9:j74,n9:u25]
    Set chg = Application.Intersect(Target, NoChgRg)
    If Not chg Is Nothing Then
    Application.EnableEvents = False
    MsgBox "نمي توانيد حذف کنيد سلول محافظت شده است"
    Application.Undo
    Application.EnableEvents = True
    End If
    Set chg = Nothing
    End Sub


    و کافی ست محدوده ای را که میخوای محافظت کنید را بالا انتخاب کنید

  6. #5


    آخرین بازدید
    03 _ 12 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    ممنون از زحمتتون من صرفا قصدم حذف قابليت cut هست و قصدم حذف قابليت هاي كپي يا جلوگيري از وارد كردن اطلاعات نيست.قابليت كپي و وارد كردن رو لازم دارم.

  7. #6


    آخرین بازدید
    28 _ 03 _ 2015
    تاریخ عضویت
    March_2012
    نوشته ها
    118
    امتیاز
    87
    سپاس
    11
    سپاس شده
    80 در 31 پست

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    سلام این کار قابلیت کات کردن محدوده ای را که شما تعریف می کنید را از بین می برد تنها در همون محوده و حتی کپی کردن و پیست کردن هم امکان پذیره شما کد را امتحان کنیدو محدوده را توی کد تغییر بدید [hr]

    Set NoChgRg = [a1:f74,j9:j74,n9:u25]
    محدوده را در این قسمت از برنامه تغییر بده

  8. #7


    آخرین بازدید
    03 _ 12 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    سلولهي رنجي كه شما در فرمول تعيين كردين كامل سلول ها رو قفل ميكنه فقط قابليت select ميده البته اطلاعات ميشه وارد كرد يا paste رو استفاده كرد اما بعد از ظاهر شدن پيغام 'نمي توانيد حذف کنيد سلول محافظت شده است'اگر ok رو بزيم يا پنجره رو ببنديم اطلاعات از بين ميره.
    Set NoChgRg
    no chang rang(رنج كاملا بدون تغيير)
    بازم ممنون

  9. #8


    آخرین بازدید
    03 _ 04 _ 2017
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    653
    سپاس
    29
    سپاس شده
    799 در 342 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    نقل قول نوشته اصلی توسط samadi1973
    با سلام خدمت همه دوستان و اساتيد لطفا راهنمايي كنيد.
    با vba ميشه فقط درمحدوده خاصي از سلول هاي شيت (نه همه شيت) قابليت cut و paste رو حذف كرد؟ (قابليت copy رو لازم دارم )
    بيشتر اينو براي اين لازم دارم كه cut سلول باعث خطاي refrence
    نشه.
    ممنون

    با درود فراوان

    برای این کاری که شما مد نظرتون هست کفایت میکنه که فقط Cut رو حذف کنیم چون وقتی کات حذف شه پیست هم نخواهد داشت ولی اگر پیست رو بصورت کلی حذف کنی برای زمان کپی کردن با مشکل بر خواهی خورد

    برای حذف کات در فایل نمونه من کات از تو راست کلیک و از کلید ترکیبی کنترل و ایکس رو حذف کردم و فقط برای محدوده سلهای که با رنگ زرد مشخص شده در نظر گرفته شده است

    امیدوارم همان چیزی که مد نظر شماست بوده باشه


    کد:
    Sub EnableControl(Id As Integer, Enabled As Boolean)
    Dim CB As CommandBar
    Dim C As CommandBarControl
    For Each CB In Application.CommandBars
    Set C = CB.FindControl(Id:=Id, recursive:=True)
    If Not C Is Nothing Then C.Enabled = Enabled
    Next
    End Sub



    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Or Target.Address = Range("c1").Address Or Target.Address = Range("e5").Address Then
    EnableControl 21, False ' cut
    Application.OnKey "^x", ""
    Else
    EnableControl 21, True ' cut
    Application.OnKey "^x"
    End If
    End Sub



    فایل نمونه:
    [attachment=538]
    فايل هاي پيوست شده فايل هاي پيوست شده

  10. #9


    آخرین بازدید
    03 _ 12 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    عالي بود ارشام خان ممنون
    ميشه كاري كرد كه هنگامي كه drag &drop رو انجام ميديم "صرفا "قابليت" move" رو هم گرفت؟
    از اين كه بدون چشمداشت كمك ميكنيد ممنونتم .
    منتظر ميمونم

  11. #10


    آخرین بازدید
    03 _ 04 _ 2017
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    653
    سپاس
    29
    سپاس شده
    799 در 342 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    نقل قول نوشته اصلی توسط samadi1973
    عالي بود ارشام خان ممنون
    ميشه كاري كرد كه هنگامي كه drag &drop رو انجام ميديم "صرفا "قابليت" move" رو هم گرفت؟
    از اين كه بدون چشمداشت كمك ميكنيد ممنونتم .
    منتظر ميمونم
    با درود فراوان

    اگر منظرو شما اینه که با موس هم نشه درگ کرد و همان کار کات رو انجام داد کافیه به کد قبل یک آیتم دیگر اضاف کنیم
    Application.CellDragAndDrop = False


    که کد به این صورت نوشته میشه

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Or Target.Address = Range("c1").Address Or Target.Address = Range("e5").Address Then
    EnableControl 22, False ' cut
    Application.OnKey "^x", ""
    Application.CellDragAndDrop = False

    Else
    EnableControl 21, True ' cut
    Application.OnKey "^x"
    Application.CellDragAndDrop = True

    End If
    End Sub


    فایل نمونه:
    [attachment=540]


    فايل هاي پيوست شده فايل هاي پيوست شده


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

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

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

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

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

  1. كپي داده هاي چند سل از چند شيت در يك شيت خاص
    توسط rezahagh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 18 _ 05 _ 2013, 23:27
  2. مرخصي
    توسط roohollah1359 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 28 _ 12 _ 2012, 23:05
  3. سوال در مورد امنيت اكسل
    توسط sohrabahmadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 05 _ 11 _ 2012, 09:25
  4. استفاده از سلولهاي يك شيت در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 8
    آخرين نوشته: 06 _ 03 _ 2011, 18:17
  5. جستجو در يك شيت ونمايش در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 13 _ 02 _ 2011, 13:42

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

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

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

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