エクセルVBAについて次の2つの質問についてご解答ください。


質問①
A列に年月日が記入されています。
B列に年、C列に月、D列に日を記入するというマクロを作ってください。
ただし、A列に複数行にわたって文字列入っている場合、
その全てに対応するようご留意ください。

質問②
A列に複数の文字列があるとします。
たとえばそれが15行目まであったとしたら、
B列の1~15行に「はてな」という
文字列を記入するというマクロを作ってください。
ただし、A列の文字列は15行とは限らず何行あっても対応することと、
A列の途中に空白がある場合でも、
B列には「はてな」という文字列が記入されるという点にご留意ください。

以上、よろしくお願いします。

回答の条件
  • 1人2回まで
  • 登録:2007/11/11 08:31:31
  • 終了:2007/11/11 09:09:59

回答(1件)

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692007/11/11 08:52:25

ポイント60pt

ワークシート関数を使ってもできることですが、VBAということなので

Sub Macro1()
    Dim LastRow As Long
    Dim i As Long
    LastRow = Range("A65536").End(xlUp).Row
    For i = 1 To LastRow
        If IsDate(Cells(i, 1).Value) Then
            Cells(i, 2).Value = Year(Cells(i, 1).Value)
            Cells(i, 3).Value = Month(Cells(i, 1).Value)
            Cells(i, 4).Value = Day(Cells(i, 1).Value)
        End If
    Next i
End Sub

Sub Macro2()
    Dim LastRow As Long
    Dim i As Long
    LastRow = Range("A65536").End(xlUp).Row
    For i = 1 To LastRow
        Cells(i, 2).Value = "はてな"
    Next i
End Sub
id:taroemon

今回はあえてマクロでお願いしました。

完璧にうまくいきました。ありがとうございます。

2007/11/11 09:09:34

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません