excel vba sumif 月間集計
どなたか教えていただけますか？
sheet1に１日毎のデータが打ち込まれています。そのデータを同じブック内の月間シートが開いたときに表示してるのですが、３１日間分のコードをsumifで処理しているため、かなりのファイル容量となり重くなります。もっと効率的な方法はないのでしょうか、（範囲指定の繰り返し処理等）お願いいたします。
なお、sheet1からsheet5まで日毎のデータをそれぞれ月間シート1～5に集計してます。
例です。
sheet1は
A B C D E F・・・・
1 日 目的 距離 燃料
2 1 社用 50
3 1 私用 60 10
4 2 社用 30
月間シート1は
A B C D E F
1 日 距離 燃料 1110
2 1 110 10
3 2 30 0
Private Sub Worksheet_Activate()
UserForm1.Hide
Range("A1").Select
'距離数
Range("B2").Value = WorksheetFunction.SumIf(Sheets("Sheet1").Range("A2:A300"), Range("A2"), Sheets("Sheet1").Range("C2:C300"))
Range("B3").Value = WorksheetFunction.SumIf(Sheets("Sheet1").Range("A2:A300"), Range("A3"), Sheets("Sheet1").Range("C2:C300"))
・
・
・
'累計 ・・・は、こんな感じ処理してます
Dim myRng As Range
Dim c As Range
Set myRng = Range("F2:F32")
For Each c In myRng
c.Value = c.Offset(0, -4).Value + c.Offset(-1, 0).Value
Next c
End Sub
Sub 教えて()
Dim ExAp As Application
Dim ExBk As Workbook
Dim ExSh As Worksheet
Set ExAp = CreateObject("Excel.Application")
Set ExBk = ExAp.Workbooks.Add
Set ExSh = ExBk.Worksheets(1)
ExAp.Visible = True
ExAp.WindowState = xlMaximized
ThisWorkbook.Worksheets(1).Activate
MsgBox "前面表示させたいお！"
Set ExAp = Nothing
Set ExBk = Nothing
Set ExSh = Nothing
End Sub
これを実行するとメッセージボックスが隠れてしまいます。
どうしたらよいでしょうか？
よろしくお願いいたします。Excel2003で印刷等のマクロが入った5MBほどファイルです。古いパソコンWin2000のExcel2003上では順調に稼働していました。それを新しいパソコンVista版office2007付・DELL STUDIO にExcel2003をインストールして実行したところ、印刷したいプレビューの画面にはなりますが、そこから印刷のボタンを押してデータが送信されているようなのですが、保留ドキュメント「ゼロ」のままで、印刷が実行されません。（先のファイルではマクロ以外に通常の範囲指定でのプレビューや印刷は行われています。）慌てているもので支離滅裂な表現お許し下さい。皆様のお力をお借りして原因理由をお教えいただければ幸いです。
show databases; と入力
自分のデータベースを
use me; と入力
show tables; と入力してからが問題なのですが・・・。
テーブルを作りたいのに、CREATEをしても作れないんですorz
↓↓入力した内容は以下のとおりです↓↓
CREATE TABLE cake (
code char(3),
name varchar(10) NOT NULL,
tanka char(8),
from varchar(20) NOT NULL ,
drink varchar(10) NOT NULL ,
PRIMARY KEY (code)
);
と、入力するとエラーで・・・
ERROR 1064 (42000): You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'from varchar(20) NOT NULL,
drink varchar(10) NOT NULL,
PRIMARY KEY (code)
)' at line 5
と出てくるのですが、よくわかりません。
昨日までは作れていたのになぜかわからず質問してみました。
code char(3) , を code int(3), としてもできませんでした。
これから作業で使うので、困ってます＞＜！
ご回答のほどよろしくお願いいたします。
VBAで前々から気になっていることがあります。例えば、
Private Sub Button検索_Click()
何らかの処理コードが記述
End Sub
検索のコードが記述されているとします。キーワードをテキストボックスに入れて検索されてヒットしたデータはフォームのテキストボックスなどに表示されるとします。検索は連続検索が可能で該当するデータが無くなるまで、この検索ボタンを押す限り検索が可能だとします。
さてここで質問ですが、この上記の一連の検索の途中で仮に更新、削除したいデータを発見したとします。
そんな場合は、
Private Sub Button検索_Click()
何らかの処理コードが記述
Private Sub Button削除_Click()
何らかの処理コードが記述
End Sub
Private Sub Button更新_Click()
何らかの処理コードが記述
End Sub
End Sub
などということは可能なのでしょうか、それとも更新や削除のソースは、
Public Function 更新(又は削除)() As Integer
何らかの処理コードが記述
End Function
としなければいけないのでしょうか。ご存知の方教えてください。よろしくお願いします。
