ありがとうございます、さくらさん。 調子がすぐれないと、どうしても「行かなくちゃ」になってしまいますねえ。 せっかく好きな仕事につけたんだから、さくらさんの仰るとおり、 いいイメージをもって仕事に行きたいと思います。
就職おめでとうございます。 滑り出しが順調で何よりです。 お金を払ってまでして欲しいと思われてる仕事があって それが得意分野！よかったですねえ。 朝、どうしても「行かなくちゃ」が怖いときは、 行かなくちゃ！と思わずに、 今日はあれやろう！って思ってください。 何とかなるかもです あそこに寄り道しようとか、朝ご飯あれ食べようとか あの服着ようとか、そんなことでも良いです。 でもハマーさんはできる人だから、 行けたさえ大丈夫ですよ。応援してます。
VBAダウンロードさせていただきました。 すごく便利で助かっています。 ちなみに 自分はExcel2000を使っていましたが、 最初うまく作動せず、 最初の数行 ‘Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” ( _ ‘ ByVal hwnd As Long, _ ‘ ByVal lpOperation As String, _ ‘ ByVal lpFile As String, _ ‘ ByVal lpParameters As String, _ ‘ ByVal lpDirectory As String, _ ‘ ByVal nShowCmd As Long _ ‘) As Long ‘以上はモジュールの先頭に記述する必要があります。 と 最後の数行 ’Moneyアプリを起動 ‘Dim rc As Long ‘rc = ShellExecute(0, “open”, OfxFileName, vbNullString, “”, 5) ‘5 : SW_SHOW ウィンドウを現在の位置とサイズで表示 ‘※アプリを起動しないよう修正 を動作させないようにしたらうまくいきました。 あと、お忙しいところ申し訳ありませんが、 銀行用のVBAも作っていただけないでしょうか。 よろしくお願いします。
福島のひげさんこんにちは。 早く原発事故が収束するといいですね。 被災地の皆様は、みな大変だと思いますが、 どうか無理をしないように気をつけて いただきたいと思っております。 私も本格的に仕事を任されるのはこれからなので、 無理をしないように気をつけなければ、と思って います。
おおっ！ 就職おめでとう。 はまーさんのスキルが活かせ、理解がありそうな職場。私も嬉しいです。 福島で、毎日レントゲンを一枚とるくらいのγ線を浴びて暮らしています。 やるべきことがたくさんありすぎて、オーバーペースになっています。 気をつけなくては… 忙しくても、歌はしっかり楽しんでます。 練習会場が震災で壊れたり、避難所になってしまったりで、苦労してます。
追加で海外の利用の例です。前のもまとめて出します。 2011/5/5,ＺＡＺＺＬＥ．ＣＯＭ．ＪＰ,ご本人,1回払い,,’11/06,4889,,,4889.00,JPY,1.0000,05/06 2011/4/15,ウィルコム ご利用代金,ご本人,1回払い,,’11/06,987,987,,,,, 2011/4/11,ネオ・ウイング,ご本人,1回払い,,’11/06,-5890,返品,,,,, 2011/5/15,年会費,ご本人,,,’11/06,656,131,-525,,,,
ま さま 再びの情報提供、ありがとうございます。 先の例の新旧データを取り違えていたことに気づきました。 ７列目か８列目が利用金額のようですが、返品の場合と割引きの場合で、どちらの列の数字を取得すればいいか、変わってくるようですね。 返品の場合は７列目「-5890」８列目「返品」となっているのに対し、 割引きの場合は７列目「656」、８列目「131」、９列目「-525」となっているので、これは「656円から525円割引して、実際に支払うのは131円（つまり８列目）、ということですよね。 どうやってプログラムで対応したらよいか、考えてみます。
忘れていました。従来のcsvファイルの1行目のカード情報が無くなり、いきなりデータ行から始まります。 その他の例も載せます。返品と割引の場合です。 2011/4/11,ネオ・ウイング,ご本人,1回払い,,’11/06,-5890,返品,,,,, 2011/5/15,年会費,ご本人,,,’11/06,656,131,-525,,,,
ま さま ありがとうございます。おそらく３列目が利用金額のようですね。 （その後のデータは、ドル建てなどで購入したした場合のレートとか外貨での表記だと思われます） プログラムの中で自動的にカードの種類を判別できないか調べたのですが、カード番号の先頭６桁にカード会社が振り分けられているものの、一意に特定できないので断念しました。 （参考）クレジットカード番号 – ISAF 286th TFS フォーマットが異なると、そのままでは使用できないので、「三井住友VISAカードの場合の修正箇所」を明記して対応しました。
こんな感じです。現在と1ヶ月前の例です。 2011/4/15,ウィルコム ご利用代金,ご本人,1回払い,,’11/06,987,987,,,,, 2011/03/15,ウィルコム ご利用代金,987,１,１,987,
ま さま ご報告ありがとうございます。 最近は三井住友カードを使っていないので、当方でファイルのフォーマットが確認できません。 もしよければCSVのフォーマットを教えていただけますでしょうか。 よろしくお願いいたします。
hisashiさま 問題の件は、私も把握しておりましたが、Moneyの方で別々のデータとして認識してくれないので、これはMoneyの仕様だと思ってあきらめておりました。 もし来月うまくいきましたら、結果のご報告をお願いできますでしょうか。 よろしくお願いいたします。
三井住友VISAカード Vpass が csv ファイルのフォーマットを変えてきましたよ。
はまーさん 初めまして。便利に使わせていただいています。私はmoney2007，住友VISA，excell2003の組み合わせです。 同じ日付で同じ費目，同じ金額の項目があると2件名後が弾かれる様です。私はETCの利用が多いのですが、同じ日に同じ路線を往復しても1回分しか取り込まれず、そこで気づきました。 マクロ内では重複を検出して弾く様にはなっていない様に見受けられるのでmoney側の問題ではないか、とは思うのですが、一応参考まで。 ちなみに、店名の後に連番をつけてあげれば誤魔化せるかな、と思ってTekiyouの後にiを付加してマクロを走らせてみましたが、残念ながらmoneyは同じデータを2度はとりこんでくれない様で、効果を確認できませんでした。次月にトライしてみます。
さいとうゆたかさん、ごぶさたしております。 あまりにもニッチというかピンポイントなので、それを書いてしまうと会社名とか個人の特定とかされてしまうので、別途メールさしあげます。
ありがとうございます、さくらさん。
調子がすぐれないと、どうしても「行かなくちゃ」になってしまいますねえ。
せっかく好きな仕事につけたんだから、さくらさんの仰るとおり、
いいイメージをもって仕事に行きたいと思います。
就職おめでとうございます。
滑り出しが順調で何よりです。
お金を払ってまでして欲しいと思われてる仕事があって
それが得意分野！よかったですねえ。
朝、どうしても「行かなくちゃ」が怖いときは、
行かなくちゃ！と思わずに、
今日はあれやろう！って思ってください。
何とかなるかもです
あそこに寄り道しようとか、朝ご飯あれ食べようとか
あの服着ようとか、そんなことでも良いです。
でもハマーさんはできる人だから、
行けたさえ大丈夫ですよ。応援してます。
VBAダウンロードさせていただきました。
すごく便利で助かっています。
ちなみに
自分はExcel2000を使っていましたが、
最初うまく作動せず、
最初の数行
‘Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” ( _
‘ ByVal hwnd As Long, _
‘ ByVal lpOperation As String, _
‘ ByVal lpFile As String, _
‘ ByVal lpParameters As String, _
‘ ByVal lpDirectory As String, _
‘ ByVal nShowCmd As Long _
‘) As Long
‘以上はモジュールの先頭に記述する必要があります。
と
最後の数行
’Moneyアプリを起動
‘Dim rc As Long
‘rc = ShellExecute(0, “open”, OfxFileName, vbNullString, “”, 5) ‘5 : SW_SHOW ウィンドウを現在の位置とサイズで表示
‘※アプリを起動しないよう修正
を動作させないようにしたらうまくいきました。
あと、お忙しいところ申し訳ありませんが、
銀行用のVBAも作っていただけないでしょうか。
よろしくお願いします。
福島のひげさんこんにちは。
早く原発事故が収束するといいですね。
被災地の皆様は、みな大変だと思いますが、
どうか無理をしないように気をつけて
いただきたいと思っております。
私も本格的に仕事を任されるのはこれからなので、
無理をしないように気をつけなければ、と思って
います。
おおっ！ 就職おめでとう。
はまーさんのスキルが活かせ、理解がありそうな職場。私も嬉しいです。
福島で、毎日レントゲンを一枚とるくらいのγ線を浴びて暮らしています。
やるべきことがたくさんありすぎて、オーバーペースになっています。
気をつけなくては…
忙しくても、歌はしっかり楽しんでます。
練習会場が震災で壊れたり、避難所になってしまったりで、苦労してます。
追加で海外の利用の例です。前のもまとめて出します。
2011/5/5,ＺＡＺＺＬＥ．ＣＯＭ．ＪＰ,ご本人,1回払い,,’11/06,4889,,,4889.00,JPY,1.0000,05/06
2011/4/15,ウィルコム ご利用代金,ご本人,1回払い,,’11/06,987,987,,,,,
2011/4/11,ネオ・ウイング,ご本人,1回払い,,’11/06,-5890,返品,,,,,
2011/5/15,年会費,ご本人,,,’11/06,656,131,-525,,,,
ま さま
再びの情報提供、ありがとうございます。
先の例の新旧データを取り違えていたことに気づきました。
７列目か８列目が利用金額のようですが、返品の場合と割引きの場合で、どちらの列の数字を取得すればいいか、変わってくるようですね。
返品の場合は７列目「-5890」８列目「返品」となっているのに対し、
割引きの場合は７列目「656」、８列目「131」、９列目「-525」となっているので、これは「656円から525円割引して、実際に支払うのは131円（つまり８列目）、ということですよね。
どうやってプログラムで対応したらよいか、考えてみます。
忘れていました。従来のcsvファイルの1行目のカード情報が無くなり、いきなりデータ行から始まります。
その他の例も載せます。返品と割引の場合です。
2011/4/11,ネオ・ウイング,ご本人,1回払い,,’11/06,-5890,返品,,,,,
2011/5/15,年会費,ご本人,,,’11/06,656,131,-525,,,,
ま さま
ありがとうございます。おそらく３列目が利用金額のようですね。
（その後のデータは、ドル建てなどで購入したした場合のレートとか外貨での表記だと思われます）
プログラムの中で自動的にカードの種類を判別できないか調べたのですが、カード番号の先頭６桁にカード会社が振り分けられているものの、一意に特定できないので断念しました。
（参考）クレジットカード番号 – ISAF 286th TFS
フォーマットが異なると、そのままでは使用できないので、「三井住友VISAカードの場合の修正箇所」を明記して対応しました。
こんな感じです。現在と1ヶ月前の例です。
2011/4/15,ウィルコム ご利用代金,ご本人,1回払い,,’11/06,987,987,,,,,
2011/03/15,ウィルコム ご利用代金,987,１,１,987,
ま さま
ご報告ありがとうございます。
最近は三井住友カードを使っていないので、当方でファイルのフォーマットが確認できません。
もしよければCSVのフォーマットを教えていただけますでしょうか。
よろしくお願いいたします。
hisashiさま
問題の件は、私も把握しておりましたが、Moneyの方で別々のデータとして認識してくれないので、これはMoneyの仕様だと思ってあきらめておりました。
もし来月うまくいきましたら、結果のご報告をお願いできますでしょうか。
よろしくお願いいたします。
三井住友VISAカード Vpass が csv ファイルのフォーマットを変えてきましたよ。
はまーさん
初めまして。便利に使わせていただいています。私はmoney2007，住友VISA，excell2003の組み合わせです。
同じ日付で同じ費目，同じ金額の項目があると2件名後が弾かれる様です。私はETCの利用が多いのですが、同じ日に同じ路線を往復しても1回分しか取り込まれず、そこで気づきました。
マクロ内では重複を検出して弾く様にはなっていない様に見受けられるのでmoney側の問題ではないか、とは思うのですが、一応参考まで。
ちなみに、店名の後に連番をつけてあげれば誤魔化せるかな、と思ってTekiyouの後にiを付加してマクロを走らせてみましたが、残念ながらmoneyは同じデータを2度はとりこんでくれない様で、効果を確認できませんでした。次月にトライしてみます。
さいとうゆたかさん、ごぶさたしております。
あまりにもニッチというかピンポイントなので、それを書いてしまうと会社名とか個人の特定とかされてしまうので、別途メールさしあげます。