Top > 商品マスター検索

VBA通信教材申込み

VBA課題解決型実践塾セミナー内容

申込 ヤフーショッピング

商品マスター検索

商品マスター検索

(a)商品コード入力

商品マスター検索

商品コードを入力すれば商品名が表示するプログラムを作ります。
・商品コード入力の判断は検索シートの2列目が変化した時の行Target.Rowを取得します。
・検索はsyouhinkensakuf関数を作って使っています。
・検索方法は条件付き繰り返しを使います。
シートモジュールに記述
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim x As Long
  If Target.Column = 1 Then
    x = Target.Row
    Cells(x, 2) = syouhinkensakuf(Cells(x, 1))
  End If
End Sub
Function syouhinkensakuf(scode As Long) As String
  Dim lastrow As Long
  Dim i As Long
  lastrow = Worksheets("商品名").Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To lastrow
    If scode = Worksheets("商品名").Cells(i, 1) Then
      syouhinkensakuf = Worksheets("商品名").Cells(i, 2)
      Exit Function
    End If
  Next
  syouhinkensakuf = ""
  MsgBox "商品コードがみつかりません"
End Function

(b)リストボックスから検索

商品マスター検索

検索ボタンをクリックすると商品検索のリストボックスが表示され該当する商品をダブルクリックするかOKボタンをクリックするとアクティブセル(選択しているセル)
に商品コードと商品名が代入されます。
・商品名を代入するときはActiveCellの1列右側ですのでOffset(0, 1)を使っています。
・リストボックスの2列目の取得はlstSyouhin.List(lstSyouhin.ListIndex, 1)を使います。
フォームモジュールに記述
Private Sub cmdOk_Click()
  ActiveCell = lstSyouhin.Text
  ActiveCell.Offset(0, 1) = lstSyouhin.List(lstSyouhin.ListIndex, 1)
  Unload Me
End Sub
Private Sub lstSyouhin_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  ActiveCell = lstSyouhin.Text
  ActiveCell.Offset(0, 1) = lstSyouhin.List(lstSyouhin.ListIndex, 1)
  Unload Me
End Sub
Private Sub UserForm_Initialize()
  Dim lastrow As Long
  Dim i As Long
  lastrow = Worksheets("商品名").Cells(Rows.Count, 1).End(xlUp).Row
  lstSyouhin.ColumnCount = 2
  For i = 2 To lastrow
    With lstSyouhin
      .AddItem
      .List(i - 2, 0) = Worksheets("商品名").Cells(i, 1)
      .List(i - 2, 1) = Worksheets("商品名").Cells(i, 2)
    End With
  Next
End Sub
Private Sub cmdCancel_Click()
  Unload Me
End Sub
標準モジュールに記述
Sub kensaku()
  frmSyouhin.Show
End Sub

塾長あいさつ
基本方針(考え方)
通信教育内容
課題解決セミナー内容
初心者基礎コース内容
カリキュラム・料金
案内地図・各種リンク
問合せ・申込み
アベノ塾
システムの内製化
アサイコンピュータACS
応用部品集(有料)
販売管理(事例)
財務管理(事例)
顧客管理(事例)
見積もり(事例)
給与(事例)
介護(事例)
ゴースト暗算(事例)
部品集(部品の基礎)
部品集(シート関連)
部品集(データベース)
部品集(セル関連)
部品集(関数)
部品集(フォーム関連)
部品集(ブック関連)
部品集(その他)
変数の勉強
繰り返しと条件文
マスター登録.訂正.削除
フォルダー内のファイル
項目をシート名で作成
ブックの操作
CSVファイルの取り込み
呼び出し元・先
商品マスター検索
エクセル関数をVBAで
エクセル関数を使う
よくつかうプログラム
販売管理(ソース)
財務管理(ソース)
給与管理(概要・画面)
見積もり(概要・画面)
工程管理(概要・画面)
原価管理(概要・画面)