صفحه 3 از 4 نخستنخست 1234 آخرینآخرین
نمایش نتایج: از شماره 21 تا 30 , از مجموع 32

موضوع: قفل کردن فایل اکسل

  1. #21


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    اگر این خط دستور مد نظر شماست
    کد PHP:
     range("a1") = target.value 
    از دستور
    sheet2.range("b1") = target.value
    با تشکر. اما اینجوری مشکلات من حل نمیشه. میشه آدرس اسکایپ بدید همونجا صوتی صحبت کنیم و راهنمایی بفرمایید؟ با تشکر

  2.  

  3. #22


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    اگر این خط دستور مد نظر شماست
    کد PHP:
     range("a1") = target.value 
    از دستور
    sheet2.range("b1") = target.value
    میشه بفرمایید توی این چند خط کدنویسی چجوری میشه سلول a1 و b1 رو تبدیل به کل رینج a و b گسترش داد؟؟

  4. #23


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط مجید ایرج نمایش پست ها
    میشه بفرمایید توی این چند خط کدنویسی چجوری میشه سلول a1 و b1 رو تبدیل به کل رینج a و b گسترش داد؟؟
    میشه بفرمایید توی این چند خط کدنویسی چجوری میشه سلول a1 و b1 رو تبدیل به کل رینج a و b گسترش داد؟؟

    Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Range
    ("B1") = Range("A1")
    Application.EnableEvents = True
    End Sub

  5. #24


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    اگر این خط دستور مد نظر شماست
    کد PHP:
     range("a1") = target.value 
    از دستور
    sheet2.range("b1") = target.value
    میشه بفرمایید توی این چند خط کدنویسی چجوری میشه سلول a1 و b1 رو تبدیل به کل رینج a و b گسترش داد؟؟

    Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Range
    ("B1") = Range("A1")
    Application.EnableEvents = True
    End Sub

  6. #25


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام


    کد PHP:
    Sub Worksheet_Change(ByVal Target As Range)

    If 
    Not Intersect(TargetMe.Range("A:A")) Is Nothing Then

    Application
    .EnableEvents False

    Target
    .Offset(01) = Target

    Application
    .EnableEvents True

    End 
    If

    End Sub 


  7. #26


    آخرین بازدید
    2017/04/02
    تاریخ عضویت
    September 2015
    محل سکونت
    تهران- ماموریت تربت حیدریه
    نوشته ها
    35
    امتیاز
    20
    سپاس
    11
    سپاس شده
    10 در 8 پست
    تعیین سطح نشده است

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

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a As String
    Application.EnableEvents = False
    a = WorksheetFunction.CountA(Range("1:1"))
    Range("A1").Offset(0, a) = Range("A1").Value
    Application.EnableEvents = True
    End Sub

    نمیدونم چطور باید فایل رو پیوست کنم

  8. سپاس ها (1)


  9. #27


    آخرین بازدید
    2017/04/02
    تاریخ عضویت
    September 2015
    محل سکونت
    تهران- ماموریت تربت حیدریه
    نوشته ها
    35
    امتیاز
    20
    سپاس
    11
    سپاس شده
    10 در 8 پست
    تعیین سطح نشده است

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  aks.jpg
مشاهده: 10
حجم:  53.1 کیلو بایت
    این عکس رو هم گرفتم براتون

  10. سپاس ها (1)


  11. #28


    آخرین بازدید
    2017/04/02
    تاریخ عضویت
    September 2015
    محل سکونت
    تهران- ماموریت تربت حیدریه
    نوشته ها
    35
    امتیاز
    20
    سپاس
    11
    سپاس شده
    10 در 8 پست
    تعیین سطح نشده است

    با سلام این کدی که فرستادم در صورتیکه در هرجای دیگر صفحه کاری انجام بدین باز هم اون دستور اجرا میشه و اگر میخواهید این اتفاق نیفته این کد رو جایگزین کنید .
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") <> "" Then
    Dim a As String
    Application.EnableEvents = False
    a = WorksheetFunction.CountA(Range("1:1"))
    Range("A1").Offset(0, a) = Range("A1").Value
    Range("A1") = ""
    Application.EnableEvents = True
    End If
    End Sub

    که بعد از هر بار وارد کردن سلول A تخلیه میشه

  12. سپاس ها (1)


  13. #29


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط noroozzadeh نمایش پست ها
    با سلام این کدی که فرستادم در صورتیکه در هرجای دیگر صفحه کاری انجام بدین باز هم اون دستور اجرا میشه و اگر میخواهید این اتفاق نیفته این کد رو جایگزین کنید .
    Private sub worksheet_change(byval target as range)
    if range("a1") <> "" then
    dim a as string
    application.enableevents = false
    a = worksheetfunction.counta(range("1:1"))
    range("a1").offset(0, a) = range("a1").value
    range("a1") = ""
    application.enableevents = true
    end if
    end sub

    که بعد از هر بار وارد کردن سلول a تخلیه میشه
    ضمن سلام و تشکر از شما دوست عزیز. متاسفانه این کد هم خواسته من رو برآورده نکرد. من نمیخوام a1 تخلیه بشه بلکه فقط کپی بشه و a1 پاک نشه. در عین حال زمانی که از توابع مقداری در a1 میشینه این کدهای ویژوال بیسیک به آخرین سلول خالی در همان ردیف منتقل بشه. در عین حال این قضیه برای کل رینج a صادق باشه و نه یک سلول a1. من الان حدود 2-3 ماه هست دنبال این کد هستم و تا این لحظه نتونستم به موفقیت برسم. اگر شما می تونید بنده رو راهنمایی کنید واقعا ممنونتون میشم

  14. #30


    آخرین بازدید
    2017/04/02
    تاریخ عضویت
    September 2015
    محل سکونت
    تهران- ماموریت تربت حیدریه
    نوشته ها
    35
    امتیاز
    20
    سپاس
    11
    سپاس شده
    10 در 8 پست
    تعیین سطح نشده است

    با عرض سلام
    به راحتی با دو خط بیشتر کد میشود که این کد را برای تمام اکسل در کل ستون a1 گسترش داد ولی اینکه ستون a1 امکان ندارد چون در اثر هر حرکتی که در صفحه انجام بدین یک بار دیگر همان عدد که در سلول a هست بار دیگر به ردیف اضافه میشود ، حالا راههای زیر رو پیشنهاد میکنم
    1- اگر عددهایی که در سلول مثلا a5 وارد میکنید هیچ وقت در همان ردیف تکراری نیست ، تنها در این صورت میشه خواسته شما رو برآورده کرد .
    2- ستون a خالی باشد و ستون b همیشه آخرین عددی که در a وارد کردید رو نشان بده .
    3- یک فرم وی بی روی شیت باز بشه و تمام کار در آن انجام بشه و صفحه فقط نقش بانک اطلاعاتی رو بازی کنه .
    4-در جایی از صفحه یک دکمه قرار بدیم و هر وقت در a عدد جدیدی وارد کردید روی دکمه کلیک کنید تا عدد در اولین سلول خالی همون ردیفی که فوکوس هست ثبت بشه
    5- کل توضیحات ردیف 4 انجام بشه ولی بجای افقی عمودی باشه
    حالا هرکدام که میخواهید رو بفرمائیید انجام بدم



صفحه 3 از 4 نخستنخست 1234 آخرینآخرین

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

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

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

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

چجوری برای فایل اکسل قفل میذارن

کلمات کلیدی این موضوع

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

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

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