社会人&学生におすすめする色彩検定の勉強術

A5:A45に名前
H2に今日の日付
J2に今月始
K2に今月末
E5:AI45に日付(将来的に6ヶ月ごとの日付)が表示されています。
E5:AI45から今月中のひとの名前を
J3から右へ表示させたいのです。
よろしくお願いいたします。

質問者からの補足コメント

  • 様式が会社仕様なので変更できません。過去から将来まで表示されているようです。
    日付は=EDATE(M7,6)の数式が入っています。
    入社日を基準にして数式が入っています。
    イメージは添付していただいた画像の通りです。

    No.1の回答に寄せられた補足コメントです。 補足日時:2022/06/12 22:12
教えて!goo グレード

A 回答 (2件)

こちらのマクロをお試しください。



Sub sample()
  Dim gyou As Long
  Dim retu As Long
  Dim kinyu As Long
  
  kinyu = 10 '記入列(J列)
  Range(Cells(3, kinyu), Cells(3, Columns.Count)).ClearContents  '表示してる名前をクリア
    
  For gyou = 5 To 45 '行範囲
    For retu = 5 To 35 'E列~AI列
      If DateSerial(Year(Cells(gyou, retu)), Month(Cells(gyou, retu)), 1) = Range("J2") Then
          '日付の「1日」が、今月始(J2セル;1日と想定)と同じなら…
        Cells(3, kinyu) = Cells(gyou, 1)  '3行目の記入列に名前を書き出す
        kinyu = kinyu + 1  '記入列を右にずらす
        Exit For  '次の行へ
      End If
    Next
  Next
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございます。
表の形式を変えずに名前を記入することができました。

お礼日時:2022/06/12 23:34

「日付」と書かれているのはセルの書式で【日付】なのか?【文字列】なのか?


E5:AI45が6ヶ月ごとの日付なら、
E5が2022/6/12なら、AI5は2037/6/12という15年に渡るスケジュール表?

具体的どういう挙動にしたいのか、
補足でイメージの画像を添付していただけないでしょうか。
(テキトーに作ってみたけど添付画像みたいなものなのかな。ちょっとボケててすみません。)

マクロを使えば簡単にできそうだとは思います。
「EXCELの関数での処理をおしえてくださ」の回答画像1
この回答への補足あり
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング