Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45678 / 76807

←次へ　｜　前へ→


	【36119】Re:構文を簡素にする

かみちゃん

- 06/3/21(火) 18:20 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

> 以下の構文を簡単にする方法

仕様の説明が一切にいので、よくわかりませんが、以下のような感じでいいと思います。
詳細は、ヘルプを調べてみて、どうしてもわからなければ、聞いてください。

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

1 hits

▼

【36116】構文を簡素にする ゆか 06/3/21(火) 18:06