0

エクセル2003にて質問です。 前回からの続きになります。
前回説明がわかりづらく申し訳ありませんでした。。。


もう一度質問させていただきます。
簡単に申しますと、例えばC１のセルに11と入力されたら11月度の物だけ表示されるように足していただきたかったのです。
（10912AAAなら2011/9/12なので""になっていればOK）




＞文字列操作で質問なのですが、写真のような11123AAAの文から2011/11/23と操作したいのですが、何かいい手はないでしょうか？

関数でも、マクロでもエクセル付帯の機能でもかまいませんので。


条件１
B列に11123AAAと入力すると、A列に2011/11/23と入力される。
（一行だけではなく、下に入力が続けるようにお願いします。B2ならA2に、B3ならA3に反映）

条件２
2011の201までは確定で結構です。
(2020年までは考えてないです)

条件３
マクロで作成してくださる場合は入力決定した時点で自動的に発動するようお願いします。

条件４
10903ABCのような場合は、2011/9/3と表示する。
(出来れば2011/09/03ではない方が助かりますが、後で書式の日付をかまえば希望の形になれればOKです)

以上、注文が多くなってしまって申し訳ありませんが宜しくお願いします。



＞◆文字列でよければ、
A1=IF(B1="","",SUBSTITUTE(TEXT(201&LEFT(B1,5),"0!/00!/00"),"/0","/"))
★下にコピー

◆数値（シリアル値）にするならば、
１）A1=IF(B1="","",TEXT(201&LEFT(B1,5),"0-00-00")*1)
２）マウスを右クリックして「ショートカットメニュー」の「セルの書式設定」を選択して
３）「表示形式」→「ユーザー定義」にして「種類」に、 ｙｙｙｙ/ｍ/ｄ と入力します
４）表示形式を設定後A1の式を下にコピー


＞回答は出ていますがマクロの場合です。
念のため、シートのイベントプロシージャの設定方法です。
①シート名のタブの上で右クリックします。
②コンテキストメニュー中に「コードの表示」というがありますので、それを選択します。
③VBE画面になりますので空白な場所へ、下記のコードをコピー、貼り付けます。
④×をクリックして終了です。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
myYr = Val(Left(Target.Value, 1))
myMh = Val(Mid(Target.Value, 2, 2))
myDy = Val(Mid(Target.Value, 4, 2))
Target.Offset(0, -1).Value = 2010 + myYr & "/" & myMh & "/" & myDy
End Sub


＞=--("201"&LEFT(B1)&"/"&MID(B1,2,2)&"/"&MID(B1,4,2))
DATE関数でもいいですど

質問者が選んだベストソリューション

Yahoo!知恵袋 4552日前