وظيفة كود برمجى

[saad abed]

السلام عليكم

اريد ان اعرف وظيفة الارقام فى الكود التالى

Worksheets(WS.Name).Cells(Rows.Count, 1).End(3)(2)

هل رقم 3 بديل xlup

ورقم 2

 

تم تعديل يوليو 18, 2021 بواسطه saad abed

[أ / محمد صالح]

فعلا رقم 3 بديل Xlup

.End(Direction)
xlToLeft = 1
xlToRight = 2
xlUp = 3
xlDown = 4

أما عن رقم 2 فهو بديل من استعمال cells مرة أخرى ولكن على اعتبار أن آخر خلية في الصف هي 1,1

بمعنى

جرب هذا الكود

Worksheets(WS.Name).Cells(Rows.Count, 1).End(3).cells(2,1)

ستجده يعطي نفس النتيجة

وهي الانتقال للصف التالي 2 باعتبار الصف الحالي 1 والعمود الحالي 1

بالتوفيق

[saad abed]

الاستاذ محمد

اشكرك كل الشكر فقد وصلت المعلومه

.End(Direction)
xlToLeft = 1
xlToRight = 2
xlUp = 3
xlDown = 4

وفعلا رقم 2 تعبر عن cells(2,1)

فهل هناك ارقام اخرى لتغيير الخلايا 

اشكرك اخى محمد

[أ / محمد صالح]

تستعمل هذه الدوال مثل cells و offset و rows وغيرها الكثير في التحكم في الوصول لخلايا معينة حسب احتياجك 

وللعلم اي ثوابت يمكن استبدالها بقيم مثل 

sheets("mas") 

يمكن استبدالها ب

sheets(1)

إذا كان ترتيب شيت ماس هو الأول 

وهكذا