質問編集履歴
2
コードの挿入をミスしていたのを修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -52,6 +52,8 @@
|
|
|
52
52
|
|
|
53
53
|
```
|
|
54
54
|
|
|
55
|
+
```
|
|
56
|
+
|
|
55
57
|
'Textileをクリップボードに書き出す
|
|
56
58
|
|
|
57
59
|
Sub Copy_Textile()
|
|
@@ -86,6 +88,8 @@
|
|
|
86
88
|
|
|
87
89
|
```
|
|
88
90
|
|
|
91
|
+
```
|
|
92
|
+
|
|
89
93
|
Sub SetCB(ByVal str As String)
|
|
90
94
|
|
|
91
95
|
'クリップボードに文字列を格納
|
|
@@ -108,6 +112,8 @@
|
|
|
108
112
|
|
|
109
113
|
```
|
|
110
114
|
|
|
115
|
+
```
|
|
116
|
+
|
|
111
117
|
'指定されたセル範囲をTextileに変換
|
|
112
118
|
|
|
113
119
|
Function ConvTextile(rng As Range) As String
|
|
@@ -430,6 +436,8 @@
|
|
|
430
436
|
|
|
431
437
|
```
|
|
432
438
|
|
|
439
|
+
```
|
|
440
|
+
|
|
433
441
|
'ハイパーリンクを取得
|
|
434
442
|
|
|
435
443
|
Public Function linkAddress(r As Range) As String
|
|
@@ -462,6 +470,8 @@
|
|
|
462
470
|
|
|
463
471
|
```
|
|
464
472
|
|
|
473
|
+
```
|
|
474
|
+
|
|
465
475
|
' 文字列前後の改行を削除
|
|
466
476
|
|
|
467
477
|
Function TrimLF(str As String) As String
|
|
@@ -486,6 +496,4 @@
|
|
|
486
496
|
|
|
487
497
|
End Function
|
|
488
498
|
|
|
489
|
-
|
|
490
|
-
|
|
491
|
-
```
|
|
499
|
+
```
|
1
コードの挿入を行いました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -46,11 +46,11 @@
|
|
|
46
46
|
|
|
47
47
|
### 該当のソースコード
|
|
48
48
|
|
|
49
|
-
|
|
49
|
+
```
|
|
50
50
|
|
|
51
51
|
Option Explicit
|
|
52
52
|
|
|
53
|
-
|
|
53
|
+
```
|
|
54
54
|
|
|
55
55
|
'Textileをクリップボードに書き出す
|
|
56
56
|
|
|
@@ -84,7 +84,7 @@
|
|
|
84
84
|
|
|
85
85
|
End Sub
|
|
86
86
|
|
|
87
|
-
|
|
87
|
+
```
|
|
88
88
|
|
|
89
89
|
Sub SetCB(ByVal str As String)
|
|
90
90
|
|
|
@@ -106,7 +106,7 @@
|
|
|
106
106
|
|
|
107
107
|
End Sub
|
|
108
108
|
|
|
109
|
-
|
|
109
|
+
```
|
|
110
110
|
|
|
111
111
|
'指定されたセル範囲をTextileに変換
|
|
112
112
|
|
|
@@ -428,7 +428,7 @@
|
|
|
428
428
|
|
|
429
429
|
End Function
|
|
430
430
|
|
|
431
|
-
|
|
431
|
+
```
|
|
432
432
|
|
|
433
433
|
'ハイパーリンクを取得
|
|
434
434
|
|
|
@@ -460,7 +460,7 @@
|
|
|
460
460
|
|
|
461
461
|
End Function
|
|
462
462
|
|
|
463
|
-
|
|
463
|
+
```
|
|
464
464
|
|
|
465
465
|
' 文字列前後の改行を削除
|
|
466
466
|
|
|
@@ -486,4 +486,6 @@
|
|
|
486
486
|
|
|
487
487
|
End Function
|
|
488
488
|
|
|
489
|
+
|
|
490
|
+
|
|
489
|
-
```
|
|
491
|
+
```
|