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

موضوع: ایجاد اصلاحات مورد نیاز روی کامنت ها

  1. #1


    آخرین بازدید
    17 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    ایجاد اصلاحات مورد نیاز روی کامنت ها

    سلام دوستان

    همونطور که میدونین با کدهای vba خیلی کارها میشه انجام داد. در این تاپیک قصد دارم نحوه تغییر اندازه و سایر مشخصات کامنت ها رو خدمتتون توضیح بدم.

    با کد زیر میتونین با یک بار اجرای کد تغییرات زیر رو روی همه کامنت ها اعمال کنید: (با توجه به رنگ نوشته ها و رنگ کدها میتونین متوجه بشید هر خط از کد چه کاری انجام میده)

    1- حذف نام کاربری از کامنت ها
    2- تغییر مشخصات فونت مثل اسم فونت، بولد بودن و سایز فونت
    3- فیت کردن ابعاد کامنت با محتوای کامنت


    کد:
    Sub FormatComments()
       Dim oComment As Comment, i As Integer
       'Loop through all the comments in the sheet
       For Each oComment In ActiveSheet.Comments
          With oComment.Shape.TextFrame.Characters
             i = InStr(1, .Text, ":" & vbLf)
             If i > 0 Then .Text = Mid(.Text, i + 2)
             With .Font
                .Name = "Arial"
                .Size = 12
                .Bold = True
             End With
          End With
          oComment.Shape.TextFrame.AutoSize = True
       Next
    End Sub

    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  


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

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

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

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

  1. [حل شده] جستجوی افراد از روی کد پرسنلی
    توسط QweAli در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2017/08/09, 10:14
  2. پرسش ماکروی جستجوی نام دارو و دادن کد به هر دارو در ستون بعد
    توسط ebrahimzadeh.j در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2017/03/20, 23:54
  3. نحوه جستجو با استفاده از تابع وی لوکاپ روی دو مقدار
    توسط shaneh در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 16
    آخرين نوشته: 2016/02/04, 11:19
  4. ثبت بر روی تکست باکس از روی شیت
    توسط علی فاطمی در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 2014/03/05, 08:26
  5. تشخیص اعداد مساوی از غیر مساوی
    توسط مجید در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2014/01/27, 21:33

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

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

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

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

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

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