ジャストアンサーのしくみ:
  • 専門家に質問
    知識豊富な専門家があらゆる質問にお答えするために常に待機しています。
  • 専門家が丁寧に対応
    E メールやサイト内オンラインメッセージなど、さまざまな手段で回答を通知。必要に応じてフォローアップの質問をすることもできます。
  • やり取り回数、制限なし
    専門家からの回答を確認し評価をすることで、支払うかどうかを決めます。
サイトの閲覧を継続されると、弊社Cookieポリシーで定めるCookieの使用に同意したことになります。
akihiroiに今すぐ質問する
akihiroi
akihiroi,
カテゴリ: Microsoft
満足したユーザー: 2786
経験:  インストール系のアプリケーション開発からWEB系のクラウドシステムまで幅広く開発を行ってきました。プログラマーだけでなく、システムエンジニアとしてPLやPMも経験しています。
106967838
ここに Microsoft に関する質問を入力してください。
akihiroiがオンラインで質問受付中

マクロVBAについてですが、検索値と一致したセルの隣のセルへジャンプしたアクティブセルに値のみをコピペしたいのですが、方

ユーザー評価：
★ ★ ★ ★ ★

マクロVBAについてですが、検索値と一致したセルの隣のセルへジャンプしたアクティブセルに値のみをコピペしたいのですが、方法を教えてください。
アシスタント: 了解しました。お使いのパソコンの製品名とオペレーティングシステム（例：Windows 10）を教えていただけますか？
質問者様: 製品名（LAPTOP-7E2M9JDS）
アシスタント: 再起動など、ご自身で何か試みられたことはありますか？
質問者様: Windows 11 Homeです。
アシスタント: ありがとうございます。上記の他に、マイクロソフトスペシャリストに事前に伝えておきたいことはありますか？
質問者様: Sub aaa()
Dim r As Range
Set r = Worksheets("Sheet1").Range("b:b").Find(Workbooks("データ2.xlsx").Worksheets("Sheet2").Range("g1").Value)
If Not r Is Nothing Then
Worksheets("Sheet1").Select
r.Offset(0, 1).Select
Workbooks("データ2.xlsx").Worksheets("sheet2").Range("c8:ah8").Copy ActiveCellElse
MsgBox "見つかりませんでした。", vbExclamation
End IfEnd Sub

すいません、こういうのはExcelシートと一緒じゃないと動きが全く読めません。

どのセルに何の値が入っているとか、視覚的に見ないと分からないので。。

akihiroiをはじめその他3 名のMicrosoftカテゴリの専門家が質問受付中
今すぐ質問をする
質問者: 返答済み 5 日 前.
copy activecellだと全部コピーされるので値だけをコピーしたいのですが、ActiveCellの後にValueやpasteを入力してもエラーになってしまいます。

--------------------------------------------------
必ず以下を読んでください。
--------------------------------------------------
遠隔接続にはご相談者様側で簡単な準備作業が必要です。
お客様のパソコンより、お客様から下記作業を行ってください。
（スマホからはできません）

①下記リンクをクリックしてください。
http://www.justanswer.jp/remotedesktop/join.aspx?Session=b628f532-498f-47b3-b5b1-e6843ead51db

②「同意する」というボタンが画面下にあるのでクリックしてください。

③遠隔操作の実行ファイルをダウンロードされます。通常ファイルはダウンロードフォルダに保存されます。
「Elsinore.ScreenConnect.Client」という名前のものです。

④そのファイルをダブルクリックして実行してください。

準備はこれだけになります。

今すぐMicrosoftについて自分の質問する

Microsoft についての関連する質問