افزایش ردیف ها به تعداد دلخواه

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • msp65

    • 2015/07/20
    • 41
    #1

    پرسش افزایش ردیف ها به تعداد دلخواه

    سلام دوستان
    برای اضافه کردن تعدادی ردیف به ابتدای شیت از چه کدی باید استفاده کرد(به عنوان مثال بعد از ردیف ۲ میخواهیم ۱۰۰۰ ردیف خالی اضافه کنیم)
    برچسب ها: هیچ‌کدام
    • ahura amini

      • 2016/02/05
      • 27
      #2
      سلام
      کد ذیل مثلا بعد از سطر دوم ١٠ ردیف به سمت پایین اضافه میکنه که شما میتونین مطابق با نیاز خویش تغییرات رو اعمال کنین:

      کد PHP:
       Rows("3:12").EntireRow.Insert Shift:=xlShiftDown 
      [LEFT][FONT=microsoft sans serif][SIZE=3][COLOR=#008000]اگه کاری که میکنی هوشمندانه باشه
      هیچ اهمیتی نداره که دیگران شما رو
      احمق فرض کنند.[/COLOR][/SIZE][/FONT][/LEFT]

        کامنت

        • rahi_feri

          • 2014/08/08
          • 524
          • 94.67
          #3
          سلام
          کد:
          Sub sbInsertingRows()
Dim rownum As Long, numberofrows As Long
rownum = InputBox("بعد از کدام سطر، سطر(ها) اضافه شود؟", "شماره سطر")
numberofrows = InputBox("چه تعداد سطر مي خواهيد وارد شود؟", "تعداد سطر")
Rows(rownum + 1 & ":" & numberofrows + rownum).EntireRow.Insert
End Sub
          چک کنید...!
          فایل های پیوست شده
          [B][SIZE=1]بخش امضاء :
          [/SIZE][/B][LEFT]
          [CODE]
          Sub Macro()
          ActiveCell = "IY" & Right(Application.Name, 5)
          With ActiveCell.Characters(Start:=2, Length:=1).Font
          .Name = "Webdings"
          .Color = 255
          End With
          End Sub
          [/CODE]
          [/LEFT]

            کامنت

            • msp65

              • 2015/07/20
              • 41
              #4
              سلام
              فوق العاده وعالی
              بسیار ممنون سپاس گذارم

                کامنت

                • msp65

                  • 2015/07/20
                  • 41
                  #5
                  اساتید سلام با توجه به کدی که جناب rahi_feri گذاشتن آیا برای افزایش ستون ها به تعداد دلخواه کد زیر درست هست
                  Sub sbInsertingCloumns()
                  Dim cloumnnum As Long, numberofcloumn As Long
                  cloumnnum = InputBox("بعد از کدام ستون، ستون(ها) اضافه شود؟", "شماره ستون")
                  numberofcloumns = InputBox("چه تعداد ستون مي خواهيد وارد شود؟", "تعداد ستون")
                  Cloumns(cloumnnum + 1 & ":" & numberofcloumns+ cloumnnum).EntireCloumn.Insert
                  End Sub
                  Last edited by msp65; 2017/02/12, 00:25.

                    کامنت

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