Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23835 / 75375 ←次へ | 前へ→

【56884】外部とのデータのやり取り
質問  マクロ  - 08/7/9(水) 16:49 -

引用なし
パスワード
   ツールを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
----------------------------------------------------------
以上になります。よろしくご指導お願いいたします。

38 hits

【56884】外部とのデータのやり取り マクロ 08/7/9(水) 16:49 質問
【56894】Re:外部とのデータのやり取り neptune 08/7/9(水) 21:45 発言
【56903】Re:外部とのデータのやり取り マクロ 08/7/10(木) 11:16 お礼

23835 / 75375 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free