ارور به هنگام اجراء ماکرو

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • مجید

    • January 2012
    • 154

    ارور به هنگام اجراء ماکرو

    سلام و عرض تبریک ایام ولادت سرور و ولی نعمتمان آقا علی بن موسی الرضا(علیه السام )

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

    فرمول زیر مربوط به یک ماکرو برای یک باکس فرمان هست که برای عملیات پاک کردن سطر 5 و اضافه کردن یک سطر به زیر اون و سپس انتخاب 2 خانه از سطر 6 (حاوی فرمول ) و کپی کردن اون تو سطر جدید ساخته شده ؛ است
    ولی اشکالاتی داره که ازش سر درنمیآرم موقع اجراء ماکرو ارور میده
    ممنون از راهنمائی شما

    کد PHP:
    Sub RoundedRectangle2_Click()
    '
    RoundedRectangle2_Click Macro
    '

    '
        
    ActiveSheet.Range("$A$4:$M$51").AutoFilter Field:=1
        Rows
    ("5:5").Select
        Selection
    .Copy
        Selection
    .Insert Shift:=xlDown
            Selection
    .ClearContents
        Range
    ("a5:c5").Select
        Selection
    .ClearContents
        Range
    ("d6:e6").Select
        Selection
    .Copy
        Range
    ("d5:e5").Select
        Selection
    .Paste
          End Sub 
  • Juliet

    • June 2014
    • 47

    #2
    درود
    من این کد رو امتحان کردم جواب میده
    کد:
    Private Sub cmd_Click()
        Range("5:5").Select
        Selection.Clear
        
        Range("D6:E6").Select
        Selection.Copy
    
        Range("D5:E5").Select
        ActiveSheet.Paste
    End Sub
    دو سطر اول: محتوای سطر 5 رو پاک میکنه، این مثل اینه که این سطر حذف شده و سطری مابین سطور 5 و 6 درج شده باشه
    دو سطر دوم: سلول ها مورد نظر رو کپی میکنه
    دو سطر سوم: محدوده کپی شده در محدوده مشخص شده چسبانده میشه

    نکته:
    این روش فرمول رو کپی میکنه، چنانچه نیاز دارید تنها مقادیر کپی شوند، به جای 4 سطر آخر از کد زیر استفاده کنید
    کد:
        Range("D5") = Range("D6")
        Range("E5") = Range("E6")
    انشاءالله مشکلتون حل شه
    «زمانيکه با زمانه خويش نساختي و با مسندنشينان و امربران ايشان کنار نيامدي
    و آنچه را
    جاهلان ميگويند، جاهلانه باز نگفتي،
    لاجرم به تبعيد ابدي گرفتار خواهي شد!
    حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
    و اگر بر نپذيرفتن، پاي فشردي،

    آواره ات خواهند کرد،
    به زندانت خواهند افکند
    و به دارت خواهند کشيد ...»

    Comment

    • مجید

      • January 2012
      • 154

      #3
      نوشته اصلی توسط juliet
      درود
      من این کد رو امتحان کردم جواب میده
      .......
      انشاءالله مشکلتون حل شه
      سلام و ممنون از راهنمائی شما مشکل حل شد
      اما پس از انجام ماکرو هنوز d5 , e5 در حال سلکت باقی میمونه

      Comment

      • Juliet

        • June 2014
        • 47

        #4
        نوشته اصلی توسط مجید
        سلام و ممنون از راهنمائی شما مشکل حل شد
        اما پس از انجام ماکرو هنوز d5 , e5 در حال سلکت باقی میمونه
        درود
        خواهش میکنم
        با این خط کد میتونید محدوده ای که برای کپی در حالت انتخاب هست رو غیر فعال کنین:
        کد:
            Application.CutCopyMode = False
        و برای انتخاب خودکار سلول دیگه میتونید از یک دستور سلکت ساده نظیر این استفاده کنین:
        کد:
            Range("A1").Select
        =================
        پ.ن:
        الانه که یکی از مدیران محترم بهتون تذکر بدن "تیک سبز رنگ معروف حل شده" فراموش نشه!
        «زمانيکه با زمانه خويش نساختي و با مسندنشينان و امربران ايشان کنار نيامدي
        و آنچه را
        جاهلان ميگويند، جاهلانه باز نگفتي،
        لاجرم به تبعيد ابدي گرفتار خواهي شد!
        حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
        و اگر بر نپذيرفتن، پاي فشردي،

        آواره ات خواهند کرد،
        به زندانت خواهند افکند
        و به دارت خواهند کشيد ...»

        Comment

        Working...