如果语句基于数值,其中单元格可以包含文本

时间:2017-01-23 15:31:05

标签: excel vba

我已经编写了VBA代码,根据不同的单元格为红色单元着色。

如果单元格有文本而不是数值,我无法使其工作。

const App = ({children}) => (
  <div className="app">
    { children }
  </div>
);

const Example = Object.assign(
  {},
  React.Component,
  {
    render () {
      return (
        <h1>Does this work?</h1>
      );
    }
  }
);


ReactDOM.render(
  <App>
    <Example />
  </App>,
  document.querySelector('#target')
);

1 个答案:

答案 0 :(得分:2)

在进行比较之前,您需要检查数值,否则会出现不匹配错误:

If IsNumeric(r1.Value) And IsNumeric(r2.Value) Then
    If r1.Value = 94 And r2.Value = -99 Then r2.Interior.Color = vbRed
End If