怎么让这三个输入框同时出现，或者一个对话框里出现三个输入的地方？

wo418200627 · 发表于 2023-1-9 23:48

本帖最后由 wo418200627 于 2023-1-9 23:56 编辑

Sub 晚自习()
Application.ScreenUpdating = False
Dim wkb As Workbook
[ag1].Value = "晚自习"
If Len(Dir("D:\Documents\为伊消得人憔悴\BaiduSyncdisk\2023上半年（22-23高一4班下学期）\高一（4）班网课\网课统计" & Sheet6.[ae1].Value & ".xls")) = 0 Then
m = InputBox("请输入本节晚自习安排：", "提示", "做试卷做练习做作业")
n = InputBox("请输入本节晚自习日期和科目：" & Chr(13) & "（按下面给的格式填写）", "提示", "1.9晚自习——数学")
o = InputBox("请输入本节晚自习详细时间：" & Chr(13) & "（按下面给的格式填写）", "提示", "2023-01-08 16:36")
Sheet7.[aa3] = m
Sheet7.[ab1] = n
Sheet7.[z3] = 0
Exit Sub
End If
Set wkb = Workbooks.Open(Filename:="D:\Documents\为伊消得人憔悴\BaiduSyncdisk\2023上半年（22-23高一4班下学期）\高一（4）班网课\网课统计" & Sheet6.[ae1].Value & ".xls")
Windows("统计报表（草稿）.xlsm").Activate
With wkb.Worksheets(1)
Sheet7.[ab1] = .[b8].Value
Sheet7.[z3] = .[a8].Value
Sheet7.[aa3] = .[d8].Value
Sheet7.[ab3] = .[l15].Value & .[l16].Value & .[l17].Value
Sheet7.[y5:y204] = .[e16:e215].Value
Sheet7.[z5:z204] = .[i16:i215].Value
Sheet7.[aa5:aa204] = .[j16:j215].Value
Sheet7.[ab5:ab204] = .[l16:l215].Value
End With
wkb.Close
Application.ScreenUpdating = True
End Sub

复制代码

然后，在输入详细时间那里，按方框中预先提示的输入时间后，结果成了这样子微信截图_20230109235143.png

，怎么让它变成2023-01-08 16:36 这样的格式

3190496160 · 发表于 2023-1-10 09:30

1、要三个输入框同时出现，使用InputBox函数是不可能的，这是微软设计的限制，没法改变，硬是需要同时出现，只有使用窗体了
2、日期显示的问题，设置一下单元格格式即可

游乐缘 · 发表于 2023-1-10 09:52

单元格赋值之前设置单元格格式为"yyyy-mm-dd hh:mm"
例如：
With Sheet7.[aa3]
.NumberFormat = "yyyy-mm-dd hh:mm"
.value = m
End With

wo418200627 · 发表于 2023-1-10 22:36

3190496160 发表于 2023-1-10 09:30
1、要三个输入框同时出现，使用InputBox函数是不可能的，这是微软设计的限制，没法改变，硬是需要同时出现 ...

那有没有就在一个对话框里就可以一次性输入上面三个内容，对应到不同的单元格中去呢？

mmwwdd · 发表于 2023-1-11 06:32

可以，逗号分隔，split拆分成数组，然后resize一次填充

mmwwdd · 发表于 2023-1-11 06:33

wo418200627 发表于 2023-1-10 22:36
那有没有就在一个对话框里就可以一次性输入上面三个内容，对应到不同的单元格中去呢？

楼下你看一下，只能这样操作

mafect · 发表于 2023-1-11 07:53

为什么不考虑用窗体呢

3190496160 · 发表于 2023-1-11 11:34

1、求助最好是上传自己的附件，
2、思维要学会转弯，硬是要追求你说的效果，用窗体是最佳选择

tanglf188 · 发表于 2023-1-11 15:55

一、传附件帮你做窗体
二、input 用风格符分开输入

wo418200627 · 发表于 2023-1-11 23:41

不好意思，我还是小白一个，这些代码都是别人做好然后我摸索着修改的，有些是网上问的，没有系统学习过，这就上传附件

		自动登录	找回密码
密码			免费注册

[求助] 怎么让这三个输入框同时出现，或者一个对话框里出现三个输入的地方？