Excel VBA質問箱 IV

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

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


16013 / 76734 ←次へ | 前へ→

【66195】Re:変数内の同じデータ
回答  Hirofumi  - 10/8/7(土) 20:15 -

引用なし
パスワード
   こんなのでは?

Option Explicit

Public Sub Sample()

  Dim i As Long
  Dim MM() As Variant
  Dim strPrompt As String
  
  ReDim MM(1 To 8)
  
  For i = 1 To 8
    MM(i) = Choose(i, "りんご", "みかん", "めろん", "りんご", "かき", "もも", "りんご", "みかん")
  Next i
  
  MM = Unique(MM)
  
  For i = LBound(MM) To UBound(MM)
    strPrompt = strPrompt & MM(i) & vbLf
  Next i
  
  MsgBox strPrompt, vbInformation
  
End Sub

Private Function Unique(vntData As Variant) As Variant

'  列の値の重複取り

  Dim i As Long
  Dim j As Long
  Dim k As Long
  Dim vntList As Variant
  
  ReDim vntList(LBound(vntData, 1) To UBound(vntData, 1))
  
  k = LBound(vntList)
  vntList(k) = vntData(1)
  For i = LBound(vntData) + 1 To UBound(vntData)
    For j = LBound(vntList, 1) To k
      If vntList(j) = vntData(i) Then
        Exit For
      End If
    Next j
    If j > k Then
      k = j
      vntList(k) = vntData(i)
    End If
  Next i

  ReDim Preserve vntList(LBound(vntList) To k)
  
  Unique = vntList
  
End Function
4 hits

【66193】変数内の同じデータ 亜矢 10/8/7(土) 19:50 質問
【66194】Re:変数内の同じデータ りん 10/8/7(土) 20:01 発言
【66195】Re:変数内の同じデータ Hirofumi 10/8/7(土) 20:15 回答
【66196】Re:変数内の同じデータ kanabun 10/8/7(土) 21:10 発言
【66197】Re:変数内の同じデータ 亜矢 10/8/8(日) 9:19 お礼

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