「etTomioのトホホ日記」　2010年9月　　　　　　　　

◆2010/9/29
　忙中の閑で先日撮った500系の流し撮りです。
      
◆2010/9/29
　この前の土曜日に久しぶりにビデオのレンタル店に行ったら、「This Is It」のブルーレイが何本も飾ってありましたので、久しぶりにブルーレイに取り込みました。マイケルジャクソンは余り好みではありませんが、ステージにかける真剣さが伝わってきます。さすがに超一級のプロ。
◆2010/9/29
　この前の土日は稲刈りはしていません。その1週間前に刈った籾摺りを土曜日にし、午後から次の稲刈りをする田んぼの畦の草刈りをしました。長袖を着て草刈りをしたのに汗が出ませんでした。23日だったかな早朝に1時間ぐらい雷が鳴ったのは･･･　あれを境に急激に冷え込んできました。
　さて今週土曜日に最後の稲刈りをする予定なんですが、天気予報が芳しくありません。
◆2010/9/29
　10日ぐらい前に、マイクロソフトからIE9βのメールが来ましたので、今回は64bit版をインストールして使っていますが、慣れないせいか、ちょっといまいち･･･
◆2010/9/28
　さて下の印刷マクロですが、別な方法でコードを書いてみてやろう。幸い、参考書も2冊持って行っていましたので、仕事の終業後、試しました。何度もエラー。その度にメッセージボックスに変数の値を出させまして、あ、ここがおかしいなと、その繰り返しです。以下のコードで、A1からJ列の最終行までA4、縦、1ページに収めて印刷するコードです。

Sub 頁印刷練習3()
' 2010/9/28
' このマクロでも実行できる

Dim RowCnt As Integer
Dim 最終行セル As String

RowCnt = Range("J2").End(xlDown).Row 'J列のデータのある最終行数

最終行セル = "J" & RowCnt

左上 = "A1"
右下 = 最終行セル
範囲 = 左上 & ":" & 右下

With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With


ActiveSheet.PageSetup.PrintArea = 範囲
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Range("K1").Select

End Sub
　
◆2010/9/28
　昨夜書いた印刷( これはA1セルからJ列の最終行(勿論シートによってもあるいは日々の確定メールでも変わります)までを印刷するコードを早朝見てみますと、重複している部分がありますし、要らない変数もあるなと･･･　以下のように書き換えました。行頭に ' のあるコードは実行されません。

Sub 頁印刷()
' 2010/9/27
' 現在「頁1印刷」を使っているが、このマクロを使えばマウスでドラッグしなくても
' 頁1〜頁4まで連続して印刷できる筈。
' コメント行は実行しても間違いないが、必要ない

'Dim 最終行セル As Range
'Dim 範囲 As Range
Dim MyRange As Range

Range("J2").Select
Selection.End(xlDown).Select ' J列の最終行をアクティブにする
'Set 最終行セル = ActiveCell
Set MyRange = ActiveCell.CurrentRegion ' 出発点を含む、連続領域全体のRangeオブジェクトを返す


With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

'Set MyRange = 範囲

ActiveSheet.PageSetup.PrintArea = MyRange.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Range("K1").Select

End Sub
　
◆2010/9/27
　帰宅したら、土日の日記を書こうと思っていましたが、2週間前に書いた印刷マクロが気になって、再び書いています。2週間前にはマウスでドラッグして印刷範囲を指定するマクロで、今後も確実なので変える気はありませんが、それ以前のマクロで1回最終行まで印刷しなかったことがあって歯がゆい思いをしましたので。

Sub 頁印刷()
' 2010/9/27
' 現在「頁1印刷」を使っているが、このマクロを使えばマウスでドラッグしなくても
' 頁1〜頁4まで連続して印刷できる筈。

    Dim 最終行セル As Range
    Dim 範囲 As Range


    Range("J2").Select
    Selection.End(xlDown).Select ' J列の最終行をアクティブにする
    Set 最終行セル = ActiveCell
    Set 範囲 = ActiveCell.CurrentRegion ' 出発点を含む、連続領域全体のRangeオブジェクトを返す


    With ActiveSheet.PageSetup
        .PaperSize = xlPaperA4
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

    Set MyRange = 範囲

    ActiveSheet.PageSetup.PrintArea = MyRange.Address
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

    Range("K1").Select

End Sub

　
◆2010/9/21
X JAPAN〜without you
ヒデ、この若き天才ギタリストは何故逝ってしまったんだろう･･･
◆2010/9/20
　世間は三連休ですか。私は今日は仕事です。午前中きつかった。たぶん土日の稲刈りがきいてるんだと思います。1週間前は、この土日は稲刈りをするか未定と書きましたが、土曜日、沖のマチに稲刈りに出ました。土曜日、日曜日とカミサンも長男も休みだったので、長男が手伝いに来てくれました。カミサンは昼の支度と持って帰った籾を乾燥機に入れるのを手伝ってくれました。
　土曜日昼まで刈って、長男と籾を持ち帰り、乾燥機に入れ、昼ご飯を食べてるとき明日も刈ればと言ってくれました。自分もオフクロもこれ、もう1週間置いたらどうなるんだろうと不安になりました。じゃ明日も刈るかということで決まり。土曜日の午後はいつもより多めに刈りました。
　昨日の日曜日は、朝早くオフクロとスポーツドリンクやパンなどの買い出し、そして灯油を求めてあちこちのガソリンスタンドを回りました。まだ8時前でしたから、柳井市のあるスタンドが開いてるのを見つけました。それからカミサンと土曜日に刈った籾の臼引き。そして10時半にはまた稲刈りに出ました。ほどなく長男が駆けつけてくれて、12時半にいったん籾を持ち帰り、昼ご飯、午後も刈りに出て、15時にはコンバインも持って帰りました。今度の土曜日に臼引きをする予定です。後ウチの下に2マチ、1反余り遅モノが残っていますが、これは今のところ来週の予定です。
　会社からの帰りとか、田んぼを見て、これもう刈れるんじゃないかなあと思う田がよくあります。今年は色で判断できないのではと･･･　ゆっくりしてると熟れすぎて胴割れするんじゃないかと･･･　ま、私は専門じゃありませんし、よそ様の田んぼにまで干渉する気もありませんが。
◆2010/9/17
　今日、いつものように確定メールを自動で取得し、スタートボタン一発で頁1から4まで印刷し、その結果を見たら、頁2で最終行を印刷していないことに気付いた。6月にマクロを作り、こんなの初めてである。
　どうもActiveSheetとしているところに問題がありそうだ。
　帰宅して、焼酎も結構飲んだし、さて始めるか。何冊かの書籍を調べて、いちいち面倒だけど、マウスでプリントエリアを選択することにした。なお、データが多くてもA4縦で1ページに収まる設定は変えていない。

Sub 頁1印刷()
'
' 頁1印刷 Macro
' マクロ記録日 : 2010/6/9 ユーザー名 : ettomio
'

'
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

　　↓

Sub 頁1印刷()
'
' 頁1印刷 Macro
' マクロ記録日 : 2010/6/9 ユーザー名 : ettomio
' 印刷範囲をマウスで設定して印刷　2010/9/17

'

Set MyRange = Application.InputBox(Prompt:="印刷範囲をドラッグで指定して下さい。", Type:=8)


With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

ActiveSheet.PageSetup.PrintArea = MyRange.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub
　
◆2010/9/16
　帰宅して、日没後だいぶ経って、200mmを付けてウチの下で初めて車の流し撮りをしました。1/8という超スローシャッターで昼間の新幹線だったら絶対にやりません。今回はお遊び、車同士がクロスした瞬間を狙いました。
      
◆2010/9/15
　さて昨日も書いているコードで具体的に何をしているかというと、親会社から11時前に直納品の各車種別にExcelで製品別、そして時系列の納入数がメールで送られてきます。
　以前は、CKD、日勤、夜勤を時間を見て、空白行を設けΣで小計を出していました。毎日、相当量のデータですから、それすらも煩わしくなり、昨日も書いているプログラムで、製品別、CKD、日勤、夜勤の小計を自動で出させます。日付を入力して「スタート」ボタンで一瞬です。 それぞれの境には見易くさせるため罫線を入れるコードを書いています。
　さらにはそのデータを基に確定表もすぐに取り出せます。
       
◆2010/9/14
　先日土曜日に書いたコードは、最初が自動記録のマクロですので、いくつか無駄な文がありますので、ここに修正します。
　なお、' を打った文はコメント、あるいはrem文でありその行は実行されません。

Sub work読み込み()
'
' work読み込み Macro
' マクロ記録日 : 2010/4/23 ユーザー名 : ettomio
' 2010/9/11 ettomio

'
    Cells.Select
    Selection.ClearContents
    Range("I1").Select

    Sheets("work1").Select
         'Range("A1").CurrentRegion.Select '2010/9/11 A1セルを含むアクティブセル領域を選択　完全に列範囲を選択しないので使用中止
    Range("A1", Range("A1").End(xlDown).Range("I1")).Select  '2010/9/11 A列からI列、そして一番下の行まで選択する

    'Range("A1:I350").Select  '2010/9/10 使用中止
    Selection.Copy
    Sheets("集計").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    Sheets("work2").Select
        'Range("A1").CurrentRegion.Select
    Range("A1", Range("A1").End(xlDown).Range("I1")).Select

    'Range("A1:I2700").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("集計").Select
    'ActiveWindow.SmallScroll Down:=31
    Range("A100").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    Sheets("work3").Select
    Range("A1", Range("A1").End(xlDown).Range("I1")).Select

    'Range("A1:I2200").Select
    'ActiveWindow.SmallScroll Down:=-126
    Selection.Copy
    Sheets("集計").Select
    'ActiveWindow.SmallScroll Down:=179
    Range("A300").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    'ActiveWindow.LargeScroll Down:=-6
    Columns("A:I").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,

SortMethod _
    :=xlPinYin, DataOption1:=xlSortNormal
    Range("J2").Select
End Sub
　
◆2010/9/12
David Bowie - Blackout 1978 On Stage
◆2010/9/12
　今19時過ぎ。外の軽トラで焼酎を飲み、煙草を吸いながら、北の方角を見ると、雷が発生していますね。かなり強烈な稲光が見えます。私の住んでいるこの辺りは、いつも気象庁の雨雲レーダーで確認しても、雨雲はいつもこの辺りを避けています。7月20日頃の梅雨明け以来満足な雨は全くありません。畑はカラカラで、オフクロの植えた野菜が刈れていきます。毎日日本の何処かで集中豪雨が発生してるのに、この辺りは雨雲も嫌っています。
◆2010/9/12
　初夏から1ヶ月半で2万5000円分くらいのExcel VBAの参考書を買いましたが、夕方そのうちの1冊を読んでいました。VBAにも関数はありますが、Excel本体にもものすごい数の関数があります。Excel本体の関数に触れていました。
　「関数」で複雑な問題に取り組む場合、「無理して一度で処理しない」のがコツです。そうですね。私も関数を書く場合、部品の組み合わせですね。あるセルに式を書き、他のセルにそれを参考にさらに複雑にしていくという･･･

　よく引き合いに出す、昨年の2月に書いたそれぞれのセルに入れた目茶苦茶長い式も、絵を描いてはひとつの式にしました。

=IF(COUNTIF(併合!$E$1:$E$70,$AW55)=1,VLOOKUP($AW55,併合!$E$1:$Q$70,10,FALSE),"") ←戻り値は""

=IF(COUNTIF(併合!$E$71:$E$120,$AW55)=1,VLOOKUP($AW55,併合!$E$71:$Q$120,10,FALSE),"") ←戻り値は5

=AG61+AH61 ←エラー値が戻る

=IF(IF(COUNTIF(併合!$E$1:$E$70,$AW55)=1,VLOOKUP($AW55,併合!$E$1:$Q$70,10,FALSE),"")="",0,VLOOKUP($AW55,併合!$E$1:$Q$70,10,FALSE)) ←戻り値は0

=IF(IF(COUNTIF(併合!$E$71:$E$120,$AW55)=1,VLOOKUP($AW55,併合!$E$71:$Q$120,10,FALSE),"")="",0,VLOOKUP($AW55,併合!$E$71:$Q$120,10,FALSE)) ←戻り値は5

=AG62+AH62 ←戻り値は5

=IF(IF(COUNTIF(併合!$E$1:$E$70,$AW55)=1,VLOOKUP($AW55,併合!$E$1:$Q$70,10,FALSE),"")="",0,VLOOKUP($AW55,併合!$E$1:$Q$70,10,FALSE))+IF(IF(COUNTIF(併合!$E$71:$E$120,$AW55)=1,VLOOKUP($AW55,併合!$E$71:$Q$120,10,FALSE),"")="",0,VLOOKUP($AW55,併合!$E$71:$Q$120,10,FALSE)) ←戻り値は5


足し算の答えが0のときは面白くないので空白""表示


=IF(IF(IF(COUNTIF(併合!$E$1:$E$70,$AW55)=1,VLOOKUP($AW55,併合!$E$1:$Q$70,10,FALSE),"")="",0,VLOOKUP($AW55,併合!$E$1:$Q$70,10,FALSE))+IF(IF(COUNTIF(併合!$E$71:$E$120,$AW55)=1,VLOOKUP($AW55,併合!$E$71:$Q$120,10,FALSE),"")="",0,VLOOKUP($AW55,併合!$E$71:$Q$120,10,FALSE))=0,"",IF(IF(COUNTIF(併合!$E$1:$E$70,$AW55)=1,VLOOKUP($AW55,併合!$E$1:$Q$70,10,FALSE),"")="",0,VLOOKUP($AW55,併合!$E$1:$Q$70,10,FALSE))+IF(IF(COUNTIF(併合!$E$71:$E$120,$AW55)=1,VLOOKUP($AW55,併合!$E$71:$Q$120,10,FALSE),"")="",0,VLOOKUP($AW55,併合!$E$71:$Q$120,10,FALSE)))
　
◆2010/9/12
　今朝は10時から昨日刈った籾摺りをしました。今日はカミサンが休みで手伝ってくれました。毎年の事ながら、最初の籾摺りは調整に神経を使います。
　昨日刈ったのは2マチで約1反ですから、1時間ちょっとですみます。ただ、2マチ目は昨日刈るときもまだ早いかなと不安でしたから、籾摺りは青米が多いだろうなと思っていましたが、見事に熟れていました。これにはオフクロもびっくり。あれを刈るなんて、近所から狂ったんじゃないかと言われるんじゃないかと思ったが青米が無いねぇと。
　昨年だったか、こんな猛暑の時は早めに刈った方がいいと農機具屋さんだったか言われた気がします。出来は去年の方が良かったです。それでもウチの平年以上は取れています。
　さて今週末に稲刈りをするかは未定です。
◆2010/9/12
　今年の春作った、親会社からの直納品の確定メールを製品別、CKD、日勤、夜勤に抽出し、詳細並びに小計をとるプログラムは毎日使っていますが、フィルタをかけるとある日は集計シートにデータが全部入っていないことかよくありました。その度に、work1からwork3、ものによってはwork5まで調べて、一番下の行までコピーされていないと、行数を増やすということをやっていました。どうもこれが私には納得できない不完全なプログラムという思いがありましたので、毎日、その度に一番下の行まで集計シートにコピーできないかと、昨日の朝、稲刈りに出る前に参考書を何冊か調べ、やってみましたが最初は失敗。何とか自分なりに考え実行したら上手くいきましたので、他の2つのファイルも昨夜書き換えました。

Sub work読み込み()
'
' work読み込み Macro
' マクロ記録日 : 2010/4/23〜9/11 ユーザー名 : ettomio
'

'
Cells.Select
Selection.ClearContents
Range("I1").Select

Sheets("work1").Select
'Range("A1").CurrentRegion.Select '2010/9/11 A1セルを含むアクティブセル領域を選択
Range("A1", Range("A1").End(xlDown).Range("I1")).Select '2010/9/11 A列からI列、そして一番下の行まで選択する

'Range("A1:I350").Select
Selection.Copy
Sheets("集計").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("work2").Select
'Range("A1").CurrentRegion.Select
Range("A1", Range("A1").End(xlDown).Range("I1")).Select

'Range("A1:I2700").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("集計").Select
ActiveWindow.SmallScroll Down:=31
Range("A100").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("work3").Select
Range("A1", Range("A1").End(xlDown).Range("I1")).Select

'Range("A1:I2200").Select
ActiveWindow.SmallScroll Down:=-126
Selection.Copy
Sheets("集計").Select
ActiveWindow.SmallScroll Down:=179
Range("A300").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.LargeScroll Down:=-6
Columns("A:I").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Range("J2").Select
End Sub
　
◆2010/9/12
　昨日、今年最初の稲刈りをしました。カミサンは仕事に出たので、妹が手伝いに来てくれました。小さなマチは完全に熟れてるようだけど、そこだけでは余りに効率が悪いので、その下のマチも刈りました。ちょっとばかり早かったかも知れないけど。10時に始めたのはいいけど、何せ暑い。12時前には戻り、オフクロのウチで弁当、お茶、スポーツドリンク･･･　かぶがふ飲みました。午後は妹とオフクロが先に出て、鎌で周りの稲刈り、自分は2時から始めました。軽トラで刈った籾を持ち帰り、乾燥機に入れたのが、5時前。乾燥機を送風にしておいて、それから灯油を買いに行き、日を入れたのが夜の9時。
　まあ暑かったです。3人でお茶とスポーツドリンク2リットルを2本空けました。
　今朝は4時過ぎに目を覚ますと、まだ乾燥機は回っていました。まだ刈るのが早かったのかな。停止したのが6時過ぎ。2時間以上は冷まさないと籾すりできそうもありません。
◆2010/9/9
　帰宅して、ヤフーメールを見てびっくり。
貴ホームページにある写真の掲載許可をいただきたく，メールを送らせ
ていただきました．

小社では大学理工系初学年向けテキスト
『第4版　物理学基礎』（筑波大学名誉教授　原康夫著）
の2010年10月末刊行に向けて，現在，編集作業を進めています．

この『第4版　物理学基礎』に，貴ホームページ

http://www.flickr.com/photos/nt0518et/3203416280/

にあります，新幹線の写真を掲載させてください．

速度の説明のなかで挿絵的に使用します．
　えっ、私の新幹線を出版社の方が見られたの･･･
◆2010/9/7
David Bowie - Music Video Clips
David Bowie - Fascination
◆2010/9/6
帰宅して、新幹線関係のあるサイトに書き込んだ文です。今日の日記代わり。

おちゃまつりさん、お久しぶりです。いい感じで撮れてて羨ましいです。
ドクターさん、No.3066 ダースベーダーみたい。
これ、撮られたのは、もうひとつ手前にトンネルがあるんですか?
それにしても上手くなられましたね。No.2991なんて私の名で出したいくらい。

仙人様、お疲れ様でした。
No.3005の場所は直ぐに分かりましたが、えっ ? あそこへ行かれたんですか。
ドクターさんの縄張り (?) ですねえ。
それにしても初めての場所で最後尾まで入れておられるあたり
さすが、レンズ選びもばっちりですね。
私が行ったのは7/25で、この頃は、安全靴履いて、脚立で雲の巣を壊しながらたどり着きました。
今はそんなにひどいですか ?
私が昔行ってた場所に最近何カ所か行きましたが、
昔は、線路の傍でも、地主さんが丁寧に草を刈っておられました。
でも、今は高齢になられたか、あるいは亡くなられたか･･･
もう、草ぼうぼう、山になりつつあります。
こうして撮影地が消えて行っています。
軽トラの荷台に長靴と、草刈り機を積んで行かないと駄目かな･･･

小月にも行かれたんですねえ。
私が行った頃は、田んぼの畦道から、(あそこは山田という地区です。)
防音壁のない場所を狙えましたが、今も健在 (?) なんでしょうか。

さて私はまた新幹線と暫く離れます。
今年は、この猛暑で稲刈りが2週間ぐらい早まりそうです。
生育は早くても質は悪いとか･･･　嗚呼･･･

昨日の下りの目茶苦茶なダイヤがV編成のトラブルと知り、がっくり。
この辺で12時台は、東海道以上のN700ラッシュでした。
昼一番の500Vはレールスターで来るし、がっかりして帰りました。
◆2010/9/5
　今日、新幹線の下りダイヤは目茶苦茶でした。名古屋発の下りN700が来ないなと気付きましたが、なんと1時間50分ぐらい遅れて来ました。12時台にはなんとN700「のぞみ」が、1時間に7本だったか8本も来ました。
　何の事故だろうと、ネットで調べると

　５日午前６時５９分ごろ、兵庫県のＪＲ山陽新幹線姫路―相生間を走っていた新大阪発博多行き「こだま７２９号」（８両編成、乗客約３５人）で緊急ブレーキが自動的に作動し、同県相生市内で停止した。このトラブルのため、下り線の新大阪―岡山間で最大で２時間半近く運転を見合わせた。

　ＪＲ西日本によると、「こだま７２９号」は約２時間１５分後に運転を再開。相生駅まで自力で走行し、同駅で運転を打ち切った。緊急ブレーキが作動した原因は不明だという。乗客は相生駅で後続列車に乗り換えてもらったという。順次運転を再開している。

　姫路〜相生間で列車停止は知っていましたので、時刻表を調べて若しかして500系「こだま」じゃないかと思いましたが、上の記事から間違いなく500系ですね。
◆2010/9/5
　昨日、ドクターイエローが下ったことは知ってるので、今日は上り。さていつものように早朝起きてみると、雲がかかっている。じゃあ、今日は通い慣れた玖珂で流し撮りするか、と、カメラを持って出かけました。
　新幹線は今日を最後に暫く離れるかも。今年の猛暑で、1週間後には稲刈りが始まるかもしれません。新聞の記事で生育は早いが質は良くないというのが気になります。
      
◆2010/9/4
　この前、8/31の夕方だったか、いつも使う「配布用確定一覧」のある数式をふと眺めていたらびつくりしてしまった。
=IF(RC[-2]="","",LEFT(RC[-3],4)&" "&MID(RC[-3],5,2)&" "&MID(RC[-3],7,3))
　私はよく焼酎飲んだら、天才プログラマーなんて書くけど、このRC[-2]って何だ。帰宅して参考書を調べるが分からない。焼酎飲んだら、素面でも分からない数式を書いたのか。
　木曜日の夕方、またウチで参考書をあちこち調べても分からない。で、シートを眺めていたら、縦の行は1,2,3で表示されているが、横の列も1,2,3で表示されている。えっ　列はA,B,Cで表示される筈。
　ツール→オプション→全般タブを開いてみると、設定がR1C1参照形式を使用するになっている。いつこんなことしたんだろう。毎日使っているのに、よく今まで気付かなかったものだと妙に感心してしまう。
　チェックを外すと、いつもの見慣れた画面になり、
上の数式も
=IF(T2="","",LEFT(S2,4)&" "&MID(S2,5,2)&" "&MID(S2,7,3))
に戻りました。これなら分かる。
　因みにR1C1参照形式だと全ての関数が書き換わっていました。よくもまあ毎日気付かず使っていたものだ。しかし、毎日エラーになっていなかったのだから凄い。
◆2010/9/4
　昨日、9/9の確定メールを取得しようとして、0909と入力してスタートボタンを押したら、エラーになってしまった。そういえば、まだ確定メールがきていなかったんだった。
　今朝、該当する日付がない場合、メッセージが出て、それ以降のマクロが全て実行できないようにコードを追加。

Sub 確定メールから数値自動仕分け計算()
'
' 確定メールから数値自動仕分け計算 Macro
' マクロ記録日 : 2010/7/1 ユーザー名 : etTomio
' 2010/8/1
'

' セルD24に入力した日付が確定メールフォルダにない場合の処理を追加　2010/9/4

Dim d As String
Dim n As String
d = Worksheets("メニュー2").Cells(24, 4)
n = "○○" & d & ".xls"

If Dir(ThisWorkbook.Path & "\確定メール\" & n) = "" Then
MsgBox "該当する日付はありません。"

Exit Sub
End If

Sheets("メニュー2").Select
Application.Run "プレマシー配車NN.xls!メール日付入力"
Sheets("確定ｺﾋﾟｰ").Select
Application.Run "プレマシー配車NN.xls!確定メール読み込み"
Application.Run "プレマシー配車NN.xls!workにコピーN"
Application.Run "プレマシー配車NN.xls!Module5.work1"
Sheets("work2").Select
Application.Run "プレマシー配車NN.xls!Module5.work2"
Sheets("work3").Select
Application.Run "プレマシー配車NN.xls!Module5.work3"
Sheets("集計").Select
Application.Run "プレマシー配車NN.xls!work1から3読込"

Application.Run "プレマシー配車NN.xls!空白セルだけ入力"
Application.Run "プレマシー配車NN.xls!罫線設定"

Sheets("メニュー2").Select
Range("F24").Select
End Sub
　

先頭に戻る　　　　過去の日記