كود بسيط جدا لتنفيذ أي كود آخر في البرنامج في أي وقت تريد

 

إكسل vba/ الدرس 326 / كود بسيط جدا لتنفيذ أي كود آخر في البرنامج في أي وقت تريد !!؟؟

كود تنفيذ أي كود آخر في أي وقت

Sub code0()

On Error Resume Next

Dim t As String, x As String

x = InputBox("ادخل اسم الكود:", "اسم الكود", "code")

t = InputBox("ادخل وقت التنفيذ:", "تنفيذ كود محدد", "00:00:00")

Application.OnTime Now + TimeValue(t), x

End Sub

كود حصري. إدراج صورة داخل أي خلية تريدها وحذفها من خلال الفورم بضغطة زر

 كود حصري. إدراج صورة داخل أي خلية تريدها وحذفها من خلال الفورم بضغطة زر

كود إضافة صورة إلي خلية محددة

Sub InsertPicture() 'اضافة صورة في خلية محددة

On Error Resume Next

Dim P As String, x As String

P = Application.GetOpenFilename("Pictures (*.jpg;*.png;*.gif),*.jpg;*.png;*.gif")

If P <> "False" Then

x = InputBox("ادخل اسم الخليةالمراد وضع الصورة بها", "اسم الخلية")

ActiveSheet.Range(x).Select

ActiveSheet.Pictures.Insert(P).Select

End If

MsgBox "تم ادراج الصورة"

End Sub

كود حذف صورة محددة

Sub DeleteImage1() 'حذف صورة محددة

On Error Resume Next

Dim x As Integer

x = InputBox("ادخل رقم الصورة المراد حذفها", "اسم الخلية")

ActiveSheet.Shapes.Range(Array("Picture " & x)).Select

Selection.Delete

MsgBox "تم حذف الصورة"

End Sub

كود حذف جميع الصور دفعة واحدة

Sub DeleteImage2() 'حذف جميع الصور

On Error Resume Next

Dim x As Integer

For x = 1 To 100

ActiveSheet.Shapes.Range(Array("Picture " & x)).Select

Selection.Delete

Next x

MsgBox "تم حذف الصور"

End Sub

استخدامات الدالة VLOOKUP

1. مقارنة البيانات في ورقتي عمل مختلفتين: يمكن استخدام VLOOKUP لمقارنة البيانات بين ورقتي عمل مختلفتين. هذا مفيد بشكل خاص عندما تحتاج إلى مقارنة البيانات من ورقة إلى أخرى، مثل مقارنة أرقام المبيعات من شهر إلى آخر.

 

2. البحث عن قيمة محددة في نطاق من الخلايا: يمكن استخدام VLOOKUP للعثور بسرعة على قيمة محددة في نطاق من الخلايا. يكون هذا مفيدًا عندما تحتاج إلى تحديد موقع عنصر معين بسرعة في مجموعة بيانات كبيرة.

 

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

 

4. إتمام مهام إدخال البيانات: يمكن استخدام VLOOKUP لإتمام بعض مهام إدخال البيانات، مثل إدخال معلومات العميل في نموذج طلب أو تحديث مستويات المخزون في نظام المخزون. يؤدي ذلك إلى توفير الوقت وتقليل الأخطاء المرتبطة بمهام إدخال البيانات يدويًا.