ちょっと変わったマニアな作品が集結

こんにちは。おしえてやってください。

いま、たくさんの統計データを処理しなくてはならないのですが、その中でJAN13コード(普通のバーコード)の「数字だけ」が印字された紙データが膨大にあってそれを、処理する必要があることがわかりました。EXCELやACCESSなどにその数字だけを入力すればいいのですが、50000行くらいのデータなので、13桁をひたすら打ち込ことは考えられません。ミスの可能性大です。

そこで、ペンのようなスキャナでその13桁の数字をなぞれば、CSVなどのセルにデータがどんどん入ってくれるというような便利なものを探しています。

記録されているのは次のような感じです。
==============================================================
125 |4990123456789| Baccesirの絵本| 630|・・・・
126 |4990234567890| Baccesirの鉛筆| 126|・・・・
==============================================================

よろしくおねがいします。

このQ&Aに関連する最新のQ&A

A 回答 (5件)

#1です。


 条件が難しいですね。
 読み取りたい文字がOCRフォントでかつ左右上下に誤読しないのであれば次のような製品が使えるかもしれません。
http://www.denso-wave.com/ja/adcd/product/ocr/gt …
http://www.denso-wave.com/ja/adcd/product/ocr/bh …
ただし、読み込んだ数字をデータベースにエントリーする等は別途ソフトが必要と思われます。
 他にも探せばあるかもしれませんが汎用品としては多分無いのではと思います。
 またバーコードであればチェックデジットがあり誤読取が起きにくいですが、文字直接だと誤読み取りをチェックする方法を別途検討する必要があるでしょう。
 #3さんがおっしゃるように外注でやってもらうか、あるいは上記の様なシステムをコストをかけて開発する必要があるのではと思います。
    • good
    • 0

必要なのはスキャナ+OCRソフトです。



スキャナの形はどんなのでもいいです。
A4用紙とかに印刷されたもので大量にあるなら、#1の方の回答にあるようなドキュメントスキャナ使うのが最も手軽で速いでしょう。
(写真等を精密に取り込むにはフラットヘッドスキャナの方が有利)

フラットヘッドスキャナと聞いて紙を丸ごと全て取り込むというイメージ持っているようですけど、読む範囲は指定出来ます。
更にOCRソフトでは何処に何が書いてあるかというフォーマットが決まりきっているものなら、一度設定すれば、Excelのセルへの入力やCSVデータとして書き出しも自動的にしてくれるものあります。

データがあっちこっちに散らばっているなら貴方の考えているようならペン型の方がいいかもしれませんが、今回のはフォーマット決まっているようですから、普通のスキャナ+ORCソフトで十分対応可能です。
欲しい列だけ読み取るように設定するか、もしくは全部読んでもExcelでその列だけコピーすればいいのでは。

ORCは様々なソフトあるから、体験版で試してみて購入しては。
スキャナにも一部機能限定されていたりするけど付属しています。
↓一例)
http://panasonic.co.jp/pss/pstc/products/yomikaku/
    • good
    • 0

訂正です。


回答no.2のdos2000です。
質問を一部読み違えておりました。
すいません。
数字だけの出力データの場合だと
No.1と同じようにスキャナーを用いる以外には
なかなか難しいです。
動作についてですが、
ペンスキャナーの読取

解析

結果

変換
となりますので、1枚1枚の伝票を読み取る場合は
かなり時間がかかります。
枚数がかなりあるようでしたら、入力専門会社に依頼したほうが
確実に仕上がるかと存じます。

参考URL:http://search.yahoo.co.jp/search?fr=slv1-yjmsg&p …
    • good
    • 0

バーコードデータを読み取るには


バーコードリーダーを用いるのが
一番かと存知ます。

スーパーやコンビニにおいてある
ハンディ型のバーコードリーダーなら
Baccesir様が望んでいるバーコードの
読取が可能となります。
あとは、ACCESSで紐付けのデータで
クエリやVBを用れば、統計データの
集計が楽になるかと思います。

他のサイトでも検索する場合のキーワード
USB バーコードリーダー
で検索してみてください

参考URL:http://www.rakuten.ne.jp/gold/sr-inc/
    • good
    • 0

http://scansnap.fujitsu.com/jp/product/
のようなスキャナを使って紙ごと読み取りOCRソフトを使ってExcel等に落とし、データベースへインポートする方法は使えないでしょうか?
(スキャナはフラットベッドのものでも良いですし、複合機のスキャナ機能を使用してもかまいません。上記はフィーダーが便利と思って例示しただけです。)

 OCRで変換後の整形に多少手間を取られると思いますが。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
できれば、バーコードのように読み取ってくれるものが、よいのです。

ノートパソコンを利用して、伝票の必要箇所だけを取り出したりする必要があるものですから。
伝票をまるごと読み取ると、その後大量のデータから必要なものと必要でないものの選別を整形後にする必要がでてくるので、どうしてもバーコードのようにスキャンできるものを探しているのです。
そうじゃないと、直接13桁入力したほうが速いということになってしまうので。

引き続きご指導いただければとおもいます。

お礼日時:2007/12/01 12:07

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

QEXCEL VBA で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

>現在開いているブックのファイル名
 ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

 しかし、
>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

QEXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

メインプログラム(EXCEL VBA)より、
他のフォルダーにあるEXCELの項目の内容を取り込みたいです。
たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。

・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(?)は、表示はできてます。
・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。

・となると次はOPEN,INPUTですか?
テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。

よろしくお願いします!

Aベストアンサー

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む

readBook.Close False ' 相手ブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む

Q手書き・印刷物を読み込みエクセルに書き出しできるソフト

ソフトを探しています。
手書きや印刷物を判別して、エクセルに書き出しできるような内容のものです。
エクセルにおとしてから、加除訂正をしたいと思っています。

自宅に複合機があるのでスキャナは利用できます。
このような作業をするのに適しているお勧めのソフトがあれば教えてください。

使用方法も具体的に示してくださると助かります。
どうぞよろしくお願いいたします。
この質問内容で不十分であれば追記いたします。

Aベストアンサー

> 自宅に複合機があるのでスキャナは利用できます。

であれば、その複合機に付属のOCRソフト(文字認識ソフト)を使ってみてください。
操作法は取説とヘルプに詳しく載っています。

一度おやりになれば分かりますが、OCRソフトの認識率は高くなったと言う宣伝の割には誤字が多く、新しく入力した方が早いと言うのが私の認識です。

実際におやりになって、その上で分からない部分を具体的にご質問されるとお知りになりたい内容の回答が得られると思います。

その場合はご使用のPCの機種名、複合機の機種名、OCRソフトの名前とVer.を記載されると的確な回答が得られると思います。

QEXCEL VBAから他アプリケーションを操作することは可能ですか?

こんばんは。

VBAの本を購入し勉強していますが、VBAと他アプリケーションとの連携について記載が少なく(txtやcsvファイル操作)、どこまで出来るんだろうという不安があり質問しました。

(1)EXCEL VBAから他アプリケーションを起動し、設定操作、命令を送り操作することは可能でしょうか?
イメージとしては他アプリに一方的に命令を送り操作できれば良しです。(アプリ側からのリターン要求はしません。)

(2)第2の質問です。
VBAで他アプリを起動した状態で人が操作している感覚でマウスを操作できますか?(利用方法:他アプリの●ボタンを押したい!!)
目の前にソフトがあるのに触る操作は出来ないものでしょうか?
いろいろ調べて見ましたが、この様な事例はありません。
駄目元ですが、こんな操作を知っていましたら教えてください。
こんな操作ができればいいな~

Aベストアンサー

#2,4 です。

> EXCEL2000内の特定のセルに規定値外のデータが入力された場合に
> UWSCを起動して...

UWSC のスクリプトが完成しているとすれば、起動オプション付きで
バッチ処理すれば良いでしょう。実行タイミングは、シートまたは
ThisWorkbook の Change イベントが使えます。

例)シートモジュール

Private Const EXE_PATHNAME As String = "C:\Program Files\uwsc\uwsc.exe"
Private Const DQ      As String = """"

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim rChange   As Range
  Dim sCommand  As String
  Dim sScriptFile As String

  ' // 実行する UWSC スクリプト
  sScriptFile = "C:\sample.uws"
  ' // UWSC の起動オプションは UWSC のヘルプを参照
  sCommand = DQ & EXE_PATHNAME & DQ & " " & _
        DQ & sScriptFile & DQ
  
  ' // 変更されたのが単一セルかつ A 列でなければ終了
  If Target.Cells.Count > 1 Then Exit Sub
  Set rChange = Intersect(Target, Columns("A"))
  If rChange Is Nothing Then
    Exit Sub
  End If
  
  ' // さらに値が TEST だった場合のみ実行
  If rChange.Value = "TEST" Then
    Shell sCommand, vbNormalFocus
  End If

End Sub

#2,4 です。

> EXCEL2000内の特定のセルに規定値外のデータが入力された場合に
> UWSCを起動して...

UWSC のスクリプトが完成しているとすれば、起動オプション付きで
バッチ処理すれば良いでしょう。実行タイミングは、シートまたは
ThisWorkbook の Change イベントが使えます。

例)シートモジュール

Private Const EXE_PATHNAME As String = "C:\Program Files\uwsc\uwsc.exe"
Private Const DQ      As String = """"

Private Sub Worksheet_Change(ByVal Target As Range)

  ...続きを読む

Q紙の内容をEXCELに変換する方法

よいアイデアをお持ちの方、ぜひお力添えください。

私の目の前に、プリントアウトされたA4サイズの紙があり、表面・裏面に「Word」の
ようなもので以下のようなアンケート結果が掲載されています。
============紙の内容====================

〔日付〕    2011/10
〔項目名〕   接客
〔内容〕    店員は好感があったが玄関が片付いていなかった。
〔キーワード〕 ゲンカン キタナイ
---------------
〔日付〕    2011/11
〔項目名〕   料理
〔内容〕    明太子パスタの味が濃かった。
〔キーワード〕 パスタ コイ
---------------
〔日付〕    2011/12
〔項目名〕   デザート
〔内容〕    フルーツの盛り合わせはとても新鮮だった。
〔キーワード〕 フルーツ シンセン
---------------
〔日付〕    2011/09
〔項目名〕   料理
〔内容〕    マルゲリータの味が塩辛かった
〔キーワード〕 ピザ コイ
---------------
(以下、同様の形態で掲載が続く・・・)
=====================================================
これをEXCELに変換したいのですが、いい方法をご存知の方、教えていただきたく、
お願いします。
(「〔日付〕」で1セル、「2011/10」で1セル、・・・になればと思っています)

スキャナ読み込み→PDFに変換→OCRでテキストをコピーしEXCELに貼り付け
としてみましたが、貼り付けた後の作業が大変で・・・。
(スキャナは富士ゼロックスの複合機「Apeos」を使用しています)
PDFからEXCELへの変換ソフトを使わない方法があれば一番良いのですが、
使用する場合、一度紙で出力されたものでもうまくいくものでしょうか。
うまくいくソフトをご存知の方、このあたりもぜひ教えていただきたく、お願いします。

よいアイデアをお持ちの方、ぜひお力添えください。

私の目の前に、プリントアウトされたA4サイズの紙があり、表面・裏面に「Word」の
ようなもので以下のようなアンケート結果が掲載されています。
============紙の内容====================

〔日付〕    2011/10
〔項目名〕   接客
〔内容〕    店員は好感があったが玄関が片付いていなかった。
〔キーワード〕 ゲンカン キタナイ
---------------
〔日付〕    2011/11
〔項目名〕   料理
〔内容〕    明太子パスタの味が濃かった。
...続きを読む

Aベストアンサー

私の職場でも富士ゼロックスの複合機を導入しております。
付属品だったのか、別売だったのかはわかりませんが、
富士ゼロックスの「DocuWorks」というソフトも同時に利用することになり、
このソフトのOCRの機能を利用して、テキストに変換することができます。
もしこのソフトが眠っているのなら活用をおすすめします。
「Apeos」なら操作パネルに読み取り形式を選択できるボタンがあって、
PDFではなくDocuWorks形式で保存できると思うので、
DocuWorks形式で読み取りすれば、
このソフトのOCR機能を利用してテキスト変換が可能となります。
残念ながら直接EXCELに変換する機能はないようです。
テキスト変換さえできればEXCELで編集が可能となります。
私の場合は
シート1で「区切り位置」の機能を利用してひとつのセルに入っている文字を
複数のセルに分割したり、
「置換」で不要なスペース等を除いたりした後に
「フィルタ」を利用して項目ごとに情報を絞り、表示された結果を、
シート2にそれぞれ貼り付けして表形式に整えるという操作になります。
雑な説明なうえ、地味な操作なのでよいアイデアとは言えませんが、
参考になれば幸いです。

私の職場でも富士ゼロックスの複合機を導入しております。
付属品だったのか、別売だったのかはわかりませんが、
富士ゼロックスの「DocuWorks」というソフトも同時に利用することになり、
このソフトのOCRの機能を利用して、テキストに変換することができます。
もしこのソフトが眠っているのなら活用をおすすめします。
「Apeos」なら操作パネルに読み取り形式を選択できるボタンがあって、
PDFではなくDocuWorks形式で保存できると思うので、
DocuWorks形式で読み取りすれば、
このソフトのOCR機能を利用してテ...続きを読む

QExcelの Microsoft バーコードコントロール 14.0

ExcelのVBAを使って、バーコード、下記のようなデータを入れたら、
画面上にバーコードを表示、と同時に印刷をして、バーコードリーダーで
読み取ることを可能にしたいと考えております。

データ: 「123456789012」 12桁の数値

セルに12桁の数値を入れて、適当なボタンを押すと、数値の入ったセルの下方に
バーコード表示させる、といったイメージです。

PCには、Microsoft バーコードコントロール 14.0が入っておりました。
これを選択すると、マウスが+になり、シート上でクリックすると
確かにバーコードが現れるのですが、不明なデータです。
どこをどのように変えれば、データが変わるのかも、よくわかりません。

結局、「Microsoft バーコードコントロール 14.0」の使い方がわかっていないのです。
宜しく、ご教示願います。

Aベストアンサー

Sub macro1()
Dim o As OLEObject
  With Cells(2, 1)
    Set o = ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", _
          Link:=False, DisplayAsIcon:=False, _
          Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
    o.LinkedCell = .Offset(-1).Address
  End With
End Sub

Q「いずれか」と「いづれか」どっちが正しい!?

教えて下さいっ!
”どちらか”と言う意味の「いずれか」のかな表記として
「いずれか」と「いづれか」のどちらが正しいのでしょう???

私は「いずれか」だと思うんですが、辞書に「いずれか・いづ--。」と書いてあり、???になってしまいました。
どちらでもいいってことでしょうか?

Aベストアンサー

「いずれか」が正しいです.
「いづれ」は「いずれ」の歴史的かな遣いですので,昔は「いづれ」が使われていましたが,現代では「いずれ」で統一することになっていますので,「いずれ」が正しいです.

Q添付ファイルの拡張子がemlとなっているファイルの開け方

最近友人よりの添付ファイルの拡張子がemlとなっている為、開くとワードパット
で開いてしまい、文字化けして読めません。
ワードやエクセルにて読めるようにしたいのですが?
どうしたらよいのでしょうか?
当方IE5.5使用 OSはMEです。

Aベストアンサー

>添付ファイルの拡張子がemlとなっている為

Winodws98の方法ですがMeでもいけると思います。

1.このファイルを一旦、デスクトップとかに保存して
2.そのファイルを「Shift」キーを押しながら右クリック→「アプリケーションから開く」をクリック
3.Outlook Expressを選択
 一覧に無い場合は、「参照」をクリックして
 C:\Program Files\Outlook Express\msimn.exe
 を選択します。
4.「この種類のファイルを開くときは、いつも
   このアプリケーションを使う」のチェックを入れます

QSub ***( ) と Private Sub ***( ) の違い

初歩的な質問で申し訳ありませんが・・・

自分でコードを書いていても、イベントが発生したりした時の処理で、コードのウィンドウで上のドロップダウンリストで選択できる時の処理などは自動的に[Private Sub Command1_Click( )]などと出てくるのでそのまま使っています。自分で別途プロシージャーを作成する時は[Sub ****( )]としています。
ですがその違いを理解しないまま、自分で作成する時は[Private Sub]ではなくて[Sub]を使っています。

Sub ***( ) と Private Sub ***( ) の違いは何なんでしょうか?
どなたか説明頂けませんか?
よろしくお願いします。

Aベストアンサー

「Sub」の部分にカーソルを置いて[F1]を押せばヘルプが起動します。
「指定項目」のところに「Public」と「Private」の説明がありますよ。
省略して「Sub hogehoge()」とした場合は「Public」とみなされます。

Publicは「すべてのモジュールから呼び出せるプロシージャ」ということになります。
Privateとすると「同じモジュールの中からしか呼び出せないプロシージャ」となります。

もしExcelをお持ちでしたらExcelのVBEで標準モジュールを追加し、「Sub Test1()」と「Private Sub Test2()」を作成してみてください。
そしてExcelの[ツール]-[マクロ]-[マクロ(Alt+F8)]でマクロ実行のダイアログを表示させてみるとわかります。
ここには実行できるプロシージャの一覧が表示されますが、Test1は表示されているけれどTest2は表示されません。
Test1はPublicで、Test2はPrivateだからです。


人気Q&Aランキング