Sub Sample()
Dim myFile As String
myFile = "C:\Program Files (x86)\"
Shell "C:\Windows\Explorer.exe " & myFile, vbNormalFocus
End Sub
これでフォルダを起動させているのですが
開いたときの位置を指定する事は可能ですか？
TOP=0
など、IE操作の様に画面に対する位置を指定したいのですが
どうすればいいでしょうか？
Excel2007でExcel ADOによるCSVファイル処理をしています
対象はあるアプリからエクスポートした販売データで、月締め処理後の集計が主な内容です。
その際に、10年分以上ある全期間を対象にエクスポートすると時間がかかるので、
せめて前年度以前の分は年度締め時に一度程度、月締め時は当会計年度分に絞り時短を狙いたいのです
そのようにして作った2つの販売データファイルから、全データを対象にした処理をするにはどうしたらよいでしょうか？
一つのファイルに対して
SELECT * FROM 全データ.csv AS 元帳 WHERE 諸条件
として動いている状態で、
SELECT * FROM
((SELECT * FROM 当年度データ.csv) UNION (SELECT * FROM 前年度以前データ.csv)) AS 元帳
WHERE 諸条件
のような形でいけないかと思ったのですが、「JOIN操作の構文エラーです」となりました
(SELECT * FROM 当年度データ.csv AS 元帳 WHERE 諸条件) UNION (SELECT * FROM 前年度以前データ.csv AS 元帳 WHERE 諸条件)
とすると一応は動くのですが、実際はもっと複雑なSQL文となっていることもあり、
対象データ（DB）をまず結合した上で、絞り込みや並べ替え等をやれたらと思っています
何かよい方法があれば教えてください
Windows8.1 エクセル2010です。
マクロを使っており、小数点の計算をしたいため、初めてsingle double の変数を使いました。
例として、
Sub シングル()
Dim 足される As Single
Dim 足す As Single
Dim 合計 As Single
足される = Range("a1").Value
足す = Range("b1").Value
合計 = 足される + 足す
Range("c1").Select
ActiveCell.FormulaR1C1 = 合計
End Sub
A1＝2.1 B1＝5.1 普通は7.2となるのですが、7.19999980926513 と出ました。
doubleに変数を切り替えたら、ちゃんと7.2と出ました。
singleの仕組みがよくわかりません。
有効桁数数は「７桁」なら、小数点第7位まで扱える…という単純なものではないのでしょうか？
マクロ(VBA2007)で、作業中の1つのシートにある、複数のピボットテーブルのレポートフィルターを一括で選択しようとしております。以下のマクロでは”ピボットテーブル１”と名前のついたピボットしか操作できませんでした。複数のピボットを一括で選択する方法を教えていただけますか？(メーカー名がA、B、Cとあるフィルターです）
*******************
Sub try()
Dim pf As PivotField
Dim p As PivotItem
Set pf = ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("メーカー")
pf.Orientation = xlPageField
pf.ClearAllFilters
For Each p In pf.PivotItems
Select Case p.Value
Case "A", "C" '表示アイテム名をカンマ区切りで指定
Case Else
p.Visible = False
End Select
Next
End Sub
***********************
よろしくお願いいたします。
Excelを起動したときに、「NumLock」キーがOFFにならないようにしてONのままで、IMEが日本語入力ONで起動できるようにしたいのです。
Excel2010では、起動したとき、下記の3行マクロで「NumLock」キーがOFFにならずにONのままで、IMEを日本語入力ONで起動できておりました。。
Sub Auto_Open()
SendKeys ("{kanji}")
End Sub
しかし、Excel2013では、IMEは日本語入力ONになるにはなるのですが、SendKeysの影響で「NumLock」キーがOFFになってしまいます。
「NumLock」キーをONにするために、Call numLockOnを挿入して、
Sub Auto_Open()
SendKeys ("{kanji}")
Call numLockOn
End Sub
としましたが、「NumLock」キーがOFFになってしまいます。
「NumLock」キーをONにしたいのですが、記述の何が足らないかお教えいただけませんか。
よろしく、お願いします。
Access2010を使用しています。
テーブル更新後にフォームをクローズしようとすると”データの競合"とメーセージが表示されます。
レコードを追加する時はならないのですが、レコードを変更しようとするとメーセージが表示されます。
具体的には下記のようにコーディングしています。
何か指定もれがあるのでしょうか？
With Application.CurrentDb
Set oRS = .OpenRecordset("顧客マスター", dbOpenDynaset)
oRS.FindFirst "顧客コード = " & Me.顧客コード
If oRS.NoMatch = False Then
oRS.Edit
Else
oRS.AddNew
End If
oRS("顧客コード").Value = Me.顧客コード.Value
（その他の項目を代入）
oRS.Update
oRS.Close
Set oRS = Nothing
End With
DoCmd.Close acForm, Me.Name
