将 excel 公式转换为 vba 函数

Question

我想转换这个公式：

=IF(AND(ISTEXT(A11)),"",
      IF(AND(A11>=100,A11<=199),A11+15,
        IF(AND(A11>=200,A11<=599),A11+30,
          IF(AND(A11>=600,A11<=899),A11+40,
            IF(AND(A11>=900,A11<=1099),A11+50,
              IF(AND(A11>=1100),ROUNDDOWN(A11*105%,-1)))))))

到 vba function 中，其中A11是我在调用 function 时可以选择的变量。 （所以我可以在我选择的任何单元格上使用它）。 我对学习 vba 不感兴趣，但想帮助我爸爸一点点自动化这个过程。 有好心人帮我解决这个问题吗？ 感谢您的任何提示

Answer 1

我想转换这个公式：

=IF(AND(ISTEXT(A11)),"",
      IF(AND(A11>=100,A11<=199),A11+15,
        IF(AND(A11>=200,A11<=599),A11+30,
          IF(AND(A11>=600,A11<=899),A11+40,
            IF(AND(A11>=900,A11<=1099),A11+50,
              IF(AND(A11>=1100),ROUNDDOWN(A11*105%,-1)))))))

到 vba function 中，其中A11是我在调用 function 时可以选择的变量。 （所以我可以在我选择的任何单元格上使用它）。 我对学习 vba 不感兴趣，但想帮助我爸爸一点点自动化这个过程。 有好心人帮我解决这个问题吗？ 感谢您的任何提示