登録したデータの中から該当するID(データの頭2つ)を抜き出し、それを参照にLabel5と6に名前と所属のデータを表示させています。
該当データがない場合はLabel4に該当なしと表示します。
下の様に作ってみたのですが、どのIDを打っても名前と所属はちゃんと出るのですが、該当なしまで一緒に表示されます。
これはどこを変更したらいいのでしょうか?
Public Class Form1
Dim data(9) As String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Data(0) = "01山田 花子 デバイス部"
以下Data(9)まで続く・・
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 9
If Mid(ShainData(i), 1, 2) = TextBox1.Text Then
Label5.Text = Mid(Data(i), 3, 9)
Label6.Text = Mid(Data(i), 13, 2)
Else
Label4.Text = "該当なし。"
End If
Next
No.1ベストアンサー
- 回答日時:
For i = 0 To 9
If Mid(ShainData(i), 1, 2) = TextBox1.Text Then
Label5.Text = Mid(Data(i), 3, 9)
Label6.Text = Mid(Data(i), 13, 2)
Else
Label4.Text = "該当なし。"
End If
Next
上記の部分ですがボタンを押したときに0~9回、回っているようなので、そのうち8回はelseに入ってるようです
if文には一回だけ入ればよい
elseには上記に一回も入らなければ入る条件にすればよい
たとえば
For i = 0 To 9
If Mid(ShainData(i), 1, 2) = TextBox1.Text Then
Label5.Text = Mid(Data(i), 3, 9)
Label6.Text = Mid(Data(i), 13, 2)
End If
Next
if Label5.Text.文字数 = 0 Then
Label4.Text = "該当なし。"
end if
このようにしたらどうでしょうか
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) Visual Basic : ImageListの画像がそろったときにメッセージを表示 1 2023/07/20 13:53
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
wordの差し込み印刷で文字...
-
DTOとEntityの差は何ですか。
-
ActiveReportのサブレポート機...
-
excel access連携 このテーブル...
-
WordでExcelデータを差込...
-
「外部データの取り込み」とい...
-
回線速度が64kbpsだったら、64k...
-
Windowsのマクロプログラムで、...
-
C#でのForm間のデータ受け渡し...
-
XMLHttpRequestでウェブページ取得
-
クリップボード画像転送方法
-
【C#】DataGridViewの最大列数...
-
mysqlにデータ登録
-
Access2000 CopyFromRecordset...
-
★お手上げ状態です。助けてくだ...
-
GridViewからチェックボックス...
-
Dosブロンプトでtabを出力したい
-
「取得先」という表現について
-
バッチファイルでpingの結果を...
-
不正競争防止法に該当するので...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
wordの差し込み印刷で文字...
-
DTOとEntityの差は何ですか。
-
excel access連携 このテーブル...
-
【C#】DataGridViewの最大列数...
-
WordでExcelデータを差込...
-
ActiveReportのサブレポート機...
-
「外部データの取り込み」とい...
-
VBA内でのGetPixelを使用した時...
-
GridViewからチェックボックス...
-
Windowsのマクロプログラムで、...
-
INIファイルに一括書き込みを行...
-
VB 音の波形を取得する関数は?
-
EXCEL VBAで NHK NEWSの NEWSデ...
-
JavaからPHPへの値の受け渡し
-
★お手上げ状態です。助けてくだ...
-
Access2000 CopyFromRecordset...
-
MSFlexGridのデータを初期化し...
-
rsyncでのエラー(sh: rsync: no...
-
URLエンコードされなかったパラ...
-
回線速度が64kbpsだったら、64k...
おすすめ情報