質問: Nothing End Sub ### 試したこと ネットでサンプルコードを調べてマクロを動かしてみましたが、別ブックから文字列取得ができず、その解決方法がわかりません。 ### 補足情報(言語/FW/ツール等のバージョンなど) Excel 2013 Windows7 64bit
回答: 文字列の取得はString型の変数に格納すれば良いかと思います。 ``` Dim myComment as String myComment = readSheet.Cells(1,1).Value '・・・文字列取得用ブックのA1セルの値を文字列として取得 ``` コメントの設定はソースコードの★箇所を以下の様にしてみてください。 ``` With writeSheet.Range("A1") .AddComment '・・・A1セルにコメントを追加する .Comment.Visible = True '・・・追加したコメントを表示する .Comment.Text Text:=readSheet.Cells(1,1).Value '・・・コメントの文章を代入する End With ``` Valueプロパティはセルの値となりますのでコメントとは別物になります。 AddCommentメソッドでコメントを追加し、表示や文章、サイズ等設定できます。 因みにコメントの削除はClearCommentsメソッドを使用します。 その他設定の仕方、詳細については「vba AddComment」等で検索すると出てくるかと思います。