
No.1ベストアンサー
- 回答日時:
そう云われて検索してみましたが、適当なサイトがみつかりませんでしたので
入力シートからデータベースシートへ追加するVBA
データベースシート
A B C D E F G
日付 時間 取引先 品名 単価 数量 金額
入力シート
A B
取引先
品名
単価
数量
金額 =B3*B4
と準備します
開発のリボンから 挿入=>ボタン
新規作成からVBエディターを起動して
Sub ボタン1_Click()
With Sheets("入力シート")
GYOU = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & GYOU).Value = Date
.Range("B" & GYOU).Value = Time
.Range("C" & GYOU).Value = Range("B1").Value
.Range("D" & GYOU).Value = Range("B2").Value
.Range("E" & GYOU).Value = Range("B3").Value
.Range("F" & GYOU).Value = Range("B4").Value
.Range("F" & GYOU).Value = Range("B5").Value
End With
End Sub
となるようにコードをコピーしてエディターを閉じて
ボタンを押してみてください。
VBAを使いましたが、大丈夫ですか。
とりあえず、しばらくおつきあいします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのシー名を二段表示に...
-
エクセルでブック内の倍率がバ...
-
EXCELで複数のシートを一度に「...
-
vba Listviewでのチェックボッ...
-
エクセルシートの見出しの文字...
-
Nintendo Switch 2 キャリング...
-
ワークシートそのものの色を変...
-
【ExcelVBA】マクロの入ったシ...
-
エクセルでリンク貼り付けした...
-
Wordで差し込み印刷時に表示す...
-
エクセルで複数のシートに画像...
-
EXCELの図形(テキストボックス)...
-
エクセル、特定のシートにパス...
-
エクセルのシート連番の振り直し
-
エクセルVBAでエラー!
-
DATE関数 4月31日などのあ...
-
エクセルのファイルサイズが急...
-
VBA Excelのシート名が変更され...
-
Excel 全シート上のボタンを削...
-
Excelで条件に一致したものだけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルシートの見出しの文字...
-
EXCELで複数のシートを一度に「...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
【ExcelVBA】マクロの入ったシ...
-
ハイパーリンクでジャンプした...
-
EXCELの図形(テキストボックス)...
-
EXCELで存在しないシート...
-
エクセルで複数のシートに画像...
-
エクセル、特定のシートにパス...
-
エクセルのシー名を二段表示に...
-
ワークシートそのものの色を変...
-
Wordで差し込み印刷時に表示す...
-
Accessのテーブルを既存のExcel...
-
エクセルのファイルサイズが急...
-
エクセルの複数シートでのリン...
-
エクセルで、シートの名前を変...
-
エクセルの2つのシートを並び...
-
EXCELの「シートの見出し」のフ...
-
Excelでマクロ設定したが反映さ...
おすすめ情報