エクセル2000でVBA使用の場合の質問です。
既にシートに表や画像ファイルが配置されています。
あちこちの他データベースから、送付されてくるデータをそのシートの下端に自動で追加するマクロを組んでいます。
しかし、シートの一番下が不定な大きさの画像ファイルであった場合に、次のデータが、既にある画像に隠されない位置から貼り付けたいのですが、画像の最下位置をセル位置で取得する方法が判りませんでした。
こういう場合、どのような方法で取得すればいいのでしょうか?
最下データは必ずしも画像とは限らないので、出来れば同じコマンドかルーチンで画像であってもセル内データであっても、最下端セル(ここでは画像にが被っていないセルか、ヌルでないセル)位置、或いは最初の空きセル(ここでは、画像で隠されていず、かつヌルセルの位置の意味)位置を取得できれば嬉しいのですが、それが無理な場合、最後が画像か非ヌルセルかを判断した上で、画像だった場合の最下端情報を取得する方法(非ヌルセルと判断出来れば、情報取得方法はいくつか知っています)のどちらかを知りたいのです。
No.2ベストアンサー
- 回答日時:
画像、図形の最終は For Each で全て調べています。
セルは、A列からIVまで調べています。求めた行+1が挿入する位置になります。
標準モジュールに貼り付ける例です。
↓
Sub searchEndRow()
Dim EndRow As Long '求める最終行
Dim shp As Shape '図形
'画像、図形の最終行を求める
For Each shp In ActiveSheet.Shapes
EndRow = Application.Max(EndRow, shp.BottomRightCell.Row)
Next
'最終入力セルの行を求める
Dim cl As Integer '列カウンタ
For cl = 1 To 256
EndRow = Application.Max(EndRow, Cells(65536, cl).End(xlUp).Row)
Next
MsgBox "挿入する行は " & (EndRow + 1) & " 行目です"
End Sub
この回答への補足
具体的な例まで示していただきながら、返事が送れまして、大変申し訳ありませんでした。
こちらの作業に戻れ次第、改めて御礼させていただきます。
みなさんのおかげで、無事解決しました。
ありがとうございました。
他の処理部分とのカラミで、nishi6さんの方を採用させていただくことになりましたが、勉強になりました。
ポイントはどうしても公平に振るわけにはいけませんので、勝手ながら、採用させていただいた、ということで、nishi6さんを優先させていただきました。
これからもよろしくご指導願います。
No.1
- 回答日時:
画像が配置されている列とデータが入力されている列は同じなのでしょうか?
仮に両方が列Aにあるとした場合ですが、
最下画像の下端の行番号は
Shapes(Index).BottomRightCell.Row
で取得できます。
データの下端は
Cells(65536, 1).End(xlUp).Row
で取得するのが最も一般的でしょう。
この二つのうち大きい方の、一つ下の行が次の画像をはる行になります。
もし複数の列で判断するなら、必要な列をループで順に判断して
最大値を取り出すようにすれば良いしょう。
この回答への補足
早速のご返事にもかかわらず、週末ちょっと立てこんでまして、反応が遅くなり、申し訳ありませんでした。
>画像が配置されている列とデータが入力されている列は同じなのでしょうか?
そうです。Aになっています。
割り込みで他の用が入ったので、教えていただいた方法はまだ試せていませんが、そろそろ元へ戻れそうなので、早速試して、改めてお礼させていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
エクセルVBAで画像を貼り付ける座標設定方法は?
PowerPoint(パワーポイント)
-
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
-
-
4
Excel(VBA)
Excel(エクセル)
-
5
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
6
[ EXCEL VBA ] 図形を読み込む順番を制御するには?
Visual Basic(VBA)
-
7
Excel VBA シート名変更時、重複していたら連番を付けたい
その他(Microsoft Office)
-
8
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
9
ExcelVBA 改ページの横破線を消す方法
Excel(エクセル)
-
10
【VBA】3個の図形をコピーしてSheet2に貼り付けたい
Excel(エクセル)
-
11
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで色の付いているセルの行削除
-
特定の文字がある行以外を削除...
-
Excel 時刻の並び替え
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
エクセルで特定の文字列が入っ...
-
Excel グラフのプロットからデ...
-
アクティブになっている行をマ...
-
EXCEL VBA 正しく入力されてい...
-
エクセル 上下で列幅を変えるには
-
エクセルのセルに指定画像(.jpg...
-
A1に入力された文字列と同じ文...
-
色付き行の非表示について
-
EXCEL 「最後のセル」のリセット
-
Excelでカタカナ・ひらがな・英...
-
罫線の斜線を自動で引くマクロ
-
エクセルでセルの大きさを一律...
-
エクセルVBA:データ端に画...
-
excelのデータで色つき行の抽出...
-
エクセル マクロで数値が変っ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報