競馬の内容ですが、VBAを勉強中でして、どうしてもわからいことがありまして質問します。
2018年7月7日 コンピ指数-2回福島1日目
上記のないように関して【1日目】の【1】を抽出したいのです。
これは変化しまして【10日目】の時は、【10】を抽出したいのです。
【福島】は競馬場の名前で、札幌、東京、小倉等に変化します。
関数でやった場合は
=VALUE(MID(A4,MIN(SEARCH({1,2,3,4,5,6,7,8,9,0},A4&1234567890)),LEN(A4)-(LENB(A4)-LEN(A4))))
これは自分で発見できたのですが、VBAで実行した場合にどのようなコードになるのでしょうか?
お手数ですが、ご教示お願いします。
No.1ベストアンサー
- 回答日時:
こんばんは!
要するにセル内の最後の「数字」のみを表示したい!というコトですね。
一例です。
元データはA2セル以降にあり、B列に表示するとします。
Sub Sample1()
Dim i As Long, k As Long, cnt As Long
Dim myStr As String, myFlg As Boolean
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
For k = Len(Cells(i, "A")) To 1 Step -1
myStr = Mid(Cells(i, "A"), k, 1)
If myStr Like "[0-9]" Then
myFlg = True
cnt = cnt + 1
Else
If myFlg = True Then Exit For
End If
Next k
If myFlg = True Then
Cells(i, "B") = Mid(Cells(i, "A"), k + 1, cnt)
End If
myFlg = False
cnt = 0
Next i
End Sub
※ 最後が 「○○日目」に限らず
最後の数字のみが表示されます。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 3 2022/06/12 11:17
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) EXCELで、漢字のみ抽出する式を教えてください。 6 2022/04/27 14:40
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) VBAで重複データを合算したい(時間) 1 2022/12/08 23:06
- C言語・C++・C# C言語初心者 構造体 課題について 1 2023/03/10 19:30
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
オッズパークって夜間競馬かけ...
-
競馬で大敗、、1日でどの位負け...
-
競馬とパチンコ、どっちが有利?
-
着順判定写真の画像って、、。...
-
競馬で除外って100円戻って...
-
競馬はどうして人間と逆方向に...
-
剰余金配当 支払確定年月日
-
サンプルサイズが異なるデータ...
-
競馬に関しまして。私よく知ら...
-
競馬
-
【競馬場】競馬場の馬券購入時...
-
出銭はゲンが悪いといいますが
-
次の式は何進法で成立するか。...
-
男の人が手取り26万~31万...
-
IPATで馬券を的中させたのです...
-
競馬歴3か月で50万負けました。...
-
3連復600円分と3連単BOXではど...
-
JRAの過去の払い戻しデータで、...
-
人に頼まれた馬券をインターネ...
-
即パットで競馬をして 50万円以...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
競馬で大敗、、1日でどの位負け...
-
競馬とパチンコ、どっちが有利?
-
今度競馬場に行くのですが、ス...
-
趣味の友だちを作るメッセージ...
-
月を地球の10万キロ地点に持っ...
-
競馬や競輪などのアプリで 登録...
-
彼氏の競馬好きについて
-
競馬場のゲート係員
-
競馬関係者の席・・服装・・・
-
競馬で除外って100円戻って...
-
京都競馬場への行き方
-
競馬を本気になって研究実践し...
-
【急募】水商売をしています。...
-
競馬好きな方に聞きます。 僕は...
-
SPAT4は・・・・
-
各地方競馬の職員になるには。
-
大井競馬場の指定席
-
競馬場の個室に関して(京都競...
-
京都競馬場へ行くには??マイ...
-
サラブレッドの食べ物って?
おすすめ情報