مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.

انا لله و انا الیه راجعون

ابزار Format Painter در VBA

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • میثم مقدم نیا

    • 2017/03/23
    • 558
    • 41.00
    #1

    [حل شده] ابزار Format Painter در VBA

    سلام
    در vba چطور میتونم قالب چند سلول را به سلول های دیگه انتقال بدم
    [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]
    برچسب ها: هیچ‌کدام
    • Amir Ghasemiyan

      • 2013/09/20
      • 4600
      • 100.00
      #2
      نوشته اصلی توسط mmn1000
      سلام
      در vba چطور میتونم قالب چند سلول را به سلول های دیگه انتقال بدم

      سلام دوست عزيز
      شما اگر يكبار ماكرو ضبط كنيد متوجه ميشيد عملكردش به چه صورته. در حقيقت اين انتقال كپي قالب هست پس به اين صورت ميشه نوشت:

      کد:
      Range("A1").Copy
Range("A2:A100").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

        کامنت

        • میثم مقدم نیا

          • 2017/03/23
          • 558
          • 41.00
          #3
          نوشته اصلی توسط amir ghasemiyan

          سلام دوست عزيز
          شما اگر يكبار ماكرو ضبط كنيد متوجه ميشيد عملكردش به چه صورته. در حقيقت اين انتقال كپي قالب هست پس به اين صورت ميشه نوشت:

          کد:
          range("a1").copy
range("a2:a100").pastespecial paste:=xlpasteformats
application.cutcopymode = false
          من اینکارا خودم انجام داده بودم ولی نتیجه‌ی مطلوبی نگرفتم
          وقتی توی یوزر فرمم کلید ثبت اطلاعات را میزنم فقط یک ردیف مثلا a23:g23 را انجام میده و دوباره کلید ثبت را میزنم ردیف a24:g24 هیچ تغییر نمیکنه
          Click image for larger version Name: ثبت اطلاعات و مرتب سازی پنج.png Views: 2 Size: 65.7 کیلو بایت ID: 134777
          [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]

            کامنت

            • Amir Ghasemiyan

              • 2013/09/20
              • 4600
              • 100.00
              #4
              نوشته اصلی توسط mmn1000
              من اینکارا خودم انجام داده بودم ولی نتیجه‌ی مطلوبی نگرفتم
              وقتی توی یوزر فرمم کلید ثبت اطلاعات را میزنم فقط یک ردیف مثلا a23:g23 را انجام میده و دوباره کلید ثبت را میزنم ردیف a24:g24 هیچ تغییر نمیکنه
              [ATTACH=CONFIG]17998[/ATTACH]
              کدی که استفاده کردید رو بذارید بررسی کنم

                کامنت

                • میثم مقدم نیا

                  • 2017/03/23
                  • 558
                  • 41.00
                  #5
                  نوشته اصلی توسط Amir Ghasemiyan
                  کدی که استفاده کردید رو بذارید بررسی کنم
                  فایل پیوست را مشاهده فرماید
                  فایل های پیوست شده
                  [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]

                    کامنت

                    • Amir Ghasemiyan

                      • 2013/09/20
                      • 4600
                      • 100.00
                      #6
                      نوشته اصلی توسط mmn1000
                      فایل پیوست را مشاهده فرماید
                      تو اين فايلي كه فرستاديد كجا از اين كد استفاده كرديد؟
                      شما گفتيد استفاده كرديد و به مشكل خورديد

                        کامنت

                        • Amir Ghasemiyan

                          • 2013/09/20
                          • 4600
                          • 100.00
                          #7
                          شما اين كد رو به انتهاي كدهاي يوزرفرمتون اضافه كنيد مشكلتون حل ميشه

                          کد:
                              Lrow = Range("B" & Rows.Count).End(xlUp).Row
    Range("A2:G2").Copy
    Range("a" & Lrow & ":a" & Lrow).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False

                            کامنت

                            • میثم مقدم نیا

                              • 2017/03/23
                              • 558
                              • 41.00
                              #8
                              نوشته اصلی توسط Amir Ghasemiyan
                              تو اين فايلي كه فرستاديد كجا از اين كد استفاده كرديد؟
                              شما گفتيد استفاده كرديد و به مشكل خورديد
                              شرمنده فایل را اشتباه فرستادم یه نسخه قبلترش را فرستادم
                              [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]

                                کامنت

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