أنا أستخدم Excel 2013 ،
أطبق بطريقتين في Large Formula VBA ، لكنني لا أعمل ، ما الخطأ ، لا أعرف
الماكرو الفرعي 1 ()
عبارة "1st Table Dim" ---> تعلن عن المتغيرات
خافت لصف طويل ، lCol طويل
lRow = النطاق ("D5"). النهاية (xlDown). الصف
lCol = المدى ("C5"). النهاية (xlToRight). العمود
عدد الأعمدة في العدد
خافت ك وطول ، م وطول
k = Range ("C5"، Range ("C5"). End (xlToRight)). عدد الأعمدة.
عدد الصفوف بالأرقام
م = النطاق ("D6" ، النطاق ("D6"). النهاية (xlDown)). عدد الصفوف.
خافت MyRange كمجموعة
اضبط MyRange = Range (Range ("D5"). Offset (1، k + 3)، Range ("D5"). Offset (m، k + 3))
النطاق ("D5"). الإزاحة (2، 1 + 3). الصيغة = "= LARGE (" & MyRange & "، 1)"
'و
'= (كبير ($ I $ 6: $ I $ 12,1،7) -I2) / XNUMX
النطاق ("D5"). الإزاحة (2، 1 + 3). الصيغة = "= (LARGE (" & MyRange & "، 1) -" & Range ("D5"). الإزاحة (1، k + 3) & ") / 2"
نهاية الفرعية
الرجاء مساعدتي وشكرا مقدما
أطبق بطريقتين في Large Formula VBA ، لكنني لا أعمل ، ما الخطأ ، لا أعرف
الماكرو الفرعي 1 ()
عبارة "1st Table Dim" ---> تعلن عن المتغيرات
خافت لصف طويل ، lCol طويل
lRow = النطاق ("D5"). النهاية (xlDown). الصف
lCol = المدى ("C5"). النهاية (xlToRight). العمود
عدد الأعمدة في العدد
خافت ك وطول ، م وطول
k = Range ("C5"، Range ("C5"). End (xlToRight)). عدد الأعمدة.
عدد الصفوف بالأرقام
م = النطاق ("D6" ، النطاق ("D6"). النهاية (xlDown)). عدد الصفوف.
خافت MyRange كمجموعة
اضبط MyRange = Range (Range ("D5"). Offset (1، k + 3)، Range ("D5"). Offset (m، k + 3))
النطاق ("D5"). الإزاحة (2، 1 + 3). الصيغة = "= LARGE (" & MyRange & "، 1)"
'و
'= (كبير ($ I $ 6: $ I $ 12,1،7) -I2) / XNUMX
النطاق ("D5"). الإزاحة (2، 1 + 3). الصيغة = "= (LARGE (" & MyRange & "، 1) -" & Range ("D5"). الإزاحة (1، k + 3) & ") / 2"
نهاية الفرعية
الرجاء مساعدتي وشكرا مقدما