【发布时间】:2016-06-04 04:57:40
【问题描述】:
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
【问题讨论】:
-
代码和标题有什么关系?如果您的意思是像在共享驱动器中一样,确实可以,只有第一个打开文档的人才能保存它。
-
是的,多人可以同时访问同一个 Excel 文件。只需查看 Excel 中的
Review选项卡,然后单击Share Workbook。但是,您能否解释一下“……没有冲突”是什么意思? -
以下是您在“共享工作簿”中必须使用的一些限制:support.office.com/en-us/article/… 这也可能有用:support.office.com/en-us/article/…