下面的代码是完美的。
Sub Macro1()
Dim mySecond As Double
mySecond = 75
Dim myMinute As Double
myMinute = mySecond / 86400
'Output of the following code is 01:15 which is perfect.
Debug.Print Format(myMinute, "nn:ss")
End Sub
我想通过省略以下几行来缩短上述代码。
Dim myMinute As Double
myMinute = mySecond / 86400
是否可以？
1）请在Excel应用程序中运行以下代码。
Sub Macro1()
'Delete all shapes if exists
For i = ActiveSheet.Shapes.Count To 1 Step -1
ActiveSheet.Shapes(i).Delete
Next i
'Add a Rectangle
With ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, Left:=20, Top:=20, Width:=200, Height:=120)
.Name = "myRectangle"
End With
'Make some formatting to the myRectangle
With ActiveSheet.Shapes("myRectangle")
.Line.Visible = msoTrue
.Line.ForeColor.RGB = vbBlue
.Line.Weight = 5
.Fill.UserPicture "https://upload.wikimedia.org/wikipedia/en/b/ba/Flag_of_Germany.svg"
End With
End Sub
2)请检查您的Excel 工作表中是否有以下矩形。
3)我正在寻找一个可以给我以下图片的宏。
正如您所理解的，我想在边界和旗帜之间留出一些空白。
我想在 PowerPoint 应用程序中制作一个 200 行的表格。
以下代码会引发此错误：运行时错误 424：需要对象
如何解决该错误？
Public Sub Macro1()
'Delete all slides
For i = ActivePresentation.Slides.Count To 1 Step -1
ActivePresentation.Slides(i).Delete
Next i
'Add a blank slide
ActivePresentation.Slides.Add Index:=1, Layout:=ppLayoutBlank
'Zoom out
ActiveWindow.View.Zoom = 40
'Add a Table
With ActivePresentation.Slides(1).Shapes.AddTable(NumRows:=1, NumColumns:=1, Left:=5, Top:=5, Width:=900, Height:=500)
.Name = "tbl"
End With
'Make 200 rows
While ActivePresentation.Slides(1).Shapes("tbl").Table.Rows.Count < 200
ActivePresentation.Slides(1).Shapes("tbl").Table.Rows.Add
Wend
'Change height for all rows
For i = 1 To ActivePresentation.Slides(1).Shapes("tbl").Table.Rows.Count
ActivePresentation.Slides(1).Shapes("tbl").Table.Rows(i).Height = 8
Next i
'Fill text to the 200 cells
For i = 1 To 200
ActivePresentation.Slides(1).Shapes("tbl").Table.Cell(i, 1).Shape.TextFrame.TextRange.Text = i
Next i
End Sub
以下行引发错误。
ActivePresentation.Slides(1).Shapes("tbl").Table.Cell(i, 1).Shape.TextFrame.TextRange.Text = i
1)请将以下值粘贴到Excel 表中的A1:B11单元格中。
1000 =IF(A1<1500,"NO","YES")
1100 =IF(A2<1500,"NO","YES")
1200 =IF(A3<1500,"NO","YES")
1300 =IF(A4<1500,"NO","YES")
1400 =IF(A5<1500,"NO","YES")
1500 =IF(A6<1500,"NO","YES")
1600 =IF(A7<1500,"NO","YES")
1700 =IF(A8<1500,"NO","YES")
1800 =IF(A9<1500,"NO","YES")
2）您将看到B 列中第一个包含 YES 的单元格是B6。
3)我正在寻找任何可以给出不带挥发性的B6的 Excel 公式。
提前致谢。
我想向文本字符串添加一个不可见的字符。
Dim myString As String
myString = "United States"
下面的代码不行，因为下面的代码将字符串分成两部分。
我想将绳子保留为一部分。
myString = "United" & " " & "States"
myString = "United" & Space(1) & "States"
myString = "United" & Chr(32) & "States"
myString = "United" & Chr(160) & "States"
United States和States之间必须有一个字符，但该字符必须是不可见的。
United States和United States之间必须有一个字符，并且该字符必须占据空间。
我应该在以下字符串中添加什么字符而不是问号？
myString = "United?States"
以下代码在Excel中可以正常运行。
但我正在寻找Power Point解决方案。
如何在Power Point应用程序中查找字典中的最大值？
Sub Macro1()
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
For i = 1 To 10
dict.Add Key:=i, Item:=i
Next i
For i = 0 To dict.Count - 1
Debug.Print dict.Keys()(i), dict.Items()(i)
Next i
'The following two lines works properly in Excel.
'But I am looking for Power Point solution.
Debug.Print Application.Max(dict.Items)
Debug.Print WorksheetFunction.Max(dict.Items)
End Sub
运行以下宏。
Sub Macro1()
MsgBox "Hello"
End Sub
当消息框弹出时，按键盘上的Ctrl+C键。
打开记事本文件并按键盘上的Ctrl+V键。
如您所见，您可以从MsgBox复制并粘贴到记事本 文件中。
现在让我们做第二个场景。
运行以下宏。
Sub Macro2()
Dim myNumber As Integer
myNumber = 20
Dim yourNumber As Integer
yourNumber = 0
'In mathematics, a number can not be divided by zero. So the following code must throw an error.
Dim resultNumber As Integer
resultNumber = myNumber / yourNumber
End Sub
当消息框弹出时，按键盘上的Ctrl+C键。
打开记事本文件并按键盘上的Ctrl+V键。
如您所见，您无法从MsgBox复制并粘贴到记事本 文件中。
我的问题：如何将运行时引擎发送的错误消息复制到 Windows 剪贴板，正如我在第二种情况中给出的示例一样。
将用户窗体添加到 Power Point 文件。
在该UserForm上放置一个CommandButton和一个ListBox。
将以下代码放在UserForm下。
Public Sub UserForm_Initialize()
UserForm1.ListBox1.AddItem "msoShapePentagon"
UserForm1.ListBox1.AddItem "msoShapeRectangle"
UserForm1.ListBox1.AddItem "msoShapeSmileyFace"
End Sub
''''''''''''''''''''''''''''''
Public Sub CommandButton1_Click()
MsgBox UserForm1.ListBox1.Value
UserForm1.Hide
Call Macro2
End Sub
将以下代码放在Power Point 文件的Module1下。
Public Sub Macro1()
UserForm1.Show
End Sub
''''''''''''''''''''''''''''''
Public Sub Macro2()
ActivePresentation.Slides.Add 1, ppLayoutBlank
Dim myVariant As Variant
myVariant = UserForm1.ListBox1.Value
MsgBox myVariant
'This line is okey
'ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, Left:=0, Top:=0, Width:=480, Height:=100
'This line gives an error
ActivePresentation.Slides(1).Shapes.AddShape Type:=myVariant, Left:=0, Top:=0, Width:=480, Height:=100
End Sub
运行Macro1，然后从属于用户窗体一部分的ListBox选择msoShapeRectangle并按CommandButton。
这是错误消息。
Run-time error 13: Type mismatch
这是错误行
ActivePresentation.Slides(1).Shapes.AddShape Type:=myVariant, Left:=0, Top:=0, Width:=480, Height:=100
那么我该如何解决这个错误呢？
以下代码按TAB 键三次。下面的代码就ok了。
SendKeys "{TAB 3}", True
如何按Ctrl加w 键3 次？
我已经尝试过以下代码，但它不起作用。
SendKeys "^w 3", True
请注意，Ctrl加w 键用于关闭活动网页。
所以我想关闭最后三个网页。
我想通过VBA和PowerShell命令清除Windows 操作系统剪贴板历史记录。
我是Windows 10用户。
这是清除Windows 操作系统剪贴板历史记录的 PowerShell 命令行。
PS C:\Windows\system32> Restart-Service -Name "cbdhsvc*" -force
以下链接可能有助于理解我在说什么。
您知道任何VBA代码可以给我提供与上述操作相同的结果吗？
我的意思是我只想通过VBA代码打开Windows 设置屏幕。
请注意，我是Windows 10用户。