'Ozz$(153,4) は 153通りあり、1:枠 2:枠連OZZ 3:馬連 4:馬連OZZ を入れる。       .BackgroundQuery = False

 Sheet2 の データ を全部削除しても、QueryTables がそのまま残って、ファイル の容量を大きくしたり、他にも問題が残りそうな気がします。 1-1    .0    01-02    15.1 A列に枠連の番号...続きを読む, 申し訳ないのですが私は EXCEL の知識が全くないんです。

別のセル(同じシート内)に抜き出したいのですが。 2)次に「Sheet1のB2セル~B3、B4、B5・・・」の URL を1つずつ読み込んで、WEb クエリ を実行します。 別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。

    .FillAdjacentFormulas = False ・0.001→1.0E-3(1.0×1/10の3乗)→×1/1000倍→÷1000 ・0.1→1.0E-1(1.0×1/10の1乗)→×1/10倍→÷10

 =OFFSET(A1,SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))-1,SUMPRODUCT(COLUMN(A1:F200)*(A1:F200=X1))) 自分なりに考えてやってみた事は、日付別のBOOKとは別に結果取得用のBOOKを作り、

D列にその馬連のオッズ '実行プログラム(1回きり)

01:------000151000055000234000524000036000235

 「webクエリ」ですよね? '---------------------------------------------  「コマンドボタン」を右クリック し、[コードの表示(V)] を クリック すると、       With a.CurrentRegion       Call ImportData(myUrl, "Dummy", "A1") 1-2   15.1    01-03     5.5 ・『指数』って分かりますか? Dim 枠頭数%(8), 枠番%(18), Ozz$(153, 4), uma1%, uma2%   Dim myDate As Variant 宜しくお願いします。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。    .FieldNames = True '組み合わせ と オッズ 1-3    5.5    01-06     3.6 Wozz = Val(Mid(枠Data(waku1), 6 * (waku2 - 1) + 4, 6)) / 10 ・1000→1.0E+3(1.0×10の3乗)→×1000倍 ・数学では『2.43×10』の次に、小さい数字で上に『19』と表示します。→http://ja.wikipedia.org/wiki/%E6%8C%87%E6%95%B0%E8%A1%A8%E8%A8%98 マクロコードにはどんな動作をさせてるコードなのかも書いて頂けるとありがたいです。 ・10→1.0E+1(1.0×10の1乗)→×10倍

 Sub プロシージャ の事をいうのでしょうか?  For Each セル In 検査範囲 ・1000→1.0E+3(1.0×10の3乗)→×1000倍         myDate = Cells(i, 1).Text '"20080824"  For Each sh In Worksheets    データ範囲は500行までとしていますが、必要に応じて変更して下さい, 中央競馬の結果成績をWEBクエリで自動取得したいと思ったのですが、URLの一部が毎回変わります。 '馬連 エクセルの回帰分析をすると有意水準で2.43E-19などと表示されますが 私がよく使っているサイトです。   Dim i As Long  (出走頭数と馬番・枠番の関係は非...続きを読む, よろしくお願いします。 その右隣の値を取得できるようにしたいのです。

※最初のA1はワークシートの左上隅を示すものなので、検索範囲に関わらずA1固定   Dim i As Integer スーパーセントウです! 自粛生活を契機に競馬を始めたみなさん! もともと競馬狂のみなさん。 もちろん自分なりの予想をしていることでしょう。 そこで今回は予想をする上での豆知識を書いていきます。 Excelを使用して自分なりの予想を整理するときの便利技です。         If MsgBox(i & "行目のデータが抜けているようです。Cacel:中止", _         iKaisai = Format$(.Cells(i, 4).Value, "00")     .SaveData = True ban = 0 20080823  3    3   3

IPAT Entry2 フリーソフトでJRA IPATに自動ログイン、投票時も金額等自動入力でワンクリックに解決 (ユーザー評価: 4.5) エクセルで競馬予想JRA出馬表&成績読み込み エクセルでmdbデーターを読み込む競馬予想ソフト (ユーザー評価: 0) 可能ですし、オートフィルタで、さまざまなデータが即、集計出来ますよ。 A列に枠連の番号(若い番号順に1-1、1-2、・・・)       .AdjustColumnWidth = False ・になります。ようするに 10 を n 乗すると元の数字になるた...続きを読む, Excelの関数について質問します。 高度な処理だと思いますが分かる方教えてください。よろしくお願い致します。, あるテキストファイルから文字列データ(オッズデータ)を取り出してエクセルのシートに貼り付けようと試みています。競馬をされている方は分かると思いますが、出走頭数により枠連と馬連の関連が変わります。(例:馬連(1)-(13)は18頭立てなら枠連1-7、13頭立てなら枠連1-8。馬連(7)-(15)は18頭立てなら枠連4-7、16頭立てなら4-8。)これを出走頭数の変化に伴ってエクセルの同一シート内にそれぞれ対応したオッズを貼り付けるにはどういったプログラムを(VBAマクロ)組めばいいでしょうか?           Exit Sub w = 9 - i Mod 8: If w = 9 Then w = 1       End If 「枠に何頭入っているかを調べる。」の部分を勘違いして間違えました。以下の様に訂正して下さい。         End If ちなみに、VBAでやるならこんな感じになるかと。 Sub ImportKeibaData()  2.43×1/10000000000000000000となり、  だったらそのまま貼り付ければ動くと思います。 抽出するだけならオートフィルターでもできますが、 Ozz(n, 3) = Format(uma1, "0#") + "-" + Format(uma2, "0#")     .PreserveFormatting = True Private Const BASEURL As String = "http://www.keibabook.co.jp/homepage/freeraceinfo/tojitu/sokuhoinfo2.aspx?"   End With ここはいかがでしょうか? シートの半角修正コードは以下のとおりです。 Private Sub CommandButton*_Click()

'Sheet1 のA1 から、このように書く URLのkai=03&basyocd=07&kaisai=04の部分が第3回(03)新潟(07)4日目(04)になっています。 Yahoo競馬でもJRAのHPでもそうなのですが、それを手動でやると、レース出走表→1番の馬名→馬の情報ページ、それを出走馬の数だけ繰り返さないといけません。また、それを1日12レース分やるのは大変です。マクロとかソフトを使って簡単にやることはできませんでしょうか? 文字が入っていなければB1セルからC1セルを引く、という状態です。 .BackgroundQuery = False         iflg = iflg + 1

※SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1)) ⇒ A1:F200で値がX1と一致するセルの行番号 枠連(馬連)1-2=15.1  ポイント としては、1つの URL の データ を読み込んだ後の最終行の取得ですが、最後に実行された Web クエリ について QueryTables の インデックス が「1」になるようですので、 エクセルの表では連番を作成することは非常に多いです。 表が長くなればなるほど連番がないと件数などが把握しずらくなるので、表を作ることは連番を作る作業とセットだと思ってもいいんじゃないでしょうか。 その連番はオートフィルなどを使え... 表に入力した連番は行削除などで連番が崩れてしまい、連番の再入力が必要になります。そんな時には、オートフィルター、削除、非表示行があっても正しい連番を自動入力してくれるSUBTOTAL関数を使ってみましょう!, SUM関数で小計を合計しようとすると、小計の位置を1つずつ指定する必要があるので結構面倒で間違いやすいです。今回は小計を簡単に合計できる関数を紹介します。小計が増えても範囲の再指定も必要ないので、かなり便利ですよ。, エクセルで表を作ってオートフィルターをかけたりすると、見えてない行まで含めて計算されてしまいます。今回はオートフィルターや行の非表示によって『見えている行だけ』を計算する方法を紹介します。. End Sub  2.43×0.0000000000000000001だから、 そうしたものを、回答者自身側が、調べたり勉強したりして構築するには、時間が掛かる作業だと感じています。こちらには、そのための知識の蓄積がありません。その趣味のある人で、ある程度のVBAの心得のある人以外は、やはり掲示板の質問の範囲としては越えているように思うのです。

    .WebFormatting = xlWebFormattingNone また、結果で同着が起きた場合、そのレースだけ行数が増えます。 ban = ban + 1 必要なのは馬番とオッズだけです。

  Dim iBasyo As Variant

参考URL:http://ja.wikipedia.org/wiki/%E5%9B%9E%E5%B8%B0%E5%88%86%E6%9E%90, ★回答 For i = 1 To 枠頭数(w)      エクセルは2003でできる範囲でお願いします。, 「出走」に関するQ&A: 武豊騎手は何故ジャパンカップに出走しなかったのですか?, 「Web エクセル」に関するQ&A: エクセルシート1にWEBページの文字列貼付け⇒その『リンク』をシート2にもコピーする関数, 「競馬ソフト」に関するQ&A: 競馬ソフトの書式変更、理論追加等しての転売, 「データ プレゼント」に関するQ&A: 友人からのプレゼント音楽データ消えた・・, 「jra競馬」に関するQ&A: JRA 競馬中継について、お聞きします。競馬場、またはWINSに行くと, 「マクロ ソフト」に関するQ&A: おすすめのマクロソフトを教えて下さい。, 「情報 JRA」に関するQ&A: 独占入手獲れる 確定馬GOLD - JRA競馬予想 情報競馬の決定版!, 「DIY 本」に関するQ&A: ウッドデッキ作成を考えています。本を読みあさっただけのdiy初心者です, 貴重な情報をありがとうございます。早速Amazonで探したらありました。が、やっぱり初心者には難しそうですね。諦めて、手入力するしかないかな…と思ってます。簡単な方法はないのかなぁ???, 「データ プレゼント」に関するQ&A: 歳の離れた彼氏への誕生日プレゼントで困っています。, 「Web エクセル」に関するQ&A: エクセルに貼付けたURLが青文字にならない, 「プレゼント DVD」に関するQ&A: 「お祝いメッセージ」を英語にするとどうなりますか?, 世の中の成功している男性には様々な共通点がありますが、実はそんな夫を影で支える妻にも共通点があります。今回は、内助の功で夫を輝かせたいと願う3人の女性たちが集まり、その具体策についての座談会を開催しました。, 中央競馬の最新オッズをエクセルに取り込む方法を教えて下さい。 ・最初に『回帰分析』をここで説明するのは少し大変なので『E』のみ説明します。 枠頭数(w) = 枠頭数(w) + 1 '------------------------------------------- '馬番と枠の関係 それを認識して設定した通りに取得したいのです。   End With http://www.keibabook.co.jp/homepage/freeraceinfo/tojitu/sokuhoinfo2.aspx?subsystem=0&negahi=20080824&kai=03&basyocd=07&kaisai=04   Cells.Delete 1)先ず、データ を取り込む「Sheet2のA1セル」を アクティブ にします。

Dim 枠Data(8), 馬Data(18), Wozz, Uozz     For i = 2 To .Range("A65536").End(xlUp).Row そんな時はこのような表示になります。

当日の開催中は徐々に行数が増えていきますので、まだ表示されていないレースの行を指定できませんでした。     .Cells.ClearContents 'データの消去

  For Each qt In Worksheets(nSh).QueryTables

    .SavePassword = False         iflg = 1

 2.43×1/(10の19乗)で、 過去の参加R、競馬場、距離、ダートか芝か、タイムなどのデータが というのが前提です。複数のセルがHITすると関係ないセルの値が返るので、       If iflg <> 0 Then

Function Sample(ByVal 検査値 As Variant,ByVal 検査範囲 As Range)

※SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1)) ⇒ A1:F200で値がX1と一致するセルの行番号 当方VBA初心者ですので、できるだけわかりやすくご教授頂けると助かります。  セルからデータを読み、別のセルに代入と言う事もできません。 それを認識してその日の結果のページにデータを取得しに行く事が出来れば良いのです。(入力は各開催場で1回のみ)