|
説明不備の中
お早い回答有難うございます。
問題なく動きました。
わからない部分等は、下記文を参考にして
どのようにして動いているか理解して扱っていこうと思います。
大変感謝致します。
また、ご縁がありましたらよろしくお願いします。
>Private Sub CommandButton1_Click()
> Dim z As Long
>
> If Range("AK11") <> 1 Then
> MsgBox "内訳がありません。", vbCritical, "エラー"
> Exit Sub
> End If
>
> Application.ScreenUpdating = False
>
> With Sheets("Sheet2")
> z = .Range("A" & .Rows.Count).End(xlUp).Row + 1
> If z < 9 Then
> z = 9
> Else
> If z Mod 2 = 0 Then z = z + 1
> End If
> With .Rows(z).Resize(2).Columns("A:W")
> .MergeCells = False 'いったん解除。念のため
> .Value = Range("A49:W50").Value
> With .Range("A1:G2,H1:J2,K1:N2,O1:Q2,R1:T1,R2:T2")
> .VerticalAlignment = xlCenter
> .Orientation = 0
> .AddIndent = False
> .ShrinkToFit = False
> .ReadingOrder = xlContext
> Application.DisplayAlerts = False '念のため
> .Merge
> Application.DisplayAlerts = True
> End With
> .Range("V1:V2").NumberFormatLocal = "yyyy""年""m""月"";@"
> End With
> .Select
> End With
>
> Application.ScreenUpdating = True
>
> MsgBox "完了", vbOKOnly, "確認"
>End Sub
|
|