Excel VBA質問箱 IV

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

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


11808 / 13645 ツリー ←次へ | 前へ→

【13975】検索方法を教えてください。 トミ 04/5/18(火) 10:46 質問[未読]
【13978】Re:検索方法を教えてください。 Jaka 04/5/18(火) 11:03 回答[未読]
【13991】Re:検索方法を教えてください。 トミ 04/5/18(火) 13:05 質問[未読]
【13995】Re:検索方法を教えてください。 Jaka 04/5/18(火) 13:21 回答[未読]
【14006】Re:検索方法を教えてください。 トミ 04/5/18(火) 14:53 お礼[未読]
【14009】Re:検索方法を教えてください。 Jaka 04/5/18(火) 15:21 回答[未読]
【14012】Re:検索方法を教えてください。 トミ 04/5/18(火) 15:50 お礼[未読]

【13975】検索方法を教えてください。
質問  トミ  - 04/5/18(火) 10:46 -

引用なし
パスワード
   Sheet2のF2F3と以下の日付が入っております。

2004/2/3
2004/2/5
2004/2/5
2004/3/2
2004/4/15
2004/4/15
2004/4/17
2004/4/17
2004/4/22
2004/4/15

Sheet1のB4、C4に2004/02/03、2004/22と古い履歴、最新履歴として表示させ、
D4にセル入力されている総合計を表示させたいと考えております。10

やり方が分からない為、どなたか教えてください。

【13978】Re:検索方法を教えてください。
回答  Jaka  - 04/5/18(火) 11:03 -

引用なし
パスワード
   こんにちは。

B4に
=MINA(Sheet2!F2:F20)

C4に
=MAXA(Sheet2!F2:F20)

といれ、表示したい表示形式に変えれば良いと思います。

尚、
>D4にセル入力されている総合計を表示させたいと考えております。
意味がよくわからないんですけど、日付をソートしたりしてはいけないのでしょうか?

【13991】Re:検索方法を教えてください。
質問  トミ  - 04/5/18(火) 13:05 -

引用なし
パスワード
   Jakaさんご返信ありがとうございます。

すいません、始めからSheet2があるわけではないんです。

ファイルAにはSheet1しかなくコマンドボタンを
貼りつけています。
コマンドボタンを使って別ファイルSheet1を呼び出して、
ファイルAへcopyしています。新規シート(Sheet2)として。
その後、Sheet2の日付(古い日付と最新日付)をSheet1へ表示させ
たいと考えております。

そのような条件な為、以下関数を入れると#REF!エラーで
返ってきてしまいます。
>B4に
>=MINA(Sheet2!F2:F20)
>
>C4に
>=MAXA(Sheet2!F2:F20)

【13995】Re:検索方法を教えてください。
回答  Jaka  - 04/5/18(火) 13:21 -

引用なし
パスワード
   こういうことでいいのでしょうか?

Range("B4").Value = Application.Evaluate("MINA(" & "貼り付けたシート名" & "!F2:F20)")
Range("C4").Value = Application.Evaluate("MAXA(" & "貼り付けたシート名" & "!F2:F20)")

【14006】Re:検索方法を教えてください。
お礼  トミ  - 04/5/18(火) 14:53 -

引用なし
パスワード
   ありがとうございました。
試してみたところ問題ありませんでした。

あと、もう一つ教えてください。
Sheet2にF2からF11に日付が10行入っています。
Sheet1のD4に合計数 10と表記させたいと思っています。
どのようにすればよろしいでしょうか。
先ほどと同じコマンドボタンで処理をおこないたいと
考えています。

お願いいたします。

【14009】Re:検索方法を教えてください。
回答  Jaka  - 04/5/18(火) 15:21 -

引用なし
パスワード
   こんなのとか。
Range("D4").Formula = "=COUNTA(" & "Sheet2" & "!F:F)"
Range("D4").Value = Range("D4").Value


これとか。
Range("D4").Value = Application.CountA(Sheets("Sheet2").Columns("F"))

【14012】Re:検索方法を教えてください。
お礼  トミ  - 04/5/18(火) 15:50 -

引用なし
パスワード
   ありがとうございました。

ご迷惑おかけしてすいませんでした。
無事表示させる事ができました。

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