Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10518 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21342】テキストボックスの値をControlSource以外で保存するには トコ 05/1/19(水) 15:20 質問[未読]
【21345】Re:テキストボックスの値をControlSource以... G-Luck 05/1/19(水) 15:39 回答[未読]
【21346】Re:テキストボックスの値をControlSource以... G-Luck 05/1/19(水) 16:03 発言[未読]
【21347】CustomDocumentProperties.Addについて トコ 05/1/19(水) 16:16 質問[未読]
【21349】Re:CustomDocumentProperties.Addについて G-Luck 05/1/19(水) 16:33 回答[未読]
【21350】ありがとうございました トコ 05/1/19(水) 17:16 お礼[未読]
【21342】テキストボックスの値をControlSource以...
質問  トコ  - 05/1/19(水) 15:20 -
引用なし
パスワード
   いつもお世話になっています。
ものすごく初歩的な質問で申し訳ございません。

条件設定のユーザーフォームを作成し、
そこにいくつかのテキストボックスなどがあります。

ブックを閉じて、次に開くときに同じ条件設定を表示させたいのですが、

テキストボックスなどの値をワークシートに落とさずに
（ControlSourceプロパティを使わずに）
値を保存することは可能でしょうか？

ワークシートに保存すると、目につくので、
なるべく避けたいのですが・・・
【21345】Re:テキストボックスの値をControlSourc...
回答  G-Luck  - 05/1/19(水) 15:39 -
引用なし
パスワード
   目に付くことを気にされるのでしたら、Worksheetを非表示にされてはどうですか？
Visibleを　2　xlSheetVisibleHide にすると、マクロかVBEからしか操作できなくなりますよ。

また、
ThisWorkbook.CustomDocumentProperties.Add "ABC",value
とすると、ブックにABCというプロパティを追加して値を保持できます。
呼び出しは、
buf = ThisWorkbook.CustomDocumentProperties("ABC")
削除は
ThisWorkBook.CustomDocumentProperties("ABC").Delete
です。
【21346】Re:テキストボックスの値をControlSourc...
発言  G-Luck  - 05/1/19(水) 16:03 -
引用なし
パスワード
   失礼しました。間違いがありました。

>ThisWorkbook.CustomDocumentProperties.Add "ABC",value
>とすると、ブックにABCというプロパティを追加して値を保持できます。

追加するのは、
ThisWorkbook.CustomDocumentProperties.Add "ABC", False,　msoPropertyTypeNumber,value

でした、mso〜は保存する値によって変更が必要です。詳細は、Helpを見てください。
【21347】CustomDocumentProperties.Addについて
質問  トコ  - 05/1/19(水) 16:16 -
引用なし
パスワード
   G-Luck さんありがとうございました。
シートを非表示にする方法はわかりました。
当面これを使いたいと思います。ありがとうございました。


>追加するのは、
>ThisWorkbook.CustomDocumentProperties.Add "ABC", False,　msoPropertyTypeNumber,value
>
>でした、mso〜は保存する値によって変更が必要です。詳細は、Helpを見てください。
勉強用にこちらもみましたが、
Helpの説明が難しく、この場合の「value」に例えば何を入れればいいかわかりません。
もしよろしければ、例を示していただけると助かります。
【21349】Re:CustomDocumentProperties.Addについて
回答  G-Luck  - 05/1/19(水) 16:33 -
引用なし
パスワード
   HelpはDocumentPropertiesで調べたほうがわかりやすいですね。
メソッドのAddのところに、それぞれの説明がついています。

この場合(msoPropertyTypeNumber)は、数値を入れてください。

Dim N as Long
Dim M as Long
N=100

With ThisWorkbook.CustomDocumentProperties
　　.Add "ABC", False,　msoPropertyTypeNumber,N
　　M = .Item("ABC")
　　.Item("ABC").Delete
　　MsgBox M
End With

でどうでしょう？
【21350】ありがとうございました
お礼  トコ  - 05/1/19(水) 17:16 -
引用なし
パスワード
   度々のレスありがとうございました。

「ABC」というプロパティを追加して、
そこに100という値を保存するということなのですね。
とても勉強になりました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10518 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free