如何在Excel中将文本从单元格获取到另一个

Question

Ok,

So I am trying to count a bunch of cells containing certain data which works fine. I am now trying to add date to that criteria which is typed into another cell. The issue with his is that the cells contain Date and Time and I only want to filter cells which "contain" a specific date.

This is my formula =COUNTIFS(Sheet3!G:G,"example",Sheet3!AC:AC,C50,Sheet3!AB:AB,A$48) Column AB being the date/time. I want to be able to right a date into A48 and then have a count of all cells that contain that date, but it wont work as there is also Time in the cell. Is there anyway of excluding the date?

I have also tried running a bit of code. This fixes my time issue, but the code doesn't stop when it encounters a blank cell. How could I make it do this? Or if I can solve the above I wont need the code at all. This is the code.

Sub ConvertDates()
'Updateby20140529
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address,      Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.Int(Rng.Value)
    If IsEmpty(WorkRng) Then Exit Sub
Next
WorkRng.NumberFormat = "mm/dd/yyyy"
End Sub

Thanks a bunch.

Answer 1

Please try:

=COUNTIFS(Sheet3!G:G,"example",Sheet3!AC:AC,C50,Sheet3!AB:AB,">="&A$48,Sheet3!AB:AB,"<"&A$48+1)  

This should count based on any value in AB being greater than or equal to the date (without time) in A48 and less than one day later than that day - hence spanning whatever the times are.

Where I am at present this is equivalent to 27/11/2015 in A48 and:

">="42335,Sheet3!AB:AB,"<"42335+1  

for the last part of the above formula - since time in Excel datetime serial is the decimal part of a day index.

Answer 2

It seems to me that the OP has two questions:

This fixes my time issue, but the code doesn't stop when it encounters a blank cell.

1) How could I make it do this?

2) Or if I can solve the above I wont need the code at all.

With the second question already answered by @pnuts by the formula:

=COUNTIFS(Sheet3!G:G,"example",Sheet3!AC:AC,C50,Sheet3!AB:AB,">="&A$48,Sheet3!AB:AB,"<"&A$48+1)  

Let's look at the first question.

The macros does not stop for two reasons:

1. Instead of validating the cell value using IsEmpty(Rng.Value2) , it validates the entire range provided by the user using IsEmpty(WorkRng)

2. The validation occurred after the value of the cell is restated with Rng.Value = VBA.Int(Rng.Value) so the cell will never be empty at the time of validation.

This is your revised code, I have done also other small modifications.

Sub ConvertDates_Original()
Const kTitleId = "Kutools for Excel"
Dim Rng As Range, WorkRng As Range
    On Error Resume Next
    Set WorkRng = Application.InputBox("Range", kTitleId, Selection.Address, Type:=8)
    If WorkRng Is Nothing Then Exit Sub
    For Each Rng In WorkRng
        With Rng
            If IsEmpty(.Value2) Then Exit Sub
            .Value = Int(.Value2)
            .NumberFormat = "mm/dd/yyyy"
    End With: Next
End Sub

Suggest to visit these pages to obtain a deeper understanding of the changes done:

Range Object (Excel) , Variables & Constants

Let me know of any question you might have about the code and changes done.