|
|
|
2006/09/24
カテゴリ：同業社比較マクロ
公開します。
機能 １．企業情報の取得 ２．株価の更新 ３．個別銘柄の分析（作成中） ４．同業者分析 ５．同業者メンテナンス（作成中） 使い方 ・Summaryシートの赤字のボタンが今回作成した箇所です。適当に動かしてみてください。 問題点 ・現金が短期投資と同一項目となっているので ＥＶなどの算出値が多少違ってくる ・１．企業情報取得の際にエラーになることが多いので 複数銘柄を一括してとってくるのが難しいので 早川さんの元のボタン を使ったほうがいいです。 今後 ・問題点の改善 ・バグの対応 ・未作成の機能の追加 企業分析マクロ http://briefcase.yahoo.co.jp/bc/s021167/lst?&.dir=/8bbf&.src=bc&.view=l お気に入りの記事を「いいね！」で応援しよう
こんにちは。
試してみました。 旧バージョンよりもかなりバージョンアップされていて、 使い勝手もよさそうです。 ありがとうございました！ 素晴らしいですね！ (2006/09/25 01:25:43 PM)
丸山さん
＞こんにちは。 ＞ ＞試してみました。 ＞ ＞旧バージョンよりもかなりバージョンアップされていて、 ＞使い勝手もよさそうです。 ＞ ＞ありがとうございました！ ＞ ＞素晴らしいですね！ ----- こんばんは コメントありがとうございます。 自分仕様で作っており、 あまり優しくはないかとおもうのですが、 こういうコメントをいただけてうれしく思います。 (2006/09/25 09:09:36 PM)
使ってみようとしたら、
ここの部分で 「webクエリが無効です。」と 出てしまうようです。 もしかしたら私だけかもしれないのですが、 もし何か、解決策がありましたら、 教えていただけますと幸いでございます。 失礼いたしました。 With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & temp， Destination:=Worksheets("BS").Range("A1")) (2006/09/26 09:08:50 AM)
使ってみようとしたら、
ここの部分で 「webクエリが無効です。」と 出てしまうようです。 もしかしたら私だけかもしれないのですが、 もし何か、解決策がありましたら、 教えていただけますと幸いでございます。 失礼いたしました。 With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & temp， Destination:=Worksheets("BS").Range("A1")) (2006/09/26 09:38:00 AM)
事後報告で申し訳ありませんが、企業分析マクロ使わせて頂きました。
それにしても素晴らしいマクロですね。 わたしだけかもしれませんが、新興などのデータが取得できないようです。 例えばEトレード証券やカブドットコム証券など。 皆さんが出来る様であればわたしのＰＣに何か原因があるのでしょうからスルーしてくださいませ。 (2006/09/27 12:22:28 PM)
ご質問さん
モココさん こんばんは コメントありがとうございます。 お二方共通の内容として 「データ取得できない場合がある」 ということだと思うのですが、 この部分については早川さんのソースをほぼ そのまま使用しているのでよくわからないというのが実情です。 ・ＭＳＮのサイトでその銘柄が登録されているか確認する ・データがない、文字化けなど一度でうまく取得できない場合が結構あるので 繰り返し挑戦してみる といったことぐらいしか対処方法を提示できません。 (2006/09/27 10:15:28 PM) |
