نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: hاصلاح کد کپی کردن رنج خاصی از داده ها

  1. #1


    آخرین بازدید
    2021/05/26
    تاریخ عضویت
    June 2016
    نوشته ها
    30
    امتیاز
    14
    سپاس
    18
    سپاس شده
    4 در 3 پست
    تعیین سطح نشده است

    hاصلاح کد کپی کردن رنج خاصی از داده ها

    با سلام و احترام

    ببخشید دوستان مدتی تو انجمن درگیر این ماکرو هستم، نتونستم جواب اصولی براش پیدا کنم---------در ماکرو زیر جداولی از شیت 1 که نام آنها مثلا risk است به شیت دیگر کپی می شوند (در این ماکرو شیت4) و زیر هم لیست می شوند......تا اینجا مشکلی نیست اما اگر یکی از سلول های جدول های risk من در شیت 1 فرمول نویسی شده باشد طبق ماکرو زیر کپی بدرستی صورت نمی گیرد و در شیت 4 بجای محتوی سلول فرمول نویسی شده عبارت RFF# درج می شود (رفرنس رو گم می کنه) بطور مختصر می خوام بجای activesheet.paste کدی باشه که معادل paste value در اکسل باشه یعنی محتوای سلول را کپی کند.........................بسیار سپاس گذار
    QUOTE]Application.ScreenUpdating = False]
    Dim aa As Range
    Dim r As Long
    Dim c As Long
    Dim cnt As Integer
    Dim lrow As Long
    (''cnt = Application.WorksheetFunction.CountIf(Sheets("shee t1").Range("A:e"), "risk
    Sheet4.Columns("a:e").Clear
    Sheets("Sheet1").Activate
    Range("a1").Select
    For i = 1 To cnt
    Set aa = Sheets("sheet1").Cells.Find(What:="risk", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=True, SearchFormat:=False)
    r = aa.Row
    c = Range("a" & (r + cnt)).End(xlDown).Row


    Range("a" & r & ":e" & c).Select
    Selection.Copy
    Sheet4.Select
    Range("a1").Value = "risk "
    lrow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("a" & lrow + 2).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Next


    MsgBox ": تعداد جداول انتقال داده شده" & Chr(10) & cnt


    Application.ScreenUpdating = True
    End Sub


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

  2.  

  3. #2


    آخرین بازدید
    2021/05/26
    تاریخ عضویت
    June 2016
    نوشته ها
    30
    امتیاز
    14
    سپاس
    18
    سپاس شده
    4 در 3 پست
    تعیین سطح نشده است

    سلام دوستان
    ممنون از توجهتون .....فکر کنم
    کد رو پیدا کردم اگه اشتباه هست اساتید لطفا صحیح ترین شکل اون رو بفرمایند
    CODE/]
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
    :=False, Transpose:=False
    [/CODE]

  4. سپاس ها (1)



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

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

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

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

  1. [حل شده] محاسبه مرخصی
    توسط mfr در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2016/04/13, 23:25
  2. [حل شده] محاسبه مرخصی
    توسط mfr در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 16
    آخرين نوشته: 2016/04/09, 13:49
  3. کپی کردن یک رنج با دستور کپی
    توسط ACHORAM در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 2015/12/14, 13:36
  4. فرمول تبدیل مرخصی ساعتی بالاتر از 7 ساعت به یک روز مرخصی روزانه
    توسط امیر رضا در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2015/06/14, 23:40
  5. ثبت مرخصی
    توسط rezajaberpour در انجمن كاربرد اكسل در رشته هاي مختلف
    پاسخ ها: 0
    آخرين نوشته: 2013/10/16, 06:56

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

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

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

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

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