• 0
مسترعربي

تحويل النص الى عدة حقول

سؤال

السلام عليكم 

المثال المرفق يحتوي على جدولين الاول يحتوي على اسماء اشخاص يتكون من الاسم الاول و اسم الاب و اسم الجد و اسم العائلة 

و الجدول الثاني يحتوي على جدول متكون من عدة حقول 

المطلوب : تحوي النص في الجدول الاول الى عدة حقول مثل داله Text to Columns   بالاكسل .

 

 

تحيايتي

 

text to columns.accdb

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

هذه الدالة تعطيك ما تريد و بدون الحاجة الى جدول ثانى 

يمكنك عرض اى جزء تريده فى استعلام او نموذج 

 

Function Text2Columns(AnyName As String, NumberOfPart As Byte) As String
Dim TheSpaceNumber As Byte

Dim I As Integer, U As Integer
Clear_Extra_Spaces:
'=================
  If InStr(1, AnyName, "  ", 1) > 0 Then
       AnyName = Replace(AnyName, "  ", " ")
       GoTo Clear_Extra_Spaces
  End If
Text2Columns = ""
If AnyName = "" Then Exit Function

Do
    U = I
    I = InStr(I + 1, AnyName, " ", 1) 'find number of spaces in the name
    If I <> 0 Then
        TheSpaceNumber = TheSpaceNumber + 1
        If TheSpaceNumber = NumberOfPart Then Exit Do
    ElseIf TheSpaceNumber + 1 = NumberOfPart Then
        I = Len(AnyName) + 1
        Exit Do
    Else
        Exit Function
    End If
Loop
    
    Text2Columns = Trim(Mid(AnyName, U + 1, I - U - 1))
End Function


 

text to columns.accdb

تم تعديل بواسطه mrnooo2000
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الشكر موصول بالدعاء لكم 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .