Range("F4").CopyRange("H5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

www.mutable.work

Sub セルをシート3にコピー() Dim シート1 As Worksheet Dim シート3 As Worksheet Dim 最終行 As Long Dim 現在日付 As String Dim i As Long ' シート1とシート3のワークシートを取得 Set シート1 = ThisWorkbook.Sheets("Sheet1") Set シート3 = ThisWork…

Sub TextOutput() Dim i As Long 'ファイルを書き込みで開く(無ければ新規作成される、あれば上書き) Open "C:\Desktop\test.txt" For Output As #1 '開いたファイルに書き込むPrint #1, Range("B3").ValuePrint #1, Range("B6").ValuePrint #1, Range("B9")…

Sub セルをシート3にコピー() Dim シート1 As Worksheet Dim シート3 As Worksheet Dim 最終行 As Long Dim 現在日付 As String ' シート1とシート3のワークシートを取得 Set シート1 = ThisWorkbook.Sheets("Sheet1") Set シート3 = ThisWorkbook.Sheets("S…

Sub メモ帳に出力() Dim 出力文字列 As String Dim ファイル名 As String Dim ファイル番号 As Integer Dim i As Integer Dim シート As Worksheet ' 対象のセルの値を取得 Set シート = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更 出力文字列 = "…

Sub データをコピー() Dim シート1 As Worksheet, シート2 As Worksheet Dim 対象値 As Variant Dim 範囲 As Range, セル As Range Dim コピー範囲 As Range ' シートを指定 Set シート1 = ThisWorkbook.Sheets("Sheet1") Set シート2 = ThisWorkbook.Sheets…

Sub CopyTo37() Dim ws As Worksheet Dim rng28to35 As Range Dim rng37 As Range Dim セル As Range Dim カウント As Integer ' 対象のワークシートを指定 Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更 ' L列の28行目から35行目の範囲を取…

Sub 列ごとコピー() Dim ws1 As Worksheet 'ワークシートの変数宣言1 Dim ws2 As Worksheet 'ワークシートの変数宣言2 Dim val As String Dim col As Long Set ws1 = Sheets("Sheet1") Set ws2 = Sheets("Sheet2") val = ws1.Range("G10").Value '値を取得 c…

=DATE(A1,A2,SEQUENCE(DAY(EOMONTH(DATE(A1,A2,1),0)))) =OFFSET($A$3,0,0,COUNTA($A:$A)-2,1) ※ A１に年 A２に月 セルの書式 yyyy/m/d(aaa)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Column = 1 ThenTarget.Value = DateCancel = TrueElseIf Target.Column = 2 ThenTarget.Value = TimeCancel = TrueEnd IfEnd Sub