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

موضوع: اعمال کلید های ctrl+shift+enter در ماکرو

  1. #1


    آخرین بازدید
    2023/08/23
    تاریخ عضویت
    July 2016
    محل سکونت
    دهاقان
    نوشته ها
    73
    امتیاز
    41
    سپاس
    59
    سپاس شده
    31 در 22 پست
    تعیین سطح نشده است

    اعمال کلید های ctrl+shift+enter در ماکرو

    سلام
    لطفا کد لازم برای اینکه فرمول زیر رو توی سلولی قرار بدیم و کلید های CTRL+SHIFT+ENTER اعمال بشه را بنویسید
    =SMALL(IF(MAIN!$A$1:$G$46=Variz!C1;ROW(MAIN!$A$1:$ G$46);"");1)
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
    حضرت امیر علیه السلام

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    نمونه فایل را با توضیح خواسته خود ضمیمه پست کنید مسلما با ماکرو راه ساده تری وجود دارد

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2023/08/23
    تاریخ عضویت
    July 2016
    محل سکونت
    دهاقان
    نوشته ها
    73
    امتیاز
    41
    سپاس
    59
    سپاس شده
    31 در 22 پست
    تعیین سطح نشده است

    سلام
    اگه برای دستور ستون E دستور VBA سراغ دارید بگذارید چون شماره سطر $C$ تغییر میکنه
    =SMALL(IF(MAIN!$A$2:$C$11=Variz!C1;ROW(MAIN!$A$2:$C$11);"");1)
    ممنون
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar VARIZ.rar اطلاعات (27.7 کیلو بایت, 12 نمایش)
    هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
    حضرت امیر علیه السلام

  6. #4


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام
    فایل نمونه را ملاحظه کنید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    ای برادر تو همه اندیشه ای

  7. سپاس ها (3)


  8. #5


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    فایل پیوست را ملاحظه کنید

    کد PHP:
    Sub Import()

    Application.ScreenUpdating False

    z1 
    Sheets("MAIN").Cells(Sheets("MAIN").Rows.Count"B").End(xlUp).Row

    Z2 
    Sheets("VARIZ").Cells(Sheets("Variz").Rows.Count"B").End(xlUp).Row

    Sheets
    ("VARIZ").Range("E1:F" Z2).ClearContents

    For 1 To Z2

    For 1 To z1

    If Val(Sheets("MAIN").Range("C" J)) = Val(Sheets("Variz").Range("C" I)) Then

    Sheets
    ("variz").Range("E" I) = Sheets("MAIN").Range("C" J).Row

    Sheets
    ("variz").Range("F" I) = Sheets("MAIN").Range("B" J)

    Exit For

    Else


    Sheets("MAIN").Range("E" I) = ""

    End If

    Next

    Next

    Application
    .ScreenUpdating True


    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده

  9. سپاس ها (4)


  10. #6


    آخرین بازدید
    2023/08/23
    تاریخ عضویت
    July 2016
    محل سکونت
    دهاقان
    نوشته ها
    73
    امتیاز
    41
    سپاس
    59
    سپاس شده
    31 در 22 پست
    تعیین سطح نشده است

    سلام امیر جان
    ممنون از جوابتون
    دو تا سؤال:
    چرا وقتی محدوده رفرنس زیادتر از یه ستون میشه کار نمیکنه
    اگه مقادیر پیدا شده در ستون e بیشتر از یکی شد چطور میشه اون دو تا عدد را با هم جمع کرد؟
    باز هم ممنون
    هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
    حضرت امیر علیه السلام

  11. #7


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام

    چرا وقتی محدوده رفرنس زیادتر از یه ستون میشه کار نمیکنه
    چون از تابع match استفاده کردم .اگر با دو ستون میخواهید مقایسه بشه با کمی تغییر از کد های جناب آقای iranweld استفاده کنید.
    کد:
    For i = 1 To Z2 For j = 1 To z1 If Val(Sheets("Variz").Range("C" & i)) = Val(Sheets("MAIN").Range("C" & j)) Then Sheets("variz").Range("E" & i) = Sheets("MAIN").Range("C" & j).Row ElseIf Val(Sheets("Variz").Range("C" & i)) = Val(Sheets("MAIN").Range("d" & j)) Then Sheets("variz").Range("E" & i) = Sheets("MAIN").Range("C" & j).Row End If Next j Next i
    قسمت دوم سوال رو هم متوجه نشدم.یک مثال بزنید شاید با توابع اکسل به سادگی انجام بشه.
    ای برادر تو همه اندیشه ای

  12. سپاس ها (2)


  13. #8


    آخرین بازدید
    2023/08/23
    تاریخ عضویت
    July 2016
    محل سکونت
    دهاقان
    نوشته ها
    73
    امتیاز
    41
    سپاس
    59
    سپاس شده
    31 در 22 پست
    تعیین سطح نشده است

    سلام
    ببینید فرض کنید ستون a شامل یکسری کد باشه و ستون b هم یکسری عدد
    حالا اگه توی ستون a یه کد دوبار تکرار شده باشه یعنی مثلا یه مشتری دو تا پرداخت داشته باشه
    چطوری میشه اعداد متناظر اون رو توی ستون b با هم جمع کرد و کد تکراری را حذف کرد
    ممنون
    هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
    حضرت امیر علیه السلام

  14. #9


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    ببینید فرض کنید ستون a شامل یکسری کد باشه و ستون b هم یکسری عدد
    حالا اگه توی ستون a یه کد دوبار تکرار شده باشه یعنی مثلا یه مشتری دو تا پرداخت داشته باشه
    چطوری میشه اعداد متناظر اون رو توی ستون b با هم جمع کرد و کد تکراری را حذف کرد

    با سلام
    کد زیر رو امتحان کنید براساس تکراری های ستون a مجموع ستون c بدست آمده و تکراری ها حذف میشود.

    کد:
    Sub test() Dim lr, i, sval As Integer lr = Sheet4.Cells(Sheet4.Rows.Count, "A").End(xlUp).Row For i = 2 To lr sval = Application.SumIf(Range("A2:A" & lr), Range("a" & i), Range("C2:C" & lr)) Range("D" & i) = sval Next i On Error Resume Next Columns("A:D").Select ActiveSheet.Range("$A$1:$D$" & lr).RemoveDuplicates Columns:=Array(1), _ Header:=xlNo Range("a1").Select End Sub
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar sum_01.rar اطلاعات (18.4 کیلو بایت, 11 نمایش)
    ای برادر تو همه اندیشه ای

  15. سپاس ها (2)



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

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

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

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

  1. اجرا كردن ماكروها بمحض زدن enter بدون استفاده از ميانبرها و يا button ها
    توسط HEYDARDOOST_REZA در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 17
    آخرين نوشته: 2018/07/07, 17:52
  2. ترکیب کلید های shift+j
    توسط Amin_D در انجمن ترفندهای اکسل Excel Tricks
    پاسخ ها: 3
    آخرين نوشته: 2014/04/30, 12:20
  3. از کار افتادن کلیدهای ترکیبی ctrl+shift+arrow keys
    توسط ieumts در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2014/03/28, 23:50
  4. پيغام cannot shift objects off sheet
    توسط jeddi در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2013/05/25, 13:25
  5. درج تاریخ با زدن کلید Enter
    توسط khorasan66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/11/13, 13:39

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

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

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

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

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