
ご教授よろしくお願いいたします。
AJ列にNow関数(yyyy/mm/dd ○○:○○)を設定し、数値は日付としています。別ブックに貼り付けるマクロを作成しました。しかしながら貼り付け先には×××××.×××××となり、数値も標準になります。改めて数値を日付に変えると変換されます。マクロを修正することで解決できないでしょうか。よろしくお願いいたします。
Sub 転記()
Range("AJ4:AS4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim wb As Workbook
Set wb = ThisWorkbook
Dim wb2 As Workbook
Set wb2 = Workbooks.Open("C:\○○\○○.xlsx")
Dim GYOU2 As String
wb.Worksheets("元").Range("AJ4:AS4").Copy
wb2.Sheets("先").Select
GYOU2 = Sheets("先").Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & GYOU2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
wb2.Save
wb2.Close
wb.Save
End Sub
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
Range("A" & GYOU2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
を
Range("A" & GYOU2).PasteSpecial
に変える
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
複数のマクロボタンをまとめて...
-
Excel マクロの編集がグレーに...
-
エクセルでマクロ(Excel 4.0)...
-
エクセル ボタンに設定したマク...
-
エクセル マクロ名にブック名...
-
エクセルで、「いいね」のよう...
-
エクセルの、記録を終了したマ...
-
Excelのマクロでボタンを押すと...
-
エクセルの表を複数枚印刷した...
-
Excelマクロで、稼働中のマクロ...
-
エクセルのマクロ、VBAって?
-
他のBOOKにマクロを反映させな...
-
EXCELのマクロが他のパソコンで...
-
エクセルで歩値を分足に編集す...
-
TeraTermマクロでctrl+alt+del...
-
Excelのマクロ名の並び順の法則...
-
エクセル:マクロの保存先(I...
-
Ctrl+Zが使えない
-
コピーしたデータを2行ずつに貼...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
複数のマクロボタンをまとめて...
-
エクセル ボタンに設定したマク...
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
エクセル マクロ名にブック名...
-
エクセルでマクロ(Excel 4.0)...
-
エクセルの、記録を終了したマ...
-
LDPlayerのマクロの編集方法を...
-
(Excel VBA)シートコピー時マ...
-
Excelマクロで、稼働中のマクロ...
-
エクセルの表を複数枚印刷した...
-
エクセルで明日の日付を表示す...
-
Excelのマクロ名の並び順の法則...
-
別シートのマクロボタンをマク...
-
Excelマクロをバックグラウンド...
-
エクセルマクロで、別のブック...
-
他のBOOKにマクロを反映させな...
-
EXCELのマクロが他のパソコンで...
おすすめ情報