Sub TryAgainPrint()
If ActiveCell.Column <> 5 Then
MsgBox ("Select a cell in column Call ref. num.")
Exit Sub
Else:
End If '
' TryAgainPrint Macro
'
'
ActiveCell.Range("A1:H1").Select
Selection.Copy
Sheets("Print").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Problems").Select
ActiveCell.Offset(0, 8).Range("A1:I1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Print").Select
Range("A4:I4").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Problems").Select
ActiveCell.Offset(0, 1).Range("A1:B1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Print").Select
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub
答案 0 :(得分:0)
是的,您可以让多个用户同时打开Excel。 如果,您将其保存为共享工作簿。