今晩は,いつも勉強させていただいております.
質問させていただきます.どうぞよろしくお願いいたします.

 テキストファイル(ほとんどが自作のFortranコードで,英語と日本語のみで
ございます)を読み込みたいのですが,全角文字の読み込み
(下記コードになります)で文字化けいたします..
 Dim SR As New System.IO.StreamReader(FileName, System.Text.Encoding.GetEncoding(51932))
  '↑ここのエンコード(?)が怪しいのでは,などと考えている次第です.
 Dim text As String = SR.ReadToEnd()
 MsgBox("/" & text & "/")
   '↑「text」が化けます...

 エンコード(?いまいち理解しておりませんorz)の種類がおかしいのでは,
というところまでなんとか行き着きまして,色々と検索いたしておりますと
 http://www.atmarkit.co.jp/fdotnet/dotnettips/013 …
にまとめてくださっておりましたので,思いつく数字を「51932」の代わりに
入れてみましたが,どれも全角文字が文字化けいたします..
「0 shift_jis 日本語 (シフト JIS) 」
「932 shift_jis 日本語 (シフト JIS) 」
「1200 utf-16 Unicode 」
「51932 euc-jp 日本語 (EUC) 」「1200 utf-16 Unicode 」

 もしかすると別の部分に問題があるのかもしれませんが..
調べておりますと,
http://dobon.net/vb/bbs/log3-25/15325.html
などよく似た症状なのですが,真似いたしましても解決いたしませんでした・・
 もし,日本語と英語のテキストファイルすべてに通用するようなお勧め
エンコード方法のようなものがございましたら,ご紹介いただきたくお願い申し上げます.

 お詳しい方がいらっしゃいましたら,是非ともアドバイスいただきたく
どうぞよろしくお願いいたします

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

A 回答 (2件)

試していないエンコードのうち、可能性が高そうな順で。

。。

65001utf-8Unicode (UTF-8)
1201unicodeFFFEUnicode (Big-Endian)
50220iso-2022-jp日本語 (JIS)
20932EUC-JP日本語 (JIS 0208-1990 and 0212-1990)
10001x-mac-japanese日本語 (Mac)

エンコードが分からなくなった時の我流の調べ方
1. バイナリを見て判断。
2. ブラウザで開いて正しく表示されるエンコードを探す。
3. メモ帳で開いて文字化けしなければ「名前を付けて保存」の文字コードを確認。

あと、お気づきかもしれませんが、コードページ 0 は、システムの既定のエンコードです。Windowsが日本語版だからこそshift_jisになっているだけですので 0 = shift_jis と覚えないようにご注意を。

おすすめのエンコード。。。
私がよく使うのは、Unicode(UTF-16), UTF-8, Shift_JISあたりですかね。XMLやHTMLはUTF-8で書くことがほとんどです。

どーでもいい話ですが、気になったのでVisual Studio 2005のコードを見てみたらVB(*.vb)はShift_JIS、C#(*.cs)はUTF-8でした。
なぜ違うのだろう。。。(?_?)
    • good
    • 0
この回答へのお礼

 どうもありがとうございます!!m(_ _)m

>可能性が高そうな順で。。。
>65001 utf-8 Unicode (UTF-8)
ビンゴでございます^^b

>2. ブラウザで開いて正しく表示されるエンコードを探す。
あ.確かにMsgBoxの表示と同じ化け方になりました.
>3. メモ帳で開いて文字化けしなければ「名前を付けて保存」の文字コードを確認。
なんとメモ帳の保存時に出ていたんですね.今まで気付きませんでした^^;
どうもありがとうございます!

>あと、お気づきかもしれませんが~
> 0 = shift_jis と覚えないようにご注意を。
今知りました!w 覚えます!(`-´ゞ

>よく使うのは、Unicode(UTF-16), UTF-8, Shift_JIS
どうもありがとうございます!!助かります!
>VB(*.vb)はShift_JIS、C#(*.cs)はUTF-8でした
と併せて考えても,今後読み込むソースファイルに応じてエンコード方法を
変える必要があるということですね・・実際,UTF-8にしてから
他のファイル(日本語文書)が読めなくなりました・・orz 
今後のためにプログラム側からエンコードを知る方法が何かあれば良いのですが・・

 色々とアドバイスいただきまして,どうもありがとうございました!!
とりあえず今からFormの上にエンコード種類のコンボボックスを追加します^^;
どうもありがとうございました!!!!

お礼日時:2009/12/07 00:42

とりあえず、今のテキストファイルのエンコードの種類見てみれば


よろしいかと。

自分がよくやるのは
エディタ(秀丸等)で開いて「エンコードの種類」を見て判断しています。

エディタ(秀丸等)で開いたとき、エンコード失敗のエラーが出たら、
ファイルのフォーマット異常の可能性も判断できますし。

ただ、あらかた、試しているようなので、
残りの可能性は utf-8 くらいしかない気がする。
    • good
    • 0
この回答へのお礼

 どうもありがとうございます!!
秀丸で確認してみましたところ,utf-8でございました.
No.2氏からもutf-8の番号をご紹介いただけておりましたので
試してみましたところ,読めるようになりました^^
・・しかしFortlanコード以外の普通の文書が読めなくなりました orz
この続きはまた検索して頑張ってみます.

>エディタ(秀丸等)で開いたとき、エンコード失敗のエラーが出たら、
>ファイルのフォーマット異常の可能性も判断できますし。
 存じませんでしたm(_ _)m 勉強になります.どうもありがとうございます!

 この度はご閲覧・アドバイスいただきましてどうもありがとうございました.
ありがとうポイントですが,No.2氏からお勧めエンコードも詳しく
ご紹介いただけましたのでNo.2氏に優先して付けさせていただきます.
 また見かけたらどうぞ助けてやってくださいm(_ _)m
この度はおかげで助かりました.^^どうもありがとうございました!!

お礼日時:2009/12/07 00:45

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

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

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

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

Q文字化けって英語で・・・? 

仕事で外国からのメールを受ける事がしばしばありますが、
時々名前などが文字化けしているメールを受け取ります。
本文は英語で書いてくれているのでいわんとすることは分かるのですが、
文字化けでお名前がわからないということなどを相手に伝えたいときは
英語ではどのように表現するればよいでしょうか?
また、文字化けとは英語でどういうのでしょうか?

Aベストアンサー

文字化けそのものを知っている相手(1 バイト文字の国の人)には "The page turned into garbage." と言いました。うちの会社だけだったかもしれませんが (^^;;
aqua さんが書かれているように、相手も 2 バイト文字の国の人でしたら、"Japanese fonts don't support the characters at the bottom of your e-mail. Would you mind writing it in English?" など、「日本語のフォントでは対応していない文字です。」と伝えてはいかがでしょうか。

Qテキストファイルの文字化けに関して

こんにちは。
VB.netに関しての質問なのですが、

現在、ファイルを読み込み、別ファイルに出力するという処理をしているのですが、
読み込み時点で文字化けをしている場合は出力処理をしないようにしようと思うのですが、
文字化けしているかを判断するにはどうしたらいいでしょうか?

また、ファイルの一部が文字化けしているということはあるのでしょうか?

ちなみに、読み込みファイルはShift_JISです。

ご存知の方がいましたら、よろしくお願い致します。

Aベストアンサー

>ご存知の方がいましたら
に入らないかもしれないが、考え方の整理にでもなれば幸い。
論点がずれているようならご勘弁を。
(1)書き出す方の文字コード体系と読むソフトの(予定している)文字コードとの食い違い問題
  1文字の文字コードの長さ(1バイト、2バイト、可変など)
  文字コードの使用領域(に共通領域がある)
  ユーザー使用領域(外字)
  OSのレコード区切り文字のバリエーション(WIN、MAC,UNIX)
(2)ファイルを作る側で、プログラムのミス。文字コード認識のミス。
(3)ファイルを作るうえで、ファイルの情報に、使用文字コードが入っていない。
   入っていても、中身と違うミスは起こりえる。
ファイルのAttributeに使用文字コードは無かったですよね。
   大型機のファイルラベル的な仕組みがパソコン関連では絶対条件でないよう(大型機のファイルにあるということではないが)。口ずたえや文書で、「読み込みファイルはShift_JISです。」が伝わる危うさ。
各OSは全提となる文字コードがあるので、自分で作り、使う文意は気にする必要は少なく、つい注意がおろそかになる。
国際的に国内も色々なソフトやデータや画像などがパソコン間を行きかう・通信されるようになると、問題が浮かび上がる。
(4)処理プログラムのミス(書く・読む両方ありえる)
  や文字コードを指定するコードの選択ミス。  
これもありえる事態である。
こういうことから文字化けが起こるのかな。
ーー
文字コードの共通領域があれば(無ければスペースとかで)、なんらかに表示や印刷するのじゃないですか。
人間が見てやっとおかしいと気づくのではないですか。
データに意味のチェックまで持ち込んだチェックは複雑だと思います。漢字変換、英語語句区切りでもやって、辞書に見つからない語句が頻出すればおかしいとか蓋然性の話になるし、数値データなどできないし。
>判断するにはどうしたらいいでしょうかー>不可能
>一部が文字化けしているということはあるのでしょうか?
ー>ありえる。

>ご存知の方がいましたら
に入らないかもしれないが、考え方の整理にでもなれば幸い。
論点がずれているようならご勘弁を。
(1)書き出す方の文字コード体系と読むソフトの(予定している)文字コードとの食い違い問題
  1文字の文字コードの長さ(1バイト、2バイト、可変など)
  文字コードの使用領域(に共通領域がある)
  ユーザー使用領域(外字)
  OSのレコード区切り文字のバリエーション(WIN、MAC,UNIX)
(2)ファイルを作る側で、プログラムのミス。文字コード認識のミス。
...続きを読む

Q.htaccessもmetaもEUC-JPなのにブラウザから自動判別されない。

PHPで
.htaccessもinternal_encoding, http_outputをEUC-JP
としたし、metaタグも書いてEUC-JPとしたのに、
ブラウザから文字のエンコードが正しく自動判別されず、
Unicodeになってしまって、文字化けしてしまいます。
なぜなのでしょうか?
どうしたら正しく判別されるようにできるのでしょうか?
よろしくお願いいたします。

Aベストアンサー

>.htaccessも

の意味がわかりませんが、

header("Content-Type:text/html;charset=euc-jp");
をつけてみては?

QVB テキストファイルから1文字だけ読み込みたい

1.txtの中身が

01110
10100

であったとします

open "1.txt" for input as #1
でファイルを開いて、

dim readin(10) as integer
に対して、
readin(0)=0
readin(1)=1
readin(2)=1
・・・   =1
     =0
     =1
     =0
readin(7)=1
readin(8)=0
readin(9)=0
というように、整数の配列にテキストの中にある0と1を代入したいのですが、どうすればよいのでしょうか。

検索をしても、line input のように行で読み込むものや、項目の間にスペースの区切りが必要なものが出てきます。

テキストの中身をスペースで区切る、もしくはlineinputでバッファ変数に読み込んだあと、leftなどでバッファから読み込むことも出来そうですが、それは最終の手段としておいておいて、
一回の操作で直接1文字のみ読み込む方法があれば教えてください。

Aベストアンサー

char = Input(1, #1)

で1文字読み込みができます。

ただし、キャリッジ リターン (Chr(13))、ライン フィード (Chr(10))なども1文字として読み込みますので、それらの文字は無視する必要があります。

Qテキストエディターの文字化け

素人の者です。
これまで、PHPのプログラムの書き込みをSJISで行ってきましたが、どうもネット上を調べているうちにSJISはあまり使わないほうが良いようなことが書いてあったので、UTF-8で書くことにしようと思いました。そして、UTF-8で書いていてWEB上は特に問題なく文字化けもせず表示されるのですが、テキストエディターで再度ファイルを開くと、テキストエディター内で文字化けしていることがあります。メモ帳で開くときはファイルの文字コートをUTF-8に指定すれば文字化けしません。サクラエディターで開けば、何もしなくても文字化けしません。php_editor_stdで開けば、文字化けします。ez-HTMLで開けば、文字化けします。???とこんな具合です。テキストエディターを開くときにエンコードを指定して開けば、文字化けはしないであろうと考えて、設定の部分を色々と探していじってみても、文字化けの現象は変わりません。SJISですと、ダメ文字とかあるのでやはり切り替えていったほうが良いと思い試している最中です。テキストエディターで文字化けした場合、どのようにすれば解消するのかお分かりになる方がおりました教えていただけないでしょうか。よろしくお願いいたします。

素人の者です。
これまで、PHPのプログラムの書き込みをSJISで行ってきましたが、どうもネット上を調べているうちにSJISはあまり使わないほうが良いようなことが書いてあったので、UTF-8で書くことにしようと思いました。そして、UTF-8で書いていてWEB上は特に問題なく文字化けもせず表示されるのですが、テキストエディターで再度ファイルを開くと、テキストエディター内で文字化けしていることがあります。メモ帳で開くときはファイルの文字コートをUTF-8に指定すれば文字化けし...続きを読む

Aベストアンサー

各テキストエディタは、自動的に文字コードを判別して出力しているため、日本語の文字がファイルの最後のほうにあったりすると、正常に文字コードを取得できず、別の文字コードで開いて文字化け表示するという場合があります。
回避策としては、ファイルの先頭に日本語のコメントを残すというものがあります。
<?php
//ああああああああ

?>
このようにしてやれば、開いたファイルの先頭のほうに日本語の文字が入ってますので、自動判別の精度があがりますので、一度試してください。

また、エディタで保存するとき、サクラエディタなどは、保存形式として、「UTF-8N(または、UTF-8(BOM無し))」などという形式があると思います。
PHPのスクリプトを書く際は、このUTF-8Nとか、「BOM無し」と記載されているほうで保存してください。そうしないと、ファイルの先頭に、BOMというUTF-8識別用の変な(画面上表示されない)バイナリがくっ付いてしまい、後々問題があったりします。

QExcel VBA読み込みで文字化けが

Excel VBAにてメールデータを読み込むプログラムを組んでいます。
データの作り方は、
(1)Mozilla Thunderbirdでメールデータをtext形式で保存
(2)VBAにてtextデータを開く。

しかし読み込みを行うと、文字化けしたデータが表示されてしまいます。

どのように解決したらよいのでしょうか?
文字コード変換を行ってもダメでした。

Sub Read_mail_data()
Const cnsTITLE = "テキストファイル読み込み処理"
Const cnsFILTER = "全てのファイル (*.*),*.*"
Dim xlAPP As Application ' Applicationオブジェクト
Dim intFF As Integer ' FreeFile値
Dim strFileName As String ' OPENするファイル名(フルパス)
Dim vntFileName As Variant ' ファイル名受け取り用
Dim strREC As String ' 読み込んだレコード名
Dim GYO As Long ' 収容するセルの行
Dim lngREC As Long ' レコード件数カウンタ

' Applicationオブジェクト取得
Set xlAPP = Application
' 「ファイルを開く」のダイアログでファイル名の指定を受ける
xlAPP.StatusBar = "読み込むファイル名を指定して下さい。"
vntFileName = xlAPP.GetOpenFilename(FileFilter:=cnsFILTER, Title:=cnsTITLE)
' キャンセルされた場合はFalseが返るので以降の処理は行わない
If VarType(vntFileName) = vbBoolean Then Exit Sub
strFileName = vntFileName

' FreeFile値の取得(以降この値で入出力する)
intFF = FreeFile
' 指定ファイルをOPEN(入力モード)
Open strFileName For Input As #intFF
GYO = 1
' ファイルのEOF(End of File)まで繰り返す
Do Until EOF(intFF)
' レコード件数カウンタの加算
lngREC = lngREC + 1
xlAPP.StatusBar = "読み込み中です....(" & lngREC & "レコード目)"
' 改行までをレコードとして読み込む
Line Input #intFF, strREC
' 行を加算しA列にレコード内容を表示(先頭は2行目)
GYO = GYO + 1
' 文字コードを変換する
'StrConv(strREC, vbFromUnicode) = a
Cells(GYO, 1).Value = StrConv(strREC, vbFromUnicode)
Cells(GYO, 1).Value = StrConv(strREC, vbFromUnicode)
Cells(GYO, 1).Value = StrConv(strREC, vbFromUnicode)
Cells(GYO, 1).Value = StrConv(strREC, vbFromUnicode)
Cells(GYO, 1).Value = StrConv(strREC, vbFromUnicode)
Cells(GYO, 1).Value = StrConv(strREC, vbFromUnicode)
' セルにデータを書き込む
'Cells(GYO, 1).Value = strREC
Loop
' 指定ファイルをCLOSE
Close #intFF
xlAPP.StatusBar = False
' 終了の表示
MsgBox "ファイル読み込みが完了しました。 " & vbCr & "レコード件数=" & lngREC & "件", vbInformation, cnsTITLE

End Sub

Excel VBAにてメールデータを読み込むプログラムを組んでいます。
データの作り方は、
(1)Mozilla Thunderbirdでメールデータをtext形式で保存
(2)VBAにてtextデータを開く。

しかし読み込みを行うと、文字化けしたデータが表示されてしまいます。

どのように解決したらよいのでしょうか?
文字コード変換を行ってもダメでした。

Sub Read_mail_data()
Const cnsTITLE = "テキストファイル読み込み処理"
Const cnsFILTER = "全てのファイル (*.*),*.*"
Dim xlAPP As Application ' Applicationオ...続きを読む

Aベストアンサー

文字化けの原因が文字コードのためだと・・仮定して。
Ado.Stream で読み込んだらどうなりますかね。

Sub testAdoStream()
Dim objStrm As Object
Dim strTmp As String
Dim i As Integer
Const ReadLine As Integer = -2, ReadAll As Integer = -1
Set objStrm = CreateObject("ADODB.Stream")

With objStrm
.Charset = "ISO-2022-JP"
.LineSeparator = -1 'CR=13, LF=10, CRLF=-1
.Open
.LoadFromFile "D:\ThunderbirdMAIL.txt"
End With

Do Until objStrm.EOS
i = i + 1
Cells(i, 1) = objStrm.ReadText(ReadLine)
Loop
objStrm.Close: Set objStrm = Nothing
End Sub

なお、Charset の "ISO-2022-JP" はあてずっぽうです。
Thunderbird は使ったことが有りませんので、ここまで。

文字化けの原因が文字コードのためだと・・仮定して。
Ado.Stream で読み込んだらどうなりますかね。

Sub testAdoStream()
Dim objStrm As Object
Dim strTmp As String
Dim i As Integer
Const ReadLine As Integer = -2, ReadAll As Integer = -1
Set objStrm = CreateObject("ADODB.Stream")

With objStrm
.Charset = "ISO-2022-JP"
.LineSeparator = -1 'CR=13, LF=10, CRLF=-1
.Open
.LoadFromFile "D:\ThunderbirdMAIL.txt"
End Wit...続きを読む

Q文字化けの解読方法について

機種はWin.xpを使っています。
gooメールの文字化けについて教えて下さい。
オークションのやり取りで、受信メールが文字化けしてしまい、読めません。相手にもう一度お願いしたのですが、また文字化けしています。相手は全て読めている様子。
解読方法はありますか?
今までHTML形式、テキスト形式の違いを知らないままHTML形式でメールをやっていました。
今まで文字化けする事は1度もなく初めてです。
流れとして、HTML形式で私から送信しReで相手が返事をくれた(これは読めました)そして私が再Reで送る時テキスト形式に変更して(意味もわからず)送った、その後の返事から文字化けがはじまりました。

Aベストアンサー

3番です。

まずこちらのページを開きます。
http://www.geocities.jp/belden_dr/ToolMBaker.html

そのページの「(3) ダウンロード」の少し下にある「Download MBaker2V2081.lzh」をクリックし、指示に従い、デスクトップなどにダウンロードします。

そのファイルを解凍します。
解凍の方法はこちら。
http://oshiete1.goo.ne.jp/qa656674.html

解凍してできあがったファイルをダブルクリックするとソフトが立ち上がります。

文字化けしたメールを開き、文字化けした部分全体を選択してコピーします。

文字化け解読ソフトの窓の上で右クリックし、貼り付けを選択すると、文字化けしたままの状態で張り付きます。

ツールバーにある「AUTO」「JIS1」などのアイコンを順に押してみると、どれかで見事に文字化けが解消する(はずです)

以上です。

QExcelVBAのマクロを使ってテキストファイルの文字を読み込む

お世話になります

表題のとおりなのですが、ExcelVBAのマクロを使ってテキストファイルの文字を読み込むマクロの書き方を探しています。
具体的には、ExcelVBAで作ったボタンを押すと、あるテキストファイル(TEST.txt)に書かれている文字列をExcelVBAで取得して、それをセルに表示させるものです。

VBA関連のサイトがあまり無く困っています、宜しくお願いします。

Aベストアンサー

おはようございます。
こんなのではだめでしょうか。

Private Sub CommandButton1_Click()
Dim myTxtFile As String
Dim myBuf(セルの行数) As String
Dim i As Integer, j As Integer

Application.ScreenUpdating = False

myTxtFile = ActiveWorkbook.Path & "\TEST.txt"

Worksheets("sheet名").Activate

Open myTxtFile For Input As #1

Do Until EOF(1)

Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4)・・・・セルの行数分

i = i + 1
For j = 1 To セルの行数
Cells(i, j) = myBuf(j)
Next j
Loop

Close #1
MsgBox "TEST.TXTの読込み処理が完了しました。"

End Sub

セルの行数は実際のセルの行数+1のほうがうまくいきました。

おはようございます。
こんなのではだめでしょうか。

Private Sub CommandButton1_Click()
Dim myTxtFile As String
Dim myBuf(セルの行数) As String
Dim i As Integer, j As Integer

Application.ScreenUpdating = False

myTxtFile = ActiveWorkbook.Path & "\TEST.txt"

Worksheets("sheet名").Activate

Open myTxtFile For Input As #1

Do Until EOF(1)

Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4)・・・・セルの行数分

i = i + 1
For j = 1 To セ...続きを読む

QIrfan View 漢字テキスト挿入時文字化け修正の仕方を教えてください。

Irfan Viewで漢字を挿入しようとしたら、文字化けします。(アルファベットは大丈夫です。)
文字化けを修正する方法は、プラグインが必要でしょうか?
もし、修正不可なら、他のソフトの紹介お願いします。

上記のことを解決できる方、解説お願いします。

Aベストアンサー

日本語のあるフォントを選択すればいいです。
多分それだけです。

尚、
> 文字化けを修正する方法
が「既に入力されたものを修正したい」という意味でしたら、
もうドット画像になってる状態で文字情報が失われてるので
無理です。

Qユーザーフォームのテキストボックスに配列の値を読み込む方法を教えて下さい

お世話になります
ユーザーフォームのリストボックスにAddItemで記述したデータを表示するような形で、ユーザーフォームのテキストボックスに配列にとりこんであるデータの値を順番に読み込むようにしたいのですが、このようなことができるのでしょうか?
どなたか教えて頂けないでしょうか

Aベストアンサー

こんにちは。先程のコードでは、コマンドボタンの動作がかかれていませんでしたので、修正マクロをお知らせします。
下記のコードを同じ方法でコピー・ペーストしてみて下さい。
あなた様の思い通りの動作になると思います。

私は、趣味でVBAやVbでプログラミングをやっている仲間が集まっているサークルに所属しております。ここでコードの説明をするのは非常に難しいので、事務局のほうへお電話をいただけないでしょうか。お金は要りません。お電話で詳しく教えさせていただきます。
事務局には、午後1時から午前0時迄常時つめておりますので、この時間内であればお電話で話すことができると思います。
043(278)2548

お手数をおかけいたしますが、よろしくお願いいたします。

Private Sub CommandButton1_Click()

If Me.Tx1.Text = Workbooks("顧客台帳.xls").Worksheets(1).Range("A1").Value Then
MsgBox "登録された顧客はおりません。", vbOKOnly + vbCritical, "処 理 エ ラ ー"
Else
Me.Tx1.Text = Me.Tx1.Text - 1
Me.Tx2.Text = Workbooks("顧客台帳.xls").Worksheets(1).Range("A1:" & Cells(Rows.Count, 1).End(xlUp).Address).Find(Me.Tx1.Text, lookat:=xlWhole).Offset(0, 1).Value
End If

End Sub

Private Sub CommandButton2_Click()

Dim myCnt1 As Integer
Dim myCnt2 As Integer

If Me.Tx1.Value = Workbooks("顧客台帳.xls").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Value Then
MsgBox "登録された顧客はおりません。", vbOKOnly + vbCritical, "処 理 エ ラ ー"
Else
Me.Tx1.Text = Me.Tx1.Text + 1
Me.Tx2.Text = Workbooks("顧客台帳.xls").Worksheets(1).Range("A1:" & Cells(Rows.Count, 1).End(xlUp).Address).Find(Me.Tx1.Text, lookat:=xlWhole).Offset(0, 1).Value

End If

End Sub

Private Sub Tx1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim myRange As Range

Set myRange = Workbooks("顧客台帳.xls").Worksheets(1).Range("A1:" & Cells(Rows.Count, 1).End(xlUp).Address).Find(Me.Tx1.Text, lookat:=xlWhole)
If myRange Is Nothing Then
MsgBox "登録された顧客がおりません。", vbOKOnly + vbCritical, "入 力 エ ラ ー"
Cancel = True: Exit Sub
Else
Me.Tx2.Text = myRange.Offset(0, 1).Value
End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

End

End Sub

こんにちは。先程のコードでは、コマンドボタンの動作がかかれていませんでしたので、修正マクロをお知らせします。
下記のコードを同じ方法でコピー・ペーストしてみて下さい。
あなた様の思い通りの動作になると思います。

私は、趣味でVBAやVbでプログラミングをやっている仲間が集まっているサークルに所属しております。ここでコードの説明をするのは非常に難しいので、事務局のほうへお電話をいただけないでしょうか。お金は要りません。お電話で詳しく教えさせていただきます。
事務局には、午...続きを読む


人気Q&Aランキング

おすすめ情報