مشکل در بکارگیری متغیر در کدنویسی اکسل

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • saber10
    • 2018/08/23
    • 2
    • 52.00
    #1

    [حل شده] مشکل در بکارگیری متغیر در کدنویسی اکسل

    با ماکرو یه کدی ساخته شد به صورت زیر:
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("D4").Select
    Selection.AutoFill Destination:=Range("D4:D5"), Type:=xlFillDefault
    Range("D4:D5").Select
    که میاد در ردیف 5، insert میزنه و بعدش یه عملیات سورت هم انجام میده. مشکلی که دارم اینه وقتی میخوام به جای ردیف 5 یه متغیر تعریف کنم تا عملیات insert قابل تغییر باشه به ارور میخورم.



    Dim d As Integer
    d = 5


    Rows("d : d").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("Dd").Select
    Selection.AutoFill Destination:=Range("Dd:D(d+1)"), Type:=xlFillDefault
    Range("Dd:D(d+1)").Select

    با این کد به ارور میخورم.
    الان دو روز درگیر این کد شدم
    اگر امکانش هست راهنمایی کنید. سپاس از دوستان
    برچسب ها: هیچ‌کدام
    • Javid Mokhtari
      مدير تالار ويژوال بيسيك

      • 2012/01/16
      • 1212
      • 73.00
      #2
      نوشته اصلی توسط saber10
      با ماکرو یه کدی ساخته شد به صورت زیر:
      Rows("5:5").Select
      Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Range("D4").Select
      Selection.AutoFill Destination:=Range("D4:D5"), Type:=xlFillDefault
      Range("D4:D5").Select
      که میاد در ردیف 5، insert میزنه و بعدش یه عملیات سورت هم انجام میده. مشکلی که دارم اینه وقتی میخوام به جای ردیف 5 یه متغیر تعریف کنم تا عملیات insert قابل تغییر باشه به ارور میخورم.



      Dim d As Integer
      d = 5


      Rows("d : d").Select
      Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Range("Dd").Select
      Selection.AutoFill Destination:=Range("Dd:D(d+1)"), Type:=xlFillDefault
      Range("Dd:D(d+1)").Select

      با این کد به ارور میخورم.
      الان دو روز درگیر این کد شدم
      اگر امکانش هست راهنمایی کنید. سپاس از دوستان

      سلام...

      نوع آدرس دهیتون تو ردیف مشکل دارین
      مثل کد زیر استفاده کنید:

      کد PHP:
      Rows(d & ":" & d).Select 
      [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
      بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

      شرکت در دوره:
      [/FONT][/SIZE]
      [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
      [/B][/FONT][/SIZE]
      [/CENTER]
      [/INDENT]
      [/FONT]

        کامنت

        • saber10
          • 2018/08/23
          • 2
          • 52.00
          #3
          نوشته اصلی توسط Javid Mokhtari
          سلام...

          نوع آدرس دهیتون تو ردیف مشکل دارین
          مثل کد زیر استفاده کنید:

          کد PHP:
          Rows(d & ":" & d).Select 



          ممنونم بابت وقت گذاشتن و توضیح دادن تون

            کامنت

            قبلی template بعدی
            چند لحظه..