[[20150216091107]]　『日付表へのハイパーリンク作成』（玲）　ページの最後に飛ぶ

『日付表へのハイパーリンク作成』（玲）

よろしくお願いします。

 月名シート（m月d日）が1年分あり、その中に
 日付の入った定型の表が多数ならんでいます（日付はD列）
 最初に開ける表からハイパーリンクで「今日」の表へ
 飛ぶことは可能でしょうか？
 =HYPERLINK(TEXT(TODAY(),"!#m月!!C"""&MATCH(TODAY(),INDIRECT(TEXT(TODAY(),"m月!!D:D")))&""""),"今日")
 これでシートまでは行くのですが
 D:D部分をm月d日(aaa)などの変えたのですがダメでした。
 よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 表の形がどうなっていて、どうなれば「うまい」のかわからないです。

 月別のシートがシート名「2月」だとして、このような表があって
 「今日」が2/2だったら、どのように「画面に表示」されればいいんですか？

 ↓ここが画面の始まりとする
     [D]       [E]     [F]   [G]   [H]   [I]   
[ 1] 2月1日    前日残  生産  売上  廃棄  在庫
[ 2] 関東支店  10      80    70    10    10
[ 3] 関西支店  50      30    50    10    20
[ 4] 中国支店  20      80    50    10    40
[ 5] 近畿支店  80      20    90    10     0
[ 7]                    
[ 8] 2月2日    前日残  生産  売上  廃棄  在庫
[ 9] 関東支店  10      50    60     0     0
[10] 関西支店  20      60    50    20    10
[11] 中国支店  40      40    60     0    20
[12] 近畿支店   0      80    50    10    20
（稲葉） 2015/02/16(月) 09:48

 中の関数がきちんと動作しているか、確認しながら式を組み立ててはと思います。

 他にもおかしいところはありそうですが、TEXT(TODAY(),"m月!!D:D") では D列ではなく
 日付に変換されてしまいます。
 書式として変換したい部分だけをTEXT で記述し、そのほかの部分は文字列として書いた
 方が紛れが無いと思います。

 =HYPERLINK("#"&TEXT(TODAY(),"m月")&"!C"&MATCH(TODAY(),INDIRECT(TEXT(TODAY(),"m月")&"!D:D"),0),"今日")
 で、どうでしょうか。

（Mook） 2015/02/16(月) 09:55

稲葉さん、Mookさんありがとうございます。

 Mookさんの関数で無事動きました。
 稲葉さんのご指摘の部分、2月2日を選択できれば大丈夫ですが
 確かに、2月2日が画面の下の方に出てしまうと
 表自体が見づらいことに、動かしてみて初めて気づきました　(^_^;)
 2月2日を画面のトップに表示させるような方法が
 あると助かりますが…可能でしょうか？

（玲） 2015/02/16(月) 11:21

[[20141120215113]]

 こちらの、ねむねむさんの回答が役に立つかと思われます。
（稲葉） 2015/02/16(月) 11:53

マクロ有りなら、VBE の ThisWorkbook に下記、なんていうのも。

 Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ActiveWindow.ScrollRow = ActiveCell.Row
 End Sub

（Mook） 2015/02/16(月) 12:04

稲葉さん、Mookさん

 大変参考になりました。
 ありがとうございます。
（玲） 2015/02/16(月) 13:18

コメント返信：

[ 一覧(最新更新順) ]

[[20150216091107]] 『日付表へのハイパーリンク作成』（玲） ページの最後に飛ぶ

[[20150216091107]]　『日付表へのハイパーリンク作成』（玲）　ページの最後に飛ぶ