Results of 1 - 1 of about 1242 for カレンダー (0.001 sec.)
- [[20110806205157]]
- #score: 6118
- @digest: 470dadd3f9d0e502a841c9937d6f3a5f
- @id: 55474
- @mdate: 2011-08-07T00:08:52Z
- @size: 1824
- @type: text/plain
- #keywords: showcalendarfromrange (20578), 視if (9482), 視( (6058), 回サ (4638), ク時 (3228), 独セ (2990), 択時 (2874), 時フ (2087), カレ (1805), selectionchange (1781), target (1463), 数セ (1236), レン (1123), 択と (1113), ル? (994), ンダ (990), ル選 (944), ダー (916), とc1 (902), 例) (885), 結合 (866), 無視 (793), 単独 (754), リッ (636), クリ (630), ォー (609), ーフ (573), 表現 (562), ーム (539), 起動 (507), 合セ (504), フォ (468)
- 『VBAフォームをセルでクリックでだしたい』（かじや）
カレンダーをセルクリックで表示させたいのですが..... サイトで見つけたのですが、セルをクリックしたときに表示させたいのです。 例えば、A1のセルをクリックしたときに、カレンダーが表示して日付を選択したときにA1に選択した日付を表示させたいのです。 表示の仕方はわかりましたが、A1とC1のみクリック時フォームが開くようにしたいのです。 どのように直したら宜しいですか? 教えて頂きたく思います。 これはA列のみ表示させるVBAですがどうすればよろしいでしょうか? Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' 複数セル選択時は無視 If Target.Count <> 2 Then Exit Sub ' A列以外は無視(今回サンプルの例) If Target.Column <> 2 Then Exit Sub ' カレンダーフォームを起動する Call ShowCalendarFromRange(Target) End Sub ---- Private Sub Worksheet_SelectionChange(ByVal target As Range) ' 複数セル選択時は無視 If target.Count <> 1 Then Exit Sub '★ 2じゃなく1でしょ? 'A1,C1クリック時のみ If Not Intersect(target, Range("A1, C1")) Is Nothing Then ' カレンダーフォームを起動する Call ShowCalendarFromRange(target) End If End Sub (ぶらっと) ---- 結合セルがあるのかと思いましたが? ＞If Target.Column <> 2 Then Exit Sub Column を調べてみてくださいね ---- 有り難うございます。 BCを結合した場合はどのようにすれば宜しいですか?? 宜しくお願いします。 （かじや） ---- >BCを結合 B1とC1が結合されている? そうすると、C1を選択という表現よりB1を選択という表現の方が「シート上の見た目」としては適切だけど。 A1は単独セル?ともあれ、 Private Sub Worksheet_SelectionChange(ByVal target As Range) Select Case target.Address(False, False) Case "A1", "B1:C1" Call ShowCalendarFromRange(target) End Select End Sub (ぶらっと)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201108/20110806205157.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97065 documents and 608341 words.
訪問者：