- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在使用 VBA 将内容从 Excel 复制到 PowerPoint。它正在工作,但我需要清理我的代码。问题是我不知道当涉及多个过程中使用的变量(或对象)时,什么是好的做法。我认为我在这方面缺乏一些基本的了解。
Sub 1()
Dim a As Long, b As Long
Call Sub2(a, b)
'...
End Sub
Sub2(a As Long, b As Long)
'...
End Sub
Sub2
以不同的方式调用变量,例如 x 和 y?如果不是,我回到问题 1):直接从 Sub1
传递这些变量的原因是什么?至Sub2
而不是在全局范围内声明它们?当我打算使用 a
的原始值时,我得到它和 b
在 Sub1
调用 Sub2
后(所以基本上将它作为 ByVal
传递给 Sub2
),但在我的情况下并非如此。 lRowAn
, lRowData
等全局? iSlides
执行此操作对我有意义,但不适用于 wsEm
.EmData
和 EmDataAn
非常相似,我会看看是否可以合并它们,但它们很好地说明了我遇到的问题,因为它们使用了许多相同的变量。Public mySlide As PowerPoint.Slide
Public PowerPointApp As PowerPoint.Application
Public myPresentation As PowerPoint.Presentation
Public MonatNum As String, JahrNum As String, MonatStr As String
Sub CreateReport()
Dim DestinationPPT As String
Dim iSlides As Integer
Dim fRowAn As Long, lRowAn As Long, lRowData As Long
Dim wbEm As Workbook
Dim wsEm As Worksheet
Set PowerPointApp = New PowerPoint.Application
DestinationPPT = "C:\VBA\ReportTemplate.pptm"
Set myPresentation = PowerPointApp.Presentations.Open(DestinationPPT)
Set wbEm = Workbooks.Open("C:\VBA\Report.xlsx")
Set wsEm = wbEm.Sheets("Sheet1")
lRowAn = wsEm.Cells(Rows.Count, 3).End(xlUp).Row
fRowAn = wsEm.Cells(Rows.Count, 3).End(xlUp).End(xlUp).Row + 1
If lRowAn >= 127 Then
If lRowData <= 127 Then '4 Slides, but separate Annotations from Data
iSlides = 1
Call EmData(wsEm, iSlides)
Call EmDataAn(wsEm, iSlides)
Else '4 Slides
iSlides = 3
Call EmData(wsEm, iSlides)
End If
Else '3 Slides
Call EmData(wsEm, iSlides)
End If
Application.DisplayAlerts = False
wbEm.Close SaveChanges:=False
Application.DisplayAlerts = True
PowerPointApp.Visible = True
PowerPointApp.Activate
Application.CutCopyMode = False
End Sub
Sub EmData(wsEm As Worksheet, iSlides As Integer)
Dim i As Integer
Dim fRowDataCalc As Long, lRowDataCalc As Long, lRowCopy As Long
Dim rowHght As Long
Dim rng As Range
For i = 0 To iSlides
fRowDataCalc = 4 + 40 * i + i * 1
lRowDataCalc = 4 + 40 * (i + 1) + i * 1
With wsEm
.Range("B2:K3").Copy .Range("B500")
.Range("B" & fRowDataCalc & ":K" & lRowDataCalc).Copy .Range("B502")
rowHght = .Range("B3").EntireRow.Height
.Range("B501").RowHeight = rowHght
lRowCopy = .Cells(Rows.Count, "C").End(xlUp).Row
Set rng = .Range("B500:K" & lRowCopy)
End With
Set mySlide = myPresentation.Slides.AddSlide(myPresentation.Slides.Count + 1, PPLayout("LayoutEmittenten"))
mySlide.Shapes.Placeholders(1).TextFrame.TextRange.Text = "Headline (" & i + 1 & ")"
Call PasteEm(mySlide, rng)
rng.Clear
Next i
End Sub
Sub EmDataAn(wsEm As Worksheet, iSlides As Integer)
Dim lRowAn As Long, fRowAn As Long, lRowData As Long, fRowDataCalc As Long, lRowDataCalc As Long
Dim rng As Range
Dim rowHght As Long, lRowCopy As Long
lRowAn = wsEm.Cells(Rows.Count, 3).End(xlUp).Row
fRowAn = wsEm.Cells(Rows.Count, 3).End(xlUp).End(xlUp).Row - 1
lRowData = wsEm.Cells(Rows.Count, 10).End(xlUp).Row
iSlides = iSlides + 1
fRowDataCalc = 4 + 40 * iSlides + iSlides * 1
lRowDataCalc = lRowData
'Last sheet with data
With wsEm
.Range("B2:K3").Copy .Range("B500")
.Range("B" & fRowDataCalc & ":K" & lRowDataCalc).Copy .Range("B502")
rowHght = .Range("B3").EntireRow.Height
.Range("B501").RowHeight = rowHght
lRowCopy = .Cells(Rows.Count, "C").End(xlUp).Row
Set rng = .Range("B500:K" & lRowCopy)
End With
Set mySlide = myPresentation.Slides.AddSlide(myPresentation.Slides.Count + 1, PPLayout("LayoutEmittenten"))
mySlide.Shapes.Placeholders(1).TextFrame.TextRange.Text = "Headline (" & iSlides + 2 & ")"
Call PasteEm(mySlide, rng)
rng.Clear
'Annotations
Set rng = wsEm.Range("B" & fRowAn & ":K" & lRowAn)
rng.Copy
Set mySlide = myPresentation.Slides.AddSlide(myPresentation.Slides.Count + 1, PPLayout("LayoutEmittenten"))
mySlide.Shapes.Placeholders(1).TextFrame.TextRange.Text = "Headline (" & iSlides + 2 & ")"
Call PasteEm(mySlide, rng)
End Sub
Sub PasteEm(mySlide As PowerPoint.Slide, rng As Range)
Dim myShape As PowerPoint.Shape
rng.Copy
DoEvents
mySlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile ' = 2
Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
With myShape
.Width = 683
.Top = 70
.Left = 5
End With
End Sub
最佳答案
局部变量
首先,尽可能将每个变量声明为本地变量。例如,如果仅在一个过程/函数中需要它,则在此处声明它。
局部变量(作为参数传递)
如果您需要访问多个过程/函数中的变量,那么最好将其作为参数传递给下一个函数。这可以做到ByRef
(默认)或 ByVal
.
Sub ProcedureA()
Dim ParamA As String
ParamA = "AAA"
Dim ParamB As String
ParamB = "BBB"
ProcedureB ParamA, ParamB
Debug.Print ParamA 'returns 111
Debug.Print ParamB 'returns BBB
End Sub
Sub ProcedureB(ByRef Param1 As String, ByVal Param2 As String)
Param1 = "111" 'this will change ParamA in ProcedureA too
Param2 = "222" 'this value will only be changed in ProcedureB
End Sub
使用
ByRef
时(通过引用)可以更改
ProcedureB
中的参数并且在
ProcedureA
中也进行了更改,但是传递的参数
ByVal
(按值)在
ProcedureA
中没有变化.
ByRef
也是一个好习惯。或
ByVal
并且不使用默认值。使用默认值时,您必须始终记住它是
ByRef
默认情况下在 VBA 中,但在 VB.NET 中默认为
ByVal
这很容易让人困惑(至少我是这样)。
ProcedureA
结束变量不再可用(数据丢失)。
Dim GlobalVarA As String
Sub ProcedureA()
GlobalVarA = "AAA"
End Sub
Sub ProcedureB()
Debug.Print GlobalVarA 'return AAA (if ProcedureA was run before)
End Sub
请注意,在这种情况下
任意 程序可以改变
GlobalVarA
的值.如果您按照上面的说明将其作为参数传递,则只有传递变量的过程才能访问该变量。
Empty
或
Nothing
.例如(上)运行时
ProcedureB
你不能依赖
ProcedureA
之前已经运行过。所以你需要检查
GlobalVarA
的值在
ProcedureB
中使用它之前特别是如果它是一个对象,你必须测试它是否不蜜蜂
Nothing
否则你很容易遇到错误。
Dim VarA As String 'global
Sub ProcedureA()
Dim VarA As String 'same name local
VarA = "AAA" 'this uses always the local variable!
End Sub
Sub ProcedureB()
Debug.Print VarA 'this uses the global variable and it is empty (after ProcedureA is run)
End Sub
一般来说,只使用有意义的变量名是一种很好的做法。这意味着不是调用变量
rng1
和
rng2
例如给他们打电话
InputRange
和
OutputRange
.此外,如果您经常需要一个计数器(例如循环遍历行和列)
i
和
j
被使用,但如果你使用例如
iRow
,它的可读性会更高。和
iCol
作为变量名。
Option Explicit
: 在 VBA 编辑器中转到工具 › 选项 ›
Require Variable Declaration .这可以防止您错误键入变量名称并意外引入新变量。
关于excel - 不同subs中全局变量和局部变量的使用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/56054018/
我需要将文本放在 中在一个 Div 中,在另一个 Div 中,在另一个 Div 中。所以这是它的样子: #document Change PIN
奇怪的事情发生了。 我有一个基本的 html 代码。 html,头部, body 。(因为我收到了一些反对票,这里是完整的代码) 这是我的CSS: html { backgroun
我正在尝试将 Assets 中的一组图像加载到 UICollectionview 中存在的 ImageView 中,但每当我运行应用程序时它都会显示错误。而且也没有显示图像。 我在ViewDidLoa
我需要根据带参数的 perl 脚本的输出更改一些环境变量。在 tcsh 中,我可以使用别名命令来评估 perl 脚本的输出。 tcsh: alias setsdk 'eval `/localhome/
我使用 Windows 身份验证创建了一个新的 Blazor(服务器端)应用程序,并使用 IIS Express 运行它。它将显示一条消息“Hello Domain\User!”来自右上方的以下 Ra
这是我的方法 void login(Event event);我想知道 Kotlin 中应该如何 最佳答案 在 Kotlin 中通配符运算符是 * 。它指示编译器它是未知的,但一旦知道,就不会有其他类
看下面的代码 for story in book if story.title.length < 140 - var story
我正在尝试用 C 语言学习字符串处理。我写了一个程序,它存储了一些音乐轨道,并帮助用户检查他/她想到的歌曲是否存在于存储的轨道中。这是通过要求用户输入一串字符来完成的。然后程序使用 strstr()
我正在学习 sscanf 并遇到如下格式字符串: sscanf("%[^:]:%[^*=]%*[*=]%n",a,b,&c); 我理解 %[^:] 部分意味着扫描直到遇到 ':' 并将其分配给 a。:
def char_check(x,y): if (str(x) in y or x.find(y) > -1) or (str(y) in x or y.find(x) > -1):
我有一种情况,我想将文本文件中的现有行包含到一个新 block 中。 line 1 line 2 line in block line 3 line 4 应该变成 line 1 line 2 line
我有一个新项目,我正在尝试设置 Django 调试工具栏。首先,我尝试了快速设置,它只涉及将 'debug_toolbar' 添加到我的已安装应用程序列表中。有了这个,当我转到我的根 URL 时,调试
在 Matlab 中,如果我有一个函数 f,例如签名是 f(a,b,c),我可以创建一个只有一个变量 b 的函数,它将使用固定的 a=a1 和 c=c1 调用 f: g = @(b) f(a1, b,
我不明白为什么 ForEach 中的元素之间有多余的垂直间距在 VStack 里面在 ScrollView 里面使用 GeometryReader 时渲染自定义水平分隔线。 Scrol
我想知道,是否有关于何时使用 session 和 cookie 的指南或最佳实践? 什么应该和什么不应该存储在其中?谢谢! 最佳答案 这些文档很好地了解了 session cookie 的安全问题以及
我在 scipy/numpy 中有一个 Nx3 矩阵,我想用它制作一个 3 维条形图,其中 X 轴和 Y 轴由矩阵的第一列和第二列的值、高度确定每个条形的 是矩阵中的第三列,条形的数量由 N 确定。
假设我用两种不同的方式初始化信号量 sem_init(&randomsem,0,1) sem_init(&randomsem,0,0) 现在, sem_wait(&randomsem) 在这两种情况下
我怀疑该值如何存储在“WORD”中,因为 PStr 包含实际输出。? 既然Pstr中存储的是小写到大写的字母,那么在printf中如何将其给出为“WORD”。有人可以吗?解释一下? #include
我有一个 3x3 数组: var my_array = [[0,1,2], [3,4,5], [6,7,8]]; 并想获得它的第一个 2
我意识到您可以使用如下方式轻松检查焦点: var hasFocus = true; $(window).blur(function(){ hasFocus = false; }); $(win
我是一名优秀的程序员,十分优秀!