Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3066 / 76735

←次へ　｜　前へ→


	【79307】Re:イベント管理:複数ファイルのイベント名と日付の統合

マナ - 17/7/7(金) 20:44 -


	引用なし

	パスワード

▼VBA 初心者さん：

この手の転記・集計ものは、苦手というか興味がないのですが
回答がつかないようなので。

１シートの場合は、こんな感じでできます。
これを参考に、修正していけば、お望みのものになると思います。

ですが、まずは、以下のコードを理解できるくらいまでは
基本的なことを勉強してからかもしれません。

Option Explicit

Sub test()
　　Dim ws As Worksheet
　　Dim v
　　Dim j As Long, k As Long
　　Dim m As Long, n As Long
　　Dim w(1000, 12)
　　
　　Set ws = ActiveSheet
　　
　　v = ws.Range("A1").CurrentRegion.Value
　
　　For k = 2 To UBound(v, 2)
　　　　w(n, 0) = v(1, k)
　　　　For j = 2 To UBound(v, 1)
　　　　　　If v(j, k) = "" Then Exit For
　　　　　　m = Month(v(j, k))
　　　　　　If m > 3 Then
　　　　　　　　m = m - 3
　　　　　　Else
　　　　　　　　m = m + 9
　　　　　　End If
　　　　　　w(n, m) = "○"
　　　　Next
　　　　n = n + 1
　　Next
　　　　　　
　　With Worksheets.Add
　　　　With .Range("B1")
　　　　　　.Value = "4月"
　　　　　　.AutoFill .Resize(, 12)
　　　　End With
　　　　.Range("A2").Resize(n, 13).Value = w
　　End With

End Sub

0 hits

▼

【79303】イベント管理:複数ファイルのイベント名と日付の統合 VBA 初心者 17/7/6(木) 22:04