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

موضوع: جستجو و جایگزینی

  1. #1


    آخرین بازدید
    2019/06/26
    تاریخ عضویت
    July 2012
    نوشته ها
    78
    امتیاز
    6
    سپاس
    8
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    جستجو و جایگزینی

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

  2.  

  3. #2


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

    با سلام
    کد زیر رو ملاحظه کنید.به نظرم علی رغم پیچیده مطرح شدن، ساده بود.
    کد:
    Sub test() Dim i As Integer Dim ran1 As Range Dim t, s As Variant On Error Resume Next Set ran1 = Sheets("ÒÇÑÔ 1").Range("E13:E24") For i = 13 To 25 t = Application.Match(Cells(i, 10), ran1, 0) s = Application.Match(Cells(i, 11), ran1, 0) If Not IsError(t) Then Sheets("ÒÇÑÔ 1").Range("i" & t + 12) = Sheets("ÒÇÑÔ 1").Range("i" & t + 12).Value + Cells(i, 9).Value End If If Not IsError(s) Then Sheets("ÒÇÑÔ 1").Range("h" & s + 12) = Sheets("ÒÇÑÔ 1").Range("h" & s + 12).Value + Cells(i, 9).Value End If Next End Sub
    برای نمایش پیغام هم از کد زیر استفاده کنید.ضمنا"سل G29 رو از حالا merge خارج کنید.
    این کد در صورت منفی شدن به رنگ قرمز و با کلیک کردن بر روی سل ،پیغام نمایش میدهد.
    کد:
    Private Sub Worksheet_SelectionChange(ByVal target As Range) If Not Intersect(target, Me.Range("G29")) Is Nothing Then If target.Value < 0 Then target.Interior.ColorIndex = 3 MsgBox "Èå ãíÒÇä" & " " & target.Value & " " & ".˜ÓÑí ÈæÏÌå ÏÇÑíÏ" Else: target.Interior.ColorIndex = 0 End If End If End Sub
    فايل هاي پيوست شده فايل هاي پيوست شده
    ای برادر تو همه اندیشه ای

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2019/06/26
    تاریخ عضویت
    July 2012
    نوشته ها
    78
    امتیاز
    6
    سپاس
    8
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    با سلام و وقت بخیر ،خیلی ممنون از راهنماییتون واقعا عالی بود فقط چند تا مورد اگه حل بشه خیلی عالی میشه ،تو فایل اکسل پیوست توضیح دادم .تشکر
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط razemana : 2016/09/01 در ساعت 08:52

  6. #4


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

    نقل قول نوشته اصلی توسط razemana نمایش پست ها
    با سلام و وقت بخیر ،خیلی ممنون از راهنماییتون واقعا عالی بود فقط چند تا مورد اگه حل بشه خیلی عالی میشه ،تو فایل اکسل پیوست توضیح دادم .تشکر
    با سلام
    جواب سوالات در فایل شماره 1 توضیح داده شد.
    فايل هاي پيوست شده فايل هاي پيوست شده
    ای برادر تو همه اندیشه ای

  7. سپاس ها (1)



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

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

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

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

  1. [حل شده] جایگزین اعداد بجای رنگ سلول ها
    توسط ed2008 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 8
    آخرين نوشته: 2016/03/19, 12:11
  2. [حل شده] جستجوی متن در سلول و جایگزینی مقادیر متناسب
    توسط pejmank در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 2015/08/29, 18:08
  3. نتایج بازیهای جام جهانی 2014 برزیل
    توسط حسام بحرانی در انجمن زنگ تفریح اکسل - Recess
    پاسخ ها: 65
    آخرين نوشته: 2014/07/14, 03:21
  4. جستجو بر مبنای چندین گزینه
    توسط m.estreji در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 20
    آخرين نوشته: 2014/04/13, 18:54

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

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

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

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

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