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

موضوع: بازخواني و رفع اشكال در يك كد نويسي

  1. #1


    آخرین بازدید
    2020/11/02
    تاریخ عضویت
    October 2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    54
    سپاس
    150
    سپاس شده
    53 در 27 پست
    تعیین سطح نشده است

    Posticon (3) بازخواني و رفع اشكال در يك كد نويسي

    با سلام
    ميشه اشكال كار اين ماكرو رو بهم بگين؟
    فقط كپي ميكنه. عمل پيست انجام نميشه
    ممنون
    کد HTML:
    Sub rep()
    On Error Resume Next
    Dim c
    Dim i
    i = 0
    For i = 2 To 10 Step 2
    If  Val(Sheet1.Range("a" & i).Value) > 1300 Then
        Sheet1.Range("a" & i, "d" & i).Select
        Selection.Copy
        Exit For
            Dim d As Range
            For Each d In Sheet2.Range("a2:a10")
            If d.Value = "" Then
                Sheets("sheet2").Select
                Range(d).Select
                ActiveSheet.Paste
                Application.CutCopyMode = False
                Exit For
            End If
            Next d
    End If
    Next i
    End Sub
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.
    اگر تنهاترين تنهايان شوم بازهم خدا هست،
    او جانشين تمام نداشته هاي من است...!

  2.  

  3. #2


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط 4017 نمایش پست ها
    با سلام
    ميشه اشكال كار اين ماكرو رو بهم بگين؟
    فقط كپي ميكنه. عمل پيست انجام نميشه
    ممنون
    کد HTML:
    Sub rep()
    On Error Resume Next
    Dim c
    Dim i
    i = 0
    For i = 2 To 10 Step 2
    If  Val(Sheet1.Range("a" & i).Value) > 1300 Then
        Sheet1.Range("a" & i, "d" & i).Select
        Selection.Copy
        Exit For
            Dim d As Range
            For Each d In Sheet2.Range("a2:a10")
            If d.Value = "" Then
                Sheets("sheet2").Select
                Range(d).Select
                ActiveSheet.Paste
                Application.CutCopyMode = False
                Exit For
            End If
            Next d
    End If
    Next i
    End Sub
    با سلام.
    کد Exit For شما رو از ادامه حلقه میندازه بیرون.چون عمل کپی قبل از Exit For هستش ، عمل کپی انجام و چون عمل paste بعد از Exit For قرار دارد اجرا نمیشود.
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/





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

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

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

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

  1. آشنايي با رابط کاربردي برنامه نويسي API
    توسط ~M*E*H*D*I~ در انجمن توابع در ويژوال بيسيك - Functions in VBA
    پاسخ ها: 0
    آخرين نوشته: 2012/07/09, 11:06
  2. اضافه كردن ماكرو به فايل بوسيله برنامه نويسي
    توسط SM.Mirjafari در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/05/22, 14:59
  3. شروع كار با برنامه نويسي
    توسط aliegbal در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2012/04/23, 18:17
  4. فرمول نويسي در اكسل
    توسط runmohsen در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2011/03/27, 11:30
  5. كمك در مورد توابع وفرمول نويسي
    توسط runmohsen در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 20
    آخرين نوشته: 2011/02/10, 14:09

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

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

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

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

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

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