صفحه 2 از 4 نخستنخست 1234 آخرینآخرین
نمایش نتایج: از شماره 11 تا 20 , از مجموع 32

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

  1. #11


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

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    در فایل پیوست در صورت تغییر در سلولهای ستونA مقدار آن در ستون B درج میگردد

    کدهای ذیل را در قسمت کدنویسی شیت مورد نظر وارد کنید

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

        If 
    Not Intersect(TargetMe.Range("A:A")) Is Nothing Then
        
        Target
    .Offset(01).Value Target.Value
        
        End 
    If
        
        
    End Sub 
    کدی که دوستمون abootorab گفت کار نکرد. حالا یک سوال دارم. همین کدی که شما دادید اگر بخواداینطوری باشه چکار باید کرد؟ :
    مثلا A1 رو توی B1 بنویسه. اگر B1 نوشته داشت توی E1بنویسه و اگر E1 هم نوشته داشت بره توی H1 بنویسه و این روند تا مثلا ZZ1 ادامه داشته باشه. یعنی اینکه هر بار توی چندتا سلول جلوتر بنویسه
    راجع به سوال قبلی هم اینکه چطور پویا کنمش؟؟ راه حلی هست؟ ممنون از راهنماییاتون

  2.  

  3. #12


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

    اگر هم بایستی هر بار چند سطر جلوتر بنویسد کدها را مطابق نیاز خود اضافه و اصلاح کنید

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

    '============ÈÑÇí ÓÊæä A====='

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

       Application
    .EnableEvents False
       
        Target
    .Offset(01).Value Target.Value
        
        Application
    .EnableEvents True
        
        End 
    If
        
        
    '=======================ÈÑÇí ÓÊæä C======='
        
        
    If Not Intersect(TargetMe.Range("C:C")) Is Nothing Then

       Application
    .EnableEvents False
       
        Target
    .Offset(02).Value Target.Value
        
        Application
    .EnableEvents True
        
        End 
    If
        
        
    '=======================ÈÑÇí ÓÊæä F====='
        
        
    If Not Intersect(TargetMe.Range("F:F")) Is Nothing Then

       Application
    .EnableEvents False
       
        Target
    .Offset(03).Value Target.Value
        
        Application
    .EnableEvents True
        
        End 
    If
        
         
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book11.xls اطلاعات (38.0 کیلو بایت, 22 نمایش)


  4. #13


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

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

    کد PHP:
    sub worksheet_change(byval target as range)

    '============èñçí óêæä a====='

    if not intersect(targetme.range("a:a")) is nothing then

       application
    .enableevents false
       
        target
    .offset(01).value target.value
        
        application
    .enableevents true
        
        end 
    if
        
        
    '=======================èñçí óêæä c======='
        
        
    if not intersect(targetme.range("c:c")) is nothing then

       application
    .enableevents false
       
        target
    .offset(02).value target.value
        
        application
    .enableevents true
        
        end 
    if
        
        
    '=======================èñçí óêæä f====='
        
        
    if not intersect(targetme.range("f:f")) is nothing then

       application
    .enableevents false
       
        target
    .offset(03).value target.value
        
        application
    .enableevents true
        
        end 
    if
        
         
    end sub 
    ممنون ازتون. اما منظورم این نبود. من میخوام همیشه در ستوان َ بنویسم نه در ستون دیگه. بعد اطلاعات از a به b کپی بشه، دفعه بعد که توی a چیزی نوشم توی c کپی بشه بدون اینکه به B دست بخوره. و این روند ادامه داشته باشه تا z. بازم ممنون از راهنماییهاتون

  5. #14


    آخرین بازدید
    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

       I
    =target.row
       
          K 
    ActiveSheet.Cells(IColumns.Count).End(xlToLeft).Column
         
        Target
    .Offset(0K).Value Target.Value
        
            
        End 
    If
                
         
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2015/12/15 در ساعت 07:29


  6. #15


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

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام

    از کد ذیل استفاده کنید

    کد PHP:
    sub worksheet_change(byval target as range)

    if 
    not intersect(targetme.range("a:a")) is nothing then

       i
    =target.row
       
          k 
    activesheet.cells(icolumns.count).end(xltoleft).column
         
        target
    .offset(0k).value target.value
        
            
        end 
    if
                
         
    end sub 

    خیلی خیلی ممنون. فقط دو تا ایراد بزرگ در استفاده ازش وجود داره. اول اینکه من میخوام مثلا اگر در a1 رو نوشتم در b1 نوشته بشه و اگر b1 نوشته داشت داخل c1 نوشته بشه (مثل همون چیزی که قبلا گفتم). فقط میخوام این موضوع مثلا تا e1 محدود باشه و زمانی که توی f1 نوشتم همون روند قبلی برای سلولهای بعدی اجرا بشه. یعنی از a تا f یک مجموعه باشه و از f تا مثلا n یک مجموعه باشه. و اما مشکل دوم اینکه این روش اصلا پویا نیست. مثلا من میخوام a1 رو مساوی s9 قرار بدم و هر زمان که توی s9 نوشتم توی a1 با همون روابط ساده اکسل نوشته باشه. اما زمانی که از این توابط استفاده میشه دیگه این کدنویسی شما عمل نمیکنه. اگر این دو مورد رو راهنمایی بفرمایید ممنونتون می شم

  7. #16


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

    کسی نیست جواب سوال مارو بده؟؟

  8. #17


    آخرین بازدید
    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,B:B,C:C,D:D,E:E,F:F")) Is Nothing _
    Or Not Intersect(targetMe.Range("G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N")) Is Nothing Then

    Application
    .EnableEvents False

        target
    .Offset(01).Value target.Value
                
             Application
    .EnableEvents True
             
             End 
    If
             
     
    '============================='
             
      
    If Not Intersect(targetMe.Range("S9")) Is Nothing Then

    Application
    .EnableEvents False
      
      Range
    ("A1") = target.Value
        
             Application
    .EnableEvents True
             End 
    If
         
         
         
    End Sub 


  9. #18


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

    جناب iranweld امکانش هست از طریق اسکایپ باهم صحبت کنیم تا مشکلم حل بشه؟؟ با تشکر

  10. #19


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

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام

    از کدهای ذیل استفاده کنید

    کد PHP:
    sub worksheet_change(byval target as range)

    if 
    not intersect(targetme.range("a:a,b:b,c:c,d:d,e:e,f:f")) is nothing _
    or not intersect(targetme.range("g:g,h:h,i:i,j:j,k:k,l:l,m:m,n:n")) is nothing then

    application
    .enableevents false

        target
    .offset(01).value target.value
                
             application
    .enableevents true
             
             end 
    if
             
     
    '============================='
             
      
    if not intersect(targetme.range("s9")) is nothing then

    application
    .enableevents false
      
      range
    ("a1") = target.value
        
             application
    .enableevents true
             end 
    if
         
         
         
    end sub 
    آیا میشه اطلاعات از سلول a1 به سلول b1 در شیت دیگه کپی بشه؟؟ کد vba باید چی نوشته بشه؟

  11. #20


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

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

  12. سپاس ها (1)



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

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

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

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

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

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

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

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

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

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