回答編集履歴
3
計算文字追加
answer
CHANGED
|
@@ -80,7 +80,7 @@
|
|
|
80
80
|
End If
|
|
81
81
|
End If
|
|
82
82
|
'
|
|
83
|
-
'書込み処理
|
|
83
|
+
'計算・書込み処理
|
|
84
84
|
If blnWriteFlag = True Then
|
|
85
85
|
Cells(lRow, MyWrtC.Column) = Cells(lRow, MyWrtC.Column) & _
|
|
86
86
|
"," & _
|
2
初期処理完了コメント追加
answer
CHANGED
|
@@ -59,6 +59,7 @@
|
|
|
59
59
|
strBreakA = Cells(MyRange.Row, MyRange.Column + 0)
|
|
60
60
|
strBreakB = Cells(MyRange.Row, MyRange.Column + 1)
|
|
61
61
|
strBreakKey = strBreakA & strBreakB
|
|
62
|
+
'初期処理完了
|
|
62
63
|
blnInitFlag = False
|
|
63
64
|
blnWriteFlag = False
|
|
64
65
|
End If
|
1
Test_Sample_Miniature名称
answer
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
'読込み範囲:A1～A100/1行目タイトル/空白行出現で終了
|
|
7
7
|
'書込み範囲:E1より書込み
|
|
8
8
|
'-------------------------------------------------
|
|
9
|
-
Sub
|
|
9
|
+
Sub Test_Sample_Miniature()
|
|
10
10
|
|
|
11
11
|
'定義Work
|
|
12
12
|
Dim MySeaArea As Range
|