Menu

Excel Excel VBAについての質問です エクセ

Excel Excel VBAについての質問です エクセ。はじめまして~日付はシリアル値ですので、注意しなければいけません。Excel VBAについての質問です

エクセルのシートの中に
結合したセルが複数あり、
そのうちいくつかに「2017/9/30」などの日付が入っています
記載場所は決まっていません
表示形式は自動で日付(アスタリスクなし)に なっています

中には「2017/9/30~2018/9/29 12か月」などの文字列も入っており
これらすべての年度を次年度へ変更したいです

「2017/9/30」なら「2018/9/30」へ
「2017/9/30~2018/9/29 12か月」なら
「2018/9/30~2019/9/29 12か月」へ

VBAで作りたいのですが作り方が分からずにいます
マクロの記録で置換を記録してみましたが
次にマクロを実行しようとしたら、うまく行きませんでした

上記のようなエクセルが100以上あり、
毎年年末に年度更新の作業をします
置換では毎回手間がかかるので
どのエクセルでも簡単に変更できる方法を探しています

知恵を貸してください
宜しくお願いします Msdn。でのネットワークドライブ割当エラーについて
お手数なのですが。下記の
エラーについてご教示質問 返信数 表示数 –

よくある質問と回答。○エクセルマクロについてのよくある質問と回答 マクロの習得って。難しいです
か? エクセルマクロは。他のプログラミング言語と比べて習得Excelエクセルの質問一覧。の質問一覧です。使いこなせるととても便利なですが。使い方がわから
なくて困ってしまう場面も多いと思います。マクロの組み方がわからない。
関数の設定について教えてほしい。データを元にグラフの作成を
したい等。ここで相談してみましょう。 素人です の文章を書く
スペースの文字が小さくて中高年には辛い場合 このウィンドウを拡 質問日時。Excel。関連の質問掲示板です。一般操作関数?編集?グラフの質問は。
こちらから。 □ マルチポストはやめましょう。ユーザーフォームのチェック
ボックスについて, 件, , , /, 解決!!ありがとうご

はじめまして~日付はシリアル値ですので、注意しなければいけません。数値のセルをループして、表示形式が日付のセルのみ処理します。それ以外は文字列中の数値を置換します。来年使うときは、seaY と repY の値を変更してください。Sub 日付置換 Dim c As Range Dim myArr As Range Const seaY As Long = 2017 '検索文字列 Const repY As Long = 2018 '置換文字列Set myArr = Cells.SpecialCellsxlCellTypeConstants, 1 For Each c In myArr If c.NumberFormatLocal = yyyy/m/d;@ Then c = DateSerialYearc + 1, Monthc, Dayc End If Next c Cells.Replace What:=seaY + 1/, Replacement:=repY + 1/, LookAt:=xlPart Cells.Replace What:=seaY/, Replacement:=repY/, LookAt:=xlPartEnd Subいかがですか~

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です