Tag: 粘贴

从SQL粘贴到Excel … Excel想为我思考: 我正在将数据从SQL粘贴到Excel，看起来Excel正在尝试通过将我的一些数字转换为date来阅读我的想法。即一个数字是2-2131，当我把它粘贴到excel时，显示2月31日甚至2-3291 wnats是Feb-61 停止它EXCEL！这让我疯狂，我似乎无法find一个简单的方法。我尝试了“粘贴特殊”作为文本，它仍然格式化。如果我创build一个连接并使用查询，我可以使它工作，但我只是想能够复制粘贴数据用于testing目的。任何人都可以轻松解决我的头痛？提前致谢！

如何在单元格更改但尚未input数据时运行Excelmacros？: 问题在于：我有一台激光扫描仪读取条形码，并在读取成功后返回一个值。发生这种情况时，序列号（一个20位数字）被粘贴到活动单元格中。粘贴，但没有input 。我想知道是否有任何方法可以在private sub中包含某种“如果粘贴数据”的语句。代码的第二个目的是为每个条目添加时间戳，如下所示： Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Now() ActiveCell.Offset(1, -1).Activate End If End Sub 数据不会被快速input，所以相对单元格引用不应该是一个问题。如果你看到其他可以改进的地方，请不要犹豫，提及它！编辑：因为有些人提出了，这不是一个“简单”的粘贴; 数据被放置在公式栏中，但不会被input。编辑2：这是另一个人有我的同样的问题。

粘贴到Excellocking的单元格: 我正在为用户input数据创build一个模板。我希望他们能够做的就是从他们的来源复制他们的数据，并将其放入单元格A21-D21。一旦粘贴，他们不能删除或改变任何东西，excel只能用于打印。重新装修是好的，因为这将是一个模板。理想情况下，用户可以直接导出到这个受保护的工作表中，并完成它，但是仪器软件只需要调用excel而不是特定的数据库位置。简而言之，用户从乐器中获取数据，并将其保存为无法操作的格式，但除了连接到乐器上的任何一台计算机上都不能显示。我需要将这些数据放入Excel中，但不能更改。如果他们select，审核员可以比较原始数据和Excel。有没有办法保护工作表，并select一个解锁的单元格（格式单元格），A1，然后将A21-D21的整个范围填充/粘贴到？这个想法是，人们会操纵原始数据来获得他们想要的答案，但这将限制用户只能粘贴。所以我想，简单地说，我希望find一种方法来允许用户复制/粘贴，这是它！？

数据被粘贴VBA时自动运行macros: 我有一个工作表，在前三列（A，B，C）中存储数据。这些值在macros中使用。我想知道在将数据粘贴到这些列之后如何自动运行这个macros。我几乎可以肯定，我将使用工作表 – 更改模块，但对于代码我很无能。提前致谢。

ExtJS 5电子表格select模型错误: 看起来有一个错误，将部分select粘贴到网格中，因为我select的下面的行被取消。我正在使用ExtJS 5.1。我复制下面的单元格（2行和2列） – 并粘贴到ExtJS网格http://dev.sencha.com/ext/5.1.0/examples/kitchensink/#spreadsheet 我得到的是 – 可能是额外的第三行（红色突出显示）的原因是什么？有没有解决方法？提前致谢：）

Microsoft Excel复制并粘贴date格式: 任何人都可以帮助我复制和粘贴，但保持数据的格式为date和所有数字的所有数字。所以例如我有客户ID应该是3位数（000），并且date是date格式。但是当我复制和粘贴时，date变成了一个奇怪的整数，ID变成1位数。这是现在的输出复制自： 001 AVC BDE 130 6/23/2013 当我粘贴它成为：客户ID名称types数量date1 AVC BDE 130 41448 谁能帮忙？这是我的代码 ActiveSheet.Range("A1:F1").Copy wkbDisplayOrder.Worksheets("Customer's Order").Select ActiveSheet.Range("A1:F1").PasteSpecial Paste:=xlPasteValues

使用VBA将Excel图表粘贴到Powerpoint中: 我试图创build一个Excelmacros，复制在Excel工作表上显示的图表，并将它们（粘贴特殊）粘贴到PowerPoint中。我遇到的问题是如何将每个图表粘贴到不同的幻灯片上？我根本不知道语法这是我到目前为止（它的工作原理，但只贴到第一张）： Sub graphics3() Sheets("Chart1").Select ActiveSheet.ChartObjects("Chart1").Activate ActiveChart.ChartArea.Copy Sheets("Graphs").Select range("A1").Select ActiveSheet.Paste With ActiveChart.Parent .Height = 425 ' resize .Width = 645 ' resize .Top = 1 ' reposition .Left = 1 ' reposition End With Dim PPT As Object Set PPT = CreateObject("PowerPoint.Application") PPT.Visible = True PPT.Presentations.Open Filename:="locationwherepptxis" Set PPApp = GetObject("Powerpoint.Application") Set PPPres […]

如何在Excel中设置默认的粘贴特殊值来粘贴值: 其中一个在我的Excel中的单元格用作用户input框…如果用户在这个单元格中粘贴的东西，我只想要粘贴的值，而不是格式。有没有办法设置粘贴选项的默认值只粘贴值？

Excel VBA：粘贴问题: 我已经尝试了各种方法来做这个粘贴，但没有一个是工作。我对编程非常陌生，所以我需要一些帮助来理解为什么我不断收到错误1004或5.我什至不明白这些错误是什么意思。 Cells(hotcell).Copy Cells.Offset(0, 1).PasteSpecial 或者… Paste，… PasteSpecial = xlpasteall，… pastespecial Paste：= xlpasteall，Range（Cells（“B”＆i））。paste，Range（“B”＆i）.paste等等如上。我完全亏损。程序中的其他一切工作正常。我只是不能得到它粘贴我的复制值到所需的单元格（所有偏移一定数量的列，但在同一行）。帮助和解释都赞赏。编辑谢谢我收到的答案，我能解决我的问题。我在任何地方都找不到一个好的答案。谢谢！我使用的解决scheme是最简单的解决scheme之一： rng.Offset(0, 1) = rng.Text 再次感谢那些回答的海报和那些评论。我做得太困难了。

如何复制/粘贴表单数据不包括ActiveXButtons: 问题：我有一个包含值，公式和ActiveXbutton的工作表。 ActiveXbutton用于附加一些数据，并将活动工作表中的所有值/公式从另一个工作簿中复制/粘贴到另一个工作表中。现在它工作正常，只有一个例外。当它将复制的范围粘贴到新的工作簿/工作表中时，它也会粘贴ActiveXbutton及其各自的代码。我想知道是否有一种方法来select所有的东西，less一些ActiveXbutton，将它添加到剪贴板，然后照常粘贴。提前致谢。