下記のExcel 2007 VBAマクロを Windows XP で組んでいましたが、
Windows 7 に乗り換えたとたん、強制終了してしまいます。
Workbooks.Openのアドレスは、Windows 7用に書き換えました。
何方かご教授願います。
Private Sub CommandButton63_Click()
Application.ScreenUpdating = False
Dim wb As Workbook
wbn1 = ActiveWorkbook.Name
For Each wb In Workbooks
If wb.Name = wbn1 Then
Workbooks.Open "D:\ユーザー\PC18\Documents\※※※※\※※※※.xls"
ActiveWindow.WindowState = xlMaximized
Workbooks(wbn1).Save
Application.DisplayAlerts = False
Workbooks(wbn1).Close
Else: Application.ScreenUpdating = False
End If
Next
Application.ScreenUpdating = True
End Sub
WinXp Excel2003 のVBAです。(初心者なので言葉足らずのときは申し訳ありません)
請求書の番号を日付が変更したら、”0”に戻す方法で悩んでいます。
モジュールで、パブリック宣言して
Public Sub 初期設定()
Dim 本日, 受付1, 受付2 As String, 採番 As Integer
本日 = Today()
End Sub
ここで行き詰ってしまいました。本日変数ひ日付を代入して、日付が変わったものと比較するのに、
どの段階で比較すればいいのか?
パソコンのスイッチを切ってしまったら、変数はクリアになってしまってう・・・等々考えていくうちに
わからなくなってしまいました。
多分単純なことなのだと思います。(いろいろネットで調べてみましたが、似たようなものがなかったので、どなたか、似たような参考でもけっこうですので、教えていただけないでしょうか?