Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12 / 13254 ツリー ←次へ | 前へ→

【80553】F列の値が指定のとき、E列を変換したい amatsuno 19/3/4(月) 11:45 質問[未読]

【80556】Re:F列の値が指定のとき、E列を変換したい マナ 19/3/4(月) 20:52 発言[未読]
【80557】Re:F列の値が指定のとき、E列を変換したい amatsuno 19/3/7(木) 10:25 お礼[未読]
【80559】Re:F列の値が指定のとき、E列を変換したい マナ 19/3/7(木) 20:11 発言[未読]

【80556】Re:F列の値が指定のとき、E列を変換したい
発言  マナ  - 19/3/4(月) 20:52 -

引用なし
パスワード
   ▼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

【80557】Re:F列の値が指定のとき、E列を変換したい
お礼  amatsuno  - 19/3/7(木) 10:25 -

引用なし
パスワード
   ▼マナ さん:
>▼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


ありがとうございます。
この方法でも確認してみます

【80559】Re:F列の値が指定のとき、E列を変換したい
発言  マナ  - 19/3/7(木) 20:11 -

引用なし
パスワード
   ▼amatsuno さん:

>>この条件に意味ありますか?
>>
>>LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False
>>

質問の意味がわかりませんでしたか?

12 / 13254 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free