Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6799 / 76807

←次へ　｜　前へ→


	【75605】Re:advancedfilterでの日付け検索

yuto - 14/5/23(金) 21:22 -


	引用なし

	パスワード

質問内容とやり方が異なりますが、私ならこんな感じで処理するかなという一例です。そういうことではなく、手法にこだわりがあるという場合は読み捨ててください。 Sub Test() 　　Const xColumn As Integer = 5　　　'列を指定　適宜条件を合わせてください。　　Dim yRow As Integer, v As Variant 　　For yRow = 6 To Cells(Rows.Count, xColumn).End(xlUp).Row　　’1行目～入力済み最終行までを指定。　　　　With Cells(yRow, xColumn)　　’基準の位置を指定　　　　　　v = Split(.Text, "/")　　　　　　’文字列を/で区切り、配列に格納　　　　　　.Offset(, 2).Value = v(0)　　’年の部分　　　　　　.Offset(, 3).Value = v(1)　　’月の部分　　　　　　.Offset(, 4).Value = Val(v(2))　’日の部分　※Val() で数値として判断可能な最初の要素を取得　　　　End With 　　Next yRow End Sub 心情はわからなくもないのですが、質問の際に回答者を名指ししている様にとれる書き込みはさけた方が望ましいかと。