Excel VBA質問箱 IV

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

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


37439 / 76732 ←次へ | 前へ→

【44458】Re:並び替え オプションキー?
発言  Jaka  - 06/11/17(金) 10:56 -

引用なし
パスワード
   >1)「ユーザー設定リスト」を定義しなくてはいけない
これは、マクロ記録でできますよね。
以下、マクロ記録とヘルプより
追加したものは、1番最後のものだから、
Application.AddCustomList ListArray:=Array("AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH")
MsgBox "OrderCustomは、" & Application.CustomListCount & "番目"

リストから探す場合は、こんな感じになると思います。
ですが、全く同じのもを探すのは、こんな簡単じゃないと思います。
また、すでにあるのかの確認も必要かも知れませんね。
必要なくなったら削除するとかも必要?

For i = 1 To Application.CustomListCount
  ListArray = Application.GetCustomListContents(i)
  TT = TT + 1
  For ii = LBound(ListArray, 1) To UBound(ListArray, 1)
    ct = ct + 1
    Cells(ct, 1).Value = ListArray(ii)
    Cells(ct, 2).Value = TT
    If ListArray(ii) = "AA" Then
      MsgBox "OrderCustomは、" & i
      'Exit For
    End If
  Next
Next
1 hits

【44455】並び替え オプションキー? kuraki 06/11/17(金) 9:58 質問
【44458】Re:並び替え オプションキー? Jaka 06/11/17(金) 10:56 発言
【44472】Re:並び替え オプションキー? kuraki 06/11/17(金) 15:21 質問
【44476】Re:並び替え オプションキー? りん 06/11/17(金) 15:53 回答
【44547】Re:並び替え オプションキー? kuraki 06/11/21(火) 12:24 お礼

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