Excel VBA質問箱 IV

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

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


45603 / 76732 ←次へ | 前へ→

【36119】Re:構文を簡素にする
回答  かみちゃん E-MAIL  - 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
7 hits

【36116】構文を簡素にする ゆか 06/3/21(火) 18:06 質問
【36119】Re:構文を簡素にする かみちゃん 06/3/21(火) 18:20 回答
【36120】Re:構文を簡素にする ponpon 06/3/21(火) 18:21 発言
【36122】Re:構文を簡素にする ゆか 06/3/21(火) 18:52 質問
【36123】Re:構文を簡素にする かみちゃん 06/3/21(火) 18:57 回答
【36125】Re:構文を簡素にする ゆか 06/3/21(火) 19:34 お礼
【36126】Re:構文を簡素にする かみちゃん 06/3/21(火) 19:40 発言
【36130】Re:構文を簡素にする ゆか 06/3/21(火) 20:44 お礼
【36131】Re:構文を簡素にする かみちゃん 06/3/21(火) 20:59 発言
【36133】Re:構文を簡素にする ponpon 06/3/21(火) 21:49 発言
【36138】Re:構文を簡素にする Jaka 06/3/22(水) 11:53 発言

45603 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free