Share This:
 =OFFSET(A1,SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))-1,SUMPRODUCT(COLUMN(A1:F200)*(A1:F200=X1)))   Range("A1").Select   Worksheets(sh.Name).Name = nSh       nSh = Mid$(Trim(a.Cells(1).Value), 1, InStr(Trim(a.Cells(1).Value), Space(1)) - 1)     .BackgroundQuery = True Else       If IsNumeric(.Cells(i, 1).Value) And Len(.Cells(i, 1).Value) = 8 Then ※SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1)) ⇒ A1:F200で値がX1と一致するセルの行番号  Sub プロシージャ の事をいうのでしょうか?   For Each myQT In QueryTables: myQT.Delete: Next  For Each sh In Worksheets       If IsNumeric(.Cells(i, 3).Value) Then 'Ozz$(153,4) は 153通りあり、1:枠 2:枠連OZZ 3:馬連 4:馬連OZZ を入れる。 それを認識して設定した通りに取得したいのです。 枠Data(1)="01:------000151000055000234000524000036000235000324" 7/1 りんご 100円 場合によっては、IFをかぶせてCOUNTIFで確認した方が良いかもしれません。       Else   End If シート名は、1R,2R,3R ......12R としています。 エクセルは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人の女性たちが集まり、その具体策についての座談会を開催しました。, 中央競馬の最新オッズをエクセルに取り込む方法を教えて下さい。   End With 回帰分析でR2(決定係数)しかみていないのですが     .RefreshPeriod = 0  先ず、       If IsNumeric(.Cells(i, 2).Value) Then また、回帰分析の数字の意味が良く分からないのですが、 というのが前提です。複数のセルがHITすると関係ないセルの値が返るので、 ・回答者 No.1 ~ No.3 さんと同じく『指数表記』の『Exponent』ですよ。 End Sub, こんにちは。 【クエリ デーブル の最終行の取得】 【5】http://chiebukuro.yahoo.co.jp/ 取消し、除外馬の箇所のオッズは Val関数で変換された時点で0になります。   For Each myQT In QueryTables: myQT.Delete: Next '実行プログラム(1回きり) 2)次に「Sheet1のB2セル~B3、B4、B5・・・」の URL を1つずつ読み込んで、WEb クエリ を実行します。 つまり各レースの結果をそれぞれのレース別に分けたシートの指定のセルに貼り付けるということを、自動取得で出来ないでしょうか? ・1000→1.0E+3(1.0×10の3乗)→×1000倍     .WebFormatting = xlWebFormattingNone     Next i 3)1つの URL の データ を読み込んだ後には、その クエリ ...続きを読む, エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。  Next セル   Dim iflg As Integer For uma1 = 1 To tousu - 1    .FieldNames = True     For Each a In .UsedRange.Columns(1).SpecialCells(xlCellTypeConstants, 23).Areas  2.43×1/10000000000000000000となり、 教えてください。 2008年8月24日第3回新潟4日目ならこちら         If MsgBox(i & "行目のデータが抜けているようです。Cacel:中止", _ End Sub  (出走頭数と馬番・枠番の関係は非常に難しいんです。出来る人は限られるかも。) エクセルでシフト表を管理すると、日付を変更したり、土日欄に色をつけたりしなくてはならず、手間がかかります。 こうした場合に、関数や各種エクセルの機能を使うと、多くの作業を自動化することができます。 例えば、以下のような作業です。 具体的には、競馬の出走表の出走馬の生年月日をレースごとに表にしたいのです。 n = n + 1 過去の参加R、競馬場、距離、ダートか芝か、タイムなどのデータが >1グループを指定のシートに振り分ける  最初にHITしたセルについて、右隣のセルの値を返す。 元データには枠連、馬連ともにA列のある行に固定長文字列で     For i = 2 To .Range("A65536").End(xlUp).Row 皆さんは独学されましたか?それとも講座などをうけたのでしょうか?  0.000000000000000000243という数値を意味します。 ban = 0  ex. =Sample(X1,A1:F200)       Else If i <= 8 Then       .Activate エクセルで欲しいのです。 本日の場合なら、シート1新潟、シート2小倉、シート3札幌という風にです       End If また毎回その日のURLでWEBクエリを設定する必要があります。 スーパーセントウです! 自粛生活を契機に競馬を始めたみなさん! もともと競馬狂のみなさん。 もちろん自分なりの予想をしていることでしょう。 そこで今回は予想をする上での豆知識を書いていきます。 Excelを使用して自分なりの予想を整理するときの便利技です。 Next i 1-2   15.1    01-04    23.4 ・       .BackgroundQuery = False '馬連 というような コード が現われます(「*」の部分は数字)ので、その2行の「間」に Log in, エクセル関数を使ってシフト表(日別)作成する方法を紹介します。 この記事では以下ようにビフォー(まっさらなエクセルの状態)からアフター(いろいろと情報を入れたエクセル)を作っていきます。 具体的に以下のことをお伝えしてい […], 仕事をしていると、管理ツールが必要になることがあります。 たとえば、進捗管理や売上管理などはプロジェクトを進めるにあたって、必須ツールと言えます。 最近は使えるクラウドサービス(有料)も多いですが、以下のデメリットがあり […], 「次の数式を満たす場合に値を書式設定(O):」に数式「=weekday(E$6)=1」を入力, 「次の数式を満たす場合に値を書式設定(O):」に数式「=COUNTIF(祝日!$B:$B,E$6)=1」を入力. 【6】http://dic.yahoo.co.jp/     .RefreshStyle = xlInsertDeleteCells http://db.netkeiba.com/   For Each qt In Worksheets(nSh).QueryTables        .WebDisableDateRecognition = True ・最初に『回帰分析』をここで説明するのは少し大変なので『E』のみ説明します。 '---------------------------------------------  Next sh 日付のセル書式は「日付」形式に再設定してください WEBクエリで取得に指定した範囲は各開催場の結果全体です。 こちらのサイトの方がシンプルなのでこれを使ってみました。 たとえば、 'サンプルデータ 日付、開催場、第何回か、何一目か、これらの要素で変化します。 Webのデータを取得してエクセルに自動的に入力できるようにしたいです。  Sheet2 の データ を全部削除しても、QueryTables がそのまま残って、ファイル の容量を大きくしたり、他にも問題が残りそうな気がします。     Cells(ActiveCell.Row + QueryTables(1).ResultRange.Rows.Count, 1).Select 何か良い方法を教えてください。 =IF(A1="『どんな文字でも』","",+B1-C1) ban = ban + 1 '馬連オッズ Private Sub CommandButton*_Click() Ozz(n, 3) = Format(uma1, "0#") + "-" + Format(uma2, "0#") ・100→1.0E+2(1.0×10の2乗)→×100倍 C列に対応する馬連の番号(先ほどの例で言えば馬連(1)-(13)は18頭立てなら枠連1-7に、13頭立てなら枠連1-8に含まれる) 1)先ず、データ を取り込む「Sheet2のA1セル」を アクティブ にします。  2.43×0.0000000000000000001だから、  「webクエリ」ですよね? エクセルで表を作る時に必須といえる『連番を入力する方法』をいくつか紹介します。行削除や非表示行、フィルターをかけた時でも正しく連番を自動入力できる方法もあわせて紹介するので、ぜひ参考に …      が 当該 クエリ テーブル の行数になります。       Call ImportData(myUrl, "Dummy", "A1")         iflg = 1 3)1つの URL の データ を読み込んだ後には、その クエリ デーブル の最終行の次行を アクティブ にします。 1-3    5.5    01-06     3.6         iflg = iflg + 1  =OFFSET(A1,SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))-1,SUMPRODUCT(COLUMN(A1:F200)*(A1:F200=X1))) 自分なりに考えてやってみた事は、日付別のBOOKとは別に結果取得用のBOOKを作り、 私がよく使っているサイトです。 '元データ Dim nSh As String       .WebFormatting = xlWebFormattingNone 場...続きを読む, エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。  従いまして、現在の カーソル 位置(データ の反映位置「Destination」)の行番号に、それを足すと、「クエリ デーブル の最終行の次行」を取得できます。 シート3の指定のセル(A30)にテキスト形式で貼り付けます。 '組み合わせ と オッズ     On Error Resume Next 例えば2008年8月24日のBOOKに、2008年8月24日第3回新潟4日目の3レースの結果を、 抽出するだけならオートフィルターでもできますが、  だったらそのまま貼り付ければ動くと思います。 理想としてはその日の名前を(2008年8月24日第3回新潟4日目)をどこかのセルに入れたら、 01:------000151000055000234000524000036000235  だったらそのまま貼り付ければ動くと思います。     .SavePassword = False          Dim i As Long  【検査範囲】から【検査値】を探し、    qt.Delete Cells(ActiveCell.Row + QueryTables(1).ResultRange.Rows.Count, 1).Select ・       With a.CurrentRegion     .Name = Mid(Replace(url, BASEURL, "", , , 1), 2) 【これは、余談かも知れませんが。。】 B列にその枠連のオッズ 【作業の段取り】 'Sheet1 のA1 から、このように書く           Exit Sub しかし、今回のは、こちらからすると、36シートのシートへの分類自体が、分からないのです。それを、データからではなく、おそらく、最終的には、URLから、シート名の変換コードを作ることによっ...続きを読む, あるテキストファイルから文字列データ(オッズデータ)を取り出してエクセルのシートに貼り付けようと試みています。競馬をされている方は分かると思いますが、出走頭数により枠連と馬連の関連が変わります。(例:馬連(1)-(13)は18頭立てなら枠連1-7、13頭立てなら枠連1-8。馬連(7)-(15)は18頭立てなら枠連4-7、16頭立てなら4-8。)これを出走頭数の変化に伴ってエクセルの同一シート内にそれぞれ対応したオッズを貼り付けるにはどういったプログラムを(VBAマクロ)組めばいいでしょうか? と6バイト単位で表示されています。 を コピペ してください。 よろしくお願いいたします。, >Excel VBAを使用してwebクエリをループさせる方法が知りたいです。 必要なのは馬番とオッズだけです。       .AdjustColumnWidth = False >その「ある範囲」の中には検索したい値が入っているセルは1つしかありません。   Next を付加しました。, >Excel VBAを使用してwebクエリをループさせる方法が知りたいです。 そうしたものを、回答者自身側が、調べたり勉強したりして構築するには、時間が掛かる作業だと感じています。こちらには、そのための知識の蓄積がありません。その趣味のある人で、ある程度のVBAの心得のある人以外は、やはり掲示板の質問の範囲としては越えているように思うのです。   Dim i As Integer 文字が入っていなければB1セルからC1セルを引く、という状態です。 ・0.01→1.0E-2(1.0×1/10の2乗)→×1/100倍→÷100     Next 7/2 ぶどう 200円       iBasyo & "&kaisai=" & iKaisai 問題は、「指定のシート」というところです。 ・0.1→1.0E-1(1.0×1/10の1乗)→×1/10倍→÷10   Dim a As Range  セルからデータを読み、別のセルに代入と言う事もできません。     .WebSelectionType = xlSpecifiedTables また、インポート用の"Dummy" というシートが必要です。 Ozz(n, 2) = Format(Wozz, "#.0") '枠連 などというように Function Sample(ByVal 検査値 As Variant,ByVal 検査範囲 As Range) Private Const BASEURL As String = "http://www.keibabook.co.jp/homepage/freeraceinfo/tojitu/sokuhoinfo2.aspx?"  EXCEL の VBAのEditor と言われても何の事か分かりません。     .RowNumbers = False ダミーシートから切り分けることの問題ではなく、受け取る側のシートの配分なのです。ビジネスの場合、同じような質問は、それは、ほとんどが、月度とか、明確に分類が知られていているので出来るのです。 1)先ず、データ を取り込む「Sheet2のA1セル」を アクティブ にします。 宜しくお願いします。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 A1セルに『どんな文字でも』入っていたならば、空白に。 .BackgroundQuery = False tousu = 18         iKai = Format$(.Cells(i, 2).Value, "00") そんな時はこのような表示になります。 ・0.01→1.0E-2(1.0×1/10の2乗)→×1/100倍→÷100 ━━━━━ 各レース別にシートを分けています。 なければユーザー定義で作りたいと思っています。 馬Data(1)="01:------000151000055000234000524000036000235000324"     .RefreshOnFileOpen = False         iflg = iflg + 1  QueryTables の操作は、当該シート を離れると、記述が厄介になりますので、Sheet2 に 実行マクロ を書いて、その マクロ を CommandButton*_Click() で呼び出すようにしました。 日付   回   場所  日目  Sample = セル.Offset(0, 1) 可能ですし、オートフィルタで、さまざまなデータが即、集計出来ますよ。 1-2   15.1    01-03     5.5 Sub SheetNameCheckers() '馬番と枠の関係 例えば2008年8月24日のBOOKに、2008年8月24日第3回新潟4日目の3レースの結果を、       .Cells(i, 7).Value = Time Next uma1, 申し訳ないのですが私は EXCEL の知識が全くないんです。  競馬の予想ソフトを作ろうとしている方が、これを EXCEL に移植出来ない。なんて信じられません。 Yahoo競馬でもJRAのHPでもそうなのですが、それを手動でやると、レース出走表→1番の馬名→馬の情報ページ、それを出走馬の数だけ繰り返さないといけません。また、それを1日12レース分やるのは大変です。マクロとかソフトを使って簡単にやることはできませんでしょうか? >その「ある範囲」の中には検索したい値が入っているセルは1つしかありません。 IPAT Entry2 フリーソフトでJRA IPATに自動ログイン、投票時も金額等自動入力でワンクリックに解決 (ユーザー評価: 4.5) エクセルで競馬予想JRA出馬表&成績読み込み エクセルでmdbデーターを読み込む競馬予想ソフト (ユーザー評価: 0) 補足:     .WebSingleBlockTextImport = False       .WebSelectionType = xlEntirePage   'trial code Wozz = Val(Mid(枠Data(waku1), 6 * (waku2 - 1) + 4, 6)) / 10 すっごい詳しくて、見やすいですよ。   Dim iBasyo As Variant 枠番(ban) = w 以下の、QueryTables の プロパティ につきましては、実情に応じて変更なさってください。 当方VBA初心者ですので、できるだけわかりやすくご教授頂けると助かります。       End If 枠頭数(w) = 枠頭数(w) + 1   Cells.Delete       .Copy Worksheets(nSh).Range("A65536").End(xlUp).Offset(1) 初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。, 同じ質問が結構よく出てますが、そんなに初歩的でもありません ただ、言葉だけでは納得しないでしょうから、サンプルコードは提示しておきます。   Dim r As Range End Sub   End With Private myTime As Date ・0.001→1.0E-3(1.0×1/10の3乗)→×1/1000倍→÷1000 それのシート1~3にそれぞれの開催場の結果をリアルタイムに取得できるようにしました。 '-------------------------------------------         iflg = iflg + 1 ・最後に『回帰分析』とは何?下の『参考URL』をどうぞ。→『数学』カテゴリで質問してみては?   For i = 2 To Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row       Else 【コーディング について】 それと、経験的に、私は、この手の質問では、最後まで完成させても、意味のないものになってしまったというケースが往々にしてあったからです。多くの原因は、依頼者との最終的な出来上がりや最終使用段階の十分な確認が出来ていないということと、こちら側に、ベースとなる十分な知識がなかったことがあげられます。無理にお願いされて、結局は、ダメになったケースもかなりあるのです。 ━━【B】━━━━       myUrl = BASEURL & "subsystem=0&negahi=" & myDate & "&kai=" & iKai & "&basyocd=" & _ '--------------------------↑ココマデ↑--------------------------  もしこのプログラムが理解できないのであれば、私にはお手伝い出来ません。 Dim 枠Data(8), 馬Data(18), Wozz, Uozz これで結果が更新される度に表示されました。(5分間隔設定) *あくまでも個人で使用するものです。, 私は好きな馬の色々なデータを集計するのにエクセルを利用していますが、 For uma2 = uma1 + 1 To tousu A列の枠連の番号に関していえば、当然出走頭数により存在しないものが出てくる(例:13頭立てのときの1-1,2-2,3-3いわゆる”ゾロ目”) ・回答者 No.1 ~ No.3 さんと同じく『指数表記』の『Exponent』ですよ。 いずれもExcel2003で動作確認済。 7/2 すいか 300円 '--------------------------↓ココカラ↓--------------------------         End If http://www.keibabook.co.jp/homepage/freeraceinfo/tojitu/sokuhoinfo2.aspx?subsystem=0&negahi=20080824&kai=03&basyocd=07&kaisai=04 'データ切り分けコード  ex. Eとは何でしょうか?   Worksheets(nSh).UsedRange.Clear A列に枠連の番号...続きを読む, 申し訳ないのですが私は EXCEL の知識が全くないんです。     .WebDisableRedirections = False           vbInformation + vbOKCancel, "エラー") = vbCancel Then     '2行目からです。 1-3    5.5    01-05    52.4 For w = 1 To 8 ・『指数』って分かりますか? ・E+数値は 10、100、1000 という大きい数を表します。 Sub SeparateData()  「コマンドボタン」を右クリック し、[コードの表示(V)] を クリック すると、 Sub ImportKeibaData() 現在、日付ごとに競馬のデータを1つのBookとして保存しています。 Uozz = Val(Mid(馬Data(uma1), 6 * (uma2 - 1) + 4, 6)) / 10 01:=軸1番から   Worksheets(nSh).Activate     End With 最大3場開催なので、36シートあります。           iKaisai = Format$(.Cells(i, 4).Value, "00")  次に、Sheet2 の シート タブ を 右クリック し、[コードの表示(V)] を クリック すると現われる コード ウィンドウ に下記を コピペ してください。         iBasyo = Format$(.Cells(i, 3).Value, "00") For i = 1 To 枠頭数(w) ・10→1.0E+1(1.0×10の1乗)→×10倍 1(枠連)2:枠オッズ 3:馬連 4:馬オッズ ここはいかがでしょうか? QueryTables(1).ResultRange.Rows.Count     .WebTables = "3" Sub SheetsAllClear() エクセルの回帰分析をすると有意水準で2.43E-19などと表示されますが         .Add(Connection:="URL;" & myURL, Destination:=Selection)  もしこのプログラムが理解できないのであれば、私にはお手伝い出来ません。 よろしくお願いします。, ★回答 (ただしすべて半角です。以前から、Excel2003に関しては、シート名に関して全角・半角の問題に、不明の誤動作があるようです。) お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, エクセルシート1にWEBページの文字列貼付け⇒その『リンク』をシート2にもコピーする関数, エクセル データの入力規則の設定 今作成しているデータでは セルに数字とコンマ以外は入力できないよう, エクセルvbaの質問です。 エクセルにデータを入力後、クリアボタンを押すと、入力されたデータがクリア, エクセル2003で年月を入力すると自動的に縦書きの日付と曜日が表示されるような関数を, ある行(の各セル)に入力されたデータが、自動的に別の行(の各セル)に表示されるようにしたい。, ある範囲のセルから任意の値を検索して、その隣のセルの値を取得するという関数はありますか?.       Else  ポイント としては、1つの URL の データ を読み込んだ後の最終行の取得ですが、最後に実行された Web クエリ について QueryTables の インデックス が「1」になるようですので、 日付、開催場、第何回か、何一目か、これらの要素で変化します。     .WebPreFormattedTextToColumns = True ・『指数』って分かりますか?         myDate = Cells(i, 1).Text '"20080824"    ・数学では『2.43×10』の次に、小さい数字で上に『19』と表示します。→http://ja.wikipedia.org/wiki/%E6%8C%87%E6%95%B0%E8%A1%A8%E8%A8%98 データ→外部データの取り込み→新しいWebクエリの画面で取得したURLを入力し移動をクリックします。 参考URL:http://db.netkeiba.com/, 競馬で、データ分析のプログラムを作っています。作成にあたって、中央競馬で実施されたレースごとの情報が必要なのです。よくスポーツ新聞に出ていますよね。全着順と全馬の最終オッズ、配当などです。週刊誌のギャロップを買っているのですが、毎回購入するのはお金がかかりますよね。有料サービスでもいいのですが、G1レースも含め、過去のデータを閲覧できるサイト、情報機関などご存知でしたら教えて下さい。なお、必要なのは、前述のとおり、全着順と全馬の最終オッズ、配当、人気です。, まだ大丈夫ですか? マクロで出来るならそのマクロコードを教えてください。 '枠連オッズ For i = 1 To tousu Private k As Integer 枠連(馬連)1-2=15.1 意図が違ってたらごめんなさい。 エクセルのスケジュール表やカレンダーなどで土曜日と日曜日のセルにだけ色を付ける方法を初心者にもわかりやすく解説。日付・曜日・書式(色分け)を自動設定する超便利ワザを紹介します。 本を読んだのですがいまいち難しくて分かりません。 7/3 みかん 100円 ちなみに、VBAでやるならこんな感じになるかと。       If nSh <> "" Then    エクセルではシートに入力済みのデータを別シートに自動で反映させたい場合がよくあります。今回は、セルのデータを別シートに自動で反映させる方法を4つ紹介したいと思います。よく使うドロップダウンリストの反映方法もあわせて紹介。 枠連(馬連)1-1=オッズなし(------) End Sub http://www.keibabook.co.jp/homepage/freeraceinfo/tojitu/sokuhoinfo.aspx?subsystem=0   Dim myQT As QueryTable  Excel の 標準メニュー [データ(D)] - [外部データの取り込み(D)] - [新しい Web クエリ(W)...] のお話しとして回答を書かせていただきます。  Excel の 標準メニュー [データ(D)] - [外部データの取り込み(D)] - [新しい Web クエリ(W)...] のお話しとして回答を書かせていただきます。   Dim iKaisai As Variant ・ だから、難しいと思うのです。   End If  Next sh それを認識して設定した通りに取得したいのです。 20080823  3    7   3 というのが前提です。複数のセルがHITすると関係ないセルの値が返るので、 簡単ではないと思いますがご指導お願いします。, エクセルで外部データを取り込むにはWebクエリというのを使用します。  競馬の予想ソフトを作ろうとしている方が、これを EXCEL に移植出来ない。なんて信じられません。 End Sub   If sh.Name Like "#*" Then Ozz$(153, 4)の出来上がりイメージは、以下の様になります。   With Worksheets("Sheet1") また、結果で同着が起きた場合、そのレースだけ行数が増えます。   If セル = 検査値 Then Exit For IPAT Entry2 5.6.0 フリーソフトでJRA IPATに自動ログイン、投票時も金額等自動入力でワンクリックに解決 (15.06.16公開 981K) ; エクセルで競馬予想JRA出馬表&成績読み込み 7 エクセルでmdbデーターを読み込む競馬予想ソフト (12.07.17公開 742K) ; 資金配分電卓 OzzCalc 競馬版 2.03 オッズによって配当が均 …       End With   End With  (出走頭数と馬番・枠番の関係は非...続きを読む, よろしくお願いします。  2.43×1/(10の19乗)で、 7/3 みかん 100円 20080823  3    3   3 End If ・になります。ようするに 10 を n 乗すると元の数字になるた...続きを読む, Excelの関数について質問します。   nSh = StrConv(sh.Name, vbNarrow) ・になります。ようするに 10 を n 乗すると元の数字になるための指数表記のことですよ。 ・1000→1.0E+3(1.0×10の3乗)→×1000倍 自分の好きな様に表示を変えてください。(有効オッズで0になる事はありません!) A列に枠連の番号(若い番号順に1-1、1-2、・・・) Sub ImportData(url As String, nSh As String, nAdd As String) ある範囲のせるを検索して、その隣のセルの値を取得するという関数を探しています。 Dim sh As Worksheet   宜しくお願いします。, 中央競馬の結果成績をWEBクエリで自動取得したいと思ったのですが、URLの一部が毎回変わります。 http://www.keibabook.co.jp/homepage/freeraceinfo/tojitu/sokuhoinfo2.aspx?subsystem=0&negahi=20080817&kai=03&basyocd=07&kaisai=02   Sheets("Sheet2").Select 【3】http://shopping.yahoo.co.jp/   With Worksheets("Dummy") ・よって、『2.43E-19』とは? 上記すべてのwebページの内容をコマンドボタンワンプッシュでSheet2のA1セルから下へ順に反映させたいといった感じです。 データ範囲は500行までとしていますが、必要に応じて変更して下さい, 中央競馬の結果成績をWEBクエリで自動取得したいと思ったのですが、URLの一部が毎回変わります。 'シート名のチェック(シート名を半角にする) 当日の開催中は徐々に行数が増えていきますので、まだ表示されていないレースの行を指定できませんでした。 JRAのホームページだとデータのページのURLが同じになっているようなのでどのURLにするのかよくわかりません。, エクセルを利用して予想をしているのですが、過去データを打ち込むのが非常に面倒です。 w = i それをある範囲まで拡張して、 2)次に「Sheet1のB2セル~B3、B4、B5・・・」の URL を1つずつ読み込んで、WEb クエリ を実行します。     .FillAdjacentFormulas = False ※SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1)) ⇒ A1:F200で値がX1と一致するセルの行番号 Dim qt As QueryTable   Worksheets(sh.Name).Cells.Clear '枠に何頭入いるかを調べる。 競馬好きであれば、「もっと勝率を上げて、競馬を楽しみたい」思っている人も多いことでしょう。エクセルを使ってデータ分析する方法は、勝率を上げる方法の1つです。分析に必要なデータの入手方法や、分析方法・便利なソフトについて紹介します。 このような表があって、100円を含む行をそのままの形で、  For Each sh In Worksheets   Application.Run "Sheet2.webクエリをループ"       End If Sub webクエリをループ()   If sh.Name Like "#*" Then  '最初が数字のシート それを日付別のBOOKからマクロで結果取得用のBOOKに取得しに行く事にしましたが、   Dim myURL As String 参考URL:http://ja.wikipedia.org/wiki/%E5%9B%9E%E5%B8%B0%E5%88%86%E6%9E%90, ★回答 切り分けのサンプル程度なら、以下のように作れますが、それ以上は、難しいです。   Dim myDate As Variant とりあえず間違えてしまった箇所を訂正しておきます。 '該当シートを全部消去  これを回避するためには、     .AdjustColumnWidth = True 'Option Explicit 枠連(馬連)1-3=5.5     .SaveData = True またIF関数以外でも同様のことができれば構いません。       If IsNumeric(.Cells(i, 4).Value) Then  Sub プロシージャ の事をいうのでしょうか? 最新のオッズをオッズ道楽などで取得してエクセルのマクロボタンなどでセルにコピーするにはどうしたらよいでしょうか?       nSh = StrConv(nSh, vbNarrow) 1-1    .0    01-02    15.1     .PreserveFormatting = True それを認識してその日の結果のページにデータを取得しに行く事が出来れば良いのです。(入力は各開催場で1回のみ) ・0.1→1.0E-1(1.0×1/10の1乗)→×1/10倍→÷10 ↑ここで欲しいデータを検索してコピー、エクセルにペーストしています。  For Each セル In 検査範囲 しかし、今回のは、こちらからすると、36シートのシートへの分類自体が、分からないのです。それを、データからではなく、おそらく、最終的には、URLから、シート名の変換コードを作ることによって、分類しなくてはならないように思っています。       End If 各レース別にシートを分けています。 ・100→1.0E+2(1.0×10の2乗)→×100倍 '--------------------------------------------- 参考にしてみてください。特に、詳しいサポートをするつもりはありません。 参考URL:http://keiba.nifty.com/, Excel VBAを使用してwebクエリをループさせる方法が知りたいです。     myURL = Sheets("Sheet1").Cells(i, "B").Value シートの半角修正コードは以下のとおりです。   Dim nSh As String           .Refresh BackgroundQuery:=False ・0.001→1.0E-3(1.0×1/10の3乗)→×1/1000倍→÷1000 =IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")       Call SeparateData n = 0 URLのkai=03&basyocd=07&kaisai=04の部分が第3回(03)新潟(07)4日目(04)になっています。        別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。 例えば、以下のように複数のURLがあったとします。       If iflg <> 0 Then     .Activate  EXCEL の VBAのEditor と言われても何の事か分かりません。     .Cells.ClearContents 'データの消去 Next i, w この『どんな文字でも』の部分に何を入れればいいのか教えてください。   Next End Function Webのデータを取得してエクセルに自動的に入力できるようにしたいです。具体的には、競馬の出走表の出走馬の生年月日をレースごとに表にしたいのです。Yahoo競馬でもJRAのHPでもそうなのですが、それを手動でやると、レース出走表→1番の Ozz(n, 4) = Format(Uozz, "#.0")     On Error GoTo 0  セルからデータを読み、別のセルに代入と言う事もできません。 よく、おっず道楽などのフリーソフトを利用してオッズをエクセルに取り込んでいるソフトがあります。 シート3の指定のセル...続きを読む, こんにちは。 Dim 枠頭数%(8), 枠番%(18), Ozz$(153, 4), uma1%, uma2% どうかお知恵をお貸しください。, ●X1セルの値を範囲A1:F200の中から探して、その右隣のセルの値を返す       End If 以上ご参考まで。, ●X1セルの値を範囲A1:F200の中から探して、その右隣のセルの値を返す 過去の情報をエクセルで打ち込んでいるサイトをご存知の方いらっしゃいませんか? 高度な処理だと思いますが分かる方教えてください。よろしくお願い致します。, あるテキストファイルから文字列データ(オッズデータ)を取り出してエクセルのシートに貼り付けようと試みています。競馬をされている方は分かると思いますが、出走頭数により枠連と馬連の関連が変わります。(例:馬連(1)-(13)は18頭立てなら枠連1-7、13頭立てなら枠連1-8。馬連(7)-(15)は18頭立てなら枠連4-7、16頭立てなら4-8。)これを出走頭数の変化に伴ってエクセルの同一シート内にそれぞれ対応したオッズを貼り付けるにはどういったプログラムを(VBAマクロ)組めばいいでしょうか? ※最初のA1はワークシートの左上隅を示すものなので、検索範囲に関わらずA1固定 D列にその馬連のオッズ 最大3場開催なので、36シートあります。 項目ごとにセルに入ってくれるので不要なものは行単位や列単位で削除が       .Refresh BackgroundQuery:=False ※最初のA1はワークシートの左上隅を示すものなので、検索範囲に関わらずA1固定 waku1 = 枠番(uma1): waku2 = 枠番(uma2) VLOOKUP関数では一番左端が検索されますが、 ・最初に『回帰分析』をここで説明するのは少し大変なので『E』のみ説明します。   With Worksheets(nSh).QueryTables.Add(Connection:="URL;" & url, Destination:=Range(nAdd)) 抽出結果を自動的に、別の場所に、常に表示させておきたいのです。 【VBA の コード を書く場所について】     With QueryTables _ どうすれば回帰分析が分かるようになるのでしょうか? 結果が同着になると行がずれてくるためにコピーしてきたものが目的の内容とは違う行になってしまいました。 =IF(COUNTIF(A1:F200,X1)=1,【上記数式】,"えらー")       End If ・10→1.0E+1(1.0×10の1乗)→×10倍       「webクエリ」ですよね? End Sub Dim sh As Worksheet Ozz(n, 1) = Format(waku1, "#") + "-" + Format(waku2, "#") エクセルの表では連番を作成することは非常に多いです。 表が長くなればなるほど連番がないと件数などが把握しずらくなるので、表を作ることは連番を作る作業とセットだと思ってもいいんじゃないでしょうか。 その連番はオートフィルなどを使え... 表に入力した連番は行削除などで連番が崩れてしまい、連番の再入力が必要になります。そんな時には、オートフィルター、削除、非表示行があっても正しい連番を自動入力してくれるSUBTOTAL関数を使ってみましょう!, SUM関数で小計を合計しようとすると、小計の位置を1つずつ指定する必要があるので結構面倒で間違いやすいです。今回は小計を簡単に合計できる関数を紹介します。小計が増えても範囲の再指定も必要ないので、かなり便利ですよ。, エクセルで表を作ってオートフィルターをかけたりすると、見えてない行まで含めて計算されてしまいます。今回はオートフィルターや行の非表示によって『見えている行だけ』を計算する方法を紹介します。. 【2】http://dailynews.yahoo.co.jp/fc/ 【作業の段取り】 別のセル(同じシート内)に抜き出したいのですが。 >1グループを指定のシートに振り分ける Sheet1のB2セル~B3、B4、B5・・・ ・E-数値は 0.1、0.01、0.001 という小さい数を表します。 「枠に何頭入っているかを調べる。」の部分を勘違いして間違えました。以下の様に訂正して下さい。 w = 9 - i Mod 8: If w = 9 Then w = 1   Dim myUrl As String 現在、日付ごとに競馬のデータを1つのBookとして保存しています。 結果はYAHOO競馬でも良いのですが、 【1】 エクセルの表では連番を作成することは非常に多いです。 表が長くなればなるほど連番がないと件数などが把握しずらくなる... IT関連の仕事をしていて、エクセルは設計書やテスト仕様書作成などで毎日使っています。, エクセルを使いこなすために、これだけは習得しておきたい基本的な機能、操作を紹介します。, 行の状態が変更(削除、非表示、フィルター)されても、正しく連番を自動入力する超便利な方法, 行削除/非表示行/フィルターによる行の変更があっても、正しく連番を入力してくれるSUBTOTAL関数がベストな方法, その中でもSUBTOTAL関数は、『行の変更』があっても正しく連番を入力できるので一番のおすすめ。.     .WebConsecutiveDelimitersAsOne = True 問題は、「指定のシート」というところです。 7/1 りんご 100円 その右隣の値を取得できるようにしたいのです。 End Sub マクロコードにはどんな動作をさせてるコードなのかも書いて頂けるとありがたいです。 『連番を入力』する方法として、直接数字を打ち込む方法から、関数を使った方法までさまざまなものがあります。, それぞれの方法のメリット、デメリットについても解説するので、ぜひ参考にしてください。, 行の状態が変更(削除、非表示、フィルター)されても、正しく連番を自動入力する超便利な方法もあるので、必見ですよ^^, といっても、手で1つ1つ数字を打ち込むのは大変なので、ここでは『フィルコピー』を使って一気に入力してみます。, そして、そのセルの右下にマウスを置いて『十字カーソル』に変わったら、マウスの右ボタンでつまんで一気に最後の行までドラッグします。, フィルコピーの操作がマウスの右ボタンなのでちょっと特殊ですが、難しいことはありません。, メリットとしては、式や関数を使わず連番の数字が入力されて『シンプル』というところと、途中の数字を削除しても他の連番には影響がないところでしょうか。, デメリットは、途中の行を『削除』したり『非表示行』にした時に、そのまま欠番になってしまうことです。, 連番の最初のセル(B4)には『1』を入力し、2番めのセル(B5)には次の演算式を入力します。, この演算の結果、2番めのセルはB4のセルの『1』に『1』を足した結果の『2』が入力されます。, 以降の行も前行の値に1が足されるように、フィルコピーで演算式をコピーすれば連番の入力が完成です。, しいていえば、最初の数字を例えば『1』から『100』に変更すれば、それ以降の数字が自動で『101』、『102』、、、ときちんと連番になることです。, こちらのデメリットも、直接数字入力と同じで、途中の行の削除や非表示の場合に連番とならないことがデメリットです。, 『=ROW()』で4(行目)が返ってくるので、そこからその前の行数(3)の分だけ引くことで、現在の行の正しい連番(1)が求まる式になっています。, フィルコピーは、『演算(足し算)』のところで書いている2つの方法(ダブルクリックかドラッグ)どちらかを使ってください。, ROW関数を使った連番の詳しい入力方法、次の記事で詳しく書いているので参考にしてください。, ROW関数の一番のデメリットは、表の前で『行挿入』や『行削除』の編集がされると、『連番がずれる』というデメリットがあります。, さきほどの例でいうと、表の行がずれることで『-3』では正しい連番にならないということです。, COUNTA関数は、『指定範囲に何か入力されているセルがいつかあるか求める』関数です。, $C$4はセル『C4』の位置を示していますが、『$』をつけることで絶対参照(位置)になります。, つまり、『=COUNTA($C$4:C4)』を次の行にコピーすると、『=COUNTA($C$4:C5)』が貼り付けられます。, この式により、『連番の最初のセル(C4)から自分の行のセル(C5)までのセルの個数』が求まります。, ROW関数と全く同じで、途中の行が削除されても連番が正しく入力されるのがメリット。, 削除は問題ないですが、途中の行を非表示にした場合に連番がずれるというデメリットがあります。, SUBTOTAL関数は引数で『計算方法』を指定することで、SUM関数やCOUNTA関数などと同じ計算ができます。(他にはMAX関数やAVERAGE関数などもあり), ここでは、連番を求めるためにCOUNTAと同じ計算方法を引数で指定することにします。, なお、SUBTOTAL関数はとても賢く便利なので、次の記事で詳しく解説しています。, SUBTOTAL関数を使う一番のメリットは、なんといっても『見えている行だけを対象に計算』することです。, デメリットはあまりないですが、しいていえばカウント計算の対象範囲のセルに、1つでも『未入力』のセルがあった場合、連番が正しく計算されないことぐらいです。(COUNTA関数も同じ), なので、SUBTOTAL関数を使う場合は、確実に入力されているセルの列を計算の対象範囲に指定することがポイントとなります。, 連番を入力する方法はバラエティに富んでいますが、結局、行削除/非表示行/フィルターによる行の変更があっても、正しく連番を入力してくれるSUBTOTAL関数がベストな方法じゃないでしょうか。, ただし、先にも書いたように、フィルターの対象外れの問題を回避するために、式がちょっと複雑になっているのがちょっとしたマイナス点ですけどね^^, それでも、行編集後の連番振り直しの可能性を考えると、やっぱり連番の自動入力にはSUBTOTAL関数がおすすめです。, SUBTOTALは日本語に訳すと『小計』という意味で、『小計』だけを合計するということが簡単にできます。, 表に小計を使っている場合には重宝する関数だと思うので、次の記事で使い方を参考にしてください。, また、SUBTOTAL関数は『今見えている行だけを合計する』ことも簡単にできます。, フィルターだけではなく、行を非表示にしたときも非表示の行を計算の対象から除外してくれるので非常に便利ですよ^^, 新型コロナ対策のため、密閉・密集・密接空間を避けて、こまめに石鹸で手洗いをしよう!詳細はこちら。. ダミーシートから切り分けることの問題ではなく、受け取る側のシートの配分なのです。ビジネスの場合、同じような質問は、それは、ほとんどが、月度とか、明確に分類が知られていているので出来るのです。 '標準モジュール 【4】http://www.yahoo.co.jp/ 表示されたページで矢印を選択し、取り込みを行います。   Dim iKai As Variant '--------------------------------------------- Next uma2 動作の概要

商品モニター 副業, 内田篤人 ファルファン, 嵯峨野高校 進学実績 2020, 視聴率 どうやって わかる, 宗佑磨 カービィ, 香川真司 結婚しない, 目黒記念 動画, 高畑充希 映画 撮影, オリンピック 奪三振王 横浜高校出身, 大阪 高校サッカー 強豪, 日本 面積, 広島カープ 選手 イケメン, ブルボン 意味, Nhkふれあいセンター 封筒, 今夜ロマンス劇場で オマージュ, 田村龍弘 パワプロ, ゼラス ウィーラー内野手, キラメイグリーン スーツアクター, レプロ サッカー 滋賀, イラク戦争 年表, ナラタージュ 何 語, 中村航輔 海外, 重光昭夫 日本語, 子宮頸がん 出産で治る, 中田英寿 貯金, 東北アルフレッサ ニュース, 天体観測 魅力, 将棋グッズ 扇子,

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です