質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

解決済

別エクセルブックの任意のセルから文字列を取得し、元エクセルのコメント欄に表示したい。

MCK
MCK

総合スコア7

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

1回答

0評価

0クリップ

47372閲覧

投稿2017/05/02 06:30

###発生している問題
エクセル【A】からVBAマクロを起動して、エクセル【B】上のセル(A1)の文字列を取得し、エクセル【A】上のセル(A1)のコメント欄にセットしたいです。

ですがうまくいかないので、まずは【A】のセル(A1)に文字列をセットするようコーディングして試しています。

(1)別ブックから文字列を取得するには、ソースコードをどう修正したらよいですか。
(2)別ブックのセル(A1)から文字列を取得して、セル(A1)のコメント欄に設定したい場合は、どうコーディングすればよいですか。

一昨日からいろいろ試していますが、解決できません。どなたかお知恵を貸していただけませんか。

マクロを動かすと、ソースコードの★箇所、右辺のreadSheet.Cells(1, 1).Value はエクセル【A】のA1データを取得しているようです。

###該当のソースコード
<Excel 2013>
Sub Macro1()
'
Dim writeSheet As Worksheet '【A】自分自身の書き出し用ワークシート
Set writeSheet = ThisWorkbook.Worksheets(1) '【A】1番左のワークシートを参照

mypath = "C:\Users\user\Desktop\test" '【B】
fname = "文字列取得用.xlsx" '【B】
Dim readBook As Workbook '【B】文字列取得用ブック
Set readBook = Workbooks.Open(mypath & fname) '【B】文字列取得用ブックを開いて参照
Dim readSheet As Worksheet '【B】文字列取得用ブックのワークシート
Set readSheet = readBook.Worksheets(1) '【B】文字列取得用ブックの1番左の相手シートを参照

With writeSheet
**__.Range("A1").Value = readSheet.Cells(1, 1).Value __ **'★
End With

readBook.Close False '【B】エクセルブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

End Sub
###試したこと
ネットでサンプルコードを調べてマクロを動かしてみましたが、別ブックから文字列取得ができず、その解決方法がわかりません。

###補足情報(言語/FW/ツール等のバージョンなど)
Excel 2013
Windows7 64bit

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

coco_bauer

2017/05/02 09:20

msgbox(Workbooks.Open("C:\Users\user\Desktop\test\文字列取得用.xlsx").worksheets(1).cells(1,1).value) という1行だけのSubを書いて、実行してみてください。 エクセル【B】上のセル(A1)の文字列が表示されますか?
MCK

2017/05/02 14:34

回答が遅くなり、失礼しました。ご指定のコードを実施したところ【B】のセル(A1)が表示されました。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。