|
▼kanabun さん:
>すみません。コードに間違いがありました。m(_ _)m
>
>Sub Dateの転記()
>Sub Timeの転記()
>Sub Commentの転記()
>
>それぞれの Row を Rows に修正してください
>
> Worksheets("DATA").Cells(Rows.Count, 列). _
> End(xlUp).Offset(1).Value = ss
どうもありがとうございます。
VBAの本で勉強していますが
また、質問で申し訳ありません。
同フォルダ内に別のエクセルファイル(データベース)を作成しこの別のエクセルファイルとデータの保存と呼出をするにはどうすればいいでしょうか?
別のエクセルファイル(データベース)はアクセスのデータベースにしなければまずいのでしょうか?
何度も何度も質問ばかりで申し訳ありません。ご指導お願いいたします。
-------------------------------------------------------------------
下記の構文の様に、CommandButton36でWorksheetsの"DATA"にデータを飛ばしています。
また、データを読み込んで上書き保存もしています。
ツールを複数で同時使用する時に別にデータベースを用意しなければ出来ない事に気づきました。
そこで同フォルダ内にエクセルファイル名データ1のデータシートを作成し
ここに、データ保存と呼び出しを実行したいと考えております。
どの様な構文を追加すれば良いでしょうか・・?
---------------------------------------------------
”Worksheetsの"DATA"にデータを飛ばし”
下記の構文はTextBox3のデータをCommandButton36によって
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
----------------------------------------------------------
以上になります。よろしくご指導お願いいたします。
|
|