纵截面（输入f

vasanthsv84 · 发表于 2022-7-6 20:25:04

大家好，

我已经创建了一个vba代码来创建纵断面（从excel输入），如果excel中有一行是空的，我还想在纵断面之间留出一个间隙。有谁能引导我度过这一切！？谢谢

当做

瓦桑斯。S

BIGAL · 发表于 2022-7-6 20:45:27

您可以使用“单元格为空”作为循环中的循环，如果它是csv文件，则将读取行为“”

vasanthsv84 · 发表于 2022-7-6 20:55:22

您好，谢谢您的回复，您能分享一个vba代码示例，在excel中查找空单元格吗。谢谢

BIGAL · 发表于 2022-7-6 21:11:52

对不起，我没有做太多的VBA开始玩它，但回到了lisp。其他一些会有所帮助。

vasanthsv84 · 发表于 2022-7-6 21:28:35

嗨，比格尔，没事。我找到了解决办法。谢谢你的建议。

copy


                        GPT = Rng.Cells(RowIndex, 10)
            Select Case GPT
              Case "1"
              InsPtsST(0) = 0: InsPtsST(1) = 0: InsPtsST(2) = 0
              Case "2"
              InsPtsST(0) = 0: InsPtsST(1) = -500: InsPtsST(2) = 0
              Case "3"
              InsPtsST(0) = 0: InsPtsST(1) = -1000: InsPtsST(2) = 0
              Case "4"
              InsPtsST(0) = 0: InsPtsST(1) = -1500: InsPtsST(2) = 0
              Case "5"
              InsPtsST(0) = 0: InsPtsST(1) = -2000: InsPtsST(2) = 0
              Case "6"
              InsPtsST(0) = 0: InsPtsST(1) = -2500: InsPtsST(2) = 0
            End Select

[编程交流] 纵截面（输入f

发表回复

精选推荐