【至急助けて下さい!!】VBAでのＩＦ関数挿入
VBA初心者です。上級者の方助けてください。
VBAで入力セルを消去後、ＩＦ関数をN列に挿入したいです。
挿入したいＩＦ関数のところが解決できればあとの記述はなんとかなります。
■挿入したいＩＦ関数
=IF(M4=$Y$5,$Z$9,IF(M4=$Y$6,$Z$9,IF(M4=$Y$7,$Z$9,IF(M4=$Y$8,$Z$6,IF(M4=$Y$9,$Z$10,IF(M4=$Y$10,$Z$9,IF(M4=$Y$14,$Z$7,IF(M4=$Y$15,$Z$8,""))))))))
他関数は下記構文でうまくいくのですが、
ＩＦ関数はどのように記述したらよろしいでしょうか。
■他
ws.Cells(i, jig_col).Value = "=VLOOKUP(F" & i & ",Sheet1!$A$2:$C$358,2,0)"
■現在の記述
Dim ws As Worksheet
Dim endrow As Long
Dim endcol As Long
Dim you_col As Integer
Dim gak_col As Integer
Dim jig_col As Integer
Dim bc_col As Integer
Dim chg_col As Integer
Dim i As Long
'確認メッセージを表示し、「NO」の場合は処理を行わない
If MsgBox("入力されている内容をクリアします。よろしいですか？", vbYesNo) = vbNo Then
Exit Sub
End If
'画面の更新を行わない
Application.ScreenUpdating = False
Set ws = ThisWorkbook.Sheets("シンフォームイレギュラー運用状況")
'呼び出し元シートの最終行、最終列を取得する
endrow = ws.Cells(ws.Rows.Count, 6).End(xlUp).Row
endcol = ws.Cells.Find(What:="変更フラグ", LookIn:=xlValues, LookAt:=xlWhole).Column - 2
If endrow < 4 Then Exit Sub
ws.Range(ws.Cells(4, 1), ws.Cells(endrow, endcol)).ClearContents
you_col = ws.Cells.Find(What:="曜日", LookIn:=xlValues, LookAt:=xlWhole).Column
gak_col = ws.Cells.Find(What:="学年", LookIn:=xlValues, LookAt:=xlWhole).Column
jig_col = ws.Cells.Find(What:="事業所", LookIn:=xlValues, LookAt:=xlWhole).Column
'bc_col = endcol - 1
'chg_col = endcol
For i = 4 To endrow
ws.Cells(i, you_col).Value = "=B" & i
ws.Cells(i, gak_col).Value = "=VLOOKUP(F" & i & ",Sheet1!$A$2:$C$358,3,0)"
ws.Cells(i, jig_col).Value = "=VLOOKUP(F" & i & ",Sheet1!$A$2:$C$358,2,0)"
'ws.Cells(i, bc_col).Value = "=IFERROR(MID(H" & i & ",LEN(H" & i & ")-1,1), "")"
'ws.Cells(i, chg_col).Value = 0
ws.Range("W" & i).Value = 0
Next
'画面の更新を行う
Application.ScreenUpdating = True
End Sub
お礼
n-junさん ありがとうございました。 下の構文で出来ました。 Dim i As Long Range("A5：A232").ClearContents Range("A5").Formula = "=IF(F5<>"""",A4+1,0)" For i = 7 To 232 Step 2 Cells(i, "A").Formula = "=IF(F" & i & "<>"""",MAX($A$4:A" & i - 1 & ")+1,0)" Next
補足
n-junさん 早速の回答ありがとうございます。 質問の説明が、へたですみません。 Cells(i, "A").Formula = "=IF(F7<>"""",MAX($A$4:A" & i - 1 & ")+1,0)" －－－ F7のところが、F7、F9、F11と変化します。 その場合の構文をお教えください。 手間をおかけしてすみません。