Excel VBA質問箱 IV

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

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


37428 / 76738 ←次へ | 前へ→

【44476】Re:並び替え オプションキー?
回答  りん  - 06/11/17(金) 15:53 -

引用なし
パスワード
   kuraki さん、こんにちわ。

>↑は解決出来ましたが、既にリストがあった場合の対応がやはり必要です。

GetCustomListNumメソッドでチェックできます。
Sub test()
  Dim ldat As Variant
  ldat = Array("AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH")
  With Application
   NN = .GetCustomListNum(ldat)
   'なかったら
   If NN = 0 Then
     .AddCustomList ListArray:=ldat
     NN = .CustomListCount
   End If
  End With
  '結果
  MsgBox "OrderCustomは、" & NN & "番目"
End Sub

こんな感じです。
0 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 お礼

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