Excel VBA質問箱 IV

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

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


4237 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   バーコードで在庫管理するためのVBA作成中です。アルファベットと数値で表示されているバーコードをデータ型変換関数で機能させたいのですが、あてはまるものがわかりません。


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

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

何か良い方法はないでしょうか?
もし無理なら部署コードも氏名コードも数字だけにしてみます。数字だけだときちんと認識してくれます。
どうかよろしくお願いいたします。

【57754】Re:データ型の変換
発言  ハチ  - 08/9/12(金) 9:24 -

引用なし
パスワード
   ▼レラ さん:
>バーコードで在庫管理するためのVBA作成中です。アルファベットと数値で表示されているバーコードをデータ型変換関数で機能させたいのですが、あてはまるものがわかりません。

なぜ、データをDouble型に変換したいのか? が良くわかりません。
変換しないとVlookupがうまく機能しないということですか?

【57755】Re:データ型の変換
質問  レラ E-MAIL  - 08/9/12(金) 9:46 -

引用なし
パスワード
   ▼ハチ さん:
>▼レラ さん:
>>バーコードで在庫管理するためのVBA作成中です。アルファベットと数値で表示されているバーコードをデータ型変換関数で機能させたいのですが、あてはまるものがわかりません。
>
>なぜ、データをDouble型に変換したいのか? が良くわかりません。
>変換しないとVlookupがうまく機能しないということですか?

変換しないとVlookupがうまく機能しませんでした。他に良い方法があれば教えてください。よろしくお願いいたします。

【57756】Re:データ型の変換
質問  レラ E-MAIL  - 08/9/12(金) 9:51 -

引用なし
パスワード
   ▼ハチ さん:
>▼レラ さん:
>>バーコードで在庫管理するためのVBA作成中です。アルファベットと数値で表示されているバーコードをデータ型変換関数で機能させたいのですが、あてはまるものがわかりません。
>
>なぜ、データをDouble型に変換したいのか? が良くわかりません。
>変換しないとVlookupがうまく機能しないということですか?

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

質問の仕方がわるくてすみません。

【57757】Re:データ型の変換
発言  ハチ  - 08/9/12(金) 10:25 -

引用なし
パスワード
   ▼レラ さん:
実際のデータを見れない為、勘で書きます。

Range("商品一覧")の13ケタのコードの部分が、
Sampleで作成される A1のようになってませんか?
なっているのであれば案としては・・・
案1.
Range("商品一覧")のデータを文字列に書き換える。
案2.
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

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