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

🖤 پیام تسلیت

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

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

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

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

انتقال چندین مجموعه سلولها با فور تصویر پیوست نمونه مثال است

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • mohammadi59m

    • 2020/02/18
    • 24
    #1

    پرسش انتقال چندین مجموعه سلولها با فور تصویر پیوست نمونه مثال است

    سلام و احترام خدمت اساتید بزرگوار
    sheet1 شیت مرجع است
    اگر سطر اول در sheet2 برابر سطر اول sheet1 مرجع باشد زیر مجموعه سلولهای 12 تایی طبق تصویر پیوست که به رنگ آبی که در sheet1 مرجع است به sheet2 منتقل شوند
    این کد ماکرو با فور مد نظر است
    تشکر و سپاس از همکاری و لطف شما
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • alfa

      • 2012/05/18
      • 157
      • 4.00
      #2
      سلام
      فایل پیوست
      فایل های پیوست شده
      [FONT=tahoma]:Smilebb (31):[/FONT]

        کامنت

        • mohammadi59m

          • 2020/02/18
          • 24
          #3
          سلام و تشکر
          هر چه سعی کردم فایل باز نشد اگر ممکنه لطفا کد ماکرو را برام بزارید خیلی ممنون میشم

            کامنت

            • alfa

              • 2012/05/18
              • 157
              • 4.00
              #4
              Click image for larger version Name: 1[2020-08-03_114502].jpg Views: 1 Size: 235.0 کیلو بایت ID: 138029

              فایلی که نتونستید باز کنید RAR است باید اگه ندارید آنرا نصب کنید
              کد HTML:
              Private Sub CommandButton1_Click()
If Worksheets("sheet2").Range("A1").Value = Worksheets("sheet1").Range("A1").Value Then
Worksheets("sheet1").Range("A2:C5").Copy Worksheets("sheet2").Range("A2:C5")
End If


If Worksheets("sheet2").Range("E1").Value = Worksheets("sheet1").Range("E1").Value Then
Worksheets("sheet1").Range("E2:G5").Copy Worksheets("sheet2").Range("E2:G5")
End If


If Worksheets("sheet2").Range("I1").Value = Worksheets("sheet1").Range("I1").Value Then
Worksheets("sheet1").Range("I2:K5").Copy Worksheets("sheet2").Range("I2:K5")
End If


End Sub
              Last edited by حسام بحرانی; 2020/08/03, 23:49. دلیل: قرار دادن کد در تگ
              [FONT=tahoma]:Smilebb (31):[/FONT]

                کامنت

                • mohammadi59m

                  • 2020/02/18
                  • 24
                  #5
                  دوست عزیزم اقای alfa سپاس گذارم از این که محبت کردید
                  اما منظور من کد ساده به این صورت نیست چون حداقل از 2 فور باید در سطر اول sheet1 و سطر اول sheet2 استفاده شود ممکن است داده ها کمتر باشند و یا بیشتر باشند
                  اگر اساتید دیگر هم ما را یاری بدهند ممنون خواهم بود

                    کامنت

                    • alfa

                      • 2012/05/18
                      • 157
                      • 4.00
                      #6
                      منظورتون از "فور" for است؟
                      Private Sub CommandButton1_Click()
                      Worksheets("Sheet2").Range("A2:Z100").ClearContent s
                      Dim i As Integer, c As Integer
                      For i = 1 To 10
                      If Selection.Cells(i, 1) = A And Worksheets("sheet2").Range("A1").Value = Worksheets("sheet1").Range("A1").Value Then Worksheets("sheet1").Range("A2:C5").Copy Worksheets("sheet2").Range("A2:C5")
                      Next i
                      For i = 1 To 10
                      If Selection.Cells(i, 1) = B And Worksheets("sheet2").Range("E1").Value = Worksheets("sheet1").Range("E1").Value Then Worksheets("sheet1").Range("E2:G5").Copy Worksheets("sheet2").Range("E2:G5")
                      Next i
                      For i = 1 To 10
                      If Selection.Cells(i, 1) = c And Worksheets("sheet2").Range("I1").Value = Worksheets("sheet1").Range("I1").Value Then Worksheets("sheet1").Range("I2:K5").Copy Worksheets("sheet2").Range("I2:K5")
                      Next i
                      End Sub
                      فایل های پیوست شده
                      [FONT=tahoma]:Smilebb (31):[/FONT]

                        کامنت

                        • mohammadi59m

                          • 2020/02/18
                          • 24
                          #7
                          دوست عزیزم اقای alfa یک توضیح خدمت شما بدم
                          اگر داده های سطر 1در sheet1 مرجع بیشتر شود و یا کمتر شود و یا داده های سطر 1 در sheet2 بیشتر شود و یا کمتر شود این کد جواب نمی ده
                          سطر 1 در sheet1 مرجع را یک متغیر مثل a باید در نظر گرفت . سطر 1 در sheet2 داده ها را هم باید یک متغیر مثل b در نظر بگیریم . یک for برای a و یک for برای b می نویسیم تا اگر داده های دو سطر اول اگر یکی باشد ( در هر فاصله سلولی سطر ) زیر مجموعه sheet1 مرجع را به زیر مجموعه sheet2 داده ها را که 12 سلول است منتقل کند
                          طول و عرض 12 سلول هم بصورت دو متغیر طول و عرض تعریف می کنیم اولا راحت تر جابجا کند و دوما ممکن است طول و عرض 12 سلول کم و زیاد شود این کد در هر وضعیتی عمل خواهد کرد منظور در خواست من این است سپاس و تشکر از توجهات شما

                            کامنت

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