时间戳

首页 > 解决方案 > 循环文本框和单元格

loops - 循环文本框和单元格

问题描述

我需要一些帮助来缩短这段代码。（见下文）我的表单中有很多带有时间的文本框，我想复制到我的 excel 文件中。一些框需要在 excel 表中减少 15 分钟，我想循环通过这些文本框并将结果复制到正确的单元格中。我的代码有效，但我想一次将其用于更多文本框。

tnx

    Dim d1re1 As Date = TextBox5.Text
    TextBox5.Text = d1re1.ToLongTimeString()
    Dim d1nre1 As Date = d1re1.AddMinutes(-15)
    xlsp1.Cells(7, 100) = d1nre1.ToLongTimeString


    Dim d1re2 As Date = TextBox7.Text
    TextBox7.Text = d1re2.ToLongTimeString()
    Dim d1nre2 As Date = d1re2.AddMinutes(-15)
    xlsp1.Cells(7, 102) = d1nre2.ToLongTimeString

标签： loops

解决方案

这里的想法是线条以某种方式执行相同但具有不同参数。这里的功能出现在图片中。您可以为 ex 创建通用方法调用它： SetDateToFieldscand 接受参数：源文本框和它需要更新的单元格。

像这样，您只需要使用不同的参数调用该方法。

推荐阅读