VBA カレンダー参照エラー

エクセルを立ち上げると「このマシーンでは利用出来ないオブジェクトを読み込み出来ませんでした」
のエラー　そこでマクロを追って行くと　
　module1　内でコンパイルエラーが発生しました　のエラーメッセージ

自分では作成出来ないので作成したもらったのですが現在作者と連絡がとれませんので
ただしＰＷは教えていただいたので　マクロの中身は見えます
自分なりに勉強して見ました作成時はエクセル２００３です
たぶん　当時オフイス　２０００の中のカレンダー機能をインストールして日付をインプットしていたのが　現在　エクセル　２０１３を使用のためカレンダー機能の参照エラーではないかと思慮しております　ユーザーフォームのカレンダー部分が問題かと思いますが
以下参考

Public XLSFile_Dir_Name As String ' = "J:\My Documents_E\06xxaa工事台帳"
Public XLSData_File_Name As String ' = "データ"
Public XLSSoft_File_Name As String ' = "ソフト"
Public OpenXLS_File_Name As Variant ' = XLSFile_Dir_Name & XLSData_File_Name
Public Str_Row_No As String 'セル列
Public Str_Right As String 'セル行数値
Public Total_No_register As Variant 'データ総数
Public In_No_register As String ''1_仮入力_台帳番号

Public No_CommandButton As Variant
Public Max_Nunber As Integer
Public Max_Nunber_Row As Integer
Public Max_Nunber_String As String
Public New_Row As Integer
Public Turget_Row As Integer


' TextBox1　1　台帳番号 No_Register
Public No_Register As String '工事台帳番号
Dim No_Register_Dim(100, 2) '1=No_Register,2=Row_No_Register
Dim Dim_No_Register_Max As Integer
Public Row_No_Register As Integer
Public New_Nunber As String
' OptionButton1　図面有無　Drawing
' TextBox2　3　需要家名　Name_employment
Public Name_employment As String '需要家名
' TextBox3　4 工事場所　Place_work
Public Place_work As String '工事場所
Public No_customer As String ' TextBox4　5　お客様番号　No_customer
Public Date_Application As String ' TextBox5　6　申し込み日　Date_Application
' TextBox6　7 受電希望日　Date_receive
Public Date_receive As String
' TextBox7　8 供給承諾日Date_receipt
Public Date_receipt As String
' TextBox8　9 送電日Date_completion
Public Date_completion As String
' TextBox9　10 契約種別Classification_contract
Public Classification_contract As String
' TextBox10 11 契約容量Volume_contract
Public Volume_contract As String
' TextBox11　12 変圧器柱Pole_transformer
Public Pole_transformer As String
' TextBox12　13 引込み柱Pole_accept
Public Pole_accept As String
' TextBox13　14 名義変更Change_Name
Public Change_Name As String
' TextBox14　15　備考Note
Public Note As String

Public Cell_Value As String
Public TextBox_Value As String
Public Befor_Correct As String
Public After_Correct As String

Public Calendar1_Date As Variant

Public Name_Book As String
Public Name_Sheet As String
Public Name_Column As String
Public Row_String As String
Public Row_String2 As String


Private Sub Sub_Cha_Date_Time(Name_Now0 As String) '本日現在時刻の名称
Dim e_Now1 As String
Dim Year_Charactor As String
Dim Month_Charactor As String
Dim Date_Charactor As String
Dim Hour_Charactor As String
Dim Minute_Charactor As String
'名称を本日現在時刻の名称とする
'date,date$,time,time$,now=現在時刻
' a = Date '2006/11/03' b = Date$ '2006-11-03' c = Time '9:?2:?3' d = Time$ '09:02:03' e = Now ' '2006/11/03 12:02:30
Year_Charactor = Mid(Date$, 3, 2) '06
Month_Charactor = Mid(Date$, 6, 2) '11
Date_Charactor = Mid(Date$, 9, 2) '03
Hour_Charactor = Mid(Time$, 1, 2) '02
Minute_Charactor = Mid(Time$, 4, 2) '09
Name_Now0 = Year_Charactor & Month_Charactor _
& Date_Charactor & _
"_" & Hour_Charactor & Minute_Charactor
End Sub
之はモジュール１です　これだけでは資料不足かとは思いますが

No.1 ベストアンサー 回答者： x-1919 回答日時： 2018/11/13 13:46

VBA のプロジェクトを開き、[ツール]-[参照設定] で確認してみてください。

"参照不可" とマークされているものが原因です。
もし質問者さんの予想通りであれば Microsoft Calendar Control の MSCAL.OCX を参照できないエラーが出ていると思います。

このカレンダー機能は MS Access に付属していたものですが、Office 2010 以降は付属されなくなったため、代替策が必要になります。

どうやって代替えするかはネットに沢山情報が出ています。
https://www.google.co.jp/search?ei=D1TqW5elOprW- …

この回答へのお礼

ｘ－１９１９さん　アドバイス有り難うございます　自分の思ってたことが間違いでないことが解りプログラムの修正に意欲が出てきました過去十年くらいのデータが入ってますので有効に使いたいと思ってますいままではエクセルの古いバージョンで何とかしのいで来たのですがいよいよ新しいバージョン（エクセル）での対応をと考えておりましたので助かりました
自分もまもなく喜寿の御年となり後継者に引き続きこのアプリを使ってもらうよう修正したく思っております　感謝！

お礼日時：2018/11/14 08:43