Excel VBA質問箱 IV

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

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


6727 / 76735 ←次へ | 前へ→

【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

心情はわからなくもないのですが、
質問の際に回答者を名指ししている様にとれる書き込みは
さけた方が望ましいかと。

0 hits

【75574】advancedfilterでの日付け検索 masu 14/5/21(水) 13:17 質問
【75576】Re:advancedfilterでの日付け検索 kanabun 14/5/21(水) 14:27 発言
【75577】Re:advancedfilterでの日付け検索 masu 14/5/21(水) 16:10 質問
【75578】Re:advancedfilterでの日付け検索 kanabun 14/5/21(水) 16:57 発言
【75580】Re:advancedfilterでの日付け検索 masu 14/5/21(水) 17:37 お礼
【75602】Re:advancedfilterでの日付け検索 masu 14/5/23(金) 15:27 質問
【75605】Re:advancedfilterでの日付け検索 yuto 14/5/23(金) 21:22 回答
【75607】Re:advancedfilterでの日付け検索 masu 14/5/23(金) 21:49 お礼
【75606】Re:advancedfilterでの日付け検索 kanabun 14/5/23(金) 21:28 発言
【75608】Re:advancedfilterでの日付け検索 kanabun 14/5/23(金) 23:22 発言
【75609】Re:advancedfilterでの日付け検索 masu 14/5/24(土) 8:46 質問
【75610】Re:advancedfilterでの日付け検索 kanabun 14/5/24(土) 11:14 発言
【75611】Re:advancedfilterでの日付け検索 masu 14/5/24(土) 12:19 質問
【75612】Re:advancedfilterでの日付け検索 kanabun 14/5/24(土) 13:23 発言
【75613】Re:advancedfilterでの日付け検索 kanabun 14/5/24(土) 17:46 発言
【75614】Re:advancedfilterでの日付け検索 masu 14/5/24(土) 18:11 お礼

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