يا اخوان الداله if ما تقبل غير 6 شروط طيب ايش الحل

[royal2a]

اخواني السلام عليكم

انا عندي 9 ارقام 1,2,3,4,5,6,7,8,9

كل رقم منها يواجهه حرف 1=a

2=b

3=c

4=d

5=e

6=f

7=g

8=h

9=i

وضعت 9 خانات فوق يتم وضع رقم في كل خانه ووضعت 9 خانات تحتها للنتائج

بحيث لو اقوم بوضع رقم 1 مثلا يعطيني حرف a في خانة النتائج

اكتشفت ان الداله if لا تعمل الى على 6 حالات وانا عندي 9 حالات

ما العمل لكي تقبل 9 حالات حتى لو vba

شاكرا لكم المساعده

[هادى محمد المامون سالم]

لماذا لا تستخدم Lookup

[فلسطيني]

أخي الكريم السلام عليكم ورحمة الله

يمكنك أيضا استخدام choose

ضع ما يلي في الخلية b1 ثم اختر الرقم من a1

=CHOOSE(A1,"a","b","c","d","e","f","g","i","h","j")

[royal2a]

اخي فلسطيني

اشكرك من اعماق قلبي وفقك الله وجزيت خيرا

لسي سؤال على نفس الموضوع

هل هناك كود vba يمكن عمله لاجراء نفس العمليه من خانه واحده بدلا من رقم لكل خانه ..؟

[أبو هادي]

السلام عليكم

تستطيع أن تستخدم هذه الدالة :

= CHAR(1 + 96)

مع ملاحظة أنه يجب إضافة رقم 96 مع أي رقم تريده . مثلا إذا أردت رقم 1 ستكتب 1 + 96 وإذا أردت رقم 9 ستكتب 9 + 96 كذلك هذه دالة بالفجوال :

Function GetLetter(ByVal Num As Integer) As String
 'GetLetter = Chr(Num + 64) ' for capital letters
  GetLetter = Chr(Num + 96) ' for small   letters
End Function

تحياتي .

[royal2a]

اخي ابو هادي السلام عليكم

يبدوا انه لم تفهم شرحي للطلب او اني لم افهم شرحك

انا اود اكتب ارقام من 1 الى 9 تقابلها حروف من a - i

والاخ فلسطيني الله يجزيه الخير اعطاني طريقة الداله وكان سؤالي :بطريقة الاخ فلسطيني

فانا مضطر الى كتابة رقم في كل خانه ليعطيني الحرف في الخانه المقابله

هل توجد طريقه لعملها في خانه واحده مثلا:

2412345

bdabcde

بطريقة vba او داله

ارجو ان اكون استطعت التوضيح لكم وشكرا

تم تعديل أبريل 23, 2006 بواسطه royal2a

[أبو هادي]

السلام عليكم

Function GetStr(ByVal Num As Variant) As String
  Dim Ln As Integer, K As Integer
  Dim NewStr As String
  
  GetStr = ""
  If Not IsNumeric(Num) Then Exit Function
  
  Ln = Len(Num)
  For K = 1 To Ln
    NewStr = NewStr & Chr(Mid(Num, K, 1) + 96)
  Next K
  
  GetStr = NewStr
End Function

تحياتي .

[royal2a]

اخي ابو هادي زادك الله من واسع علمه وخلف عليك

هل لي ان اطمع منك ان اسؤالك

هل استطيع عمل هذا الكود لكلمه سريه مثلا

whatever

بحيث يكون w=1 h=2 t=3 e=4 v=5 e=4 r=5

ويكون عنوان الخانه المراد الكتابه بها A1

وعنوان خانة نتيجة الادخال C1

اعلم اخي العزيز اني ثقلت عليك وارجو مساعدتك

وشكرا