Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25196 / 76736

←次へ　｜　前へ→


	【56884】外部とのデータのやり取り

マクロ - 08/7/9(水) 16:49 -


	引用なし

	パスワード

ツールをkanabunさんはじめ、皆さんのお力添えあって作成できました。
しかし、複数で同時に使用する場合は外部にデータベースを作らなくてはいけない事に気づきました。

下記の構文の様に、CommandButton36でWorksheetsの"DATA"にデータを飛ばしています。
また同時にデータを読み込んで上書き保存もしています。
ツールを複数で同時使用する時に別にデータベースを用意しようと考えています。
例：エクセルファイル名データ１のデータシートに飛ばそうと考えています。
また、データを呼び出すには、どの様な構文を追加すれば良いでしょうか・・？
---------------------------------------------------
”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
----------------------------------------------------------
以上になります。よろしくご指導お願いいたします。

0 hits

▼

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

≪