搜索引擎 - 在 Excel 工作表的 txtbox 中查找值并写入数据

Question

这是我在这里的第一篇文章，也许很难。

我正在为一位朋友的治疗师诊所创建一个日程安排工具。

我有一个名为 frmschedule 的表单，当用户选择日期和时间时，它会在 Excel 工作表上找到匹配项并写入姓名等数据。

用户将从预加载的列表框 (lstboxdate) 中选择一个日期，说明从 2017 年 1 月 1 日到 2017 年 12 月 31 日。

然后用户将从预加载的列表框 (lstboxtime) 中选择一个时间，说明 8:00 / 8:20 / 8:40 / 9:00 等。

我有一个包含所有 365 天的列表的 Excel 电子表格，并且每天都给了一个“序列号”，例如 1 月 1 日将是“1”

我还有一个列出所有时间的范围和每个时间段的序列号。例如 8:00 将是 800

用户选择日期和时间后，将为该日期和时间创建一个“序列号” - 例如，2017 年 1 月 1 日 8:00 的约会将返回序列号 1800。约会序列号number 存储在一个文本框中，该文本框中结合了日期序列号和时间序列号的值。

当用户选择命令按钮时，我希望 vba 在我的日程安排电子表格中找到该特定序列号（其中已经有每天和时间的日期/时间序列号）并从 txtname / txtphone 写入数据。

有没有人可以帮助我，或者我把这弄得太复杂了。

我不熟悉循环和搜索引擎，但已尝试找到解决方案

提前致谢

Answer 1

我不确定您是用序列号写入工作表还是在表单上显示数据——如果是后者，一个非常简单的解决方案是使用 vlookup 或索引/匹配。例如，假设命令按钮名为 CommandButton1，使用单击事件从不同页面查找您的序列号并返回名称/电话组合。

假设： 文本框被称为 TextBox1 命令按钮=命令按钮 1 带有姓名/电话的序列号在 Sheet2 上

Private Sub CommandButton1_Click()
Dim sName$, sPhone$
sName = WorksheetFunction.VLookup(Me.ComboBox1.Value, Sheets("Sheet2").Range("A1:B100"), 2, False)
sPhone = WorksheetFunction.VLookup(Me.ComboBox1.Value, Sheets("Sheet2").Range("A1:C100"), 3, False)
Me.TextBox1 = "Name: " & sName & vbCrLf & "Phone: " & sPhone
End Sub

Answer 2

如果您的组合框有序列号并且您正在写入日程表，您可以尝试这样的操作：

Private Sub CommandButton1_Click()
Dim rngName As Range
Dim rngPhone As Range
Dim i As Integer

i = WorksheetFunction.Match(cint(Me.cboSerial), Sheets("Sheet2").Range("A1:A100"), True)

Set rngName = Sheets("Sheet2").Cells(i, 2)
Set rngPhone = Sheets("Sheet2").Cells(i, 3)

rngName = Me.txtName
rngPhone = Me.txtNumber
End Sub

基本上，您正在运行 Match() 工作表函数来返回存储序列号的单元格地址，然后您正在写入同一行中的单元格。

cboSerial 是存储您的序列号的组合框
txtName 是预约持有人的姓名
txtNumber 是预约持有人的电话号码