| |
Sub ff()
Dim i As Variant
Dim data As Variant
i = 1
data = Worksheets("2").Range("c1").Offset(i, 0)
With Worksheets("納品書").Range("c5").Offset(i * 15 - 15, 0)
If (.Value) = data Then
Range(Cells(i * 15 - 5, 3), Cells(i * 15, 3)). _
SpecialCells(xlCellTypeBlanks).Cells(1).Select
Selection = 3
End If
End With
End Sub
これではＣ10−Ｃ14の空白セルがなくなるまで「3」を入力し続けますが
「納品書」のＣ5＝「2」のＣ1であれば(同じでなければ「納品書」のＣ20・Ｃ35・・・をチェック)選択セルの5-10下のセルのなかで最初の空白セルの値を3と入力処理を一度済ませば、(5-10下のセルの中に)空白セルの有無に関わらず1回目の処理を終わらせる。
そして2回目の処理は、（「納品書」のＣ20＝「2」のＣ2であればＣ列の10-14のなかで最初の空白セルの値を3と入力処理でなく）「納品書」のＣ5＝「2」のＣ2であれば(同じでなければ「納品書」のＣ20・Ｃ35・・・をチェック)選択セルの5-10下のセルの中で最初の空白セルの値を3と入力処理を一度済ませば、(5-10下のセルの中の)空白セルの有無に関わらず2回目の処理を終わらせる。
そして3回目の処理は、（「納品書」のＣ35＝「2」のＣ3であればＣ列の10-14のなかで最初の空白セルの値を3と入力処理でなく）「納品書」のＣ5＝「2」のＣ3であれば(同じでなければ「納品書」のＣ20・Ｃ35・・・をチェック)選択セルの5-10下のセルの中で最初の空白セルの値を3と入力処理を一度済ませば、(5-10下のセルの中の)空白セルの有無に関わらず3回目の処理を終わらせる・・・。
にしたいのですが、どうすれば良いでしょうか？
|
|
ほい
- 05/3/4(金) 16:41 -
