- ベストアンサー
Excelで勉強計画表作りたい/問題別と学習日別で
- Excelで勉強計画表を作成する方法を教えてください。問題別と学習日別に表を作りたいです。
- 勉強計画表では、問題番号と学習日を記入します。数学IIと物理の情報を含む複数のタブを作成します。
- また、問題別の計画表と日別のリンクを自動化したいです。日ごとのやるべき問題が一目で分かるようにしたいです。
- M_R_S
- お礼率73% (111/151)
- Excel（エクセル）
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
関数は分からないのでマクロですが 左端のシートに結果を表示して、左から2番目から「数IIチャート」「物理精講」などのシートを並べてください。 数IIチャートなどのシートの日付はB列に 結果を表示するシートの日付はA列に記載してください。 日付は必ず日付データとしてください。 全てデータは1行目からあると考えています。 結果を表示するシートのタブを右クリックすると「コードの表示」があると思います、そこでで出てきた画面にコピペしてください。あとは適当なボタンを追加して関連付けてください。 実行すると一番最初に結果を表示するシートの過去のデータを消すためにB列からZ列までのデータをクリアします。 その後、数IIチャートのシートから順にシートを切り替えながらデータを選んで記載します。 Sub Test() Dim i As Long, j As Long Dim fRange As Range Range("B:Z").ClearContents For i = 2 To Worksheets.Count With Worksheets(i) For j = 1 To .Cells(Rows.Count, "B").End(xlUp).Row Set fRange = Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp)).Find(What:=.Cells(j, "B").Value, lookat:=xlWhole) If Not fRange Is Nothing Then Cells(fRange.Row, Cells(fRange.Row, Columns.Count).End(xlToLeft).Column + 1).Value = .Name & .Cells(j, "A").Value End If Next End With Next End Sub
その他の回答 (1)
- okok456
- ベストアンサー率43% (2746/6352)
関数で、自動リンクは私には難しいですが Excelで勉強計画表を作ることより その日に勉強する問題 が解ることが重要でしょうから 日付と数IIチャート問題、物理精講問題をまとめた下の表だけで良いと思います。 毎回 「数IIチャート問題、物理精講問題」の入力は面倒ですから [1,2,3 ] [a,b,c]の入力だけ良いでしょう。 添付画像上 参考 数IIチャート問題、物理精講問題 を別々の表で管理し同時に見ることも可能です。 参考 同じファイル内のシートを並べて表示 https://www.becoolusers.com/excel/new-window.html 添付画像下 参考 ついでに、タイトルの行を固定しスクロールできるようする設定を https://121ware.com/qasearch/1007/app/servlet/qadoc?QID=018326
お礼
kkkkkm様、 早速の回答、ありがとうございました。 以前も、私、マクロでお世話になったことがあります。 本当に、いつも、いつもありがとうございます。 実際にマクロを埋め込み、動作させてみました。 一発で、私が欲しかった表が、一瞬で出来上がりました。 ちょっと感動ものです。 ずっと勉強計画表を、どうしようか悩んでいたのですが、一瞬で解決です 本当に重ね重ね、感謝いたします、ありがとうございました。