ريان أحمد قام بنشر مارس 14, 2014 مشاركة قام بنشر مارس 14, 2014 (معدل) السلام عليكم الدالة (VLOOKUP(B2;U$2:$U$41510;1;FALSE= مع إظافة كلمة لا توجد بيانات في حالة عدم العثور على البحث قق.rar تم تعديل مارس 14, 2014 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر مارس 14, 2014 مشاركة قام بنشر مارس 14, 2014 السلام عليكم جرب هذا Sub Vlokup() Dim Reslt As String Dim Sh As Worksheet Set Sh = ActiveWorkbook.Sheets("bd1") On Error Resume Next If IsError(Application.WorksheetFunction.VLookup(Sh.Range("A3"), Sh.Range("F2:F41510"), 1, False)) Then Reslt = "لاتوجد بيانات" MsgBox Reslt End Sub رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 14, 2014 الكاتب مشاركة قام بنشر مارس 14, 2014 السلام عليكم شاهد المرفق قمت بتطبيقه ولم ينجح قق.rar رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر مارس 14, 2014 مشاركة قام بنشر مارس 14, 2014 اخى ريان استاذن استاذى شوقى ربيع جرب التعديل الاتى Sub Vlokup() Dim Reslt As String Dim Sh As Worksheet Set Sh = ActiveWorkbook.Sheets("bd1") Sh.Range("d2:e5000").ClearContents On Error Resume Next For i = 2 To 20 Cells(i, "d") = Application.WorksheetFunction.VLookup(Sh.Cells(i, 1), Sh.Range("a2:g41510"), 6, 0) Cells(i, "e") = Application.WorksheetFunction.VLookup(Sh.Cells(i, 1), Sh.Range("a2:g41510"), 7, 0) Next End Sub رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 15, 2014 الكاتب مشاركة قام بنشر مارس 15, 2014 السلام عليكم لم ينجح الكود رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مارس 15, 2014 مشاركة قام بنشر مارس 15, 2014 السلام عليكم جرب هذا التعديل 111.rar رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر مارس 15, 2014 مشاركة قام بنشر مارس 15, 2014 السلام عليكم شاهد المرفق قمت بتطبيقه ولم ينجح لسلام عليكم المثال الذي ادرجته لك هو مجرد مثال لاستخدام دالة VLookup في محرر الاكواد هذا مثال يعطي نتائج العمود D Sub Test() Dim sh As Worksheet: Set sh = Sheets("bd1") Dim Table As Range: Set Table = sh.Range("F2:F41510") Dim Name As String Dim Num As Variant Dim r As Integer For r = 2 To 20 Name = sh.Range("A" & r) Num = Application.VLookup(Name, Table, 1, False) If IsError(Num) Then sh.Range("D" & r) = "áÇÊæÌÏ ÈíÇäÇÊ" Else sh.Range("D" & r) = Num End If Next End Sub رابط هذا التعليق شارك More sharing options...
أبوبلقيس قام بنشر مارس 15, 2014 مشاركة قام بنشر مارس 15, 2014 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 15, 2014 الكاتب مشاركة قام بنشر مارس 15, 2014 السلام عليكم جزاك الله كل خير وجعلها الله في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.