提示框左下角停靠位置在当前单元格的右上角

hcy1185

一直没有解决的问题:提示框左下角停靠位置在当前单元格的右上角
下面是我使用的代码
Sub 审查当前行小计合计() '=SUM(H15:L15),=SUM(G15,M15:Q15,T15:U15)
    Dim i&, xj&, hj&, 自开工至本年&
    i = ActiveCell.Row
    Rows(i).EntireRow.Interior.ColorIndex = 4 '对当前整行添加底纹
    xj = Application.WorksheetFunction.Sum(Range(Cells(i, "h"), Cells(i, "l")))
    hj = Application.WorksheetFunction.Sum(Cells(i, "g"), Range(Cells(i, "m"), Cells(i, "q")), Range(Cells(i, "t"), Cells(i, "u")))
    kg_bn = Application.WorksheetFunction.Sum(Cells(i, "f"), Cells(i, "v"))
    MsgBox "第" & i & "行" & Chr(10) & Cells(i, "b").Value & Chr(10) & "小计: " & xj & "元" & Chr(10) & "合计: " & hj & "元" & Chr(10) & "自开工至本年: " & kg_bn & "元"
    Rows(i).EntireRow.Interior.ColorIndex = 0 '对当前整行取消底纹
End Sub

大灰狼1976

你所说的提示框是指msgbox吧，用api可以实现，参考http://www.excelpx.com/thread-149361-1-1.html