Results of 1 - 1 of about 1242 for カレンダー (0.001 sec.)
- [[20240426162236]]
- #score: 6118
- @digest: 44d975753c5eacd71a95cc3bdf3070aa
- @id: 96666
- @mdate: 2024-04-27T02:54:22Z
- @size: 3006
- @type: text/plain
- #keywords: 休" (23496), tu12 (14319), ー") (10195), 示if (7527), tu4 (7498), しi4 (7323), がi4 (6386), カレ (6317), 付( (4151), レン (3933), ー" (3477), ンダ (3465), ダー (3211), のe1 (2785), e15 (2593), enableevents (2093), ば6 (1992), target (1951), （bb (1919), 一文 (1845), ら12 (1715), intersect (1513), 2024 (1145), 力規 (1030), sheets (953), application (934), 本語 (928), 存在 (901), 味不 (890), 規則 (830), i4 (808), nothing (806)
- 『Worksheet_Changeイベント』（BB）
“カレンダー”シートのI6:TU12の範囲で入力規則を設定しています。この中で選択したものは1文字のみ表示させています。 '入力規則の一文字だけ表示 If Intersect(Target, Range("I6:TU12")) Is Nothing Or Target.Count <> 1 Then Exit Sub Application.EnableEvents = False Target = Left(Target, 1) この条件に追加で"カレンダー"シートのE15:E27の範囲で日付(m/d)が入力しI4:TU4(m/d)と同じであれば6行目から12行目に"休"を表示させたいんですがこのコードではできませんでした。どう修正すればいいでしょうか?よろしくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) '入力規則の一文字だけ表示 If Intersect(Target, Range("I6:TU12")) Is Nothing Or Target.Count <> 1 Or Intersect(Target, Range("E15:E26")) Is Nothing Then Exit Sub Application.EnableEvents = False Target = Left(Target, 1) For k = 9 To 500 For i = 15 To 27 If Sheets("カレンダー").Cells(i, "E").Value = Sheets("カレンダー").Cells(4, k).Value Then j = k Sheets("カレンダー").Cells(6, j).Value = "休" Sheets("カレンダー").Cells(7, j).Value = "休" Sheets("カレンダー").Cells(8, j).Value = "休" Sheets("カレンダー").Cells(9, j).Value = "休" Sheets("カレンダー").Cells(10, j).Value = "休" Sheets("カレンダー").Cells(11, j).Value = "休" Sheets("カレンダー").Cells(12, j).Value = "休" k = j End If Next i Next k Application.EnableEvents = True Application.EnableEvents = True End Sub ＜ 使用 Excel:unknown、使用 OS:Windows10 ＞ ---- ＞ "カレンダー"シートのE15:E27の範囲で日付(m/d)が入力しI4:TU4(m/d)と同じであれば6行目から12行目に"休"を表示させたい 日本語として意味不明です。「てにをは」がおかしいですね。 下記のようなことですか。 "カレンダー"シートのE15:E27の範囲に日付(m/d)を入力したとき、 その日付がI4:TU4範囲に存在すれば、 存在した列の6行目から12行目に"休"を表示させる もし、違うのなら、意味が伝わる日本語で説明してください。 （hatena） 2024/04/26(金) 18:15:48 ---- すみません。ご指摘の通りです。 "カレンダー"シートのE15:E27の範囲に日付(m/d)を入力したとき、 その日付がI4:TU4範囲に存在すれば、 存在した列の6行目から12行目に"休"を表示させる よろしくお願いします。 （BB） 2024/04/26(金) 18:29:15 ---- 一致するセルを検索する場合は、Application.Match を使うとシンプルです。 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False '入力規則の一文字だけ表示 If Not Intersect(Target, Range("I6:TU12")) Is Nothing And Target.Count = 1 Then Target = Left(Target, 1) End If Dim t As Range, c As Range, i As Variant Set t = Intersect(Target, Range("E15:E27")) If Not t Is Nothing Then For Each c In t i = Application.Match(c, Range("I4:TU4"), 0) If Not IsError(i) Then Range("I4").Offset(2, i).Resize(7).Value = "休" End If Next End If Application.EnableEvents = True End Sub （hatena） 2024/04/27(土) 08:49:52 ---- ありがとうございました。 （BB） 2024/04/27(土) 11:54:22... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/202404/20240426162236.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97050 documents and 608253 words.
訪問者：