Excel VBA質問箱 IV

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

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


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

3631 / 76735

←次へ　｜　前へ→


	【78733】Re:ファルダ内の画像を任意のセルに貼り付ける方法

VBA勉強中 - 17/1/11(水) 12:02 -


	引用なし

	パスワード

▼β さん：
追記です。
Set Pos = Pos.Offset(, 11)
の部分をselect case 構文を用いようと思います。
列がFの場合、右に11進める
列がQで17行下が空だった場合、左に11、下に17進める
列がQで17行下が空ではない場合(画像を入れるセル以外にはすべて文字が入力されています)、左に11、下に22進める

としてみようかと思います。

Select Case True
　　　　　　Case Pos = Sheets("sheet1").Range("F")
　　　　　　　　Set Pos = Pos.Offset(, 11)
　　　　　　Case Pos = Sheets("sheet1").Range("Q") & Pos.Offset(, 17) = ""
　　　　　　　　Set Pos = Pos.Offset(-11, 17)
　　　　　　Case Pos = Sheets("sheet1").Range("Q") & Pos.Offset(, 17) = "" = False
　　　　　　　　Set Pos = Pos.Offset(-11, 22)
　　　　End Select

このような風になりました。お時間あれば添削いただけると幸いです。

0 hits

▼

【78726】ファルダ内の画像を任意のセルに貼り付ける方法 VBA勉強中 17/1/10(火) 17:11