تشخیص و های لایت اطلاعات یک سلول در در صورت وجود در سلول دیگر

[Mohammad.B.D]

به دنیال راهکاری بری های لایت کردن اطلاعات تمامی سلولهای یک ستون با ستونی دیگر که حاوی مقداری از اطلاعات سلول موردنظر است مثال اینکه: ستون A حاوی شرحی کامل از اطلاعات واریز تاریخ و شماره فیش ستون B حاوی ارقام واریز شده ستون C فایل بانکی ما حاوی شماره فیش و D حاوی ارقام بانک مربوط به ستون C حال اگر بخواهیم از conditional formating استفاده کنیم، کاربرد محدودی دارد و فقط اقلام کاملا مشابه را های لایت میکند اما بدنبال روشی هستم که بتوان از ستون حاوی شماره فیش (ستون C) مقدار آن را از ستون A ( بدلیل عدم تشابه کامل اطلاعات و وجود اطلاعات اضافه)شامل شرح کامل شناسایی و هایت لایت به شرط اینکه ستون حاوی ارقام هم یکی باشد فایلی مشابه را هم قرار داده ام
مرسی از دوستان عزیز

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

[amshahbazikl]

شرح سئوال را مجدد بفرستید. متن سئوال به هم ریخته!

[Mohammad.B.D]

به دنبال راهکاری بری های لایت کردن اطلاعات تمامی سلولهای یک ستون با ستونی دیگر که حاوی مقداری از اطلاعات سلول موردنظر است مثال اینکه: ستون A حاوی شرحی کامل از اطلاعات واریز تاریخ و شماره فیش ستون B حاوی ارقام واریز شده ستون C فایل بانکی ما حاوی شماره فیش و D حاوی ارقام بانک مربوط به ستون C حال اگر بخواهیم از conditional formating استفاده کنیم، کاربرد محدودی دارد و فقط اقلام کاملا مشابه را های لایت میکند اما بدنبال روشی هستم که بتوان از ستون حاوی شماره فیش (ستون C) مقدار آن را از ستون A ( بدلیل عدم تشابه کامل اطلاعات و وجود اطلاعات اضافه)شامل شرح کامل شناسایی و هایت لایت به شرط اینکه ستون حاوی ارقام هم یکی باشد فایلی مشابه را هم قرار داده ام
مرسی از دوستان عزیز

[s.cheraghi]

سلام
لطفا حالتی که میخواین تو فایلتون باشه رو مشخص کنین (با توضیحاتی که دادین متوجه نشدم که دقیقا میخواین چیکار کنین)

[Mohammad.B.D]

مرسی
میخواهم اطلاعات شماره فیش بانکی که فقط یک عدد 5 یا 6 رقمی است در سلولهای ستون C
در صورت وجود در سلولهای دیگر ستون A (با شرح طولانی و وجود هم حرف هم عدد ) های لایت شوند هم سلول شماره فیش هم سلول شرح سند
با شرط اینکه عدد کنار هر دو هم یکی باشد
مثلا
شماره فیش 219964 در ستون C با مبلغ 1،100،000 ریال در ستون A با شرح "واريز طي فيش شماره 219964 بابت " آمده است میخواهم روشی باشد که Excel بتواند شماره فیش من را در ستون A شناسایی و در صورت وجود هر دو سلول را های لایت کند و البته از فیلتر مبلغ و یکسان بودن مبلغ هم رد کند

[Mohammad.B.D]

من باید
اقلام دفاتر شامل شماره فیش (که در شرح سند است) و مبلغ واریزی رو با اقلام مشابه در بانک کنترل کنم
30 حساب بانکی
با تراکنش جمعی 150،000 گردش در ماه
هشت ماه گذشته 1،200،000 قلم حدود
به راحتی امکان ندارد
دنبال راهکاری هستم که خود اکسل آنها را شناسایی و مشخص (های لایت) کند
مرسی از دوستان

[iranweld]

با سلام

فایل پیوست را بررسی و اعلام نظر بفرمایید

Sub GetNumbers()

Dim xValue As String
Dim OutValue As String
Dim I, J As Long
     Dim sht As Worksheet
       Dim WS As Worksheet
        
     
   Macro1
 
Set sht = ThisWorkbook.Worksheets("SHEET1")

X = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
 

For J = 3 To X

 OutValue = ""
 
xx = Range("c" & J).Value
yy = Range("a" & J).Value
 ZZ = InStr(yy, xx) + Len(xx)
  
  
    xValue = Range("a" & J).Value
    
    For I = 1 To ZZ
    
        If VBA.IsNumeric(VBA.Mid(xValue, I, 1)) Then
        
            OutValue = OutValue & VBA.Mid(xValue, I, 1)
           
        End If
        Next
        
        
   If OutValue <> Range("c" & J).Value Then
    
      
    Range("c" & J).Interior.ColorIndex = 3
    
    End If
    
    If Range("B" & J).Value <> Range("D" & J).Value Then
    
    Range("B" & J).Interior.ColorIndex = 3
    
    End If
        
    Next
   
    
    End Sub 

[Mohammad.B.D]

سلام Iranweld عزیز
با تشکر فراوان از شما بابت بررسی و انجام عملیات روی فایل
اما متاسفانه ساختار عملکرد آنرا متوجه نشدم
لطفا کمی راهنمایی بفرمائید
مرسی

[iranweld]

در این فایل با استفاده از ویژوال بیسیک اولین عدد موجود در هر سلول ستون A استخراج شده و با شماره سند موجود در سلول C همان ردیف چک میگردد اگر برابر هم نبود شماره سند به رنگ قرمز مشخص میگردد

ZZ = InStr(yy, xx) + Len(xx)
   
    xValue = Range("a" & J).Value
    
    For I = 1 To ZZ
    
        If IsNumeric(Mid(xValue, I, 1)) Then
        
            OutValue = OutValue & Mid(xValue, I, 1)
           
        End If
       
 Next 

If OutValue <> Range("c" & J).Value Then
    
      
    Range("c" & J).Interior.ColorIndex = 3
    
    End If 

پس از آن مبلغ واریزی بانک با مبلغ دفتر چک شده و در صورتیکه برابر هم نباشند به رنگ سبز مشخص مگردد

[Mohammad.B.D]

Iranweld عزیز
با تشکر مجدد
مشکل این هست که فایل فوق نمونه هست و فقط چند ایتم هست و سلولها دقیقا در ردیف هم قرار گرفته اند
اما در حالت اصلی من
اقلام دفاتر برای هر شیت 13,000 قلم هست و بانک هم همچنین که کنار هم نیستند و امکان دارد که شماره ردیف 1 ستون دفاتر در شماره 1050 بانک پاس شود
و اینکه این ماکروی که شما زحمت کشیدید اقلامی که در یک ردیف باشند را مشخص میکند
اما در واقع اینطور نیست و همانطور که گفتم ردیف 1 دفاتر در ردیف 1050 پاس میشود و این خود مشکل هست
و اینکه از پاس شدن اقلام دفاتر مطمئن نیستیم
آیا امکان این هست که برای دفاتر نیز قلم رنگی شود
مثلا اگر شماره چک 511060 در بانک رنگی میشود در دفاتر هم رنگی شود
و امکان این هست که اگر برای دفاتر ستون شماره ردیف تعریف کنیم مثلا 1 تا 13000 و بخواهیم برای قسمت بانک شماره چکی پاس میشود شماره ردیف دفاتر در یک سلول خالی کنار شماره چک درج شود

مرسی از شما