![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
下記のマクロを実行すると作業ブックのセル値がAccessの指定セル値にコピーできます。
このコードの内「 rs.Fields("備考欄") = ws.Range("E29").Value」ですが
セルの書式設定で「"希望日"m/d"急ぎ";@」と設定しているのですが、
実行するとAccessの(備考欄)には:日付のみがコピーされております。
書式設定したように「希望日7/5急ぎ」をコピー出来る方法を教えてください。
現状のマクロ
Sub 昇降機管理表()
alert = MsgBox("Accessにデータ移動してよろしいですか?", vbYesNo + vbQuestion, "Access確認")
If alert <> vbYes Then
Exit Sub
End If
Dim ws As Worksheet: Set ws = Worksheets("基本情報")
Dim db As String: db = "\\nas-sp01\share\新・確認申請管理表.accdb"
Dim cn As Object: Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & db & ";"
Dim rs As Object: Set rs = CreateObject("ADODB.Recordset")
rs.Open "確認申請(建築物)", cn, 1, 3
rs.AddNew
'rs.Fields("ID") = ws.Range("A1").Value
rs.Fields("受付NO(ERI)") = ws.Range("F17").Value
rs.Fields("物件名") = ws.Range("AJ4").Value
rs.Fields("正受付日") = ws.Range("D29").Value
rs.Fields("確認予定日") = ws.Range("D30").Value
rs.Fields("意匠法定通知(送付)") = ws.Range("D31").Value
rs.Fields("市町村名") = ws.Range("C8").Value
rs.Fields("代理人") = ws.Range("C4").Value
rs.Fields("主要用途") = ws.Range("AH2").Value
rs.Fields("ERI担当") = ws.Range("D16").Value
rs.Fields("備考欄") = ws.Range("E29").Value
rs.Update
rs.Close
cn.Close
End Sub
以上となります。
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/03/27 14:27
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) chatGPTで質問してみた エクセルのVBAについて 2 2023/10/24 07:37
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
テキストファイルのフィールド行のみ削除したい
Visual Basic(VBA)
-
VBの色を変えるにはどうしたらいいですか?
Visual Basic(VBA)
-
コードを書いて下さい( ; ; )写真有り
HTML・CSS
-
-
4
VBAを使用した時間管理
Visual Basic(VBA)
-
5
久しぶりのプログラミング
Visual Basic(VBA)
-
6
プログラミング、アーキテクチャ好きに質問です。 kotlinなどのMVVM、単方向データフローの考え
その他(プログラミング・Web制作)
-
7
システムエンジニアの適正について
C言語・C++・C#
-
8
どちのほうがすきですか?
C言語・C++・C#
-
9
mallocについて
C言語・C++・C#
-
10
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
11
VBA初心者 Ctrl+での操作、ボタンに登録での操作
Visual Basic(VBA)
-
12
プログラミング
その他(プログラミング・Web制作)
-
13
プログラミング ソースコード
その他(プログラミング・Web制作)
-
14
楽しくて最高のプログラミング言語を作りたいのですが、そもそもプログラミング言語を作る意味なんてないと
その他(プログラミング・Web制作)
-
15
オブジェクト指向プログラミングにおいて Aというクラスと Bというプロパティ(ゲッターとセッターはこ
その他(プログラミング・Web制作)
-
16
プログラマーと学歴の関係性について
その他(プログラミング・Web制作)
-
17
VBA指定行削除
Visual Basic(VBA)
-
18
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
19
西暦や和暦の表示をyyyymmdd表示へ変更をしたい
Excel(エクセル)
-
20
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelのプルダウンで2列分の情...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
【VBA】指定したセルと同じ値で...
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
エクセルVBAでコピーして順...
-
【VBA】Excelに数値を入力した...
-
vb.netによるEXCEL値取得
-
EXCELで変数をペーストしたい
-
VBAでセルの文字列を移動させる...
-
EXCELのVBA-フィルタ抽出後の...
-
VBからEXCELのセルの値を取得す...
-
【VBA】シート上の複数のチェッ...
-
エクセルマクロでアニメを作る...
-
クリックされたセルの位置を取...
-
【EXCEL VBA】Range("A:A").Fi...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
VBA初心者です。結合セルを保持...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewの各セル幅を自由...
-
特定の文字を条件に行挿入とそ...
-
【VBA】指定したセルと同じ値で...
おすすめ情報