Results of 1 - 1 of about 470 for EDATE (0.000 sec.)
- [[20220124114430]]
- #score: 9974
- @digest: 3a515181093b72520aee5f535a2e8b97
- @id: 90232
- @mdate: 2022-01-24T02:54:47Z
- @size: 1355
- @type: text/plain
- #keywords: mdate (16967), mdate2 (13533), scol (11957), ecol (10224), memo (9437), dateperiod (7268), sdate (5861), 力実 (5832), ン操 (5018), 示if (5018), 示ra (3878), 在フ (3492), value2 (3281), 全表 (2535), 定if (1639), edate (1540), hidden (1425), 示設 (1304), columns (1106), 値入 (1046), ムコ (952), isdate (851), 非表 (697), カス (601), を非 (457), 実行 (386), 操作 (333), トロ (324), イベ (309), office365 (308), const (300), 2022 (273)
- 『常に実行』（カス）
現在フォームコントロールのボタン操作にて下記を実行しているのですが ボタン操作を行わずC2、C3に値が入力されれば実行することは可能でしょうか 詳しくないため教えてください。 よろしくお願いいたします。 Sub DatePeriod() Const sCol As Long = 15 Const eCol As Long = 379 '全表示 Range(Columns(sCol), Columns(eCol)).Hidden = False '非表示設定 If IsDate(Range("C2").Value) And IsDate(Range("C3").Value) Then Dim mDate As Long: mDate = Cells(2, sCol).Value2 Dim mDate2 As Long: mDate2 = Cells(2, eCol).Value2 Dim sDate As Long: sDate = Range("C2").Value2 Dim eDate As Long: eDate = Range("C3").Value2 Dim memo As Long '開始より前を非表示 If sDate > mDate Then memo = sDate - mDate + sCol - 1 Range(Columns(sCol), Columns(memo)).Hidden = True Cells(2, memo + 1).Activate End If '終了より後を非表示 If mDate2 > eDate Then memo = eDate - mDate + sCol + 1 Range(Columns(memo), Columns(eCol)).Hidden = True End If End If End Sub ＜ 使用 Excel:Office365、使用 OS:Windows10 ＞ ---- Worksheet_Changeイベントを使えばできると思います。 （DS） 2022/01/24(月) 11:53 ---- 「値 入力 実行」で調べれば出ると思います。 （jsk） 2022/01/24(月) 11:54... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202201/20220124114430.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97021 documents and 608149 words.
訪問者：