|
℃素人 さん、Hirofumiさん、こんばんは。
前回の投稿を記述していただいたので、
思い出すのが容易でした。
私の個人的な感想としては、℃素人 さんのご質問は
非常にわかりやすい記述だと思います。
前回のコードほんのちょっと変更しました。
'====================================================
Sub main()
Dim comptry As Variant
Dim rng As Range
comptry = Application.InputBox("比較する試行前入力", , , , , , , 1)
'ここで、1とか2とかを指定します。
If TypeName(comptry) <> "Boolean" Then
Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp))
If rng.Row > 1 Then
With rng.Offset(0, 3).Resize(, 2)
.Formula = Array( _
"=if(a2<=" & comptry & ",""/"",if(or(c2="""",c" & 2 + comptry & "=""""),"""",IF(C2=C" & 2 + comptry & ",B2,"""")))", _
"=if(a2<=" & comptry & ",""/"",if(or(c2="""",c" & 2 + comptry & "=""""),"""",IF(C2=C" & 2 + comptry & ","""",b2)))")
End With
End If
End If
End Sub
確認してみて下さい。
|
|