質問編集履歴

2

入力と出力のイメージを追加しました

2018/08/07 02:09

投稿

himaw
himaw

スコア6

test CHANGED
File without changes
test CHANGED
@@ -17,6 +17,22 @@
17
17
 
18
18
 
19
19
  ファイル保存のコードを追記しました。
20
+
21
+
22
+
23
+ 追記
24
+
25
+ ![入力1(sheet1)です](d98820e73c7554528569f7737df019e1.png) ![入力2(sheet2)です](f44b4a71e15e7530f1f1bc0e356ceb36.png)
26
+
27
+
28
+
29
+ ![出力したいものです](7d938772a025a7ab131051777b63c66d.png) ![現状出力されているものです](cab45e2a762fdb7fd742b3368e8ab4bf.png)
30
+
31
+
32
+
33
+ sheet1とsheet2でA列(品名)が一致したらsheet2のC列とD列をsheet1のB列とC列に書込みます。
34
+
35
+
20
36
 
21
37
 
22
38
 

1

ファイル保存のコード

2018/08/07 02:09

投稿

himaw
himaw

スコア6

test CHANGED
File without changes
test CHANGED
@@ -7,6 +7,16 @@
7
7
  データは900行くらいまであるので、最後まで入力されて正常終了になるはずなのですが、必ず同じ行まで入力された状態で、終了してしまいます。
8
8
 
9
9
  環境は、VB.NET(Visual Studio v15.7.3)です。
10
+
11
+
12
+
13
+ 追記
14
+
15
+ 書込みは、sheet2のセルからsheet1のセルへ書込みをしています(書込みとは言わない?(貼り付け?))
16
+
17
+
18
+
19
+ ファイル保存のコードを追記しました。
10
20
 
11
21
 
12
22
 
@@ -54,6 +64,14 @@
54
64
 
55
65
  Next
56
66
 
67
+ 'シート名を変更して保存
68
+
69
+ sheet1.Name = "sheet_test"
70
+
71
+ 対象ファイル.SaveAs("C:\Users\xxxxxxx\TestBook.xlsx")
72
+
73
+
74
+
57
75
  ```
58
76
 
59
77