هل من دالة تغنى عن هذا الكود

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

حسب علمي لا يوجد ، ولكن ببساطة يمكنك إنشاء واحدة كتلك التي في EXCEL تمامًا ( لمتغيرين أو أكثر ) ..

السلام عليكم...

لا أتذكر أنه يوجد في VB هكذا دالة، لكن يمكنك كتابة الدالة التالية في Module و استعمالها:

Public Function Max(Value1 As Variant, ParamArray OtherValues() As Variant) As Variant
	Dim Index As Long, MaxVal As Variant

	MaxVal = Value1
	For Index = LBound(OtherValues) To UBound(OtherValues)
		If OtherValues(Index) > MaxVal Then MaxVal = OtherValues(Index)
	Next Index
	Max = MaxVal
End Function

استعملنا النوع Variant لنتمكن من تمرير أي نوع من البيانات إلى الدالة.

باستعمال الكلمة ParamArray فإن هذه الدالة تقبل عدداً غير محدود من البارامترات (بارامتر واحد على الأقل و الممثل بالبارامتر Value1).

نرجو الاستفادة و السلام.

على حد علمى لا يوجد في الفيجوا بيسيك داله لهذا الغرض و لكن يمكنك عمل producer وإستدعاؤه في أى جزء من المشروع

و السلام ختام