إيجاد اكبر عدد في العمود

[roross]

السلام عليكم

 

البحث عن اكبر عدد + 1

 

 

1

Max.xls

تم تعديل ديسمبر 7, 2019 بواسطه roross

[سليم حاصبيا]

جرب هذا الكود

Private Sub CommandButton1_Click()
Me.TextBox1.Value = "G" & _
Evaluate("=MAX(IF(ISNUMBER(--(SUBSTITUTE($A$2:$A$100,""G"",""""))),--(SUBSTITUTE($A$2:$A$100,""G"","""")),0))") + 1
End Sub

الملف مرفق

 

 

Max.xlsm

[roross]

السلام عليكم

بارك الله فيكم وجزاكم خيرا