Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4258 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【57753】データ型の変換 レラ 08/9/12(金) 9:12 質問[未読]
【57754】Re:データ型の変換 ハチ 08/9/12(金) 9:24 発言[未読]
【57755】Re:データ型の変換 レラ 08/9/12(金) 9:46 質問[未読]
【57756】Re:データ型の変換 レラ 08/9/12(金) 9:51 質問[未読]
【57757】Re:データ型の変換 ハチ 08/9/12(金) 10:25 発言[未読]
【57753】データ型の変換
質問  レラ E-MAIL  - 08/9/12(金) 9:12 -
引用なし
パスワード
   バーコードで在庫管理するためのＶＢＡ作成中です。アルファベットと数値で表示されているバーコードをデータ型変換関数で機能させたいのですが、あてはまるものがわかりません。


　VLookup(CDbl(txtバーコード.Text), Range("商品一覧"), 9, False)
このバーコードは13桁なのでCDblで認識してくれましたが、

　VLookup(CDbl(txt部署コード.Text), Range("部署名"), 2, False)
こちらはA0560Aなので認識してくれません。

何か良い方法はないでしょうか？
もし無理なら部署コードも氏名コードも数字だけにしてみます。数字だけだときちんと認識してくれます。
どうかよろしくお願いいたします。
【57754】Re:データ型の変換
発言  ハチ  - 08/9/12(金) 9:24 -
引用なし
パスワード
   ▼レラ さん：
>バーコードで在庫管理するためのＶＢＡ作成中です。アルファベットと数値で表示されているバーコードをデータ型変換関数で機能させたいのですが、あてはまるものがわかりません。

なぜ、データをDouble型に変換したいのか？　が良くわかりません。
変換しないとVlookupがうまく機能しないということですか？
【57755】Re:データ型の変換
質問  レラ E-MAIL  - 08/9/12(金) 9:46 -
引用なし
パスワード
   ▼ハチ さん：
>▼レラ さん：
>>バーコードで在庫管理するためのＶＢＡ作成中です。アルファベットと数値で表示されているバーコードをデータ型変換関数で機能させたいのですが、あてはまるものがわかりません。
>
>なぜ、データをDouble型に変換したいのか？　が良くわかりません。
>変換しないとVlookupがうまく機能しないということですか？

変換しないとVlookupがうまく機能しませんでした。他に良い方法があれば教えてください。よろしくお願いいたします。
【57756】Re:データ型の変換
質問  レラ E-MAIL  - 08/9/12(金) 9:51 -
引用なし
パスワード
   ▼ハチ さん：
>▼レラ さん：
>>バーコードで在庫管理するためのＶＢＡ作成中です。アルファベットと数値で表示されているバーコードをデータ型変換関数で機能させたいのですが、あてはまるものがわかりません。
>
>なぜ、データをDouble型に変換したいのか？　が良くわかりません。
>変換しないとVlookupがうまく機能しないということですか？

変換しないとVlookupがうまく機能しませんでした。他に良い方法があれば教えてください。よろしくお願いいたします。
txt発注要否.Text = WorksheetFunction. _
　　　　　 VLookup(CDbl(txtバーコード.Text), Range("商品一覧"), 9, False)
ダイアログのテキストボックスにバーコードを入力すると他のテキストボックスに
反映されるようにしています。商品名・規格・型番等・・・・

質問の仕方がわるくてすみません。
【57757】Re:データ型の変換
発言  ハチ  - 08/9/12(金) 10:25 -
引用なし
パスワード
   ▼レラ さん：
実際のデータを見れない為、勘で書きます。

Range("商品一覧")の１３ケタのコードの部分が、
Sampleで作成される　Ａ１のようになってませんか？
なっているのであれば案としては・・・
案１．
Range("商品一覧")のデータを文字列に書き換える。
案２．
VlookUpを止めて、Find で探すようにする。

Sub Sample()
　　With Range("A1")
　　　　.NumberFormatLocal = "0000"
　　　　.Value = 1
　　　　MsgBox .Value
　　End With
　　
　　With Range("A2")
　　　　.NumberFormatLocal = "@"
　　　　.Value = "0001"
　　　　MsgBox .Value
　　End With

End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4258 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free