右表は設定時間で、ユーザーが自由に変更できる不規則な並びとなっています。
左表のNo.1には動作する始めの時間が入力されており、No.2以降は右表を参考に日時を入力していきます。
例えば、No.2は「03月29日(火) 20時00分」、No.3は「03月29日(火) 22時20分」、No.4は「03月29日(火) 23時50分」、No.5は「03月30日(水) 01時00分」、No.6は「03月30日(水) 02時40分」…となるようにしていきたいです。
No.1を手入力すると、No.2以降が自動で入力されるマクロを教えてください。
使用環境は、Windows10、Excel2016です。
No.2ベストアンサー
- 回答日時:
こんにちは
ルールの説明が無いのでよくわからないため、勝手に解釈しました。
・E4:E9の時刻は必ず昇順に並んでいるものと仮定しました。
・また、時刻や日時は全てシリアル値であるものと仮定しました。
以下ではいかがでしょうか?
Sub Macro1()
Const f1 = "mm""月""dd""日""(aaa) hh""時""mm""分"""
Const f2 = "=IF(C$4="""","""",INT(C$4)+INT((IFERROR("
Const f3 = "MATCH(MOD(C$4,1)+10^-5,E$4:E$9),0)+ROW(A1)-1)"
Const f4 = "/6)+INDEX(E$4:E$9,MOD(IFERROR(MATCH(MOD(C$4,1)"
Const f5 = "+10^-5,E$4:E$9),0)+ROW(A1)-1,6)+1))"
With Range("C5:C15")
.NumberFormatLocal = f1
.FormulaLocal = f2 & f3 & f4 & f5
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelで質問です! 現在マクロを勉強中の初心者です。 以下のような表から、会社名が空白のもの以外 2 2022/06/14 12:16
- その他(セキュリティ) Googleのログイン失敗しました 1 2023/01/01 23:53
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- 英語 不定代名詞"no..."の否定語noの及び範囲について 4 2022/08/04 11:11
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Excel(エクセル) EXCELで次の数式を教えてください。 5 2022/11/23 18:33
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- Access(アクセス) アクセスのグループ化で、 No.が10番台のJPY合計 No.が20番台のJPY合計 No.が30番 1 2022/12/20 14:39
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数字以外の入力をエラーにする...
-
EXCEL VBAで、URLを入力して、...
-
初歩的な事だと思います。 Sub...
-
アルファベットGの小文字の入力
-
エクセルVBA テキストボックス...
-
入力フォームへ、データを自動...
-
VBAで質問があります
-
「イ分」・・・フンという文字...
-
テキストボックスの番号を使っ...
-
VBAの質問になります メッセー...
-
入力フォームの値をQRコードで...
-
<input>のstep属性に違反する入...
-
EXCEL VBA で指定した範囲に入...
-
textareaについて
-
VBA エクセル 条件の設定
-
エディットボックスの入力制限...
-
VBA R1C1形式で変数の入力について
-
スマートフォン向けフォームで...
-
ACCESS テキストボックスの入力...
-
教えて!全角文字「μ」の半角
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
VBAで質問があります
-
Windowsのアプリ開発ってなんの...
-
Excel-VBAでInputBox+Pulldown...
-
EXCEL VBA で指定した範囲に入...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
VBAでInputBoxの再入力をさせる...
-
入力フォームの値をQRコードで...
-
excel vba でユーザーフォーム...
-
TextBoxから数字が文字...
-
VBAの質問になります メッセー...
-
DataGridViewの桁数制限に関して
-
accessで該当するレコードがな...
-
c#でTextBoxの入力制限
-
VBA R1C1形式で変数の入力について
-
エディットボックスの入力制限...
-
「イ分」・・・フンという文字...
-
アルファベットGの小文字の入力
おすすめ情報
1.No.2にはNo.1で入力した時間の次の時間を表示しています。
No.1で「03月29日(火) 05時30分」になっているので、右表の「5:30」の次である「20:00」をNo.2に表示しています。
2.時間はシリアル値で、表示をセルの書式設定で変更しています。
3.右表を繰り返し表示させたいので、
No.6「03月30日(水) 02時40分」
No.7「03月30日(水) 05時30分」
No.8「03月30日(水) 20時00分」
No.9「03月30日(水) 22時20分」…とNo.12まで表示させたいです。