回答編集履歴

1

一部改変

2017/05/03 03:27

投稿

moh1ee
moh1ee

スコア73

test CHANGED
@@ -1,16 +1,36 @@
1
- ソースコード★箇所を以下してみてください。
1
+ 文字列取得はString型変数格納すれば良かと思います
2
2
 
3
3
 
4
4
 
5
- With writeSheet
5
+ ```ここに言語を入力
6
6
 
7
- .Range("A1").AddComment ・・・A1セルにコメントを追加する
7
+ Dim myComment as String
8
8
 
9
- .Range("A1").Comment.Visible = True ・・・追加たコメントを表示する
9
+ myComment = readSheet.Cells(1,1).Value '・・・文字列取得用ブックのA1セルの値を文字列とて取得
10
10
 
11
+ ```
12
+
13
+
14
+
15
+ コメントの設定はソースコードの★箇所を以下の様にしてみてください。
16
+
17
+
18
+
19
+ ```ここに言語を入力
20
+
21
+ With writeSheet.Range("A1")
22
+
23
+ .AddComment '・・・A1セルにコメントを追加する
24
+
25
+ .Comment.Visible = True '・・・追加したコメントを表示する
26
+
11
- .Range("A1").Comment.Text Text:=readSheet.Cells(1,1).Value ・・・コメントの文章を代入する
27
+ .Comment.Text Text:=readSheet.Cells(1,1).Value '・・・コメントの文章を代入する
12
28
 
13
29
  End With
30
+
31
+ ```
32
+
33
+
14
34
 
15
35
 
16
36