|
|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 360583279 于 2015-3-3 10:18 编辑
在F55:J60查找最大值并显示在I39，然后再B39找出I39它对应的“位置”，同理D39显示B39的"功能"
我用VBA能实现，但用公式不行，求公式
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
If Target.HasFormula Then
IVALUE = Target.Value
IROW = Target.Row
Set Rng = Target.Precedents
IRange = Rng.Find(IVALUE, , xlValues, xlPart, xlByRows, xlNext, False).Row
Range("C" & IROW).Value = Range("B" & IRange).Value
Range("D" & IROW).Value = Range("C" & IRange).Value
Range("E" & IROW).Value = Range("D" & IRange).Value
End If
End If
End Sub
POE REPORT MODE.rar
(535.61 KB, 下载次数: 7)
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2015-2-28 15:56