Excel VBA質問箱 IV

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

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


15975 / 76734 ←次へ | 前へ→

【66233】Re:他の変数内と同じものを探す
発言  Yuki  - 10/8/11(水) 14:35 -

引用なし
パスワード
   ▼亜矢 さん:
オーソドックスに

Sub TEST()
  Dim AA(1 To 5) As String
  Dim BB(1 To 5) As String
  Dim CC()    As String
  Dim i      As Long
  Dim j      As Long
  Dim n      As Long
  
  AA(1) = "りんご":  BB(1) = "すいか"
  AA(2) = "みかん":  BB(2) = "とまと"
  AA(3) = "すいか":  BB(3) = "みかん"
  AA(4) = "すもも":  BB(4) = "なし"
  AA(5) = "かき":   BB(5) = "くり"
  For i = 1 To 5
    For j = 1 To 5
      If AA(i) = BB(j) Then
        n = n + 1
        ReDim Preserve CC(1 To n)
        CC(n) = AA(i)
        Exit For
      End If
    Next
  Next
  For i = 1 To UBound(CC)
    Debug.Print "CC(" & i & ")=" & CC(i)
  Next
End Sub
1 hits

【66229】他の変数内と同じものを探す 亜矢 10/8/11(水) 7:50 質問
【66232】Re:他の変数内と同じものを探す neptune 10/8/11(水) 14:12 発言
【66233】Re:他の変数内と同じものを探す Yuki 10/8/11(水) 14:35 発言
【66234】Re:他の変数内と同じものを探す kanabun 10/8/11(水) 15:14 発言
【66235】Re:他の変数内と同じものを探す kanabun 10/8/11(水) 15:49 発言
【66238】Re:他の変数内と同じものを探す 亜矢 10/8/11(水) 16:18 お礼
【66239】Re:他の変数内と同じものを探す kanabun 10/8/11(水) 16:46 発言
【66247】Re:他の変数内と同じものを探す 亜矢 10/8/12(木) 5:04 発言
【66248】Re:他の変数内と同じものを探す kanabun 10/8/12(木) 10:01 発言
【66249】Re:他の変数内と同じものを探す 亜矢 10/8/12(木) 11:03 お礼

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