行数字の下に「1」と表示する。(行4の下に1と表示)月が切り替われば自動的に次の月の下に「1」が表示されるようになる。行数字を認識して「1」を表示し月が切り替わるでのマクロは問題ないのですが。認識させるところでつかかってしまいます。40432(表記数値)でないとイコールとして認識してくれません。5・・・と固定している為。TODAYを4や5などの月のみで認識させたいのですが、不可能でしょうか・・?月が切り替わると自動的に「1」の入れる月をずらしていきたいので。調べましたがなかなかHITせず投稿させて頂きました。知識をお貸しいただけたら幸いと思っております。通報するこの質問への回答は締め切られました。VBA」に関するQ&A:VBAで今日の日付のフォルダを作る。09:47「=TODAY()」の代わりに「=MONTH(TODAY())」を使って下さい。日付値から、月を抜き出す関数ですので今日なら「4」という数値になります。解決できました!ありがとうございました!1番先に回答いただきました方をベストアンサーにさせていただきました。11:07これはVBAの質問ですか?それにしてもエクセルで、日付は、セルの値は、日付シリアル値で持たれていること(最も基礎的なこと)を知らないで長々下質問なっているのでは。40432(とか言っている考え方を理解してください。情報的にはその一部の月数字を出すのも、関数(日付シリアル値向けの関数)のお世話にならないと、月数字は分かりません。Monthといった関数がエクセル関数やエクセルVBAの関数にあるから、それを使えば仕舞い。エクセルの基礎的なことを知らないでVBAをやるのは不完全です。ーーもうひとつ「セルの値」と「セルの表示形式の適用結果の見た目」との区別が、質問者ははっきり認識出来てないのではないか。エクセル関数は「セルの値」で計算や、加工などをやるものだ。行の数字が等しくなった時とか列のことが書いてないが、はっきりB2:M2とか書くべきです。12」が入っていると解される恐れがある。関数でB3に=IF(MONTH($A$1)=B2,1,"")ト入れてM列まで式を複写しておく。現在日ではE3セルが1となる。A1は絶対番地にすること。ーーVBAでの回答は省略。色んな方法が考えられる。4月ならB3から考えて4番目(Offset)の列の第3行のセルに1を入れるなど。第3行目のB3:M3の範囲を月数字と同じかくり返しIFで聞くとか。Match関数、Findメソッドでみつけるとか。通報するこの回答へのお礼1番先に回答いただきました方をベストアンサーにさせていただきました。専門的にVBAや関数を扱っていなく突発的に行わなければいけず、自己で悩み考え解決出来なかった部分を質問させていただきました、基礎が歯抜けになっているのは承知ですが少しずつですが精進してる次第です。指摘とても身になりました、無知によるご無礼大変失礼しました、ご指導ありがとうございました。09:47「どうにかTODAYを4や5などの月のみで認識させたいのですが、不可能でしょうか・・?」については・・・=MONTH(TODAY())とすれば月が返ってきますのでお試しください。解決できました!ありがとうございました!1番先に回答いただきました方をベストアンサーにさせていただきました。こちらについて教えていただきたいです。エクセルのセルをコピー...7入力したセル番地をメッセージ...8マクロ・VB得意な人へ。複数セルが空白なら印刷さ...12VBAで丸をつけたいです。Inc.Q質問する(無料)Q&A検索goo検索gooIDで新規登録・ログイン新規登録する(無料)会員の方はこちら外部サービスのアカウントで新規登録・ログインYahoo!で新規登録・ログインGoogleで新規登録・ログインTwitterで新規登録・ログインFacebookで新規登録・ログインdアカウントで新規登録・ログイン※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。会員でない方、会員になるとあなたも質問や回答ができるようになります!!親切・丁寧な回答が集まる場30分以内に回答がもらえ回答数は平均3件!匿名(ニックネーム)での投稿なので。