نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: تغییر پهنای ستونها به اندازه کاراکترهای نوشته شده در آن ، بعد از هر بار تایپ

  1. #1


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    تغییر پهنای ستونها به اندازه کاراکترهای نوشته شده در آن ، بعد از هر بار تایپ

    باسلام
    با کد زیر میتونید بعد از هر بار تایپ در هر سلول ، اندازه ستون رو بطور خودکار مرتب کنید
    کد PHP:
    Private Sub Workbook_SheetChange(ByVal Sh As ObjectByVal Target As Range)
    Dim value
    Application
    .ScreenUpdating False
    For Each value In Target.Columns
        Worksheets
    (Sh.Name).Columns(value.Column).AutoFit
    Next value
    Application
    .ScreenUpdating True
    End Sub 
    فایل ضمیمه میشه ، میتونید نحوره کار رو در فایل ضمیمه ببینید ، فقط کافیه داخل یکی از سلولها شروع به نوشتن بکنید .
    موفق باشید
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط misammisam : 2015/02/04 در ساعت 21:54


  2.  

  3. #2


    آخرین بازدید
    2023/01/02
    تاریخ عضویت
    October 2010
    محل سکونت
    شیراز دلنواز
    نوشته ها
    20
    امتیاز
    44
    سپاس
    47
    سپاس شده
    41 در 15 پست
    سطح اکسل
    54.00 %

    p30vahid به Yahoo ارسال پیام
    با سلام

    از بابت این آموزش بسیار کاربردی تشکر می کنم ولی امکانش هست برای یک ستون و یا سطر و حتی سلول خاص هم توشیحاتی بفرمایید به نحوی که این تغییر سایز فقط در رابطه با تغییر در داده های یک سطر و یا یک ستون و یا یک سلول باشد.

    با سپاس فراوان

  4. #3


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    بله امکانش هست ، فقط کافیه یه IF بهش اضافه کنید ، مثلا اگه بخواید فقط در ستون (B:B) که میشه معادل ستون 2 ، تغییرات اعمال بشه باید به شکل زیر عمل کنید .
    کد PHP:
    Private Sub Workbook_SheetChange(ByVal Sh As ObjectByVal Target As Range)
    Dim value
    Application
    .ScreenUpdating False
    For Each value In Target.Columns
    If value.Column 2 Then
        Worksheets
    (Sh.Name).Columns(value.Column).AutoFit
    End 
    If
    Next value
    Application
    .ScreenUpdating True
    End Sub 
    برای بقیه موارد مثل سطر خاص یا از ستون فلان تا ستون فلان و یا حتی سلول خاص هم که خودتون استادید میزارم به عهده خودتون .
    فايل هاي پيوست شده فايل هاي پيوست شده



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. جلوگیری از تایپ اطلاعات تکراری در ستون...
    توسط Amir Mohsenpour در انجمن آموزش ابزارهاي اكسل
    پاسخ ها: 35
    آخرين نوشته: 2020/08/11, 14:38
  2. چگونگی تغییر ستون های اکسل به ستون دیگر ؟؟؟
    توسط infojob در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2014/09/22, 07:17
  3. تغییر زبان تایپ در تکست باکس به صورت اتوماتیک
    توسط علی فاطمی در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 2014/04/17, 13:53
  4. تغییر رنگ شرطی ستون ها
    توسط pooria در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 3
    آخرين نوشته: 2012/12/11, 00:21

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد