Excel VBA質問箱 IV

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

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


76254 / 76732 ←次へ | 前へ→

【4901】Re:アドインについて
回答  こう E-MAIL  - 03/4/13(日) 16:46 -

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

>ある様式のシートを用意して、ユーザに入力させるプログラムを
>作ったのですが、アドインとして保存するとシートを使用することが
>できません。
シートはどのように使っていますか?
以前,AllSheetFind.xlaというアドインファイルを作ったんですが,
このときにSheets(1)を検索キー退避用として使ってました。

あまり参考にならないかもしれませんが,そのときのコードです。

  Set www = Workbooks("AllSheetFind.xla").Sheets(1)
  On Error Resume Next
  www.Range("A1:A21").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
  UserForm1.ComboBox1.Clear
  For Each i In www.Range("A2:A21").SpecialCells(xlCellTypeVisible)
    UserForm1.ComboBox1.AddItem i
  Next i
  Set www = Nothing

1 hits

【4877】アドインについて bishop 03/4/11(金) 17:57 質問
【4879】Re:アドインについて ichinose 03/4/11(金) 20:22 回答
【4901】Re:アドインについて こう 03/4/13(日) 16:46 回答

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