ایجاد چند سطر یا ستون همزمان در بین 2 سطر یا ستون مشخص

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • maziardm

    • 2013/05/17
    • 450

    [حل شده] ایجاد چند سطر یا ستون همزمان در بین 2 سطر یا ستون مشخص

    با سلام و شب خوش

    می خواستم بدونم چطوری چند تا سطر یا ستون خالی بین 2 تا سطر یا ستون مشخص پر شده ایجاد کنم. برای این کار میرم رو قسمت بالا یا سمت راست شیت ها و بعد کلیک راست می کنم و گزینه insert رو میزنم. اما این کار یه ستون یا یه سطر خالی ایجاد می کنه. اما حالا فرض کنید من بهواه برای مثال 30 تا سطر یا ستون بین دو تا سطر یا ستون مشخص ایجاد کنم. با روش بالا حسابی پدر آدم در میاد.

    با تشکر از شما منتظر راهنمایی هستم.

  • حسام بحرانی

    • 2013/09/29
    • 2065
    • 72.00

    #2
    با سلام ، فرض کنید قصد دارید بین ستون های A و B تعداد 100 ستون یا بیشتر ، ستون های خالی ایجاد کنید . برای این منظور بر روی ستون B کلیک چپ نموده و آن را به تعداد مورد نیاز ( بر فرض 100 ستون ) دراگ نمایید . سپس کنترل راست نموده و گزینه Insert را انتخاب نمایید . به خوبی خواهید دید که 100 ستون خالی مابین ستون های A و B ایجاد شده . برای ایجاد سطر خالی هم به همین صورت عمل می کنیم ( مثلاً سطر 4 را انتخاب نموده و تا سطر 104 یا بیشتر ادامه می دهیم و بقیه مراحل بالا را انجام می دهیم )
    با سپاس
    ɦɛʂɑɱ ɓɑɦɾɑɳɨ
    [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
    [/FONT][/B][/CENTER]
    [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
    [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
    [/FONT][/B][/FONT][/SIZE]
    [/CENTER]

    کامنت

    • Nima

      • 2011/07/22
      • 385

      #3
      پیرو راهکار که آقای بحرانی گفتند اگر ستونها/ سطرها را با استفاده از کلید Ctrl انتخاب کنید در اینصورت سلولهای جدید/ سطرهای جدید یکی در میان مابین سلول ها / سطر های انتخاب شده قرار میگیرند.
      [CENTER][COLOR=#ff0000]************************************[/COLOR]
      No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
      [COLOR=#ff0000]************************************[/COLOR]

      [/CENTER]

      کامنت

      • maziardm

        • 2013/05/17
        • 450

        #4
        با سلام دوباره
        نیما و حسام جان ممنون از پیغامتون
        ولی یه مسئله ای هست. به نظرتون راه دیگری وجود نداره؟ چون برای مثال اگر ما بخواهیم 100 تا یا بیشتر ردیف یا ستون ایجاد کنیم درگ کردن شاید کمی سخت باشه و مشکلش این باشه که دقت کار کمتر میشه.
        بازم تشکر

        کامنت

        • حسام بحرانی

          • 2013/09/29
          • 2065
          • 72.00

          #5
          با سلام ، ببینید دوست من ، در اکسل همه کار میشه کرد ! بله همه کار ! چون سلول های اکسل هوشمند و تابع دستورات ما هستند ، فقط کافیه به اونا ، درست فرمان بدیم ! در این مورد خاص ، در هنگام دراگ کردن ، خود اکسل تعداد ستون های مورد نظر را به ما می دهد ( مثلاً اگر 1000 ستون را بخواهیم دراگ کنیم ، در هنگام دراگ کردن و در کنار فلش دراگ ، عبارت C1000 را به ما میدهد و این یعنی 1000 ستون ( Column ) انتخاب شده ) . نمیدونم چه اصراری دارید که با توجه به فرمول این کار رو انجام بدید !!
          اگر قصد دارین با توجه به ستون ها و سطرهای درخواستی این کار رو انجام بدین که بحثش جداست !
          با سپاس
          ɦɛʂɑɱ ɓɑɦɾɑɳɨ
          Last edited by حسام بحرانی; 2013/11/27, 16:44.
          [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
          [/FONT][/B][/CENTER]
          [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
          [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
          [/FONT][/B][/FONT][/SIZE]
          [/CENTER]

          کامنت

          • امين اسماعيلي
            مدير تالار ويژوال بيسيك

            • 2013/01/17
            • 1198
            • 84.00

            #6
            این مورد که دارین بحثش رو میکنین بازم جزول موارد تکراری هستش در قسمت ویژوال راه کار راحت ترش هست به طور متنوع. مثلا 5 تا 5 نا 10 تا ردیف خال یا ستون براتون بیاره یا هرچی سزچ کنین نبود اونجا مطرح کنین
            در پناه خداوندگار ایران زمین باشید و پیروز

            کامنت

            • امين اسماعيلي
              مدير تالار ويژوال بيسيك

              • 2013/01/17
              • 1198
              • 84.00

              #7
              با درود

              کد:
              Private Sub CommandButton2_Click()
              Dim tempstr As String
              Dim Colnum As Integer
              Dim n As Integer
              prompt = "Enter the Column Letter"
              tempstr = InputBox(prompt, "Column Letter")
              n = InputBox(" Please enter the number of blank column to insert ")
              Colnum = Range(tempstr & "1").Column
              
              Columns(Colnum).Resize(, n).EntireColumn.Insert
              
              End Sub
              کد بالا را برای یک باتن به کار ببرید اول ستونی رو که میخواین n تا ستون خالی از اونجا شروع بشه رو به صورت A یا b وارد کنید بعدش تعداد ستون خالی که میخواین به صورت عدد . . یادتون نره اگر میخواین بعد از مثلا ستو b به تعداد 10 ستون خالی بیاد پس ستون خالی از C در واقع شروع میشه و باید C وارد بشه و fبعد 10
              در پناه خداوندگار ایران زمین باشید و پیروز

              کامنت

              • ~M*E*H*D*I~
                • 2011/10/19
                • 4377
                • 70.00

                #8
                نمیدونم چرا این قضیه اینقدر پیچیده شده برای وارد کردن ستون یا سطر خالی به هر تعداد هیچ نیازی به کد ، کلید های ترکیبی و.. نداریم میشه در کسری از ثانیه 100 یا بیشتر سطر و ستون ایجاد کرد تنها با دو کلیک یک چپ کلیک برای انتخاب و یک راست کلیک برای insert اینقدر پیچیدگی نداره
                [CENTER]
                [SIGPIC][/SIGPIC]
                [/CENTER]

                کامنت

                • maziardm

                  • 2013/05/17
                  • 450

                  #9
                  با سلام و روز خوش
                  تشكر از تمامي دوستان

                  نوشته اصلی توسط امين اسماعيلي
                  این مورد که دارین بحثش رو میکنین بازم جزول موارد تکراری هستش در قسمت ویژوال راه کار راحت ترش هست ....
                  امين جان با تشكر متاسفانه من آشنايي به vba و نوشتن توابع جديد ندارم. علاقه دارم ياد بگيرم ولي خب وقتش رو به واقع ندارم. مي دونمم برام نياه
                  با تشكر

                  کامنت

                  • maziardm

                    • 2013/05/17
                    • 450

                    #10
                    نوشته اصلی توسط vatanparast
                    د تنها با دو کلیک یک چپ کلیک برای انتخاب و یک راست کلیک برای insert اینقدر پیچیدگی نداره
                    سلام دوباره
                    منظورتون رو متاسفانه متوجه نشدم. پوزش ولي متوجه نشدم.
                    با تشكر

                    کامنت

                    • maziardm

                      • 2013/05/17
                      • 450

                      #11
                      نوشته اصلی توسط maziardm
                      سلام دوباره
                      منظورتون رو متاسفانه متوجه نشدم. پوزش ولي متوجه نشدم.
                      با تشكر
                      با سلام و روز خوش
                      پاسخي نيست؟؟؟؟

                      کامنت

                      • Behnam

                        • 2013/03/25
                        • 842
                        • 100

                        #12
                        واسه این سوال شما دوستان چندین راه پیشنهاد کردن که همگی راحت و شدنیه
                        شما روی سر ستون یک ستون کلیک کنید،دکمه شیفت رو نگه دارین و 100 تا ستون بعد دوباره روی سرستون کلیک کنید،الان تمام اون ستون ها انتخاب میشه،حالا روی سرستون کلیک راست و insert رو بزنید،همین
                        [CENTER][SIZE=3][B]هرچیز که در جستن آنی، آنی[/B][/SIZE][/CENTER]

                        کامنت

                        چند لحظه..