エクセルVBA表示形式（日付)について
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2014年12月16日(火)11時43分 From: 賃上げ賛成 | 返事 削除 変更 |
| エクセルVBA表示形式（日付)についてご教授をお願いします。 シート２にテキストファイルから読込んだデータがあり そのデータを元にシート３に不要な列を削除し列を並べ替えて 転記するプログラム作成しました。 シート２の納品日の列の表示形式はyyyy/mm/ddの「日付」となっているのですが 転記する際にシート３の納品日の列の表示形式を8桁の「標準」にしたいのですが 上手くいきません。 お手数ですが宜しくお願いします。 Dim lastrow As Integer Dim ws As Worksheet Dim g As Integer Set ws = ActiveWorkbook.Worksheets(3) lastrow = Range("A1048576").End(xlUp).Rows For g = 4 To lastrow ws.Cells(g, 1).Value = Cells(g, 1).Value ws.Cells(g, 2).Value = Cells(g, 3).Value ws.Cells(g, 3).Value = Cells(g, 8).Value ws.Cells(g, 6).Value = Cells(g, 5).Value ws.Cells(g, 7).Value = Cells(g, 6).Value ws.Cells(g, 8).Value = Cells(g, 19).Value ws.Cells(g, 9).Value = Cells(g, 10).Value ws.Cells(g, 11).Value = Cells(g, 15).Value ws.Cells(g, 12).Value = Cells(g, 16).Value ws.Cells(g, 13).Value = Cells(g, 17).Value Next g Range("F4:F" & Range("F65536").End(xlUp).Row).NumberFormat = "general" End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
