□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| vbaで行のセルを入力したらA列の最終行の一つ下に自動で | |
|---|---|
[195471] vbaで行のセルを入力したらA列の最終行の一つ下に自動で- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ chabin -(2022/12/21(20:22)) □U R L/ スタートは7行目からで、 A7 B7 C7 G7 H7 とそれぞれに入力後エンターキーで進め、 次の行の(最終行の下) A8(アクティブセル) にセット もし続けて入力がある場合 A8 B8 C8 G8 H8 とそれぞれに入力後エンターキーで進め、 A9(アクティブセル) にセット という具合にいつも最終行のA列の一つ下のセルをアクティブに自動でする コードをご指導頂けませんか ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[195472] Re[1]: vbaで行のセルを入力したらA列の最終行の一つ下に自動で- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2022/12/22(15:24)) □U R L/ 該当シートモジュールに記載例
Sub 入力制限開始()
Dim rw As Long
Application.EnableEvents = False
With Me
.Unprotect
rw = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
rw = Application.WorksheetFunction.Max(rw, 7)
.Cells.Locked = True
.Range("A" & rw & ":C" & rw & ",G" & rw & ":H" & rw).Locked = False
.Protect UserInterfaceOnly:=True
.EnableSelection = xlUnlockedCells
.Cells(rw, "A").Select
End With
Application.EnableEvents = True
End Sub
Sub 入力終了()
Me.Protect UserInterfaceOnly:=False
Me.Unprotect
Me.Cells.Locked = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.ProtectionMode Then
If Target.Column = 1 Then
入力制限開始
End If
End If
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195473] Re[2]: vbaで行のセルを入力したらA列の最終行の一つ下に自動で- ■  / 記事引用/メール受信=OFF■
□投稿者/ chabin -(2022/12/22(18:12)) □U R L/ 率直に申し上げると本当に丸投げで申し訳なく思いながらご指導を願いました。 大変ご苦労かけ、小生のわがままをお許しください。 本当に希望通りです。 感謝感激でありがとうございます。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |