كود التفقيط – ج1 اللغة العربية

مروان طاهات Mant

مروان طاهات Mant

مروان طاهات Mant

مروان طاهات Mant

مروان طاهات Mant

مروان طاهات Mant

اسم هذه الدالة هو اختصار لـ "Vertical Lookup" (البحث العمودي) وهي تُستخدم للبحث في عمود محدد عن قيمة محددة حسب الصفوف، وعند العثور على تلك القيمة تقوم بإرجاع ما يقابلها في العمود الثاني (الذي نقوم بتحديده في الصيغة أيضًا). يمكنك تشبيه عمل هذه الدالة بدليل الهاتف، حيث تقوم بالبحث عن رقم شخص محدد بالبحث عن اسمه أولا في عمود الأسماء، وعندما تجد الاسم المطلوب تعثر على الرقم الذي يقابله في العمود الثاني (عمود الأرقام).

البناء العام لصيغة الدالة

VLOOKUP (lookup_value; table_array; col_index_num; [range_lookup])

lookup_value: القيمة التي تريد البحث عنها. يجب أن تكون هذه القيمة موجودة في العمود الأول لنطاق الخلايا الذي نحدده في table_array. هذا المُعطى argument وجوده ضروري في الصيغة.
table_array: ويمثل نطاق الخلايا الذي يحتوي البيانات التي تبحث فيها الدالة. وهذا المعطى وجوده ضروري أيضًا.
col_index_num: رقم العمود في نطاق الخلايا table_array الذي يحتوي على القيمة التي سيتم إرجاعها. وجوده مطلوب في الدالة.
range_lookup: هذا المعطى هو عبارة عن قيمة منطقية logical تحدد من خلالها فيما إذا كنت تريد من دالة VLOOKUP البحث عن تطابق تام (بإدخال القيمة FALSE) أو تطابق تقريبي (بإدخال القيمة TRUEE) مع قيمةlookup_value، ووجوده اختياري في الصيغة.

ملاحظة: عند استخدام القيمة المنطقية TRUE يجب أن يكون العمود الأول في نطاق الخلايا table_array مرتبا تصاعديا لكي يتم إرجاع قيمة صحيحة.

مثال 1

الجدول أدناه يحتوي على بيانات الموظفين لشركة ما. عدد صفوف الجدول هو 100 صف تقريبا. في مثل هذه الجداول الكبيرة (وما يفوقها) قد يكون من المضيعة للوقت البحث في كل صف من صفوف الجدول إذا رغبنا في العثور على معلومة معينة. وسيكون الأمر أسهل وأسرع بكثير باستخدام دالة VLOOKUP. المطلوب هنا هو العثور على قسم ومقدار راتب الموظف صاحب البطاقة رقم 100، والموظف صاحب البطاقة رقم 65.

نضع المؤشر في الخلية التي نريد إرجاع القيمة الأولى فيها، وهي الخلية H2 في هذا المثال، ثم نذهب إلى تبويب:

صيغ Formulas > بحث وإشارة Lookup & Reference > VLOOKUP

في مربع الحوار Function Arguments نقوم بتحديد معطيات الدالة:

في الحقل الأول، lookup_value، نحدد القيمة التي نريد البحث عنها، وهي رقم البطاقة "100" في هذا المثال، لذلك سنحدد الخلية G2 التي تحتوي هذه القيمة.
في الحقل الثاني، table_array، نحدد نطاق الخلايا الذي يحتوي بياناتنا. في هذا المثال سنحدد الجدول بأكمله (A1:D100).
في الحقل الثالث، col_index_num، ندخل رقم العمود الذي يحتوي على القيمة التي سيتم إرجاعها، وبما إننا نريد العثور على "قسم" الموظف، فسنقوم بإدخال الرقم "3"، وهو تسلسل عمود "القسم" في الجدول من اليمين إلى اليسار (أي أنّ تسلسل عمود "رقم بطاقة الموظف هو"1"، عمود "تاريخ التوظيف" هو "2"، وهكذا). إذا كان اتجاه الورقة من اليسار إلى اليمين نقوم بحساب رقم العمود من اليسار إلى اليمين.
في الحقل الرابع، range_lookup، نقوم بإدخال الرقم صفر (والذي يعني القيمة المنطقية FALSE) لأننا نبحث عن تطابق تام مع الرقم "100"، وليس تطابق تقريبي، بسبب وجود أرقام قريبة من رقم "100" في عمود "رقم بطاقة الموظف".

ننقر على OK، وسيتم العثور على قسم صاحب البطاقة رقم 100 فورا، وهو قسم "الخدمات":

تفسير عمل الصيغة

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

نكرر نفس الخطوات للعثور على مقدار راتب الموظف صاحب البطاقة رقم "100"، وستكون المعطيات كما موضّح في الصورة التالية:

قمنا بإدخال الرقم "4" في الحقل الثالث لأنّ تسلسل عمود "الراتب" في الجدول هو الرابع. وكما في الخطوة السابقة، يتم إيجاد النتيجة في الخلية G2:

الخطوات نفسها تنطبق على رقم البطاقة "65".

مثال 2

الجدول أدناه يحتوي على درجات اختبارين لمجموعة من الطلاب، مع متوسط الدرجات. المطلوب هو إيجاد تقدير كل طالب باستخدام دالة VLOOKUP:

بالتأكيد يمكننا إدخال التقديرات يدويا لكل طالب اعتمادًا على قيمة المتوسط، لكن كما ذكرنا، تسّهل دالة VLOOKUP العمل وتختصر الكثير من الوقت.

ملاحظة: قمنا بترتيب القيم في عمود "الدرجة" (وهو العمود الأول من نطاق الخلاياtable_array) تصاعديا لأننا سنستخدم القيمة المنطقية TRUE في حقلrange_lookup.

نحدد الخلية التي نريد إرجاع النتيجة فيها، وهي الخلية E2 في هذا المثال، ثم نذهب إلى تبويب:

صيغ Formulas > بحث وإشارة Lookup & Reference < VLOOKUP

في الحقل الأول نحدد القيمة التي نريد البحث عن التقدير الذي يقابلها، وهي قيمة المتوسط للطالب الأول، 82، في هذا المثال (أي الخلية D2).
في الحقل الثاني نحدد نطاق الخلايا الذي سيتم البحث عن التقدير المناسب فيه، وهو النطاق H1:I7.
في الحقل الثالث نحدد رقم العمود الذي يحتوي على القيمة التي سيتم إرجاعها. وبما أنّ تسلسل عمود "التقدير" هو الثاني في نطاق الخلايا، سندخل الرقم "2".
في الحقل الرابع ندخل الرقم 1 (والذي يعني القيمة المنطقية TRUE) أو نتركه فارغًا، وفي الحالتين سيتم إرجاع نفس النتيجة. السبب في أنّنا اخترنا القيمة TRUE هو أننا نبحث عن تطابق تقريبي مع القيم في عمود "الدرجة" وليس تطابق تام.

ننقر على OK وسيتم إرجاع التقدير الذي يقابل قيم المتوسط:

تفسير عمل الصيغة

ستقوم الصيغة بالبحث عن القيمة "82" أو أقرب أقل قيمة إليها، وعند إيجادها، تقوم بإيجاد ما يقابلها في عمود "التقدير"، ومن ثم إرجاع النتيجة في الخلية E2.

نستخدم التعبئة التلقائية لنسخ الصيغة إلى بقية خلايا عمود "التقدير":

بعد نسخ الصيغة، نلاحظ حدوث خطأ في إيجاد القيم للخلايا من E7 إلى E23، والسبب هو أنّ البرنامج استخدم نطاق الخلايا H1:I7 كمرجع نسبي relative reference. لذلك سنعيد إدراج الصيغة ونستخدم نطاق الخلايا المذكور كمرجع مطلق absolute reference بوضع مؤشر الكتابة فوق اسم الخلية والنقر على مفتاح F4 (أو بكتابة علامة الدولار قبل وبعد حرف العمود يدويا من لوحة المفاتيح)

هذه المرة سيتم إيجاد قيم صحيحة في عمود "التقدير" بأكمله عند استخدام التعبئة التلقائية:

أو بدلا من استخدام نطاق الخلايا (H1:I7) كمرجع مطلق وتحديده يدويا كلما أردنا استخدام الدالة، نقوم بتسميته باسم مخصص. وبذلك نستطيع استخدام اسم النطاق في الصيغة. نحدد نطاق الخلايا، ندخل الاسم المرغوب في حقل الاسم (قمنا بتسميته بـ "التقدير")، ثم نضغط Enter:

في المرة المقبلة، عندما نقوم بإدراج دالة VLOOKUP (أو أيّة دالة أخرى يُستخدم فيها ذلك النطاق)، نقوم بإدخال اسمه بدلًا من تحديده على الورقة:

هذه الطريقة هي أفضل وأكثر كفاءة، وتجعلنا نتلافى الأخطاء التي قد تحدث عند استخدام نوع المرجع غير المناسب.

HLOOKUP

تعمل دالة HLOOKUP (اختصارا لـ Horizontal Lookup) بالضبط كما تعمل دالة VLOOKUPP فيما عدا أنّها تقوم بالبحث عن القيم أفقيا وليس عموديا (أي تبحث عن قيمة محددة في صف محدد حسب أعمدة ذلك الصف).

البناء العام لصيغة الدالة

HLOOKUP(lookup_value; table_array; row_index_num; [range_lookup])

lookup_value: هي القيمة التي تريد البحث عنها. يجب أن تكون هذه القيمة موجودة في الصف الأول لنطاق الخلايا الذي سنحدده في حقل table_array. وهذا المعطى مطلوب في الصيغة.
table_array: وهو نطاق الخلايا الذي يحتوي البيانات التي تبحث فيها الدالة. وهذا المعطى مطلوب في الصيغة أيضًا.
row_index_num: رقم الصف في نطاق الخلايا table_array الذي يحتوي على القيمة التي سيتم إرجاعها. وجوده مطلوب في الصيغة.
range_lookup: هذا المعطى هو عبارة عن قيمة منطقية logical تحدد فيما إذا كنت تريد من دالة HLOOKUP البحث عن تطابق تام (بإدخال القيمة FALSE) أو تطابق تقريبي (بإدخال القيمة TRUE) مع قيمةlookup_value، ووجوده اختياري في الصيغة.

ملاحظة: عند استخدام القيمة المنطقية TRUE يجب أن يكون الصف الأول في نطاق الخلايا table_array مرتبا تصاعديا لكي يتم إرجاع قيمة صحيحة.

مثال

الجدول التالي يحتوي على تواريخ بدء وانتهاء مجموعة من المشاريع. المطلوب هو إيجاد تاريخ انتهاء المشروع رقم 5. بالطبع يمكننا العثور عليه بسهولة في مثل هذا الجدول الصغير، لكن سيصبح الأمر أكثر صعوبة في الجداول الكبير. على كل حال، سنستخدم دالة HLOOKUP للعثور على القيمة المطلوبة.

أولا، نحدد الخلية التي نريد إرجاع النتيجة فيها، وهي الخلية B9 في هذا المثال، ثم نذهب إلى تبويب:

صيغ Formulas > بحث وإشارة Lookup & Reference < HLOOKUP

في مربع الحوار Function Arguments نقوم بتحديد المعطيات:

في الحقل الأول، lookup_value، نحدد القيم التي نريد البحث عنها، وهو رقم المشروع "5" في هذا المثال. لذلك سنحدد الخلية B8 التي قمنا بإدخال هذا الرقم فيها مسبقا.
في الحقل الثاني، table_array، نحدد نطاق الخلايا الذي سيتم البحث فيه، وهو A1:I13 في هذا المثال.
في الحقل الثالث، row_index_num نقوم بإدخال رقم تسلسل الصف الذي يحتوي على النتيجة التي سيتم إرجاعها. وفي هذا المثال هو صف "تاريخ الانتهاء"، تسلسله الثالث (3).
في الحقل الرابع، lookup_range نقوم بإدخال الرقم صفر (أي القيمة المنطقية FALSE) لأننا نريد البحث عن قيمة مطابقة تماما للقيمة في حقلlookup_value:

ننقر على OK وسيتم إرجاع تاريخ الانتهاء للمشروع رقم 5:

تفسير عمل الصيغة

ستقوم الصيغة بالبحث في صف "المشروع" عن الرقم 5، وعند العثور عليه ستقوم بإيجاد القيمة المقابلة لهذا الرقم في الصف المحدد في حقل row_index_num، وهو الصف الثالث في مثالنا، ومن ثم إرجاع النتيجة في الخلية B9.

يجب أن تأخذ في الاعتبار أنّه إذا كانت قيمة lookup_range تساوي TRUE، ولم تتمكن الدالة من العثور على قيمة lookup_value فستقوم بإرجاع أقرب أقل قيمة من قيمة lookup_value.

مثال 2

إذا كنا نريد معرفة تاريخ البداية للمشروع رقم "9" (والذي هو في الحقيقة غير موجود في الجدول) ستكون الصيغة كالتالي:

وستكون النتيجة كالتالي:

تفسير عمل الصيغة

قامت الصيغة بالبحث عن الرقم "9" في صف "المشروع"، وقد تعذّر عليها إيجاده، لذلك قامت بإرجاع "تاريخ البدء" للمشروع رقم "8" وهو أقرب أقل قيمة من الرقم "9". وهذا بسبب أننا قمنا بإدخال القيمة المنطقية TRUE (أي البحث عن تطابق تقريبي).

أما إذا قمنا بتحديد القيمة المنطقية FALSE، فستكون النتيجة خطأ #N/A، لأنّ الدالة في هذه الحالة ستبحث عن تطابق تام:

مروان طاهات Mant

دالة التفقيط للغة العربية

كود التفقيط – ج1 اللغة العربية

Hussein.B 21 تعليقات 53,609 زيارة

السلام عليكم, يعتبر كود التفقيط من أهم اكواد VBA كونه يحل مشكلة شائعة عند مستخدمي برنامج Excel من مختلف اللغات والمتمثلة بتحويل اي رقم عددي الى نص مما يساهم في حل مشكلة طباعة المستندات المالية رقماً ونصاً كما في حالة الشيكات او الفواتير وماشابه.
اعتقد ان كتابة هكذا كود ليتناسب مع طبيعة اللغة العربية (من تذكير وتأنيث) يُعتبر أمراً صعب جداً فما بالك اذا كان هذا الكود يأخذ بعين الاعتبار امكانية تغيير اسم العملة للرقم الصحيح وكذلك الجزء العشري (الكسر). اعتقد أن المهمة هنا ستكون اصعب واصعب. الكود الذي سأطرحه من كتابة الأستاذ المبدع عبد الله باقشير وقد تم طرحه في موقع أوفيسنا عام 2011. لقد قمت بتعديلات طفيفة جداً على الكود كالتالي,

تغيير اسم الدالة الافتراضي لسهولة الكتابة والتذكر,
تغير القيم الافتراضيّة للدالة للعملة السعودية (لا يوجد عملة افتراضيّة في الكود الاصلي),
تغيير ترتيب مدخلات الدالة لسهولة التذكر.

كود التفقيط:

يمكنك نسخ كود التفقيط من صندوق الكود التالي او تحميل ملف المثال من آخر المقالة,

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

Option Explicit

'========================================================"

'                بسم الله الرحمن الرحيم                     "

' تم تحميل هذا الكود من الرابط التالي

' http://www.officena.net/ib/topic/39447-%D8%AF%D8%A7%D9%84%D8%A9-%D8%AA%D9%81%D9%82%D9%8A%D8%B7-%D8%AA%D8%AD%D9%88%D9%8A%D9%84-%D8%A7%D9%84%D8%B1%D9%82%D9%85-%D8%A7%D9%84%D9%89-%D9%86%D8%B5-%D8%A8%D8%A7%D9%84%D8%B9%D8%B1%D8%A8%D9%8A-%D8%B7%D9%88%D9%84-%D8%A7%D9%84%D8%B1%D9%82%D9%85-%D8%BA%D9%8A%D8%B1-%D9%85%D8%AD%D8%AF%D9%88%D8%AF/

' الكود من كتابة السيد عبد الله باقشير بتاريخ 27/11/2011

' تم التعديل على اسم الكود مع القيم الافتراضية للتتناسب مع العملة السعودية

' كذلك تم تعديل ترتيب مدخلات الدالة لسهولة الحفظ للمستخدم النهائي

' تم التعديل من قبل حسين بلال بتاريخ 22/2/2016

' husseinb[at]viaexcel.com

' www.viaexcel.com

' CurrText

'========================================================"

'      (دالة تحويل الرقم الى نص باللغة العربية (تفقيط      "

'                     kh_TextNum                         "

'========================================================"

'Num                     الرقم                           "

'========================================================"

'Sex                   جنس العملة                        "

'        FALSE   ( أو فارغ او صفر مذكر )                 "

'        TRUE   (  أو اي رقم غير الصفر مؤنث )             "

'========================================================"

'NCurr_Si        اسم العملة الرئيسية مفرد                "

'NCurr_Pl          اسم العملة الرئيسية جمع                "

'NCurrDec_Si           اسم العملة الكسرية                "

'Decimal_Count  طول الكسر افتراضـياً : بدون اظهار الكسر    "

'========================================================"

'            : للدلالة على تفقيط الكسر عين التالي            "

'NCurrDec_pl       اسم العملة الكسرية جمع                 "

'dSex               جنس عملة الكسر                       "

'        FALSE   ( أو فارغ او صفر مذكر )                 "

'        TRUE   (  أو اي رقم غير الصفر مؤنث )             "

'========================================================"

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

'                       ملاحظات

'  (اولاً : اذا اسم العملة ينتهي بالتاء المربوطة

'              يجب ان يكتب كذلك وليس بالهاء

'                -----------------------

'      ثانياً : العملة الافتراضية هي العملة السعودية

'               وجنس العملة والكسر مؤنث

'                -----------------------

'("" ثالثاً : امكانية إضافة كلمة بداية ونهاية النص (فارغة

Private Const MyBegTx As String = ""

Private Const MyEndTx As String = " فقط لاغير"

'                -----------------------

' MyTNum  رابعا : يمكنك التغيير (اضافة,حذف,تحرير) في الثابت

'             للفئات الصفرية للرقم ادناه

Private Const MyTNum As String = "ألف-آلاف/مليون-ملايين/مليار-مليارات/بليون-بلايين/بليار-بليارات/ترليون-ترليونات/تريليار-تريليارات/كدرليون-كدرليونات"

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

'==============================================================================================================================================="

Private Const wow As String * 2 = " و"

'==============================================================================================================================================="

Function CurrText(Num As String, _

Optional Sex As Boolean = True, _

Optional NCurr_Si As String = "ريال", _

Optional NCurr_Pl As String = "ريالات", _

Optional dSex As Boolean = True, _

Optional NCurrDec_Si As String = "هللة", _

Optional NCurrDec_Pl As String = "هللات", _

Optional Decimal_Count As Byte = 2) _

As String

'======================================

Dim Spp, zt

Dim i%, ii%, pr%

Dim MyMid$, nCurr$, Txt$, Txt1$, Txt2$

'======================================

If Not IsNumeric(Num) Then GoTo kh_Exit

If Num = 0 Then Txt = MyBegTx & "صفر " & NCurr_Si: GoTo kh_Exit

'======================================

Spp = Split("/" & MyTNum, "/")

ii = UBound(Spp)

If Num < 0 Then Num = Abs(Num)

'======================================

If Val(Num) > Val(String((ii + 1) * 3, "9") & ".999") Then GoTo kh_Exit

'======================================

nCurr = NCurr_Si & "-" & IIf(NCurr_Pl = "", NCurr_Si, IIf(NCurr_Si = "", "", NCurr_Pl))

'======================================

Txt1 = Format(Num, String((ii + 1) * 3, "0") & ".000")

For i = 0 To ii

    MyMid = Mid(Txt1, (i * 3) + 1, 3)

    If MyMid Then

        zt = Mid(Txt1, (i * 3) + 4, Len(Txt1))

        zt = IIf(ii - i, Int(zt), 1)

        Txt2 = IIf(ii - i, Trim(Spp(ii - i)), nCurr)

        pr = 1 + IIf(ii - i, 1, CInt(Sex))

        Txt = Txt & IIf(Len(Txt), wow, "") & kh_nText(MyMid, Txt2, pr, zt, CBool(NCurr_Si <> ""))

    End If

    If i = ii Then If MyMid = 0 Then Txt = Txt & IIf(Len(Txt), " " & NCurr_Si, IIf(Decimal_Count = 0, "صفر", ""))

Next

'======================================

Txt = MyBegTx & Txt & kh_dText(Num, NCurr_Si, Trim(NCurrDec_Si), Decimal_Count, Trim(NCurrDec_Pl), dSex) & MyEndTx

'======================================

kh_Exit:

CurrText = Trim(Txt)

End Function

'    معالجة العدد من 1 الى 999   لكل فئات الرقم

Private Function kh_nText(ByVal iNum As String, ByVal oMm As String, ByVal ibs As Integer, ByVal Z As Boolean, ByVal tCu As Boolean) As String

Dim Sp

Dim Num1%, Num2%, Num3%

Dim oM$, S$, S1$, nT$, nT0$, nT1$, nT2$

'======================================

Sp = Split("واحد,إحدى,اثنتان,ثلاث,أربع,خمس,ست,سبع,ثمان,تسع,عشر,إحدى ,اثنتا ", ",")

'======================================

If ibs Then S = "ة": Sp(1) = Sp(0): Sp(2) = "اثنان": Sp(11) = "أحد ": Sp(12) = "اثنا " Else S1 = "ة"

oM = Trim(Split(oMm, "-")(0))

'======================================

Num1 = Left(iNum, 1)

Num2 = Right(iNum, 2)

Select Case Num1

    Case 1:      nT0 = "مائة"

    Case 2:      nT0 = "مائتا" & IIf(ibs = 2, IIf(Num2 < 3, "", "ن"), IIf(Num2 = 0 And oM <> "", "", "ن"))

    Case 3 To 9: nT0 = Sp(Num1) & "مائة"

End Select

'=========================================

Num1 = Right(iNum, 2)

Select Case Num1

    Case 1, 2:     If nT0 <> "" Then If ibs = 2 Then nT0 = nT0 & " " & oM

    Case 11 To 99: If oM <> "" Then If ibs Then If Z Then oM = oM & "اً"

End Select

'-----------------------------------------

Select Case Num1

    Case 1

        nT = IIf(oM = "", Sp(0) & S1, oM)

        oM = IIf(ibs <> 2 And oM <> "", Sp(0) & S1, "")

    Case 2

        nT = IIf(oM = "", Sp(Num1), Replace(oM, "ة", "ت") & IIf(Z = 0 And ibs = 2 And tCu, "ا", "ان"))

        oM = IIf(ibs <> 2 And oM <> "", Sp(Num1), "")

    Case 3 To 10

        oM = Trim(Split(oMm, "-")(1))

        nT = Sp(Num1) & S

    Case 11, 12

        nT = Sp(Num1) & Sp(10) & S1

    Case 13 To 19

        nT = Sp(Num1 - 10) & S & " " & Sp(10) & S1

    Case 20 To 99

        Num2 = Right(Num1, 1)

        Num3 = Left(Num1, 1)

        If Num3 = 2 Then nT1 = "عشرون" Else nT1 = Sp(Num3) & "ون"

        nT2 = Sp(Num2) & IIf(Num2 > 2, S, "") & wow & nT1

        If Num2 = 0 Then nT2 = nT1

        nT = nT2

End Select

'======================================

S = IIf(nT = "" Or iNum < 100, "", wow)

nT = Replace(nT, Sp(8) & "ة", Sp(8) & "ية")

kh_nText = Trim(nT0 & S & nT & " " & oM)

'======================================

End Function

'            معالجة الكسر

Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte, ByVal Ndec_pl As String, ByVal dsx As Boolean) As String

Dim Td$, dwow$, Td1$

On Error GoTo 1

If co = 0 Then GoTo 1

If NCur = "" Then Ndec = ""

Td = Format(Round(CCur(dNum - Int(dNum)), co), "0." & String(co, "0"))

If Td = 0 Or Td = 1 Then Td1 = "": GoTo 1

If Int(dNum) Then dwow = wow

If Len(Ndec) Then

    Ndec = " " & Ndec

    Td1 = Td * CVar("1" & String(co, "0"))

    If Len(Ndec_pl) And co < 4 Then Td1 = dwow & kh_nText(Format(Td1, "000"), Ndec & "-" & Ndec_pl, 1 + CInt(dsx), 1, 0): GoTo 1

Else

    Ndec = " " & NCur: Td1 = Td

End If

Td1 = dwow & " " & Chr(40) & Td1 & Chr(41) & Ndec

1: kh_dText = Td1

End Function

ملاحظات على عمل كود التفقيط للغة العربية:

بعد اضافة الكود الى موديول Module في محرر الفجوال بيزك لديك VBA Editor (او بعد تحميل ملف المثال وفتحه), سيمكنك استخدام كود التفقيط المقترح من خلال ادراجه (اضافته) كدالة ضمن ورقة العمل.

بعض اكواد VBA يكون عملها (كهذا الكود) من خلال انشاء دالة مخصّصة جديدة Function يرمز لها بـ UDF والتي هي اختصار لـ User Defined Formula.

وبالتالي, كل ماعليك فعله هو تحديد المكان الذي تريد اظهار نتيجة كود التفقيط فيه ثم اتبع خطوات ادراج معادلة في اكسل Excel,

لاحظ أننا حددنا مجموعة المعادلات User Defined لنتمكن من اظهار هذه المعادلة المخصّصة. سيُظهر لنا اكسل Excel قائمة بكل الـ UDF المتاحة لنا, نختار معادلة كودنا المسماة CurrText (المشتقة من Currency Text)

ومن ثم تقوم بادخال بيانات المعادلة حسب ماسيتم توضيحه لاحقاً, ثم موافق.

مدخلات كود التفقيط للغة العربية:

معادلة كود التفقيط المقترحة تحتاج كحد ادنى لتحديد قيمة المبلغ المراد تفقيطه سواءاً بكتابته بشكل مباشر في متن (نص) المعادلة كما في المثال رقم 5 اعلاه أو من خلال تحديد خليّة المبلغ كما في المثال الثالث والرابع اعلاه. في هذه الحالة, سيتم تطبيق العملة السعودية (ريال / هللة) على النتيجة افتراضياً الا في حال قمت بتعديل القيمة الافتراضية للمعادلة لتناسب احتياجاتك (سيتم شرحه لاحقاً). كذلك يأخذ الكود بعين الاعتبار صيغة التذكير والتأنيث للمبلغ كأن نقول “اثنا عشر” او “اثنتا عشرة” بما يتناسب مع متطلبات المستخدم النهائي. قمت بتأنيث نتيجة المعادلة افتراضياً لكن يمكنك دائماً تغييرها خلال ادراج الدالة او بتغيير القيمة الافتراضية داخل الكود نفسه (سيتم شرحها لاحقاً)
باقي مدخلات المعادلة حسب الرسم التوضيحي اعلاه هي كالتالي,
- جنس العملة: اختياريّة, صفر او فارغة >> مذكر, اي رقم اخر >> مؤنث
- اسم العملة الرئيسية مفرد. اختياريّة, لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
- اسم العملة الرئيسية جمع. اختياريّة, لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
- جنس الجزء العُشري من الرقم (الكسر). اختياريّة, صفر او فارغة >> مذكر, اي رقم اخر >> مؤنث
- اسم العملة للجزء العُشري مفرد. اختياريّة, لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
- اسم العملة للجزء العُشري جمع. اختياريّة, لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
- عدد الخانات العشرية المراد قرائتها. اختياريّة.
الكود يضيف العبارة ” فقط لا غير” افتراضيّاً بعد المبلغ. يمكنك التعديل عليها (صيغةً ومكاناً) من داخل الكود كما سنرى لاحقاً.
في حالة كان اسم العملة ينتهي بتاء مربوطة, يجب كتابةً اسمها بتاء مربوطة وليس هاء. مثال, هللة وليس هلله لتجنب الاخطاء الاملائيّة.
في المثالين الأول والثاني اعلاه, قمت بادخال القيم المتناسبة مع العملة المصريّة لكنني غيرت جنس العملة لاظهار الفرق.

كيفية التعديل على القيم الافتراضية لكود التفقيط:

يمكنك تغيير بعض او جميع القيم الافتراضية لكود التفقيط المقترح لتناسب احتياجاتك كالتالي, بعد نسخ الكود الى محرر الفيجوال بيزك – VBA Editor لديك, يمكنك تعديل القيم حسب التالي,

0. اسم الكود في حال اردت تغييره.

اي نص تريد كتابته قبل القيمة المكتوبة. مثلاً “فقط ” (فقط مائة وخمسون….). يجب اضافة فراغ بعد العبارة التي قد ترغب باضافتها.
اي نص تريد كتابته بعد القيمة المكتوبة. مثلاً ” فقط لا غير” (مائة وخمسون ريال فقط لا غير). يجب اضافة فراغ قبل العبارة التي قد ترغب باضافتها.
هذا مكان المبلغ. لايمكنك التعديل هنا.
جنس العملة, False >> مذكر, True >> مؤنث.
اسم العملة الرئيسية مفرد. لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
اسم العملة الرئيسية جمع. لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
جنس الجزء العُشري من الرقم (الكسر). False >> مذكر, True >> مؤنث
اسم العملة للجزء العُشري مفرد. لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
اسم العملة للجزء العُشري جمع. لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
عدد الخانات العشرية المراد قرائتها. اختياريّة.

يجب التبنيه اخيراً انه وفي حالة اضفت هذه المعادلة داخل ملف العمل الذي يحوي الكود, ستظهر لك المعادلة كما هي مكتوبة اعلاه. اما لو حفظت الكود في ملف عمل آخر ومن ثم حاولت استخدام هذه المعادلة (يجب ان تكون ورقة العمل المذكورة مفتوحة الا في حال كان الكود محفوظاً في الملف الشخصي Personal, لمزيد من المعلومات حول هذه النقطة, راجع الروابط اسفل المقالة) فإنك ستحصل على المعادلة مسبوقة باسم ملف العمل الذي يحوي الكود. لا مشكلة اذا ان النتيجة ستكون هي ذاتها.

للتوضيح, في حال كنت تتسائل مثلي عن معنى كلمة تفقيط. فاعلم انها مشتقة من كلمة فَقَط وفعل فَقَّط والتي تعني (مثلاً فقّط الحساب) ختمه بكلمة « فقط » مع تعيين مقداره خوفا من التزوير

روابط مهمّة:

مصدر الكود
اضافة تبويب المطور Developer
حفظ الأكواد في ملف الماكرو الشخصي
يمكن انشاء اختصار وصول لادراج هذه الدالة مع المدخلات المناسبة لنا كما هو مشروح في هذه المقالة.
مصدر معنى كلمة “تفقيط”

أخيراً ملف المثال المذكور في المقالة.

الأربعاء، 31 مايو 2017

31/05/2017

الأحد، 28 مايو 2017

نجوم 23

الثلاثاء، 23 مايو 2017

الزرافه

كر بن حمار

الأربعاء، 17 مايو 2017

دهب للذهب

الاثنين، 15 مايو 2017

كود VLOOKUP

البناء العام لصيغة الدالة

مثال 1

تفسير عمل الصيغة

مثال 2

تفسير عمل الصيغة

HLOOKUP

البناء العام لصيغة الدالة

مثال

تفسير عمل الصيغة

مثال 2

تفسير عمل الصيغة

كود التفقيط – ج1 اللغة العربية

كود التفقيط – ج1 اللغة العربية

كود التفقيط:

ملاحظات على عمل كود التفقيط للغة العربية:

مدخلات كود التفقيط للغة العربية:

كيفية التعديل على القيم الافتراضية لكود التفقيط: