Excel VBA質問箱 IV

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

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


25181 / 76735 ←次へ | 前へ→

【56898】Re:時間表示についてお願いします。
質問  マクロ  - 08/7/10(木) 10:15 -

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

0 hits

【56630】時間表示についてお願いします。 マクロ 08/6/25(水) 23:40 質問
【56631】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 0:14 発言
【56632】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 0:25 お礼
【56633】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 8:31 発言
【56635】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 13:51 質問
【56638】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 14:55 発言
【56640】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 16:04 質問
【56642】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 16:55 発言
【56644】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 17:26 発言
【56646】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 18:44 質問
【56647】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 19:07 発言
【56692】Re:時間表示についてお願いします。 マクロ 08/6/30(月) 18:51 お礼
【56696】Re:時間表示についてお願いします。 kanabun 08/6/30(月) 23:08 発言
【56724】Re:時間表示についてお願いします。 マクロ 08/7/2(水) 10:10 質問
【56729】Re:時間表示についてお願いします。 kanabun 08/7/2(水) 11:26 発言
【56733】Re:時間表示についてお願いします。 kanabun 08/7/2(水) 13:54 発言
【56734】Re:時間表示についてお願いします。 VBAでメール 08/7/2(水) 13:57 質問
【56736】Re:時間表示についてお願いします。 kanabun 08/7/2(水) 15:08 回答
【56775】Re:時間表示についてお願いします。 VBAでメール 08/7/4(金) 10:16 質問
【56776】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 10:45 発言
【56777】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 10:50 発言
【56781】Re:時間表示についてお願いします。 VBAでメール 08/7/4(金) 14:32 質問
【56782】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 14:46 発言
【56784】Re:時間表示についてお願いします。 VBAでメール 08/7/4(金) 15:16 質問
【56787】Re:時間表示についてお願いします。 放置新聞 08/7/4(金) 15:40 発言
【56788】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 15:48 発言
【56810】Re:時間表示についてお願いします。 マクロ 08/7/6(日) 20:22 お礼
【56826】Re:時間表示についてお願いします。 VBA勉強中です 08/7/7(月) 17:19 質問
【56830】Re:時間表示についてお願いします。 kanabun 08/7/7(月) 18:16 発言
【56831】Re:時間表示についてお願いします。 VBA勉強中です 08/7/7(月) 18:47 お礼
【56832】Re:時間表示についてお願いします。 kanabun 08/7/7(月) 18:52 発言
【56898】Re:時間表示についてお願いします。 マクロ 08/7/10(木) 10:15 質問
【56912】Re:時間表示についてお願いします。 kanabun 08/7/10(木) 14:40 発言
【56922】Re:時間表示についてお願いします。 マクロ 08/7/10(木) 19:34 お礼

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