質問編集履歴

4

誤字修正

2015/11/09 02:23

投稿

KEN_aivan
KEN_aivan

スコア14

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

誤字や情報の修正

2015/11/09 02:23

投稿

KEN_aivan
KEN_aivan

スコア14

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 = 22 '[ 作業時間(開始) ]
25
+ Private Const INT_COL_SAGYO_TIME_FR As Integer = 2 '[ 作業時間(開始) ]
22
26
 
27
+ Private Const INT_COL_SAGYO_TIME_TILDE As Integer = 25 '[ 作業時間(~) ]
28
+
23
- Private Const INT_COL_SAGYO_TIME_TO As Integer = 27 '[ 作業時間(終了) ]
29
+ Private Const INT_COL_SAGYO_TIME_TO As Integer = 2 '[ 作業時間(終了) ]
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

詳しい内容を追記

2015/11/09 02:23

投稿

KEN_aivan
KEN_aivan

スコア14

test CHANGED
File without changes
test CHANGED
@@ -64,9 +64,9 @@
64
64
 
65
65
  Try
66
66
 
67
- sheet.SetValue(INT_ROW_SAGYO_DAY, INT_COL_SAGYO_TIME_FR, gclRep.ConvTimeStrToTimeKnj(dtDetail.Rows(intRow).Item(ITM_DNM_SGYSTJKN).ToString))
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_DAY, INT_COL_SAGYO_TIME_TO, gclRep.ConvTimeStrToTimeKnj(dtDetail.Rows(intRow).Item(ITM_DNM_SGYEDJKN).ToString))
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

詳しい内容を記載しました

2015/11/09 02:00

投稿

KEN_aivan
KEN_aivan

スコア14

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
+ セルの場所設定やクリア処理はわかりますが、セット時のコードがいまいち判りません。