Excel VBA 質問スレ Part66at TECHExcel VBA 質問スレ Part66 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト400:379 20/05/30 18:40:42.91 x6N4SK2n.net =TEXT( EDATE(DE2, (DAY(DE2)>20)+(DT2<>"")) ,"yyyy""_""m") の並び順で For cnt = 2 To i Range("HJ1") = Format( _'「=TEXT(」にあたる部分 **********'「EDATE(DE2,」EDATEにあたる部分 '「(DAY(DE2)>20)+(DT2<>""))」にあたる部分 DateSerial(Range("DE" & cnt) > 20 + (Range("DT" & cnt) <> "") ,"yyyy""_""m" '「,"yyyy""_""m")」にあたる部分 Next cnt 401:デフォルトの名無しさん 20/05/30 18:59:33.29 IeNY1P6O.net >>367 それ本当にマクロか?っていう圧倒的なものを作ってみるといい。 402:デフォルトの名無しさん 20/05/30 19:06:40 RuztwjMU.net >>383 ユーザーフォームのボタンにあてがうと 有り難みが薄れるらしく 最近作るのを断ってるわ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch