VBScriptsでAccess2000のインストール状態を調べようとしています。
実行した環境は、以下です。
環境(1)
WinXP
ACCESS2000
ACCESS2010Runtime
作成したコードは以下です。
------------------------
Dim objAcc
Dim AccVer
On Error Resume Next
Set objAcc = CreateObject("Access.Application")
If Err.Number = 0 Then
AccVer =objAcc.Version
Select Case AccVer
Case 9
WScript.Echo "ご利用のPCにはAccess2000がインストールされています。"
Case 14
WScript.Echo "ご利用のPCにはAccess2010がインストールされています。"
End Select
Else
WScript.Echo "Access はインストールされていません"
End If
-----------------------------
実行をすると、"Access はインストールされていません"とメッセージが出て、
ACCESS2000のインストールを認識していません。
CreateObject("Access.Application")をCreateObject("Access.Application.9")
に変更しても同じ結果でした。
他の環境でも確認しましたが、以下の結果でした。
環境(2)
WinXP
ACCESS2010
⇒"ご利用のPCにはAccess2010がインストールされています。"
環境(3)
WinXP
ACCESS2010Rintime
⇒"Access はインストールされていません。"
ただ、実際に確認が必要になるのは、環境(1)の状態でのAccess2000のインストール有無です。
上記の現象について情報をお持ちの方、または他に良い方法をご存知の方がおりましたら
ご連絡を頂ければと思います。
Sub xlAPPがある場合()
Dim xlAPP As Application
Dim strPathName As String, vntPathName As Variant
Dim strFileName As String
Set xlAPP = Application
'ここでわざとESCキーかキャンセルを押す
vntPathName = xlAPP.InputBox("参照するフォルダ名を入力して下さい。", , "C:\")
If VarType(vntPathName) = vbBoolean Then
MsgBox "キャンセルがクリックされました"
Exit Sub
End If
End Sub
Sub xlAPPがない場合()
Dim strPathName As String, vntPathName As Variant
Dim strFileName As String
'ここでわざとESCキーかキャンセルを押す
vntPathName = InputBox("参照するフォルダ名を入力して下さい。", , "C:\")
’無視される
If VarType(vntPathName) = vbBoolean Then
MsgBox "キャンセルがクリックされました"
Exit Sub
End If
End Sub
**************************************************
InputBoxを開いた時にキャンセルするふたつのプロシージャーを比較した時に、
xlAPPがないコードは、キャンセルしても無視されます。
xlAPPがどんな役割をしているのか、
xlAPPがないと、なぜ無視されるのかがわかりません。
あと、二つを比較すると、表示されるInputBoxの形式も違います。
ご教授よろしくお願いします。
MS Word 2010における割り付け印刷（2ページを1ページに印刷）について質問です。
縦ページにおいて、3行2列の表を横いっぱいに作成しました（1ページ目）。2ページ目にも同様に表をページ横いっぱいに作成しました（2ページ目）。
この2ページを割り付け印刷でA4紙1ページに印刷したいのですが、その際、印刷されたA4紙を半分に折り畳んだ時に1ページ目と2ページ目の表の縦線がピッタリ合うように印刷をしたいのです。
いろいろと試してみました（余白の調整など）が、全く縦線がピッタリ合う気配がありません(-_-)
どのようにすれば、割り付け印刷において表の縦線がピッタリ合うように印刷出来るのでしょうか？
教えてください。
MS Word 2010における割り付け印刷（2ページを1ページに印刷）について質問です。
縦ページにおいて、3行2列の表を横いっぱいに作成しました（1ページ目）。2ページ目にも同様に表をページ横いっぱいに作成しました（2ページ目）。
この2ページを割り付け印刷でA4紙1ページに印刷したいのですが、その際、印刷されたA4紙を半分に折り畳んだ時に1ページ目と2ページ目の表の縦線がピッタリ合うように印刷をしたいのです。
いろいろと試してみました（余白の調整など）が、全く縦線がピッタリ合う気配がありません(-_-)
どのようにすれば、割り付け印刷において表の縦線がピッタリ合うように印刷出来るのでしょうか？
教えてください。
今エクセルで出納を作ってます。
シート1には Ａ日付 Bコード C金額 D 消費税区分 E 金額
F,G,H,Iにも同様に貸方科目を入れてます。
シート2にはAコードB科目を上から下にずっといれてます。
それで借方金額Ｃの金額をEに飛ばすこと
VLOOKUPでＢのコードに対応する科目を表示すること
上記をChangeイベントでやりたいのですが、金額転記はうまくいったのですが、
VLOOKUPの方が標準モジュールではうまくいくものの、シートモジュールに移すとうまく
行きません。おそらく根本的な理解がかけてるからだと思います。
今の記述は下記
シート1に
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Or Target.Row > 100 Then Exit Sub
If Target.Column <> 5 Then Exit Sub
Dim Cnt As Long
For Cnt = 2 To 100
Range("I" & Cnt).Value = Range("E" & Cnt).Value
Next Cnt
If Target.Row = 1 Or Target.Row > 100 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
End Sub
標準モジュールに
Option Explicit
Sub 科目()
Dim シート1 As Worksheet
Dim シート2 As Worksheet
Set シート1 = Worksheets("出納")
Set シート2 = Worksheets("科目")
Dim myR
On Error GoTo ErrorHandler
myR = Application.WorksheetFunction.VLookup(シート1.Range("B2"), シート 2.Range("A2:B87"), 2, False)
シート1.Range("C2").Value = myR
Exit Sub
ErrorHandler:
シート1.Range("C2").Value = "該当無し"
End Sub
大変素人な質問ですみませんが、ご回答いただけると嬉しいです。
基礎の本やレファレンス本は見たのですが、標準モジュールでできること
がなぜシートモジュールでできないかが全く分かりません。
よかったらお教えください。
私はVBAコードを作る時は、もっぱらsubプロシージャーを使ってしまうのですが、
http://excelvba.pc-users.net/fol5/5_4.html
を参考に、
Functionプロシージャとsubプロシージャの違いを確認してみたのですが、
Functionプロシージャの便利さがわかりません。
***********************************
Sub Test()
SubプロシージャとFunctionプロシージャのテスト
i = 1
Call Subプロシージャ(i)
i = Functionプロシージャ(i)
MsgBox "Functionプロシージャ結果:" + CStr(i)
End Sub
Sub Subプロシージャ(ByVal i As Integer)
MsgBox "Subプロシージャ結果:" + CStr(i)
End Sub
Function Functionプロシージャ(ByVal i As Integer) As Integer
i = i + 1
Functionプロシージャ = i
End Function
***********************************
Functionプロシージャは、
(ByVal i As Integer) As Integer
のように、、二回もデータ型（Integer）の指定をしなくてはいけないのでしょうか？
リンク先の説明には、
「SubプロシージャとFunctionプロシージャの違いは
Subプロシージャが引数を受け取るのみに対して Functionプロシージャは引数を受け取り、
戻り値を返すという関数としての役割を果たすことができる点です。」
と記載されてますが、
それはSubプロシージャでも出来てますよね？
サンプルコードにおいてのFunctionプロシージャの便利さを教えてください。
今エクセルで出納を作ってます。
シート1には Ａ日付 Bコード C金額 D 消費税区分 E 金額
F,G,H,Iにも同様に貸方科目を入れてます。
シート2にはAコードB科目を上から下にずっといれてます。
それで借方金額Ｃの金額をEに飛ばすこと
VLOOKUPでＢのコードに対応する科目を表示すること
上記をChangeイベントでやりたいのですが、金額転記はうまくいったのですが、
VLOOKUPの方が標準モジュールではうまくいくものの、シートモジュールに移すとうまく
行きません。おそらく根本的な理解がかけてるからだと思います。
今の記述は下記
シート1に
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Or Target.Row > 100 Then Exit Sub
If Target.Column <> 5 Then Exit Sub
Dim Cnt As Long
For Cnt = 2 To 100
Range("I" & Cnt).Value = Range("E" & Cnt).Value
Next Cnt
If Target.Row = 1 Or Target.Row > 100 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
End Sub
標準モジュールに
Option Explicit
Sub 科目()
Dim シート1 As Worksheet
Dim シート2 As Worksheet
Set シート1 = Worksheets("出納")
Set シート2 = Worksheets("科目")
Dim myR
On Error GoTo ErrorHandler
myR = Application.WorksheetFunction.VLookup(シート1.Range("B2"), シート 2.Range("A2:B87"), 2, False)
シート1.Range("C2").Value = myR
Exit Sub
ErrorHandler:
シート1.Range("C2").Value = "該当無し"
End Sub
大変素人な質問ですみませんが、ご回答いただけると嬉しいです。
基礎の本やレファレンス本は見たのですが、標準モジュールでできること
がなぜシートモジュールでできないかが全く分かりません。
よかったらお教えください。
始めまして、宜しくお願い致します。拡張子がxlsmの中に名前のついた10個のsheetがあります。この10個のsheetを拡張子がxlsxのBookにコピーしたいのですが、実行時エラーが出ます。作成したマクロは
Option Explicit
Option Base 1
Public Sub シートの纏め()
Dim i As Long
Dim mySheetCnt As Long
Dim mySheetName() As String
Dim ws As Workbook
Dim s As Worksheet
'==========================================================================
mySheetCnt = ThisWorkbook.Sheets.count
ReDim mySheetName(1 To mySheetCnt)
For i = 1 To mySheetCnt - 3
mySheetName(i) = Sheets(i).Name 'ここで実行時エラーが出ます。
'MsgBox "変数mySheetName(" & i & ")=" & mySheetName(i)
Next i
'==========================================================================
Dim EffectiveRow As Long
Dim EffectiveColumn As Long
EffectiveRow = Range("B65536").End(xlUp).Row
'MsgBox "EffectiveRow = " & EffectiveRow & ""
EffectiveColumn = Cells(4, 256).End(xlToLeft).Column
'MsgBox "EffectiveColumn = " & EffectiveColumn & ""
'==========================================================================
'MsgBox "デフォルトで" & Application.SheetsInNewWorkbook & "枚作成されます"
Application.SheetsInNewWorkbook = 1
Workbooks.Add
'==========================================================================
For i = 1 To mySheetCnt - 3
If mySheetCnt = 11 Then GoTo Label1
MsgBox "mySheetName(i) = " & mySheetName(i) & ""
Workbooks("Book1.xls").Worksheets("sheet1").Range("A4").Select
Next i
Label1:
End Sub
です。ここでコメント欄にエラーと書かれた部分で実行時エラーが起こります。エラーメッセイジは、
実行時エラー「'9'インデクスが有効範囲にありません。」と出ます。また、拡張子がxlsmにある10個名前のついたsheetを拡張子xlsxを作り、1つのsheetに纏めたいのですが、方法が判りません。纏め方は、10個名前のついたsheetから、新たに作ったsheetに下から上に順番にコピーしたいのですが、方法がわかりませ。どなたかご教授して頂きたく宜しくお願い申し上げます。実行環境はWindowsXPSP3でEXCELは2010を使っております。
