كود يعمل عمل flash fill لعدم وجودها في اوفيس 2010 الذي اعمل علية

[بلانك]

كود يعمل عمل flash fill لعدم وجودها في اوفيس 2010 الذي اعمل علية

[Ali Mohamed Ali]

تفضل كما بالصورة كى تعمل ... أو جرب هذا الكود

Sub FFvba()
Cells(1, 2) = "123-45-6789"
Dim rng As Range
Set rng = Range("B1:B4")
rng.FlashFill
End Sub

[بلانك]

أخي علي محمد علي شكرا على الاستجابة السريعة