چگونگی آدرس دادن محدوده ای از سطر وستون اکسل در vba

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • khoshdel
    • 2017/05/21
    • 4
    #1

    [حل شده] چگونگی آدرس دادن محدوده ای از سطر وستون اکسل در vba

    با سلام

    من یه برنامه ساده دارم تو vba بر روی یه فایل اکسل مینویسم و میخوام یه سطر سه ردیفه در جایی که شماره سطرش از یه فرمولی بدست میاد کپی بشه و در جایی که شماره سطر اولیه و پایانی که قراره این سطر سه ردیفه تا اونجا کپی بشه، از یه فرمول دیگه به دست میاد، پیست بشه!
    اما نه از Range و نه cells نتونستم استفاده کنم.
    برچسب ها: هیچ‌کدام
    • Javid Mokhtari
      مدير تالار ويژوال بيسيك

      • 2012/01/16
      • 1212
      • 73.00
      #2
      نوشته اصلی توسط khoshdel
      با سلام

      من یه برنامه ساده دارم تو vba بر روی یه فایل اکسل مینویسم و میخوام یه سطر سه ردیفه در جایی که شماره سطرش از یه فرمولی بدست میاد کپی بشه و در جایی که شماره سطر اولیه و پایانی که قراره این سطر سه ردیفه تا اونجا کپی بشه، از یه فرمول دیگه به دست میاد، پیست بشه!
      اما نه از Range و نه cells نتونستم استفاده کنم.
      با سلام...

      لطفا فایلتون رو ضمیمه کنید
      [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]

        کامنت

        • khoshdel
          • 2017/05/21
          • 4
          #3
          فایل ضمیمه

          نوشته اصلی توسط jansiz hayat
          با سلام...

          لطفا فایلتون رو ضمیمه کنید
          با سلام مجدد فایل رو براتون ضمیمه کردم وتوضیحات رو هم درونش نوشتم:

          Book.test

            کامنت

            • Javid Mokhtari
              مدير تالار ويژوال بيسيك

              • 2012/01/16
              • 1212
              • 73.00
              #4
              نوشته اصلی توسط khoshdel
              با سلام مجدد فایل رو براتون ضمیمه کردم وتوضیحات رو هم درونش نوشتم:

              Book.test
              کد زیر رو به انتهای کدتون اضافه کنید :

              کد PHP:
              Sheet2.Range(Cells(Z, 4), Cells(Sheet1.Range("n1").Value - 1, 6)).Select
                  
                  Selection              .FillDown 
              [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]

                کامنت

                • khoshdel
                  • 2017/05/21
                  • 4
                  #5
                  با سلام و تشکر فراوان جهت پاسخ گویی شما دوست عزیز، باید بهتون بگم که بعد از اظافه کردن این دستور با خطای عکس زیر مواجه میشم!!!؟؟؟

                  http://s9.picofile.com/file/8295671084/book1_test.png

                    کامنت

                    • Ali Parsaei
                      مدير تالارتوابع اکسل

                      • 2013/11/18
                      • 1522
                      • 71.67
                      #6
                      سلام،
                      شما ابتدا در سل M1 شيت يک فرمول زير را وارد کنيد:
                      کد PHP:
                      =COUNTA(B5:B20) 
                      بعد کد خود را نيز به صورت زير اصلاح کنيد:
                      کد PHP:
                      Sub Rectangle1_Click()
                      Z = Sheets("sheet1").Range("n1").Value
                      Y                       = Sheets("sheet1").Range("m1").Value


                      Sheets                      ("sheet1").Range("b5:c20").Copy
                      Sheets                      ("sheet2").Cells(Z, 2).PasteSpecial xlPasteValues
                      Sheets                      ("sheet1").Range("a3:c3").Copy
                      Sheets                      ("sheet2").Activate
                      Sheets                      ("sheet2").Cells(Z, 4).Resize(Y, 3).Select
                      Selection                      .PasteSpecial Paste:=xlPasteValues
                      Application                      .CutCopyMode = False
                      End Sub 
                      [SIGPIC][/SIGPIC]

                        کامنت

                        • khoshdel
                          • 2017/05/21
                          • 4
                          #7
                          سلام آقا دستت درد نکنه با یه کم تغییر مشکلم حل شد.

                            کامنت

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