No.5ベストアンサー
- 回答日時:
#02です。
ブックを開いたときに指定したシートのB列の最終行の1行下に日付と罫線を入れるマクロにしました。マクロをペーストする方法は#02と一緒です
Private Sub Workbook_Open()
Dim LastR As Long
With Worksheets("Sheet1") 'シート名が違うなら「Sheet1」を修正する
LastR = .Range("B65536").End(xlUp).Row
.Cells(LastR + 1, 1) = Date
Range(.Cells(1, 1), .Cells(LastR + 1, 2)).Borders.LineStyle = xlContinuous
End With
End Sub
No.4
- 回答日時:
>その次の日は3行目に、行を挿入したいのですが、言葉足らずで申し訳ありません。
挿入ではなくて追加ですよね?
Cells(Rows.Count, 1).End(xlUp).Activate
If ActiveCell <> Date And ActiveCell <> "" Then
Rows(Selection.Row).Copy Rows(Selection.Row + 1)
ActiveCell.Offset(1) = Date
ActiveCell.Offset(1, 1).ClearContents
End If
No.3
- 回答日時:
こんにちは。
今日を入力する為に、前日までの分は一段下げ、
今日は常に一行目(B1)に入力するということですね。
標準モジュールに以下のコードを置いておけば
該当Bookが開いたときに質問のようになります。
-----------------------------------------------
Sub Auto_Open()
Range("A1").EntireRow.Insert
With Range("A1")
.Value = Date
.NumberFormatLocal = "yyyy/m/d"
.EntireColumn.AutoFit
End With
With Range("A1:B1").Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B1").Select
End Sub
--------------------------------------------------
コードを見れば分かると思いますが次のようなことをしています。
1行目に1行挿入
A1に今日の日付を代入
A1の表示形式を日付に設定
A列の幅を日付の幅に設定
A1:B1 に罫線を設定
B1に入力できるようにB1をSelectしておく
以上です。
この回答への補足
すいません。説明不足でした。その逆です。例えば1行目、2行目にデータを入力したら、その次の日は3行目に、行を挿入したいのですが、言葉足らずで申し訳ありません。
補足日時:2006/10/20 15:32No.2
- 回答日時:
こんなマクロでしょうか。
マクロはALT+F11でVBE画面を開き、「VBAProjectエクスプローラのシート名配下のThisWorkbookを右クリック」→「コードの表示」で表示される画面にペーストして下さい。BOOKを開いたときに毎回実行されます
Private Sub Workbook_Open()
Worksheets("Sheet1").Activate 'シート名が違うなら「Sheet1」を修正する
Range("A1:B1").Insert Shift:=xlDown 'A1:B1のセルを挿入
Cells(1, 1) = Date
Range("A1:B1").Borders.LineStyle = xlContinuous '罫線を引く
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
- Excel(エクセル) 列を挿入しても式の一部を固定するには 6 2023/05/31 21:57
- Visual Basic(VBA) Excelにて、指定した日の午後にファイルを開いたらsheet1に UserForm1を表示させたい 2 2022/05/31 20:53
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) 別シートに順番で貼り付け 2 2023/04/13 19:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでエクセルシートを更新...
-
【エクセル】シートのロックで...
-
excelで、セル内に文字が入力さ...
-
Excelで、表に小計と合計を入れ...
-
エクセルVBAで65536レコードを...
-
エクセルのシートを同時に行削...
-
エクセルの担当者別にシートを...
-
表示倍率を変更させない方法
-
旬ごとの集計方法
-
エクセルのチェックボックスを...
-
パソコンで購入したデーターが...
-
差し込み印刷に当日の日付が入...
-
日付の大小の表現
-
「24日の0時」って・・・
-
「時間」、「期日」、「日付」...
-
エクセルで最高値、最低値の日...
-
エクセル マクロ 名前を付けて...
-
エクセルで数字から名前に変...
-
回覧板の日付について質問です...
-
アクセスである時点での年齢を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでエクセルシートを更新...
-
excelで、セル内に文字が入力さ...
-
エクセルのシートを同時に行削...
-
【エクセル】シートのロックで...
-
表示倍率を変更させない方法
-
エクセルで、2つのシートにある...
-
エクセルで別シート、または別...
-
エクセルの担当者別にシートを...
-
エクセルVBAで65536レコードを...
-
同一セルに入力規則のリストと...
-
仕事の引き継ぎでエクセルの習...
-
Excelのマクロで、開いた時に、...
-
エクセル表作成についてお分か...
-
Excelで、表に小計と合計を入れ...
-
シートを串刺しで抽出したいの...
-
マクロ!一覧から別シートへの抽出
-
ワードの差し込み印刷について
-
STAT VIEWが使えない!!!
-
エクセルで更新日時を表示したい。
-
エクセルシートの統合
おすすめ情報