[[20061116222742]]　『XPで出来たのに２０００では出来なかった』（れいまま）　ページの最後に飛ぶ

『XPで出来たのに２０００では出来なかった』（れいまま）

 こんばんは。
下記のコードですが家（XP）では動くのに会社のPC（2000）ではエラーになって
しまいました。

 エラーの箇所をメモしてくるのが一番良かったのですが
忘れてしまいました。（月曜日にメモして来るつもりですがどなたか分かるのなら教えてください）
もしや　コードを写し間違えたかも・・・と
帰宅後試しましたがXPは動くのです。
Windows２０００では動かないコードがあったら教えてください。
出来れば　どのように変えたらいいのかも教えてください。

 Private Sub 回答設定処理()
    Dim 該当セル As Range
    伝票番号なし = True
    If Trim(Me.TextBox1.Value) = "" Then
        MsgBox "伝票番号を指定して下さい"
        Exit Sub
    End If
With Worksheets("データー保存")↓エラーが出たのはここらへんだったと思います。
TextBox1.Text = Format(Replace(TextBox1.Text, "-", ""), "000-0000-0000")
    Set 該当セル = .Columns("D:D").Find(What:=Me.TextBox1.Value, _
        LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False)
    If 該当セル Is Nothing Then
        MsgBox "指定された伝票番号は存在しません"
        Exit Sub
    Else
        該当セル.Offset(, 2).Value = Me.TextBox2.Value
    End If
End With
    伝票番号なし = False
    TextBox1 = ""
    TextBox2 = ""
    TextBox1.SetFocus
End Sub

 会社のPCの、エクセルのバージョンは何でしょうか。　(アカギ)

 アカギさんこんばんは。
確か２０００だったと思います。
黄色い場所をメモしてくるの忘れたために・・・お手数おかけして申し訳ありません。
（れいまま）

 よくわからないので検索してたら、こんなのは見つかりました。
 かなり自信なし。　(アカギ)
http://q.hatena.ne.jp/1162822923

 アカギさん＞ありがとうございます。
早速みてみます。
後は、月曜日メモするか昼休みにネットに接続して書き込みさせていただきます
（れいまま）

 確認はしてませんが、Findメソッドの引数がExcel2000と2002以降では違ったと思いますので
 その辺も確認してみてください。

 （川野鮎太郎）

 鮎太郎さん＞ありがとうございます。
会社のPCは誰も電源落とさない(毎日つけっぱなし）ので
立ち上がりの時のバージョンの画面を良くみたことなかったです・・・（汗
２０００だとは　聞いていたのですが
子供が熱を出して　急遽三連休になったので
月曜日出勤したら　確認してみます。
ありがとうございます。（れいまま）

 先ほどは別の質問に回答してしまいましたが、
 会社のEXCELのバージョンが2000であれば的外れですが、
 97以前であれば Replace 関数は無いので、いずれにせよ、
 まずバージョンを確認されてはと思います。
 (Mook)

 もしご指摘の個所でのエラーだったら、Replace関数でしょう。

 TextBox1.Text = Format(WorksheetFunction.Substitute(TextBox1.Text,"-",""),"000-0000-0000")

 に変更してみてください。
 (seiya)

 M00kさん＞ありがとうございます。確認します。
あれから　本を読み返しました。
前読んだときは？？？だったことが　あ！これ見たことあるとか
あそこで　使っていたとか　記憶に残るようになりました。
変数の宣言とかも　これは整数。これは文字　これは　全部にOkでも容量がかかる
など　分かってきました。もう少し頑張ります。ありがとうございます。
母が入院して　父が救急車で運ばれていってしまったので
月曜日確認できないかもしれないですけど・・・やってみます。
いつも　ありがとうございます。

 seiyaさん＞ありがとうございます。
この機能が使えないと　かなり痛手でした。
（印刷するしないとかは　自分の勉強のためで　特に必要ではなかったですけど）
早速　直して持って行きます。
もし万が一だめだったら　回答入力だけ　ノートPCで入力して
FDに入れて印刷を別のPCにします。ノートPCはXPですがプリンターとネットに接続されてないのです（悲
いろいろありがとうございます。とってもうれしいです。
取り急ぎお返事まで
（れいまま）

 皆様＞seiyaさんの数式に変更したら出来ました。
ありがとうございます。

 会社のPCはWin２０００　ﾌﾟﾛﾌｪｯｼｮﾅﾙ　エクセル２０００でした。
（れいまま）

コメント返信：

[ 一覧(最新更新順) ]

[[20061116222742]] 『XPで出来たのに２０００では出来なかった』（れいまま） ページの最後に飛ぶ

[[20061116222742]]　『XPで出来たのに２０００では出来なかった』（れいまま）　ページの最後に飛ぶ