Q&A
まず、VBA の問題以前に、要件がよくわかりません。
どういった入力どういった出力にしたいのか、Excel にどう実装するのかとは切り離して説明してください。
VBA 入力月で当該シートに転記する方法
会計伝票を入力後、ボタンを押したら売上管理票に転記するコードを
書いています。
その際、入力月（例：1月18日だったら1月シート・2月18日だったら2月シート）に自動的にシートを選択するコードを教えて下さい。
いろいろと調べたのですが、わからず。。。。
よろしくお願い致します。
以下が、現在作成中です。
Sub 売上登録()
'改行して転記
Dim i
For i = 4 To Sheets("一覧").Range("A10000").End(xlUp).Row + 1
If Sheets("一覧").Range("D" & i).Value = "" Then
'Familyから一覧に転記
Sheets("一覧").Range("D" & i).Value = Sheets("Family").Range("B7").Value
Sheets("一覧").Range("E" & i).Value = Sheets("Family").Range("M16").Value
'日付
Sheets("一覧").Range("B4").Value = Date Sheets("一覧").Range("B" & i).Value = Date Exit For End If Next
'Familyから転記した内容を消す
Range("B7").MergeArea.ClearContents
Range("B19:R42").ClearContents
'メッセージ
MsgBox "売上登録しました"
End Sub
回答1件
0
こんな感じですか。
vba
1Dim nmSh As String 2nmSh = Month(Date) & "月" 3Worksheets(nmSh).Select
投稿2021/01/17 23:44
総合スコア1925
あなたの回答
tips
プレビュー
