Tag: vba
Excel VBA：确认按下CommandButton
当按下我的CommandButton时，我想要一个popup窗口，询问“这些更改不能撤消，build议在继续之前保存一份副本，你想继续吗？ 我想有三个select： 是的 – popup窗口closures并执行CommandButtonmacros 否 – 这将closurespopup窗口并且不会改变任何内容 保存 – closurespopup窗口并打开“另存为”（不执行macros） 我真的不知道从哪里开始。 你能帮我一下吗？ 非常感谢你。
Excelmacros移动列
基本上我正在寻找移动一列到另一个位置。 561 DISK_GROUP_003 0 545 1 561 Disk_Group_iS 95 84144 80210 561 DISK_GROUP_iS 99 26335 26304 1415 t1_200ea 93 8804 8203 1415 t2_30010k 35 59846 21121 1415 t3_1tb72k 19 184941 36590 1415 t3_3tb72k 86 258635 224328 5018 t1_200ea 98 9905 9802 5018 t2_30015k 89 39987 35986 5018 t2_60015k 67 59984 40700 5018 t3_1tb72k 89 87567 […]
VBA中公共variables的替代方法
我有几个模块引用的公共variables。 我知道如果你debugging或停止variables被清除。 我一直在写这些variables到一个电子表格，所以我有他们的情况下，他们被清除，但这是混乱。 我宁愿把它存储在代码中。 是否有任何替代公共variables永远不会被清除？
强制刷新工作表的“最后”单元格
在Excel中按Ctrl + End可以将您带到工作表的右下angular的单元格。 如果删除最后一行或列并保存工作簿，则会更新最后一个单元格以及滚动条。 我记得有一行VBA命令可以运行，可以在不保存工作簿的情况下进行更新，但我不记得命令是什么 – 你有什么想法吗？
如何在Excel工作表中将列格式设置为数字格式？
以下是VBA代码。 Sheet2包含通用格式的所有值。 运行代码后，Sheet3的“C”列中的值包含13位或更多位数的指数值。 应该怎么做，以便Sheet3的列“C”不包含指数值？ private Sub CommandButton1_Click() Dim i, j, k As Variant k = 1 For i = 1 To 30000 If Sheet2.Range("c" & i).Value >= 100 And Sheet2.Range("c" & i).Value < 1000 Then Sheet3.Range("a" & k).Value = Sheet2.Range("a" & i).Value Sheet3.Range("b" & k).Value = Sheet2.Range("b" & i).Value Sheet3.Range("c" & k).Value = Sheet2.Range("c" & […]
下一个没有错误的VBA
我有下面的代码和VBA给我一个“下一个没有为”错误，当我肯定都有。 我知道VBA可以列出与它所说的不完全相同的错误，但是我找不到任何其他的闭环。 如果有人可以检查，这将是很棒！ 谢谢： Option Explicit Sub HW09() Dim ng As Integer Dim v As String Dim lg As String Dim ca As Integer Dim sd As Integer Dim c As Integer Dim r As Integer c = 2 Do ng = InputBox("Please enter the student's numerical grade.") If ng < 0 Then ng = […]
VBA – 运行时错误1004'应用程序定义或对象定义错误'
我有一个Excel文档，第一次运行时将模板复制到新工作表中。 跟随此模板的任何更多工作表将附加到新创build的工作表。 我在代码的这一部分的标题中得到错误： If Worksheets("User Configuration").Cells(9, 15).Value = 1 Then Worksheets("Cable Cards Template").Range("A1:J33").Copy With Worksheets("Cable Cards") **.Range(Cells(RangeStartRow, RangeStartColumn), Cells(RangeEndRow, RangeEndColumn)).PasteSpecial xlValues** .Range(Cells(RangeStartRow, RangeStartColumn), Cells(RangeEndRow, RangeEndColumn)).PasteSpecial xlFormats End With Worksheets("Cable Cards Template").Shapes("Picture 1").Copy Worksheets("Cable Cards").Paste Cells(RangeStartRow, RangeStartColumn) Call Sheets.FormatCableCardRows End If 基本上，如果If语句为真（单元格= 1），那么应该复制特定工作表上的一个范围并将其粘贴到使用PasteSpecial给定范围内的新工作表中以获取值和格式。 之后，“新创build的”工作表应该将图像复制到模板的左上angular单元格中，然后调用子例程来格式化新工作表的行。 在With Worksheets("Cable Cards")声明之后的第一个.Range调用中出现错误。 我试过不使用With语句，直接复制值而不是粘贴特殊等。奇怪的是，这将运行在第一个去，当新的工作表创build通过： If (RangeStartRow = 1) Then Worksheets.Add().Name = "Cable […]
为什么要在VBA或Excel中使用DIM语句？
所以DIM有什么问题 ，但我找不到为什么要使用它。 据我所知，这三组代码之间没有区别： 'Example 1 myVal = 2 'Example 2 DIM myVal as Integer myVal = 2 'Example 3 DIM myVal = 2 如果我省略DIM代码仍然运行，并且在2或3个嵌套循环之后，当省略输出时，我看不出有什么区别。 来自Python，我喜欢保持我的代码清洁*。 那么为什么我需要用DIM来声明variables？ 除了文体的关注，是否有技术上的理由使用DIM ？ *我也是懒惰的，并且没有声明variables的习惯。
使用VBA在Excel中排除无效的超链接？
标题说： 我有一个超级链接列的Excel表单。 现在我想要一个VBA脚本检查哪些超链接已经死了或工作，并使用404错误或活动的文本进入下一列。 希望有人能帮助我，因为我不擅长VB。 编辑： 我发现@ http://www.utteraccess.com/forums/printthread.php?Cat=&Board=84&main=1037294&type=thread 这是一个解决scheme，但是问题是，我需要这个解决scheme的Excel。 有人可以把它转换成Excel解决scheme吗？ Private Sub testHyperlinks() Dim thisHyperlink As Hyperlink For Each thisHyperlink In ActiveDocument.Hyperlinks If thisHyperlink.Address <> "" And Left(thisHyperlink.Address, 6) <> "mailto" Then If Not IsURLGood(thisHyperlink.Address) Then Debug.Print thisHyperlink.Address End If End If Next End Sub Private Function IsURLGood(url As String) As Boolean ' Test the URL […]
input“=”作为单元格中的第一个字符
我有一个运行的VBAmacros，经常需要有“=”作为单元格中的第一个字符。 单元格填充“=国内”，“<>国内”等值 现在我用“IS”replace“=”作为quickfix，但是我希望能保持等号，以便与使用诸如“<>”之类的符号的单元保持一致。 当我尝试时，Excel认为它是一个错误语法的函数。 我正在使用Cells(row, col).Value = x ，其中x是可能或不可以以“=”开头的string来input数据。
