質問編集履歴
1
ソースコードの追記とExcel表記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
得意先・商品などのデータリストからの、検索プログラムをVBAで作りました。
|
|
1
|
+
得意先・商品などのデータリストからの、検索プログラムをExcelのVBAで作りました。
|
|
2
2
|
|
|
3
3
|
これを社内(共有)ネットワークに置いて、誰でも検索できるようにしたいのですが、
|
|
4
4
|
|
|
@@ -76,7 +76,35 @@
|
|
|
76
76
|
|
|
77
77
|
＊＊検索条件を指定して別シートに出力するVBAが入ります＊＊
|
|
78
78
|
|
|
79
|
+
|
|
80
|
+
|
|
81
|
+
'レコードセットを開く
|
|
82
|
+
|
|
83
|
+
adoRS.Open strSQL, adoCON, adOpenDynamic
|
|
84
|
+
|
|
79
85
|
|
|
86
|
+
|
|
87
|
+
'検索結果シートを一旦クリア
|
|
88
|
+
|
|
89
|
+
Worksheets("検索結果").Rows("2:" & Rows.Count).ClearContents
|
|
90
|
+
|
|
91
|
+
|
|
92
|
+
|
|
93
|
+
'検索結果をシートに貼り付ける
|
|
94
|
+
|
|
95
|
+
Worksheets("検索結果").Range("A2").CopyFromRecordset adoRS
|
|
96
|
+
|
|
97
|
+
Worksheets("検索結果").Select
|
|
98
|
+
|
|
99
|
+
'クローズ処理
|
|
100
|
+
|
|
101
|
+
adoRS.Close
|
|
102
|
+
|
|
103
|
+
Set adoRS = Nothing
|
|
104
|
+
|
|
105
|
+
adoCON.Close
|
|
106
|
+
|
|
107
|
+
Set adoCON = Nothing
|
|
80
108
|
|
|
81
109
|
End Sub
|
|
82
110
|
|