Excel VBA質問箱 IV

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

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


54843 / 76732 ←次へ | 前へ→

【26673】Re:重複データを整理したい
発言  ichinose  - 05/7/13(水) 18:57 -

引用なし
パスワード
   ▼k さん:
こんばんは。

>ichinoseさん、どうもありがとうございます!
>うまく整理することができました。
>
>ただ、下のような結果になったものがあります。
>
>元データ
>注番 部番  日付A      日付B
>1   あ   2005/7/6   2005/7/1
>1   あ   2005/7/1    2005/6/30
>1   あ   2005/6/30    2005/6/27
>1   あ   2005/6/27    2005/6/30
>
>
>実行結果
>注番  部番  日付1   日付2   日付3    日付4    日付5
>1   あ  2005/7/6  2005/7/1  2005/6/30  2005/6/27    
>
>
>日付5に"2005/6/30"と入るはずなのですが、入りません。
>前の日付とダブっているからなのでしょうか。。。
そうです。そういう仕様で作りました。
実は、最初にk さんが投稿された内容、私は殆ど理解できませんでした。
2回目の投稿から私なりに規則性を探して記述したコードだったのですが、
仕様が違うみたいですね!!

'================================================
Function get_num_value(rng As Range, sushiki) As Variant
  Dim clct As New Collection
  get_num_value = False
  With rng
   .Formula = sushiki
   On Error Resume Next
   Set ansrng = .SpecialCells(xlCellTypeFormulas, xlNumbers)
   If Err.Number = 0 Then
    Err.Clear
    cnt = 0
    For Each cr In ansrng
      If cnt + 1 < ansrng.Count Then
       clct.Add cr.Value, Str(cr.Value)
      Else
       addvalue = cr.Value
       End If
      cnt = cnt + 1
      Next
    ReDim ans(1 To clct.Count + 1)
    For idx = 1 To clct.Count
      ans(idx) = clct.Item(idx)
      Next
    ans(clct.Count + 1) = addvalue
    get_num_value = ans()
    End If
   .ClearContents
   End With
  Set clct = Nothing
End Function

get_num_valueを上記に差し替えてみて下さい。
Mainは、前回と同じです。

1 hits

【26550】重複データを整理したい k 05/7/8(金) 16:51 質問
【26551】Re:重複データを整理したい NY 05/7/8(金) 17:54 回答
【26622】Re:重複データを整理したい k 05/7/12(火) 11:01 質問
【26657】Re:重複データを整理したい ichinose 05/7/13(水) 6:11 発言
【26663】Re:重複データを整理したい k 05/7/13(水) 15:14 質問
【26673】Re:重複データを整理したい ichinose 05/7/13(水) 18:57 発言
【26674】Re:重複データを整理したい YN 05/7/13(水) 20:23 質問
【26681】Re:重複データを整理したい ichinose 05/7/14(木) 5:57 発言
【26683】Re:重複データを整理したい YN 05/7/14(木) 6:58 質問
【26721】Re:重複データを整理したい ichinose 05/7/15(金) 7:22 発言
【26748】Re:重複データを整理したい YN 05/7/15(金) 21:48 お礼
【26749】Re:重複データを整理したい ichinose 05/7/16(土) 0:13 発言
【26698】Re:重複データを整理したい k 05/7/14(木) 11:45 お礼

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