質問編集履歴
1
ソースコードの追記とExcel表記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
得意先・商品などのデータリストからの、検索プログラムをVBAで作りました。
|
|
1
|
+
得意先・商品などのデータリストからの、検索プログラムをExcelのVBAで作りました。
|
|
2
2
|
これを社内(共有)ネットワークに置いて、誰でも検索できるようにしたいのですが、
|
|
3
3
|
一人が開いていると以降の人は読み取り専用となってしまい、検索実行が出来なくなります。
|
|
4
4
|
|
|
@@ -37,7 +37,21 @@
|
|
|
37
37
|
strSQL = "SELECT * FROM [検索データ$] "
|
|
38
38
|
|
|
39
39
|
＊＊検索条件を指定して別シートに出力するVBAが入ります＊＊
|
|
40
|
+
|
|
41
|
+
'レコードセットを開く
|
|
42
|
+
adoRS.Open strSQL, adoCON, adOpenDynamic
|
|
40
43
|
|
|
44
|
+
'検索結果シートを一旦クリア
|
|
45
|
+
Worksheets("検索結果").Rows("2:" & Rows.Count).ClearContents
|
|
46
|
+
|
|
47
|
+
'検索結果をシートに貼り付ける
|
|
48
|
+
Worksheets("検索結果").Range("A2").CopyFromRecordset adoRS
|
|
49
|
+
Worksheets("検索結果").Select
|
|
50
|
+
'クローズ処理
|
|
51
|
+
adoRS.Close
|
|
52
|
+
Set adoRS = Nothing
|
|
53
|
+
adoCON.Close
|
|
54
|
+
Set adoCON = Nothing
|
|
41
55
|
End Sub
|
|
42
56
|
###
|
|
43
57
|
|