Note: The other languages of the website are Google-translated. Back to English

كيفية البحث عن القيمة المطابقة وإرجاعها مع تعليق الخلية؟

عندما تقوم بتطبيق وظيفة Vlookup لإرجاع القيمة المطابقة ، فإنها ستستخرج القيمة فقط بدون التنسيق ، مثل لون التعبئة أو الخط أو التعليق وما إلى ذلك ، ولكن ، في بعض الأحيان ، قد تحتاج إلى البحث عن القيمة المتطابقة وإرجاعها بما في ذلك التعليق أيضًا للحصول على نتيجة لقطة الشاشة التالية. كيف يمكنك حل هذه الوظيفة في Excel؟

Vlookup وإرجاع القيمة المطابقة مع تعليق الخلية باستخدام التعليمات البرمجية لـ VBA


Vlookup وإرجاع القيمة المطابقة مع تعليق الخلية باستخدام التعليمات البرمجية لـ VBA

قد يساعدك رمز VBA أدناه في البحث عن القيمة المتطابقة وإرجاعها بتعليقها ، يرجى القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ثم انسخ الكود التالي والصقه في ملف وحدة نافذة او شباك.

كود VBA: Vlookup وإرجاع قيمة مطابقة مع تعليق الخلية:

Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .Comment Is Nothing Then
                .Comment.Delete
            End If
            If Not xCell.Comment Is Nothing Then
                .AddComment xCell.Comment.Text
            End If
        End With
    End If
End Function

3. ثم احفظ الكود وأغلق نافذة الكود ، أدخل هذه الصيغة: = vlookupcomment (H2، A2: C10,3،XNUMX، FALSE) في خلية فارغة لتحديد موقع النتيجة ، واضغط على أدخل المفتاح ، يتم إرجاع القيمة المتطابقة بالإضافة إلى التعليق مرة واحدة ، انظر لقطة الشاشة:

ملاحظة: في الصيغة أعلاه ، H2 هي قيمة البحث التي تريد إرجاع قيمتها المقابلة ، A2: C10 هو جدول البيانات الذي تريد استخدامه ، الرقم 3 هو رقم العمود الذي يحتوي على القيمة المطابقة التي تريد إرجاعها.


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (20)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أفعل الشيء نفسه مع Hlookup بدلاً من vlookup؟

لقد غيرت الكود على النحو التالي:
الوظيفة hlookupComment (LookVal As Variant ، FTable As Range ، Frow As Long ، FType As Long) كمتغير
'تحديث بواسطة Extendoffice
التطبيق: متطاير
Dim xRet As Variant 'قد يكون خطأ
خافت xCell كمجموعة
xRet = Application.Match (LookVal، FTable.Rows (1)، FType)
إذا كان IsError (xRet) ثم
hlookupComment = "غير موجود"
آخر
قم بتعيين xCell = FTable.Rows (Frow) .Cells (1) (xRet)
hlookupComment = xCell.Value
مع التطبيق
إذا لم يكن التعليق لا شيء إذن
تعليق احذف
إنهاء حالة
إذا لم يكن xCell.Comment لا شيء إذن
.AddComment xCell.Comment.Text
إنهاء حالة
انتهت ب
إنهاء حالة
نهاية وظيفة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل توجد طريقة ينسخ فيها تعليق vlookup تنسيق التعليق الأصلي؟ بعض تعليقاتي طويلة جدًا ، لكن التعليق الذي تم إرجاعه من vlookup دائمًا ما يكون بالحجم الصغير القياسي ، لذلك لا يمكنني قراءة كل النص
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كارل
قد لا تكون هناك طريقة مباشرة لحل مشكلتك ، ولكن يمكنك سحب مربع التعليق بشكل أكبر يدويًا. أو يمكنك تطبيق Kutools for Excel's Autofit Comment ميزة ، يمكن أن تساعدك على ضبط مربع التعليق ليناسب المحتوى. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكننا استخدام الخلية في العمود B (عمود الطلب) كتعليق للخلية في العمود C (الاسم). عذرًا ، التعليق على هيلين يبلغ من العمر 80 عامًا.
شكرا لك على مساعدتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
صريح
مرحبا،

في حالة حماية جدول البيانات ، عندما أفتح المصنف الخاص بي ، ترجع الخلية الخطأ #VALUE!

كيف يمكننا حل هذه المشكلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا فرانك
بعد إدخال الرمز ، يجب عليك حفظ المصنف الخاص بك بتنسيق Excel Macro-Enabled Workbook ، بحيث لا تفقد التعليمات البرمجية.
أرجوك حاول! شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا ، إنه مفيد ولدي شيء أطلبه ، ويعود مع تعليق الخلية ولكن الصورة (تم إدراجها باستخدام تأثيرات التعبئة) لا تظهر
من فضلك ، ساعدني في الخروج من هذا العدد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شميم
نأسف لعدم وجود رمز مباشر لحل مشكلتك ، إذا كان لدى أي شخص الحل ، يرجى التعليق هنا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تعليقي كبير جدًا بالنسبة لحجم الصندوق الافتراضي. هل هناك أي طريقة لزيادة حجم مربع التعليق أو تصغير حجم الخط؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كان أي شخص آخر يحتاج هذا.


الوظيفة VlookupComment (LookVal As Variant ، FTable As Range ، FColumn As Long ، FType As Long) كمتغير

'تحديث بواسطة Extendoffice

التطبيق: متطاير

Dim xRet As Variant 'قد يكون خطأ

خافت xCell كمجموعة

xRet = Application.Match (LookVal ، FTable.Columns (1) ، FType)

إذا كان IsError (xRet) ثم

VlookupComment = "-"

آخر

قم بتعيين xCell = FTable.Columns (FColumn) .Cells (1) (xRet)

VlookupComment = xCell.Value

مع التطبيق

إذا لم يكن التعليق لا شيء إذن

تعليق احذف

إنهاء حالة

إذا لم يكن xCell.Comment لا شيء إذن

.AddComment xCell.Comment.Text

التعليق. الشكل. عرض النطاق 2 ، msoFalse ، msoScaleFromTopLeft

التعليق. الشكل. مقياس الارتفاع 2.5، msoFalse، msoScaleFromTopLeft

إنهاء حالة

انتهت ب

إنهاء حالة

نهاية وظيفة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد فقط التعليق كقيمة خلية باستخدام Vlookup ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أستطيع أن أفعل ذلك في المرة الأولى. ولكن بعد أن أحاول استخدام الصيغة المتغيرة لخلايا متعددة. إنه لا يعمل الآن. حتى بعد كتابة vlookupcomment ، تصبح الخلية فارغة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! أنا سعيد جدًا لأنني وجدت هذا ، الشيء هو ، هذا في الواقع يعمل على الملاحظات ، وليس التعليقات. هل هناك طريقة للعمل على التعليقات وليس الملاحظات؟ في الملاحظات ، لا يمكنني وضع علامة على زملائي في العمل ولا يمكنني الرد أيضًا. شكر كثيرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع. ولكن عند استخدام هذا الرمز ، أجد أن الملف يتعطل كثيرًا في Excel 365. عند إزالة الحفظ التلقائي ، وجدت أنه أفضل قليلاً. ولكن مع وجود عدة مستخدمين في الملف ، سيتعطل الملف طوال الوقت. هل يستخدم هذا الرمز الكثير من الذاكرة أم أنه مشكلة توافق؟ أفكار؟ شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل لدي. أحصل على #NAME؟ خطأ عند استخدام هذه الصيغة. الرجاء المساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا سجاد ، هل قمت بوضع كود VBA الخاص بهذه المقالة في المصنف الخاص بك؟ يرجى التحقق منه ، أو ما هو إصدار Excel الذي تستخدمه؟ شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هذه وظيفة جيدة جدًا ، ولكنها تعمل مع الملاحظات وليس التعليقات (هذه هي الطريقة التي تتم ترجمتها بها إلى لغتي الأم على الأقل). هل هناك طريقة ما لتغييره من الملاحظات إلى التعليقات؟ أيضا ، هل هناك طريقة للاحتفاظ بتنسيق الخلية؟ (لون الخلية الأصلية ، إلخ).
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد واجهت نفس المشكلة. لا يمكنني إلا أن أقول أنه بعد أن حاولت عبر vba نسخ التعليقات والملاحظات ... يتم نسخ الملاحظات فقط ، وليس التعليقات (على الرغم من أن لها نفس المعنى ، ولكن لها وظائف مختلفة) ... يبدو أن الملاحظات ذات طبيعة ثابتة ، على عكس التعليقات حيث يمكنك الاحتفاظ "بالنشر" لإضافة نص جديد ... ربما هذا هو السبب ....
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا فانا ،
لاستخراج السجلات المتطابقة مع التعليق الموجود في Office 365 ، يرجى تطبيق الكود أدناه:
Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .CommentThreaded Is Nothing Then
                .ClearComments
            End If
            If Not xCell.CommentThreaded Is Nothing Then
                .AddCommentThreaded xCell.CommentThreaded.Text
            End If
        End With
    End If
End Function


بعد لصق الكود ، قم بتطبيق هذه الصيغة: = vlookupcomment (H2، A2: C10,3،XNUMX، FALSE) كذلك.

من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
txs كثيرًا. في غاية الإمتنان!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة