从用户表单匹配行和列写入单元格

时间:2019-08-06 13:56:56

标签: excel vba

我有一张工作表,其日期值作为列标题,行中具有步骤号。我正在尝试建立一个用户窗体,用户可以在其中选择一个步骤号,从组合框中选择一个日期,然后输入要放入单元格中的值。

我尝试了几种使用match函数的方法,但是完全失败了。这时我的代码太乱了,无法共享,因此我需要重新开始。 (非常VBA业余爱好者)

有人可以帮我解决这个问题吗?

我尝试过匹配功能

编辑: 抱歉,我的代码完全错误。我只是在寻找方向,而不是找人提供完整的代码。

虽然我现在到某处...

Private Sub SaveDates_Click()

Dim datestr As Long
datestr = ExpStart.Value

Dim MatchFormula As Long
Dim ColumnMatch As Long

MatchFormula = WorksheetFunction.Match(ListBox1.Value, Range("A:A"), 0)

ColumnMatch = WorksheetFunction.Match(datestr, Range("4:4"), 0)

Range(Col_Letter(ColumnMatch) & MatchFormula).Value = TextBox1.Value
End Sub

我现在遇到的问题是,当我在组合框(ExpStart)中选择一个日期时,它显示为序列日期。我无法将其重新格式化为dd / mm / yy,因为随后match函数停止工作。

0 个答案:

没有答案