人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:VBA うご はてな エクセル マクロ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント

ワークシート関数を使ってもできることですが、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
◎質問者からの返答

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ