简体繁体 English

VBA宏可检查多个单元格（同一行）并将公式写入空白单元格之一

[英]VBA Macro To Check Multiple Cells (Same Row) & Write Formula Into One Of The Blank Cells

原文 2018-10-12 14:57:33 3 0 excel/ vba

I'm officially putting my pride aside and asking for some help. 我正式将我的骄傲放在一边，并寻求帮助。 I've spent quite some time trying to come up with a VBA Macro with little to no results. 我花了很多时间试图提出一个VBA宏，但收效甚微。

Quick overview: I am using a program that exports 2D print dimensions into a template that I've constructed. 快速概述：我使用的程序将2D打印尺寸导出到我构建的模板中。 Unfortunately, there are (3) different dimension options that it exports. 不幸的是，它导出了（3）个不同的尺寸选项。 For what we need on our end, there needs to be a value in the 'Print Dimension' column (Column H) and a value in BOTH the +Tol & -Tol Columns (Columns I & J). 为了达到最终目的，在“打印尺寸”列（H列）中需要有一个值，在+ Tol和-Tol列（I和J列）中都需要有一个值。 So, if there's a value in all (3) of the cells in a given row ( See Row 19 - Screen Shot Below ), nothing will need done. 因此，如果给定行中的所有（3）单元格中都有一个值（ 请参见第19行-下面的屏幕截图 ），则无需执行任何操作。

There are (3) occasions where the above does not occur: 在（3）种情况下不会发生上述情况：

The first being when a dimensional range is exported (values in both columns I & J w/ column H being BLANK). 第一个是导出尺寸范围时（I和J列中的值，H列中的值都是空白）。 ( See Row 20 - Screen Shot Below ) So the formula will need to be - H20=((I20+J20)/2). （ 请参见下面的第20行-屏幕截图 ）因此，公式将必须为-H20 =（（I20 + J20）/ 2）。
The second occasion is when a MAX TOL is given (column I) w/ columns H & J being BLANK. 第二种情况是当给出H / J列为空白的MAX TOL（I列）时。 ( See Row 32 - Screen Shot Below ) So the formula will need to be H32=(I32/2). （ 请参见下面的第32行-屏幕截图 ）因此公式将需要为H32 =（I32 / 2）。 J32 will also need to have a value of '0' entered. J32还需要输入一个值“ 0”。
The third occasion is when a MIN TOL is given (column J) w/ columns H & I being BLANK. 第三种情况是当给出H / I列为空白的MIN TOL（J列）时。 ( See Row 27 - Screen Shot Below ) So the formula will need to be - H27=(J27/2). （ 请参见下面的第27行-屏幕截图 ）因此，公式将必须为-H27 =（J27 / 2）。 I27 will also need to have a value of '0' entered. I27还需要输入一个值“ 0”。