Question

vb提取excel时间日期的问题

假设exce第一列所列均为时间，格式为xx年xx月xx日xx小时xx分xx秒，我希望通过选定日期比如选择2013年8月16 日，得到所有该日期的单元格坐标。这该如何进行。选定日期通过dtpicker控件进行，谢谢

Answer 1

思路是先把这列的值转为DTPICKER选择类型一样的值，要么用函数在EXCEL中做好，要么在VB中折腾，老码肯定也老长啦；

我提供一种，先在EXCEL中把日期格式转换，在判断；如下：代码大概这么些；

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Boolean) As Long
  
Private Sub CommandButton1_Click()
SendMessage DTPicker1.hWnd, &H100, &H73, &H3E0001
End Sub
Private Sub CommandButton2_Click()
Dim x, y
x = DTPicker1.Value
For y = 1 To 10
If Sheets("Sheet2").Cells(y, 2) = x Then
MsgBox "单元格直值为A" & y
Exit For
End If
Next y
End Sub

追问

非常感谢，还有一些问题请解答下，我对8月20日进行检索，你里面8月20 有好多个，但是程序运行结果只是显示A1.我设想是通过搜索得到所有行，因为我这时间是顺序排列的，所以也可以得到从第几行到第几行这样一个结果谢谢

追答

显示全部行对吗？图片这样行不？代码如下，见附件！

追问

谢谢，不过看excel的转换有点疑问，如果只是MID（A1，1，FIND("日"，A1)）是不是就得到2013年08月20日。你的那些substitute是为了转换格式