起動中のBookでファイル名が Data.xlsのものを閉じたいと思いますが、
上書き確認メッセージを出さないように
oExcel.DisplayAlerts = False
を設定すると
エラーになります。
CreateObject で作成した場合は、DisplayAlerts が使えるようですが、
すでに起動済みのBookを確認なしで上書き保存するにはどうしたらいい
のでしょうか?
Sub UnloadFile()
Dim myBook2 As Workbook
Dim myBook1 As Workbook
For Each myBook2 In Workbooks
If myBook2.Name = "Data.xls" Then
Set myBook1 = myBook2
myBook1.SaveAs myBook1.FullName
myBook1.Close
End If
Next myBook2
Set myBook1 = Nothing
End Sub
こんにちは
お世話になります。
A列に日付(前後はバラバラになります。)、
B列に分類(3種)、
C列に金額の入った表があります。
A B C
3/30| A |1,000
4/2 | B |2,000
3/31| A |1,000
4/1 | A |2,000
4/5 | C |1,000
4/2 | B |1,000
4/29| B |2,000
4/30| C |3,000
4/30| A |2,000
5/1 | A |1,000
4/30| C |3,000
5/2 | B |2,000
から
3月 A *,***
B *,***
C *,***
4月 A *,***
B *,***
C *,***
5月 A *,***
B *,***
C *,***
のように、
月毎に各分類の金額合計を求める方法を教えてください。
こんにちは。
以前エクセル→アクセスという行程で行っていた作業を、アクセスで一本化しようと考えています。そこで、エクセルで言う「COUNTA」や「COUNTIF」のような式を使いたいのですが、どの様に行えばよいか、教えて下さい。内容は以下の通りです。
(1) 「1日」~「31日」、「1~3」「2及び3」「3のみ」というフィールドが用意してあります。「1日」~「31日」は「0 or 1 or 2 or 3」という入力規制を掛けてあります。
(2) 「1日」~「31日」の、「1~3」の入力してあるフィールド数、「2~3」の入力してあるフィールド数、「3」の入力してあるフィールド数を各々数えたいのです。(あくまでも数字の合計ではなく、条件に沿った数字のあるフィールドの数です)
(3) できれば、エクセルで言う「COUNTA」や「COUNTIF」のような、フィールドに入力したら直ぐに「1~3」「2及び3」「3のみ」に反映でき、フォーム上で見れるようなモノが望ましいです。
以上、望みにあった式等、ありましたらご教授願います。長文失礼しました。
こんにちは。
以前エクセル→アクセスという行程で行っていた作業を、アクセスで一本化しようと考えています。そこで、エクセルで言う「COUNTA」や「COUNTIF」のような式を使いたいのですが、どの様に行えばよいか、教えて下さい。内容は以下の通りです。
(1) 「1日」~「31日」、「1~3」「2及び3」「3のみ」というフィールドが用意してあります。「1日」~「31日」は「0 or 1 or 2 or 3」という入力規制を掛けてあります。
(2) 「1日」~「31日」の、「1~3」の入力してあるフィールド数、「2~3」の入力してあるフィールド数、「3」の入力してあるフィールド数を各々数えたいのです。(あくまでも数字の合計ではなく、条件に沿った数字のあるフィールドの数です)
(3) できれば、エクセルで言う「COUNTA」や「COUNTIF」のような、フィールドに入力したら直ぐに「1~3」「2及び3」「3のみ」に反映でき、フォーム上で見れるようなモノが望ましいです。
以上、望みにあった式等、ありましたらご教授願います。長文失礼しました。