اذهب الي المحتوي
أوفيسنا

جعل الكسر يظهر بخط أصغر من الرقم الصحيح


ASSOUSI

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

اخواني المشرفين على البرنامج اطلب منكم كيفية

تنسيق الأرقام العشرية مثلا العدد الصحيح كبير والعدد بعدة الفصلة صغير 11,95 

وجزاكم الله خيرا

تحياتي
 

 

Data.rar

 

رابط هذا التعليق
شارك

13 ساعات مضت, ASSOUSI said:

تنسيق الأرقام العشرية مثلا العدد الصحيح كبير والعدد بعدة الفصلة صغير 11,95 

هل تريد ان يظهر هكذا

Capture.PNG.259576f2559c9fe5bcdc6d242f7f9efd.PNG

انا استخدمت هذا

=IIf(Len([Champ1] & "")=0;"";"<div align=right dir=RTL><font size=4>" & ParseText([Champ1];0) & "</font>.<font size=2>" & ParseText([Champ1];1) & "</font></div>")

مع هذا فانكشن

Public Function ParseText(TextIn As String, X) As Variant
On Error Resume Next
Dim var As Variant
var = Split(TextIn, ".", -1)
ParseText = var(X)
End Function

 

Data.rar

  • Like 3
رابط هذا التعليق
شارك

12 ساعات مضت, ASSOUSI said:

لاكن انظر  الدالة لا تعمل عندي

السبب يرجع لاننا نستخدم هذا الرمز ( . ) بين الرقمين و حضرتك استخدمت هذا ( , ) 
ولكي يعمل عند يجب عليك ان تستخدم هذا الرمز ( . ) او يجب ان تفتح فانكشن وتغير الرمز "." في هذا السطر الى رمز انت تريد 
 

var = Split(TextIn, ".", -1)

 

رابط هذا التعليق
شارك

مشاركة مع اخي شفان:smile:

 

عملت تعديل على الوحدة النمطية لتأخذ جميع انواع الفواصل

Public Function ParseText(TextIn As String, X) As Variant
On Error Resume Next

    Dim var As Variant
    Dim delim As String
    
    For i = 1 To Len(TextIn)
        If Not IsNumeric(Mid(TextIn, i, 1)) Then
            delim = Mid(TextIn, i, 1)
            Exit For
        End If
    Next i
    
    var = Split(TextIn, delim, -1)
    ParseText = var(X)
    
End Function

.

وانا افضل لو نعمل كود الحقل في الوحدة النمطية مباشرة كذلك ، لأنك ستحصل على النتائج بضعف السرعة (اسرع مرتين) ، لأنك ستنادي الوحدة النمطية مرة لكل حقل:smile:

 

جعفر

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

11 ساعات مضت, jjafferr said:

وانا افضل لو نعمل كود الحقل في الوحدة النمطية مباشرة كذلك ، لأنك ستحصل على النتائج بضعف السرعة (اسرع مرتين) ، لأنك ستنادي الوحدة النمطية مرة لكل حقل

شكرا على التعديل 

وشكرا لمشاركتك
ونشكرك اذا تكمل الموضوع :smile:

رابط هذا التعليق
شارك

Public Function Parse_to_Rich_Text(TextIn As String) As String

    Dim var() As String
    Dim delim As String
    Dim i As Integer
    Dim T As String
    
    
    'Exit when No value
    If Len(TextIn & "") = 0 Then
        Parse_to_Rich_Text = ""
        Exit Function
    End If
    
    'get the delimiter separator
    For i = 1 To Len(TextIn)
        If Not IsNumeric(Mid(TextIn, i, 1)) Then
            delim = Mid(TextIn, i, 1)
            Exit For
        End If
    Next i
    
    'split the text to two values
    var = Split(TextIn, delim)
    
    
    T = "<div "             'Start, Make HTML code
    
    'Left side
    T = T & "<font"         'font info, First Line
    T = T & " size=4"       'size
    T = T & ">"             'close
    T = T & "</font>"       'font info, Last Line
    T = T & " <b>"          'Bold, begin
    T = T & var(0) & delim  'Text
    T = T & "</b>"          'Bold, Close
    
    'Right side
    T = T & "<font"
    T = T & " size=2"
    T = T & " color=red"
    T = T & ">"
    T = T & var(1)
    T = T & "</font>"
    
    T = T & "</div>"        'Close, Make HTML code
    'Debug.Print T
    
    Parse_to_Rich_Text = T
    
End Function

 

878.Clipboard01.jpg

878.Clipboard02.jpg

 

اوامر HTML التي يمكننا استعمالها في حقل Rich Text في الاكسس:

https://support.office.com/en-us/article/Insert-or-add-a-rich-text-field-9f86237d-dbbc-4a85-b12c-9d8dca824630?CorrelationId=e5ac3d8a-72c2-4ac2-8f74-c70704f01a2f&ui=en-US&rs=en-US&ad=US&ocmsassetID=HA010014097

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

https://www.w3schools.com/TAgs/default.asp

 

جعفر

 

878.RichText.accdb.zip

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

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

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



سجل دخولك الان
×
×
  • اضف...

Important Information