ＶＢＡで休暇願を作成し印刷時は差し込み印刷方法でＡ４用紙に両面印刷したいのですが書き方が判りません。
マクロの内容を添付しますので両面印刷できるようにするにはどのように書けばよいのか教えてください。
下記のマクロで片面印刷は可能です。
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
Excel2013
ユーザーフォームの使い方をテストしているのですが、
何処が悪いのか添削して頂けると助かります。
したいこと
シートに列の多い表があります(テストでは2列 名前,住所)
シート上ボタンでフォームをモーダレスで表示し、
シート上セルを移動すると、該当セル行の内容を
ControlSourceでフォーム(カード表示状態)に連動表示し、
こちらでは1件毎に表示して閲覧や修正をしたい。
'Sheet1上のボタン
Sub ボタン1_Click()
'フォーム起動
UserForm1.Show vbModeless
End Sub
'Sheet1上のスクリプト
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If UserForm1.Visible = True Then
nr = ActiveWindow.RangeSelection.Row '現在行取得
If nr > 3 Then '3行目より上は見出し行なので無視
名前TextBox.ControlSource = Cells(nr, 1) 'エラーになります
住所TextBox.ControlSource = Cells(nr, 2)
End If
End If
End Sub
修正ボタン押下でセルをフォーム変数へ代入するのはできたので、ControlSourceで
セルと連動できれば横着できるなと…
よろしくお願いします。
エクセルVBAの初心者です。使っているのはExcel2007です。
同じフォルダの中にある連番の複数のエクセルファイルに同じ操作を繰り返すマクロを作っています。まず、複数ブックの同一セルに同じ内容の文字列を挿入することはどこかで見つけました。
Sub 複数Book同一セルに同一文字列入力()
Dim fName As Variant
Dim i As Long
Dim WB As Workbook
fName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xlsx", MultiSelect:=True)
If IsArray(fName) Then
For i = LBound(fName) To UBound(fName)
Set WB = Workbooks.Open(fName(i))
WB.Worksheets(1).Range("A1").Value = "テスト"
WB.Close SaveChanges:=True
Next
End If
End Sub
また、選択したセルに同じフォルダの中にある写真を挿入するマクロもどこかで拝見しました。
Sub AddPictureSampLinkPaste()
Dim myFileName As String
Dim myShape As Shape
myFileName = ActiveWorkbook.Path & "\Koala.jpg"
'--(1) 選択位置に画像ファイルを挿入し、変数myShapeに格納
Set myShape = ActiveSheet.Shapes.AddPicture( _
Filename:=myFileName, _
LinkToFile:=True, _
SaveWithDocument:=False, _
Left:=Selection.Left, _
Top:=Selection.Top, _
Width:=0, _
Height:=0)
'--(2) 挿入した画像に対して元画像と同じ高さ・幅にする
With myShape
.ScaleHeight 1, msoTrue '数字は写真の高さの倍数
.ScaleWidth 1, msoTrue '数字は写真の幅の倍数
End With
End Sub
ここまではテストで問題なかったので、この二つのマクロを一つにまとめて、同じフォルダにある連番のエクセルブックの同一セルに同一写真を挿入するマクロを作ろうと下記のようにアレンジしましたが、なぜか写真はマクロを記入したブックのアクティブセルに連番のブックの数だけの写真が重なるように貼り付けられるだけで、標的のブックには写真が挿入できません。
Sub 複数Bookの同じ位置に同一写真挿入()
Dim fName As Variant
Dim i As Long
Dim WB As Workbook
Dim myFileName As String
Dim myShape As Shape
fName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xlsx", MultiSelect:=True)
myFileName = ActiveWorkbook.Path & "\Koala.jpg"
If IsArray(fName) Then
For i = LBound(fName) To UBound(fName)
Set WB = Workbooks.Open(fName(i))
Worksheets("Sheet1").Activate
'--(1) 選択位置に画像ファイルを挿入し、変数myShapeに格納
Set myShape = ActiveSheet.Shapes.AddPicture( _
Filename:=myFileName, _
LinkToFile:=True, _
SaveWithDocument:=False, _
Left:=Selection.Left, _
Top:=Selection.Top, _
Width:=0, _
Height:=0)
'--(2) 挿入した画像に対して元画像と同じ高さ・幅にする
With myShape
.ScaleHeight 1, msoTrue
.ScaleWidth 1, msoTrue
End With
WB.Close SaveChanges:=True
Next
End If
End Sub
本当にどこが間違っているか分からず、ここで質問いたします。初心者で分からないところばかりなので、どなたかやさしく教えていただけませんか？よろしくお願いいたします。
図形を作成し、毎年更新をするのですが
数値を入れて、画像の線の幅を変更したいです。
下記、内容で作成したのですが、うまく動きません。
何が問題でしょうか？
数値を入れる場所は、B51になります。
Sub Macro1()
'
Dim i As Integer
Dim ws1 As Worksheet
Set ws1 = ActiveSheet
For i = 1 To 20
ActiveSheet.Shapes(ws1.Cells(50 + i, 1).Value).Select
Selection.ShapeRange.Line.Weight = ws1.Cells(50 + i, 2).Value
Next i
End Sub
