الامين
30-03-2002, 08:21 PM
اخواني من لديه خبرة في vb أرجو ان يساعدني في الصيغة التي تستخدم في اكسل
=IF(MOD(H2;10)=0;CHOOSE(INT(H2/10);"عشرة";"عشرون";"ثلاثون";"اربعون";"خمسون";"ستون";"سبعون";"ثمانون";"تسعون";"مائة");CONCATENATE(CHOOSE(MOD(H2;10);"إحدى";"اثنتان";"ثلاث";"اربع";"خمس";"ست";"سبع";"ثمان";"تسع");" و ";CHOOSE(INT(H2/10);"عشرة";"عشرون";"ثلاثون";"اربعون";"خمسون";"ستون";"سبعون";"ثمانون";"تسعون";"مائة")))
هذه الصيغة أعلاه هي تحول الارقام الى حروف وهي سليمة وبدون مشاكل للارقام من 20 الى 100 لكن الارقام من 1 الى 20 تخطيء هذه الصيغة فيها ارجو من الاخوة الذين لديهم خبرة في هذا المجال ان يقوم بالتصحيحات اللازمة لهذه الصيغة لكي تتمكن من تحويل الارقام الى حروف في الاكسل وللارقام من 1 الى 100 وحياكم الله
=IF(MOD(H2;10)=0;CHOOSE(INT(H2/10);"عشرة";"عشرون";"ثلاثون";"اربعون";"خمسون";"ستون";"سبعون";"ثمانون";"تسعون";"مائة");CONCATENATE(CHOOSE(MOD(H2;10);"إحدى";"اثنتان";"ثلاث";"اربع";"خمس";"ست";"سبع";"ثمان";"تسع");" و ";CHOOSE(INT(H2/10);"عشرة";"عشرون";"ثلاثون";"اربعون";"خمسون";"ستون";"سبعون";"ثمانون";"تسعون";"مائة")))
هذه الصيغة أعلاه هي تحول الارقام الى حروف وهي سليمة وبدون مشاكل للارقام من 20 الى 100 لكن الارقام من 1 الى 20 تخطيء هذه الصيغة فيها ارجو من الاخوة الذين لديهم خبرة في هذا المجال ان يقوم بالتصحيحات اللازمة لهذه الصيغة لكي تتمكن من تحويل الارقام الى حروف في الاكسل وللارقام من 1 الى 100 وحياكم الله