Excel VBA質問箱 IV

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

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


13868 / 76738 ←次へ | 前へ→

【68372】日付を記号で
質問  HIRO  - 11/2/28(月) 13:52 -

引用なし
パスワード
   下記コードを詳しく説明してもらえないでしょうか?
お願いします。

Sub Test_2()
  Dim i As Long, j As Long, k As Long
  Dim c As Range
  
  For i = 1 To 3
    j = WorksheetFunction.Max(j, Cells(Rows.Count, i).End(xlUp).Row)
  Next i
  If j >= 2 Then
    Range("D2:D" & j).Resize(, 48).ClearContents
    For Each c In Range("A2:C" & j)
      If IsDate(c.Value) Then
        k = (Month(c.Value2) - 1) * 4 + _
          WorksheetFunction.Match(Day(c.Value2), Array(1, 8, 16, 23), 1)
        c.EntireRow.Cells(3 + k).Value = c.EntireRow.Cells(3 + k).Value _
          & Choose(c.Column, "○", "◎", "★")
      End If
    Next
  End If
End Sub

0 hits

【68372】日付を記号で HIRO 11/2/28(月) 13:52 質問
【68373】Re:日付を記号で とおりすがり 11/2/28(月) 14:38 回答
【68374】Re:日付を記号で UO3 11/2/28(月) 14:43 発言
【68375】Re:日付を記号で UO3 11/2/28(月) 14:46 発言
【68383】Re:日付を記号で HIRO 11/3/1(火) 16:22 質問
【68384】Re:日付を記号で UO3 11/3/1(火) 21:04 回答
【68385】Re:日付を記号で とおりすがり 11/3/1(火) 21:33 回答
【68386】Re:日付を記号で UO3 11/3/1(火) 21:53 回答
【68387】Re:日付を記号で UO3 11/3/1(火) 22:04 発言

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