مدونة العمل الحر

استخراج الأرقام من النصوص في الأكسيل الوظيفة التي سيتم استخدامها  Function DigitsOnly(s As String) As String     Dim retval As String       Dim i As Integer         retval = ""     For i = 1 To Len(s)         If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then             retval = retval + Mid(s, i, 1)         End If     Next     DigitsOnly = retval End Function   يرجى استخدمها كما في الشرح

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