質問編集履歴
4
誤字修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -22,11 +22,11 @@
|
|
22
22
|
|
23
23
|
Private Const INT_ROW_SAGYO As Integer = 9 '[ 作業 ]
|
24
24
|
|
25
|
-
Private Const INT_COL_SAGYO_TIME_FR As Integer = 2
|
25
|
+
Private Const INT_COL_SAGYO_TIME_FR As Integer = 21 '[ 作業時間(開始) ]
|
26
26
|
|
27
|
-
Private Const INT_COL_SAGYO_TIME_TILDE As Integer = 2
|
27
|
+
Private Const INT_COL_SAGYO_TIME_TILDE As Integer = 25 '[ 作業時間(~) ]
|
28
28
|
|
29
|
-
Private Const INT_COL_SAGYO_TIME_TO As Integer = 2
|
29
|
+
Private Const INT_COL_SAGYO_TIME_TO As Integer = 26 '[ 作業時間(終了) ]
|
30
30
|
|
31
31
|
```
|
32
32
|
|
3
誤字や情報の修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -14,21 +14,27 @@
|
|
14
14
|
|
15
15
|
今の内容としては
|
16
16
|
|
17
|
+
まず入力するためのセルや書式のレイアウトなどを済ませたほとんど空白のExcelを作成しています。
|
18
|
+
|
19
|
+
|
20
|
+
|
17
21
|
> ```VB.NET
|
18
22
|
|
19
23
|
Private Const INT_ROW_SAGYO As Integer = 9 '[ 作業 ]
|
20
24
|
|
21
|
-
Private Const INT_COL_SAGYO_TIME_FR As Integer = 2
|
25
|
+
Private Const INT_COL_SAGYO_TIME_FR As Integer = 21 '[ 作業時間(開始) ]
|
22
26
|
|
27
|
+
Private Const INT_COL_SAGYO_TIME_TILDE As Integer = 25 '[ 作業時間(~) ]
|
28
|
+
|
23
|
-
Private Const INT_COL_SAGYO_TIME_TO As Integer = 2
|
29
|
+
Private Const INT_COL_SAGYO_TIME_TO As Integer = 26 '[ 作業時間(終了) ]
|
24
30
|
|
25
31
|
```
|
26
32
|
|
27
33
|
|
28
34
|
|
29
|
-
セルの場所を指定し、
|
35
|
+
そのExcelのセルの表示したい場所を指定し、
|
30
36
|
|
31
|
-
データ処理のコードを挟んで、
|
37
|
+
改頁やらのデータ処理のコードを挟んで、
|
32
38
|
|
33
39
|
|
34
40
|
|
@@ -41,6 +47,8 @@
|
|
41
47
|
|
42
48
|
|
43
49
|
sheet.SetValue(INT_ROW_SAGYO, INT_COL_SAGYO_TIME_FR, Nothing)
|
50
|
+
|
51
|
+
sheet.SetValue(INT_ROW_SAGYO, INT_COL_SAGYO_TIME_TILDE, Nothing)
|
44
52
|
|
45
53
|
sheet.SetValue(INT_ROW_SAGYO, INT_COL_SAGYO_TIME_TO, Nothing)
|
46
54
|
|
2
詳しい内容を追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -64,9 +64,9 @@
|
|
64
64
|
|
65
65
|
Try
|
66
66
|
|
67
|
-
sheet.SetValue(INT_ROW_SAGYO
|
67
|
+
sheet.SetValue(INT_ROW_SAGYO, INT_COL_SAGYO_TIME_FR, gclRep.ConvTimeStrToTimeKnj(dtDetail.Rows(intRow).Item(ITM_DNM_SGYSTJKN).ToString))
|
68
68
|
|
69
|
-
sheet.SetValue(INT_ROW_SAGYO
|
69
|
+
sheet.SetValue(INT_ROW_SAGYO, INT_COL_SAGYO_TIME_TO, gclRep.ConvTimeStrToTimeKnj(dtDetail.Rows(intRow).Item(ITM_DNM_SGYEDJKN).ToString))
|
70
70
|
|
71
71
|
```
|
72
72
|
|
1
詳しい内容を記載しました
test
CHANGED
File without changes
|
test
CHANGED
@@ -5,3 +5,75 @@
|
|
5
5
|
|
6
6
|
|
7
7
|
申し訳ないのですが、どのようにすれば解決できるでしょうか。回答をお待ちしています
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
|
12
|
+
|
13
|
+
※追記※
|
14
|
+
|
15
|
+
今の内容としては
|
16
|
+
|
17
|
+
> ```VB.NET
|
18
|
+
|
19
|
+
Private Const INT_ROW_SAGYO As Integer = 9 '[ 作業 ]
|
20
|
+
|
21
|
+
Private Const INT_COL_SAGYO_TIME_FR As Integer = 22 '[ 作業時間(開始) ]
|
22
|
+
|
23
|
+
Private Const INT_COL_SAGYO_TIME_TO As Integer = 27 '[ 作業時間(終了) ]
|
24
|
+
|
25
|
+
```
|
26
|
+
|
27
|
+
|
28
|
+
|
29
|
+
セルの場所を指定し、
|
30
|
+
|
31
|
+
データ処理のコードを挟んで、
|
32
|
+
|
33
|
+
|
34
|
+
|
35
|
+
```VB.NET
|
36
|
+
|
37
|
+
Private Function ClearHeaderDetail(ByVal sheet As ExcelWorksheet) As Boolean
|
38
|
+
|
39
|
+
Try
|
40
|
+
|
41
|
+
|
42
|
+
|
43
|
+
sheet.SetValue(INT_ROW_SAGYO, INT_COL_SAGYO_TIME_FR, Nothing)
|
44
|
+
|
45
|
+
sheet.SetValue(INT_ROW_SAGYO, INT_COL_SAGYO_TIME_TO, Nothing)
|
46
|
+
|
47
|
+
```
|
48
|
+
|
49
|
+
|
50
|
+
|
51
|
+
改頁する際に残っているセルのデータをクリアするコードを挟んで、
|
52
|
+
|
53
|
+
|
54
|
+
|
55
|
+
```VB.NET
|
56
|
+
|
57
|
+
Private Function SetDataHeaderDetail(ByVal sheet As ExcelWorksheet, ByRef dtDetail As DataTable, ByRef intRow As Integer) As Boolean
|
58
|
+
|
59
|
+
'クリア
|
60
|
+
|
61
|
+
Me.ClearHeaderDetail(sheet)
|
62
|
+
|
63
|
+
|
64
|
+
|
65
|
+
Try
|
66
|
+
|
67
|
+
sheet.SetValue(INT_ROW_SAGYO_DAY, INT_COL_SAGYO_TIME_FR, gclRep.ConvTimeStrToTimeKnj(dtDetail.Rows(intRow).Item(ITM_DNM_SGYSTJKN).ToString))
|
68
|
+
|
69
|
+
sheet.SetValue(INT_ROW_SAGYO_DAY, INT_COL_SAGYO_TIME_TO, gclRep.ConvTimeStrToTimeKnj(dtDetail.Rows(intRow).Item(ITM_DNM_SGYEDJKN).ToString))
|
70
|
+
|
71
|
+
```
|
72
|
+
|
73
|
+
|
74
|
+
|
75
|
+
DBから引っ張ってきたデータを貼り付けています。
|
76
|
+
|
77
|
+
同じようにセルの場所を指定、セルのクリア処理を挟んで、DBを介さずにどちらかが出力された際に”~”が表示されるようにしたいです。
|
78
|
+
|
79
|
+
セルの場所設定やクリア処理はわかりますが、セット時のコードがいまいち判りません。
|