回答編集履歴
1
説明追記
test
CHANGED
|
@@ -12,6 +12,17 @@
|
|
|
12
12
|
MsgBox StartRow '確認用
|
|
13
13
|
' For S1 = StartRow To Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
|
|
14
14
|
' Next
|
|
15
|
-
|
|
16
15
|
```
|
|
17
16
|
|
|
17
|
+
> また、Sheet2のテキストボックスに「8」と入力したらSheet2のF列に、
|
|
18
|
+
>「9」と入力したらSheet2のG列にコピーできるようにしたいです。
|
|
19
|
+
|
|
20
|
+
Ａ1セルに月が入力されているようなので、これを使って、Matchで検索すればどうでしょう。
|
|
21
|
+
|
|
22
|
+
```vba
|
|
23
|
+
Dim MonthColumn As Long
|
|
24
|
+
|
|
25
|
+
MonthColumn = WorksheetFunction.Match(Sheet1.Range("A1"), Sheet2.Rows(4), 0)
|
|
26
|
+
MsgBox MonthColumn
|
|
27
|
+
```
|
|
28
|
+
あと、案件番号もMatchを使えば、２重ループにする必要はなくなります。
|