Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


53769 / 76738 ←次へ | 前へ→

【27778】Re:入力フォームに品番表示
お礼  kon E-MAIL  - 05/8/18(木) 23:27 -

引用なし
パスワード
   konです。
こんばんわ、早速のお答えありがとうございました。
早速、試してみます。

▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>入力フォームのTextBox1に品番コードを入力すると
>>Label1に品番が表示されるようにする方法をどなたか教えて下さい。
>
>Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> Dim strValue As String
> 
> strValue = ""
> On Error Resume Next
> strValue = Application.VLookup(Me.TextBox1.Value, Sheets("マスター").Range("A:B"), 2, False)
> On Error GoTo 0
> Me.Label1.Caption = strValue
> DoEvents
>End Sub
>
>または、
>
>Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> Dim c As Range
> 
> With Sheets("マスター").Columns("A").Cells
>  Set c = .Find(Me.TextBox1.Value, , xlValues, xlWhole)
>  If Not c Is Nothing Then
>   Me.Label1.Caption = c.Offset(, 1).Value
>  Else
>   Me.Label1.Caption = ""
>  End If
> End With
> DoEvents
>End Sub
>
>でできると思います。

0 hits

【27750】入力フォームに品番表示 kon 05/8/17(水) 23:43 質問
【27751】Re:入力フォームに品番表示 かみちゃん 05/8/18(木) 0:20 回答
【27778】Re:入力フォームに品番表示 kon 05/8/18(木) 23:27 お礼
【27755】Re:入力フォームに品番表示 Statis 05/8/18(木) 10:05 回答
【27777】Re:入力フォームに品番表示 kon 05/8/18(木) 23:23 お礼

53769 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free