異なるBOOKのセル範囲のデータを照らし合わせ、不一致があるか確認したいのです。
その際、セル範囲をあらかじめVBAで決め打ちするのではなく、画面上で選択したいので、Application.Inputboxを使おうと思います。
以下のコードで一応はできたのですが、これを使うためには、画面を分割して2つのBOOKの該当箇所を「並べて比較」で並べて表示させておかなければ片方のシートしか選択することができません。
選択範囲が小さい場合は並べて表示させても問題ないのですが、かなり大きな範囲を選択する場合は、並べて表示で画面が半分にされると選択するのが大変です。
まず比較元シートを画面全体に表示して範囲選択し、次に比較先を表示して選択できるようにする方法があばとても作業が楽になります。
ご教示いただければ幸いです。
Sub 選択範囲データ比較() '2019/05/16
Dim myV, myW
Dim buf(1) As Range
Dim i As Long, m As Long, j As Long
Set buf(0) = Application.InputBox(Prompt:="セルを選択してください。", Type:=8)
myV = buf(0).Value
Set buf(1) = Application.InputBox(Prompt:="比較するセルを選択してください。", Type:=8)
myW = buf(1).Value
If UBound(myV, 1) <> UBound(myW, 1) Then
MsgBox "配列 1次元要素数が異なります。", vbCritical
Exit Sub
End If
If UBound(myV, 2) <> UBound(myW, 2) Then
MsgBox "配列 2次元要素数が異なります。", vbCritical
Exit Sub
End If
For i = LBound(myV, 1) To UBound(myW, 1)
For n = LBound(myV, 2) To UBound(myW, 2)
If myV(i, n) <> myW(i, n) Then
j = j + 1
End If
Next n
Next i
If j > 0 Then
MsgBox j & "個、相違があります。", vbCritical
Else
MsgBox "同一です。" _
& vbCrLf & "" _
& vbCrLf & "1次元：" & UBound(myV, 1) & "個" _
& vbCrLf & "2次元：" & UBound(myV, 2) & "個"
End If
End Sub
ＶＢＡで休暇願を作成し印刷時は差し込み印刷方法でＡ４用紙に両面印刷したいのですが書き方が判りません。
マクロの内容を添付しますので両面印刷できるようにするにはどのように書けばよいのか教えてください。
下記のマクロで片面印刷は可能です。
Sub 印刷()
Dim LastRow As Long
Dim i As Long
Dim myNo As Long
If vbNo = MsgBox("印刷を開始していいですか？", vbYesNo) Then Exit Sub
With Worksheets("名簿マスター")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
myNo = .Range("A" & i).Value
With Worksheets("印刷シート")
.Range("ｆ7").Value = myNo
.PrintOut Copies:=1, Collate:=True
End With
Next i
End With
MsgBox "印刷が終わりました"
End Sub
VBA初心者です。
初歩的な質問で申し訳ありません。
ユーザーフォームのコンボボックスにユーザーリストを読みこみプルダウンする構文です。
以下を実行すると
実行時エラー 424
オブジェクトが必要です
という警告が出ます。
どこを直せばいいのかわかりません。
詳しい方教えて下さい。宜しくお願いします。
private sub userform_initialize（）
dim 最終行 as integer
dim i as integer
最終行 ＝ worksheets（゛meisai″）.cells（Row.count,8）.end（xlup）.Row
for i ＝ 1 to 最終行
combobox1.addItem worksheets（″meisai゛）.value
next i
end sub
