Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6695 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43765】入力規則 ゆう 06/10/25(水) 10:15 質問[未読]
【43770】Re:入力規則 ぱっせんじゃー 06/10/25(水) 12:14 発言[未読]
【43771】Re:入力規則 ぱっせんじゃー 06/10/25(水) 12:15 発言[未読]
【43772】Re:入力規則 Jaka 06/10/25(水) 12:17 発言[未読]
【43773】Re:入力規則 ぱっせんじゃー 06/10/25(水) 12:36 発言[未読]
【43774】Re:入力規則 ぱっせんじゃー 06/10/25(水) 12:38 発言[未読]
【43775】Re:入力規則 ゆう 06/10/25(水) 13:02 お礼[未読]
【43776】Re:入力規則 Jaka 06/10/25(水) 13:32 発言[未読]
【43777】Re:入力規則 ゆう 06/10/25(水) 14:12 お礼[未読]
【43765】入力規則
質問  ゆう  - 06/10/25(水) 10:15 -
引用なし
パスワード
   お世話になります。
VBAでの質問の前に、エクセルとしての質問になってしまいますが、
セルで入力規則をつけてリストからプルダウンで選択できるように
したいのですが、
その▼印を常に表示しておくことは可能なのでしょうか?
現状、セルを選択すると右に▼印がでるのですが。。。
セルを触らないとそこが選択できるセルなのかがわからないので。

またそれをVBAにてコーディングは可能でしょうか？

よろしくお願いします。
【43770】Re:入力規則
発言  ぱっせんじゃー  - 06/10/25(水) 12:14 -
引用なし
パスワード
   リストから選択後は消えちゃいますが、
最初に、セルに"選択"などと入れておく、
ではだめですか？
【43771】Re:入力規則
発言  ぱっせんじゃー  - 06/10/25(水) 12:15 -
引用なし
パスワード
   あるいは、隣のセルに

←リストから選択

と入れるとか。
【43772】Re:入力規則
発言  Jaka  - 06/10/25(水) 12:17 -
引用なし
パスワード
   >▼印を常に表示しておくことは可能なのでしょうか?
これは、多分できないと思います。
ＡＰＩ等を駆使すればできるのかもしれませんけど...。

私は、記入欄はセルの色を変えたりしてますが、入力規則のセルは記入字のアラートや記入後のアラート設定しているだけで、セルを選択すれば自動で▼が出るから直接記入はしないだろうと思ってます。
入力規則のセルがデータ増量などで多くなりそうな場合は、全部のセルに設定すると重くなるので、選択時にマクロで入力規則の設定してますけど...。
別のセルを選択時に消しているので、履歴等が増えたり？（増えるのか解りませんが）してなんとなくいやな気もしますが、シート全体が重くなるよりは良いかと思ってます。
【43773】Re:入力規則
発言  ぱっせんじゃー  - 06/10/25(水) 12:36 -
引用なし
パスワード
   いちいち起動するのでうざったいですが、セルに入力規則が設定されて
いたらドロップダウンさせる、という方法もあります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRng As Range
　Set MyRng = Intersect(ActiveCell, Cells.SpecialCells(xlCellTypeAllValidation))
　 If MyRng Is Nothing Then
　　　Exit Sub
　 Else
　　　Application.SendKeys "%{down}"
　 End If
End Sub
【43774】Re:入力規則
発言  ぱっせんじゃー  - 06/10/25(水) 12:38 -
引用なし
パスワード
   >セルを触らないとそこが選択できるセルなのかがわからないので。

ということでしたので、意味内でしたね。
失礼しました。
【43775】Re:入力規則
お礼  ゆう  - 06/10/25(水) 13:02 -
引用なし
パスワード
   ぱっせんじゃーさん、Jakaさん

回答ありがとうございます。
▼印を初めに表示するのは無理なんですね。
皆さんに相談してよかったです。
1人で考えていると、ずっと無理な方向に進んでいってたと
思いますので。。。。
お二人の意見を参考にして、いろいろ考えてみます。
本当にありがとうございました。
また何かあったときはよろしくお願いします。
【43776】Re:入力規則
発言  Jaka  - 06/10/25(水) 13:32 -
引用なし
パスワード
   　 入力規則にこだわらない。数が少ない（どれほどで多いといえるか確認したこと無いけど）、
加えてマクロの使用もＯＫというのなら、他に方法がありますが....。

・入力規則にこだわらない。数が少ない
表示　→　ツールバー　→　コントロールボックス　のコンボボックスなら
マクロ無し可　＆　デザインモードをOnにしない限り、コンボボックスを移動できない利点あり。
マクロでの処理にも対応できます。

マクロなしの場合。
リスト候補となるリストセルを作っておく。

コンボボックスを入力したいセルの上に作り、コンボボックスのプロパティより

ListFilRangeに
Sheet2!A1:A10
上記のように参照セルアドレスを記入。

LinkedCell
Sheet1!A10
コンボボックスを置いたセルとすれば、コンボボックスで選択された内容がセルに表示されます。

確認したければ、別のセルに =A10 と書いておけばA10セルの内容がわかると思います。

表示　→　ツールバー　→　フォーム　の方は、マクロを使用。
【43777】Re:入力規則
お礼  ゆう  - 06/10/25(水) 14:12 -
引用なし
パスワード
   ▼Jaka さん：
再度の回答ありがとうございます。
しかしながら、条件付書式も使ってまして。。。
セルの色とかの変更もしたいんです。
コンボボックスって透明って出来ませんよね？？
いろいろ考えたんですが、
デフォルトで『（選択項目）』みたいなのを入れとこうと
思ってます。
しかし、ここでも問題が、、、、
入力規則の空白を無視するでリスト以外の入力を不可にしようとすると
『（選択項目）』のデフォルトもリストに入ってないと無理なんですよね。
う〜ん。なかなか悩まされます。。。

Jakaさんの今回の回答ですが、他の時に使用できそうって思いました。
また使わさせていただきますね。
親切な回答に本当に感謝してます。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6695 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free