Excel VBA質問箱 IV

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

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


27347 / 76738 ←次へ | 前へ→

【54714】突然のコンパイルエラー
質問  yhar  - 08/3/27(木) 15:02 -

引用なし
パスワード
   皆さま

こちらにはいつもお世話になっています。
みなさんの力を得て1年以上順調に動いていた帳票台帳管理プログラムが突然コンパイルエラーを多発するようになってしまいました。

下記のユーザーフォームに記述したコードでは、何故かMid関数のところを指して「コンパイルエラー プロジェクトまたはライブラリが見つかりません」というメッセージを出して実行中断してしまいます。

Private Sub TextBox1_AfterUpdate()
Dim MyD As String
  MyD = TextBox1.Text
  MyD = "20" & Left(MyD, 2) & "/" & Mid(MyD, 3, 2) & "/" & Right(MyD, 2)
  If IsDate(MyD) = False Then
    MsgBox "「起票日」の欄に" & Chr(13) & "入力されたデータは日付になりません。" & Chr(13) & "半角6桁 YYMMDD の表記でお願いします。"
    TextBox1.SetFocus
  End If
End Sub

また、この他にも以前こちらで教えて頂いてそのままワークシートに記述した下記のコードで終わりのほうに出てくるTrim関数のところで同じ症状が出て止まってしまうこともあります。

Private Sub Worksheet_Calculate()
If Not AutoFilterMode Then
  Range("A11:IT11").ClearContents
  Exit Sub
End If
Dim Rng As Range
Dim FRng As Range
Dim N As Integer
Dim Cri As String
Dim FltAry()
Application.EnableEvents = False
With ActiveSheet.AutoFilter
  Set FRng = .Range.Resize(1)
  If FRng.Row = 1 Then
    MsgBox "条件を表示出来ません。フィルタ位置を下げてください。"
    Set FRng = Nothing: Exit Sub
  End If
  With .Filters
    ReDim FltAry(1 To .Count, 1 To 3)
    For N = 1 To .Count
      With .Item(N)
        If .On Then
          FltAry(N, 1) = .Criteria1
          If .Operator Then
            If .Operator = 1 Then
              FltAry(N, 2) = " And "
            ElseIf .Operator = 2 Then
              FltAry(N, 2) = " Or "
            End If
            If FltAry(N, 2) <> "" Then
              FltAry(N, 3) = .Criteria2
            End If
          End If
        End If
      End With
    Next
  End With
End With
FRng.Offset(-1).NumberFormatLocal = "@"
For Each Rng In FRng.Offset(-1)
  Cri = FltAry(Rng.Column, 1) & _
      FltAry(Rng.Column, 2) & _
      FltAry(Rng.Column, 3)
  If Trim(Cri) = "" Then
    Rng.ClearContents
  Else
    Rng.Value = Cri
  End If
Next Rng
Application.EnableEvents = True
Set FRng = Nothing
End Sub

バージョンの異なるエクセル(2000、2002と2003)で使ったりするとこのようなことが起きる可能性があるのでしょうか?
それともエクセルで特殊な設定でもあるのでしょうか?(マクロセキュリティーは全て「低」で動かしています。)

何卒ご教示のほどよろしくお願いします。

0 hits

【54714】突然のコンパイルエラー yhar 08/3/27(木) 15:02 質問
【54716】Re:突然のコンパイルエラー VBWASURETA 08/3/27(木) 15:50 発言
【54717】Re:突然のコンパイルエラー VBWASURETA 08/3/27(木) 16:04 発言
【54723】Re:突然のコンパイルエラー yhar 08/3/27(木) 16:42 質問
【54724】Re:突然のコンパイルエラー neptune 08/3/27(木) 17:08 回答
【54726】Re:突然のコンパイルエラー VBWASURETA 08/3/27(木) 17:50 発言
【54727】Re:突然のコンパイルエラー yhar 08/3/27(木) 17:57 お礼
【54730】Re:突然のコンパイルエラー VBWASURETA 08/3/27(木) 18:13 発言
【54728】Re:突然のコンパイルエラー VBWASURETA 08/3/27(木) 18:01 発言
【54729】Re:突然のコンパイルエラー yhar 08/3/27(木) 18:08 お礼

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