Excel VBA質問箱 IV

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

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


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

38460 / 76738

←次へ　｜　前へ→


	【43414】Re:数式を変えるには？

ハチ - 06/10/13(金) 16:37 -


	引用なし

	パスワード

▼たろうくんさん：

E5の年で処理を分けたいならこんな感じですか？

Sub Test()
　　Dim Y As Integer
　　
　　Y = Year(Range("E5").Value)
　　Select Case Y
　　　　Case 2006
　　　　　　MsgBox "Aです"
　　　　Case 2007
　　　　　　MsgBox "Bです"
　　　　Case 2008
　　　　　　MsgBox "Cです"
　　　　Case Else
　　　　　　MsgBox "その他です"
　　End Select
End Sub

関数でやるなら（あんまり自信ないんですけど・・）
VLOOKUPを使ってこんな感じでいけないですかね？

=VLOOKUP(E5,OFFSET(A!G:I,0,(YEAR(E5)-2006)*4),3,0) & " "

0 hits

▼

【43405】数式を変えるには？ たろうくん 06/10/13(金) 12:27