Excel アクティブセルの値を基に別シートから値を取得

Excel アクティブセルの値を基に別シートから値を取得。アクティブセルは、任意に毎回指定するのですか。アクティブセルの値を基に別シートから値を取得してアクティブセルの同じ行にだけ転記したい
EXCEL2010です

お世話になります 現在、Sheet1のA列の値とSheet2のA列の値を比較し、同じ文字列が見つかれば
Sheet2のB列~D列の値を、Sheet1のI列から右へ転記するマクロを使っています
これだと、sheet1のA列に入っている値全てを対象に置き換わってしまいます

上記マクロを、Sheet1のA列のアクティブセルの値(選択しているセル)を基に、Sheet2のA列の値を検索し、同じ文字列が見つかればB列~D列の値を、Sheet1のA列のアクティブセルの同じ行のI列から右に転記したいです

どうかよろしくお願い致します m(_ _)m

Sub bukkensarch()

Application ScreenUpdating = False

Dim lasti As Long, lastn As Long, i As Long, m As Long
Dim Status As Variant, taishou As Variant, firstAddress As Variant

& x27;**** アクティブシートのA列の最終行を取得 ****
lasti = Range("A" & Rows Count) End(xlUp) Row
& x27;**** A列のデータがある行を変数にセット ****
For i = 2 To lasti
& x27;**** A列を対象に ****
taishou = Cells(i, 1)
& x27;***** Sheet2のA列と比較 *****
Set Status = Worksheets("Sheet2") Range("A:A") Find(taishou)
& x27;**** もし同じ文字列が無ければ何もしない *****
If Not Status Is Nothing Then
& x27;**** 同じ文字列が見つかれば ****
firstAddress = Status Address
Do
& x27;**** Sheet2の転記する列数をセット(B列~D列) ****
For m = 1 To 3
& x27;**** Sheet2の各データをアクティブシートのI列から右に転記 ****
Cells(i, 8 + m) = Worksheets("Sheet2") Cells(Status Row, 1 + m)
Next

Set Status = Worksheets("Sheet2") Range("A:A") FindNext(Status)
Loop While Not Status Is Nothing And Status Address <> firstAddress

End If

Next

Application ScreenUpdating = True

MsgBox "完了しました "
End SubExcelエクセル基本講座:Excelの用語解説。あ アウトライン → グループ化 アクティブ アクティべーション→ライセンス認証
アドインほかの人が作成したシートに「=+」で始まる数式が入力されているの
を見たことがありませんか? では数式は「=」から入力なお。入力値を
そのままにするには。セルの表示形式を文字列としてから入力してもよいし。
表示形式「」などで対処することもできます。 例えば。と
あらかじめ入力された住所/郵便番号を基に。別のセルへ郵便番号/住所を変換して
表示できる。

vba。位置は。ウィンドウ領域左上からの距離 単位は ※ 内での
ウィンドウを最大化しているときはマイナスが入ることに注意 サイズも単位は
アクティブセルの位置ではなく。開いているシートの固定していない
左上のセル位置の取得です。具体的に言いますと。わかりにくいとは思いますが
。ウィンドウ枠をで固定している状態で。もとの行目の行に 行が 列目の
列に …アクティブセルの値を基に別マクロでシートから値を取得して。アクティブセルの値を基に別マクロでシートから値を取得してアクティ。マクロ
でシート,シートの保護のパスワード設定する。アクティブセルの値を基に別Excel。別シートのセルを選択するアクティブシートではないワークシートのセルを。
セルを表す????オブジェクトのエラーの原因は。セルを
????メソッドで選択する場合やセルを????????メソットで
アクティブにするしたがって。このケースの場合はをアクティブにして
からセルを選択する必要があります。を使用して引数の。参照を表す
??????にセル以外にシートも設定すると結果的に設定したシート
がアクティブ

アクティブセルを表すRangeを取得する。結論からいえば。拙著『いちばんやさしい の教本』の。「
オブジェクトを取得するプロパティについて学習しましょう」でもお伝え
している。プロパティを使えば。名前のとおり

アクティブセルは、任意に毎回指定するのですか?出なけれ、関数で割と簡単に出来ます。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です