|
▼マナ さん:
>▼amatsuno さん:
>
>>解決しました
>
>>Set c2 = ActiveSheet.Columns("F:F").Find(What:=MYTXT, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
>
>
>この条件に意味ありますか?
>
>LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False
>
>
>'-------
>別法です。
>
>Option Explicit
>
>Sub test()
> Dim r As Range
>
> Set r = Cells(1).CurrentRegion
>
> r.Columns("n").Formula = "=if(TEXT(f1,""hh:mm:ss"")=""23:59:58"",""23:59:58"",e1)"
> r.Columns("e").Value = r.Columns("n").Value
> r.Columns("n").ClearContents
>
>End Sub
ありがとうございます。
この方法でも確認してみます
|
|