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

纵截面（输入f

大家好，
 
我已经创建了一个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

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

                        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
页: [1]
查看完整版本: 纵截面（输入f