回答編集履歴
1
一部改変
test
CHANGED
|
@@ -1,16 +1,36 @@
|
|
|
1
|
-
|
|
1
|
+
文字列の取得はString型の変数に格納すれば良いかと思います。
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
```ここに言語を入力
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
Dim myComment as String
|
|
8
8
|
|
|
9
|
-
|
|
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
|
-
.
|
|
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
|
|