|
こんにちは。かみちゃん です。
> 以下の構文を簡単にする方法
仕様の説明が一切にいので、よくわかりませんが、以下のような感じでいいと思います。
詳細は、ヘルプを調べてみて、どうしてもわからなければ、聞いてください。
Sub Test()
Dim PasteRange As Range
Set PasteRange = Nothing
With Sheets("Products")
Select Case Range("A10").Value
Case "I-1"
Set PasteRange = .Range("F3")
Case "I-2"
Set PasteRange = .Range("F4")
Case "I-3"
Set PasteRange = .Range("F5")
Case "I-4"
Set PasteRange = .Range("F6")
Case "I-5"
Set PasteRange = .Range("F7")
End Select
End With
If Not PasteRange Is Nothing Then
PasteRange.Value = Range("H10").Value
Else
MsgBox "A10セルの値を確認してください。[" & Range("A10").Value & "]"
End If
End Sub
|
|