حذف فواصل بوجو آمده در یک شیت

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • mobinsaffarpour

    • 2013/05/25
    • 176

    حذف فواصل بوجو آمده در یک شیت

    باسلام خدمت تمامی اساتید محترم و دوستان گرامی

    پس از مشاهده فایل ضمیمه به این نکته می رسیم که ستون های b ، d ، e پس از آخرین کاراکتر حرفی دارای یک سری فضای خالی بوجود آمده است . باتوجه به این موضوع می شود دستوری در vba کد نویسی نمود که تمامی فواصل بوجود آمده در شیت را بصورت اتوماتیک حذف نماید ؟؟

    [ATTACH=CONFIG]3833[/ATTACH]
  • komeilex
    مدير تالار توابع اكسل

    • 2013/10/18
    • 233
    • 61.00

    #2
    سلام دوست عزیز.
    حالا چه اصراری بر استفاده از VB هستش؟!!!
    شما خیلی راحت می تونی این کار رو با تابع Trim انجام بدی.
    [SIZE=3][COLOR=#006400][B]وقتی خدا مشکلت رو حل میکنه به تواناییش ایمان داری و وقتی مشکلت رو حل نمی کنه بدون که به تواناییت ایمان داره...

    [/B][/COLOR][/SIZE][LEFT] [IMG]http://s5.picofile.com/file/8119323192/Untitled.gif[/IMG][/LEFT]

    کامنت

    • mobinsaffarpour

      • 2013/05/25
      • 176

      #3
      دوست عزیز سلام و تشکر از اینکه به این پست توجه کردین

      بله با تابع Trim براحتی میشه این کار رو انجام داد ، اما اطلاعاتی که در شیت هستن بسیار زیاد هست و اینکه با استفاده از VBA خیلی راحتر میشه اینکار رو انجام داد

      کامنت

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

        • 2012/01/16
        • 1212
        • 73.00

        #4
        نوشته اصلی توسط mobinsaffarpour
        دوست عزیز سلام و تشکر از اینکه به این پست توجه کردین

        بله با تابع Trim براحتی میشه این کار رو انجام داد ، اما اطلاعاتی که در شیت هستن بسیار زیاد هست و اینکه با استفاده از VBA خیلی راحتر میشه اینکار رو انجام داد
        برای شروع می تونید از کد ساده زیر استفاده کنید:
        [PHP]Dim trm As RangeFor Each trm In Sheet1.Range("a1:a10")
        trm = Trim(trm)
        Next trm
        [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]

        کامنت

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

          • 2012/01/16
          • 1212
          • 73.00

          #5
          نوشته اصلی توسط mobinsaffarpour
          دوست عزیز سلام و تشکر از اینکه به این پست توجه کردین

          بله با تابع Trim براحتی میشه این کار رو انجام داد ، اما اطلاعاتی که در شیت هستن بسیار زیاد هست و اینکه با استفاده از VBA خیلی راحتر میشه اینکار رو انجام داد
          برای شروع می تونید از کد ساده زیر استفاده کنید:
          کد PHP:
          Dim trm As Range
          For Each trm In Sheet1.Range("a1:a10")
              
          trm Trim(trm)
          Next trm 
          [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]

          کامنت

          • mobinsaffarpour

            • 2013/05/25
            • 176

            #6
            باسلام خدمت استاد و دوست گرامی

            اگر امکانش هست یک نمونه بصورت جامع که مورد فوق رو بصورت کامل روی یک شیت در اکسل اجرا کنه رو برای من تهیه کنید . باتشکر

            کامنت

            • mobinsaffarpour

              • 2013/05/25
              • 176

              #7
              یعنی این موضوع واقعاً اینقدر سخت هست که هیچکدوم یک از دوستان نمیتونن پاسخ بدن ؟؟؟

              کامنت

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

                • 2012/01/16
                • 1212
                • 73.00

                #8
                نوشته اصلی توسط mobinsaffarpour
                یعنی این موضوع واقعاً اینقدر سخت هست که هیچکدوم یک از دوستان نمیتونن پاسخ بدن ؟؟؟
                با سلام.
                ای بابا چقدر عصبانی
                فایل های پیوست شده
                [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]

                کامنت

                • mobinsaffarpour

                  • 2013/05/25
                  • 176

                  #9
                  دوست گلم دست شما در نکنه واقعاً بسیار حرفه ای عمل کردید . بازم تشکر

                  کامنت

                  چند لحظه..