|
ツールをkanabunさんはじめ、皆さんのお力添えあって作成できました。
しかし、複数で同時に使用する場合は外部にデータベースを作らなくてはいけない事に気づきました。
下記の構文の様に、CommandButton36でWorksheetsの"DATA"にデータを飛ばしています。
また同時にデータを読み込んで上書き保存もしています。
ツールを複数で同時使用する時に別にデータベースを用意しようと考えています。
例:エクセルファイル名データ1のデータシートに飛ばそうと考えています。
また、データを呼び出すには、どの様な構文を追加すれば良いでしょうか・・?
---------------------------------------------------
”Worksheetsの"DATA"にデータを飛ばし”
Private Sub CommandButton36_Click()
Dim lRow As Long
Number = TextBox3
With Worksheets("DATA")
'フォームからエクセルに出力
If TextBox3.Value = "" Then
lRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & lRow + 1).Value = lRow
Else
lRow = .Range("A" & Rows.Count).End(xlUp).Row
Worksheets("DATA").Range("A1").Offset(Number, 0).Value = TextBox3.Value
End If
-----------------------------------------------------
”Worksheetsの"DATA"からデータを取得しListboxに表示させています”
Private Sub CommandButton37_Click()
Worksheets("DATA").Range("A1").CurrentRegion.Copy Worksheets("WAREA").Range("A1")
With ListBox1
.ColumnHeads = True
.ColumnCount = 10
.ColumnWidths = "30;80;55;60;60;60;65;45;45;"
'.Text = "DATA!A2:J100"
.RowSource = "WAREA!A2:J100"
End With
----------------------------------------------------------
以上になります。よろしくご指導お願いいたします。
|
|