質問編集履歴
2
コードの挿入をミスしていたのを修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -25,6 +25,7 @@
|
|
|
25
25
|
```
|
|
26
26
|
Option Explicit
|
|
27
27
|
```
|
|
28
|
+
```
|
|
28
29
|
'Textileをクリップボードに書き出す
|
|
29
30
|
Sub Copy_Textile()
|
|
30
31
|
Dim cl As Range
|
|
@@ -42,6 +43,7 @@
|
|
|
42
43
|
MsgBox "クリップボードにコピーしました。" & vbCrLf & vbCrLf & textile
|
|
43
44
|
End Sub
|
|
44
45
|
```
|
|
46
|
+
```
|
|
45
47
|
Sub SetCB(ByVal str As String)
|
|
46
48
|
'クリップボードに文字列を格納
|
|
47
49
|
With CreateObject("Forms.TextBox.1")
|
|
@@ -53,6 +55,7 @@
|
|
|
53
55
|
End With
|
|
54
56
|
End Sub
|
|
55
57
|
```
|
|
58
|
+
```
|
|
56
59
|
'指定されたセル範囲をTextileに変換
|
|
57
60
|
Function ConvTextile(rng As Range) As String
|
|
58
61
|
|
|
@@ -214,6 +217,7 @@
|
|
|
214
217
|
ConvTextile = stmp
|
|
215
218
|
End Function
|
|
216
219
|
```
|
|
220
|
+
```
|
|
217
221
|
'ハイパーリンクを取得
|
|
218
222
|
Public Function linkAddress(r As Range) As String
|
|
219
223
|
If r.Hyperlinks.Count > 0 Then '指定したセルにハイパーリンクオブジェクトがある
|
|
@@ -230,6 +234,7 @@
|
|
|
230
234
|
End If
|
|
231
235
|
End Function
|
|
232
236
|
```
|
|
237
|
+
```
|
|
233
238
|
' 文字列前後の改行を削除
|
|
234
239
|
Function TrimLF(str As String) As String
|
|
235
240
|
Dim strTmp As String
|
|
@@ -242,5 +247,4 @@
|
|
|
242
247
|
Loop
|
|
243
248
|
TrimLF = strTmp
|
|
244
249
|
End Function
|
|
245
|
-
|
|
246
250
|
```
|
1
コードの挿入を行いました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -22,9 +22,9 @@
|
|
|
22
22
|
```
|
|
23
23
|
|
|
24
24
|
### 該当のソースコード
|
|
25
|
-
|
|
25
|
+
```
|
|
26
26
|
Option Explicit
|
|
27
|
-
|
|
27
|
+
```
|
|
28
28
|
'Textileをクリップボードに書き出す
|
|
29
29
|
Sub Copy_Textile()
|
|
30
30
|
Dim cl As Range
|
|
@@ -41,7 +41,7 @@
|
|
|
41
41
|
|
|
42
42
|
MsgBox "クリップボードにコピーしました。" & vbCrLf & vbCrLf & textile
|
|
43
43
|
End Sub
|
|
44
|
-
|
|
44
|
+
```
|
|
45
45
|
Sub SetCB(ByVal str As String)
|
|
46
46
|
'クリップボードに文字列を格納
|
|
47
47
|
With CreateObject("Forms.TextBox.1")
|
|
@@ -52,7 +52,7 @@
|
|
|
52
52
|
.Copy
|
|
53
53
|
End With
|
|
54
54
|
End Sub
|
|
55
|
-
|
|
55
|
+
```
|
|
56
56
|
'指定されたセル範囲をTextileに変換
|
|
57
57
|
Function ConvTextile(rng As Range) As String
|
|
58
58
|
|
|
@@ -213,7 +213,7 @@
|
|
|
213
213
|
|
|
214
214
|
ConvTextile = stmp
|
|
215
215
|
End Function
|
|
216
|
-
|
|
216
|
+
```
|
|
217
217
|
'ハイパーリンクを取得
|
|
218
218
|
Public Function linkAddress(r As Range) As String
|
|
219
219
|
If r.Hyperlinks.Count > 0 Then '指定したセルにハイパーリンクオブジェクトがある
|
|
@@ -229,7 +229,7 @@
|
|
|
229
229
|
End If
|
|
230
230
|
End If
|
|
231
231
|
End Function
|
|
232
|
-
|
|
232
|
+
```
|
|
233
233
|
' 文字列前後の改行を削除
|
|
234
234
|
Function TrimLF(str As String) As String
|
|
235
235
|
Dim strTmp As String
|
|
@@ -242,4 +242,5 @@
|
|
|
242
242
|
Loop
|
|
243
243
|
TrimLF = strTmp
|
|
244
244
|
End Function
|
|
245
|
+
|
|
245
246
|
```
|