السلام عليكم ورحمة الله وبركاته
أهلاً بكم إخواني وأحبابي في الله
سؤال مطروح عليكم : ه
ل تحبون منتدى أكاديمية الصقر للتدريب؟
لا أطلب منكم الإجابة بنعم أو بلا .. ولا أريد ردود تقليدية !!
ماذا تريد إذاً يا ابن أبي خليل ..؟! يومك مش معدي يا جميل !!
ستكون الإجابة لمن يريد المشاركة .. الإجابة ستكون من خلال الأكواد .. أينعم من خلال الأكواد أو المعادلات ، كما تريد
وأبدأ بأولى المشاركات في الموضوع وإليكم الكود التالي ..
ولكن قبل نسخ الكود قم بضبط ورقة العمل بشكل معين .. اجعل ارتفاع الصف 50 وعرض العمود 100 وحجم الخط 40
ثم انسخ الكود التالي في موديول عادي ثم ارجع لورقة العمل ، واضغط Alt + F8 واختر اسم الماكرو Test ثم انقر Run لتنفيذ الكود
CODE
Sub Test()
Dim x As Variant
Dim s As String
Dim i As Long
x = Array(70, 65, 76, 67, 79, 78, 32, 65, 67, 65, 68, 69, 77, 89)
For i = LBound(x) To UBound(x)
s = s & Chr(x(i))
Next i
With Range("A1")
.Value = "I Y " & s
With .Characters(Start:=3, Length:=1).Font
.Name = "Webdings": .Color = 255
End With
End With
End Sub
رابط الملف من هنا
كان معكم أخوكم في الله / ياسر خليل أبو البراء
هل تحب منتدى أكاديمية الصقر للتدريب؟
FALCON ACADEMY
هل تحب منتدى أكاديمية الصقر للتدريب؟
