|
こんにちは。
>97では何かボタン使用するとうまく行かないことあるのでしょうか?
あります。
フォーカスがボタンに残ったままだとそうなります。
シートにフォーカスを移す為にボタンのイベントの最初に
お約束の呪文の書いて下さい。
>Dim AAA As String
>Dim AA As String
>
ActiveCell.Activate
>
>AAA = Range("F16")
>AA = Range("C21")
>
>'1番目のシートを選択
> If AA = "" Then GoTo Line1
>
> Workbooks(AAA).Worksheets(AA).Range("A7:C24").Copy
> ActiveSheet.Paste Destination:=Workbooks("ABC").Worksheets("DEF").Range("A34:C51")
>
> Workbooks(AAA).Worksheets(AA).Range("L7:M24").Copy
> ActiveSheet.Paste Destination:=Workbooks("ABC").Worksheets("DEF").Range("D34:E51")
>
>Line1:
|
|