我正在尝试整理以下链接"www.tutorialspoint.com/ VBA /index.htm“右侧窗格中给出的vba课程项目列表。 但由于某些错误,我无法抓取列表: Sub tutorailpointsscrap()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
With ie
.navigate "https://www.tutorialspoint.com//vba/index.htm"
.Visible = True
我正在尝试生成一个单词云,其中一个单词中有一个+符号。我知道+符号在RegEx中有特殊的含义,我也知道在WordCloud()中有一个regexp参数。但是,我不知道如何调整这一点,以便允许+在word云输出中显示?
下面是我的当前代码:
import matplotlib.pyplot as plt
%matplotlib inline
from wordcloud import WordCloud, STOPWORDS
# Define a function to plot word cloud
def plot_cloud(wordcloud):
# Set figure si
如何将输入框中的用户输入限制为字母、数字和字符‘-’?我尝试了以下代码。
For I = 1 To Len(UserInput)
If VBA.Asc(VBA.Mid(UserInput, I, 1)) >= 65 And VBA.Asc(VBA.Mid(UserInput, I, 1)) <= 90 Or VBA.Asc(VBA.Mid(UserInput, I, 1)) >= 0 And VBA.Asc(VBA.Mid(UserInput, I, 1)) <= 9 Or VBA.Asc(VBA.Mid(UserInput, I, 1)) = 45
使用excel中的VBA,我有一个代码,将输入的日期与当前日期进行比较,根据结果,系统将以正确的颜色填充单元格。
代码在四种条件下进行比较。如果输入的日期减去当前的日期是:
=0
小于0
在1至4之间
在4至10之间
使用IF语句,但是系统给了我一个错误,错误在哪里,以及如何修复它?
代码:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge
我有VBA代码,将用户输入的日期与当前日期进行比较,并以适当的颜色填充背景。一切都很好。
现在我需要使系统检查所选行的F列中的单元格是否为空,我需要将列D、E、F着色为灰色。
代码:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If IsEmpty(Cells(i
有一段检查日期并用适当的颜色填充单元格的代码,该代码包括一个按钮,当用户单击该按钮时,它将运行VBA代码。
我想始终使按钮可见,无论用户如何向下滚动。
代码:
Private Sub CommandButton1_Click()
Dim i As Long
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If IsEmpty(Cells(i, 3)) Then
Cells(
所以我刚学到,如果你输入VBA。这将激活包含VBA功能的自动列表。这是否意味着VBA是一个对象?如果我想使用VBA函数进行“完全限定”,那么这些限定符是什么?
例如,这些都是有效的语句吗:
x = Sqr(25)
x = VBA.Sqr(25)
x = Application.VBA.Sqr(25)
谢谢你的澄清。
我有VBA代码,用当前日期检查输入的日期,并以适当的颜色填充单元格,并检查colomn "F"是否为空,它将为D、E、F列着色。
问题是,到目前为止,我有21条记录,但系统只显示19条记录,即使2行在F列中不是空的。
代码:
Private Sub CommandButton1_Click()
Dim i As Long
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If I
我正在尝试让代码“复制粘贴”工作表"X“中的值设置为VBA。然而,它给我一个1004错误。
Sub Probabilities()
Dim VBA As Worksheet
Set VBA = Sheets("X")
Dim Overview As Worksheet
Set Overview = Sheets("Overview")
Overview.Range(Cells(27, 3), Cells(34, 3)).Value = Overview.Range(Cells(40, 3), Cells(47, 3)).Value
VBA.Range
我有一个用VBA编写的代码,它将检查日期和基础,它将用适当的颜色填充背景。
我有细胞(A到G )。
我想检查G是否是空的,如果是空的,我想改变单元格(A)(B)(D)(E)(F)(G)的背景色,但单元格(C )除外。
代码:
Private Sub CommandButton1_Click()
Dim i As Long
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If IsEmpty(C
我可以像这样在SQL查询中使用标量VBA函数
SELECT vba_concat(name, surname) FROM persons
此外,我还可以在SQL查询中使用非标量SQL函数,如下所示
CREATE FUNCTION names() RETURNS TABLE(name VARCHAR(20)) AS '
SELECT name FROM persons;
' LANGUAGE SQL;
SELECT * FROM names();
但是如何在SQL查询中使用非标量VBA函数,比如SELECT * FROM vba_ids(),vba_ids()定义为Pu
我有一个代码,当用户单击按钮时,系统会比较当前日期和书面日期,然后用适当的颜色填充单元格。
问题是,如果在两天前我写了10-16-2017年,它将用红色填充背景。如果我今天检查的话,它必须把颜色变成黄色。问题是,一旦单元格被着色,它就不会改变颜色。
示例:
日期10-16-2017是写在3前,所以最初的颜色将是红色。
今天是10-16-2017年,所以当我按下按钮时,它必须变成黄色。
,这是我的代码:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = Range("C5000").End(x
.PasswordChar属性使用元件用户在Excel for Windows (而不是Excel for Mac )中正确选择的任何内容来屏蔽文本框输入。
我处理过Textbox1_Change事件,但它的工作效率不高。
有人能提示我该怎么做吗?
Private Sub TextBox1_Change()
Dim mystring As Variant
Dim textlen As Integer
Dim counter As Integer
mystring = UserForm1.TextBox1.Value
textlen = VBA.Len
我要VBA比较单元格(y,x)和单元格(y,x-3)。X应该从第35列到第2列。但是,如果我将x定义为'For x= 35 to 2 step -3,则vba将出现“应用程序-defined或对象定义”错误。如果我将x定义为‘对于x= 35到5,步骤-3’,代码可以正常工作,但它将跳过第2列的计算。如何解决这里的问题?这是密码。
Sub testing1()
Dim x As Integer
Dim y As Integer
For x = 35 To 5 Step -3
For y = 11 To 76 Step 1
If IsNumeric(Cells(y, x).Valu
此是用来破解任何VBA工程的密码的。解释说,即使在执行VBA模块后,公共变量也会保持其值不变。是否有可能修改以下VBA代码(存储在模块级或类级),以防止执行(前述VBA代码)破解项目密码?
Public Dim HookBytes(0 To 5) As Byte
Dim OriginBytes(0 To 5) As Byte
Dim pFunc As LongPtr
Dim Flag As Boolean
ReDim HookBytes(0) As Byte
ReDim OriginBytes(0) As Byte
pFunc = 9223372036854775807 ' http
我正在尝试转换我的excel文件到一个VCF.But我不能添加传真和地址在VCF格式。其余的值我可以转换,但无法在VCF中添加传真和地址。我的代码如下:
Sub excelTovcf()
Dim FileNum As Integer
Dim iRow As Integer
Dim FirstName As String
Dim LastName As String
Dim FullName As String
Dim EmailAddress As String
Dim PhoneHome As String
Dim PhoneW
我有一个C# dll,它的方法应该被调用: 1.对于某些用户,从它的UI调用;2. VBA,对于某些用户
我设置了项目'register of COM interop',注册到Regasm,从VBA引用,并创建了对象,称为来自VBA模块的方法。这在VBA和它的UI中都工作得很好。
现在,我必须更改该方法,以便在单独的线程中运行一些其他UI处理。现在VBA代码不起作用了。没有错误。它只是返回模块,但不会进行任何处理。
有没有办法在VBA中等待C#线程完成?
我想再问一个我两年前问过的问题: JavaScript API for Office获得文档包含的JavaScript宏吗? ()
VBA和VSTO都可以访问VBA宏。像这样的工具可以超越vbaProject.bin;此外,像这样的工具甚至可以解压缩vbaProject.bin。
如果Office文档包含VBA代码,那么它可能是一个重要的组件。一些大公司有内部工具来检查他们的VBA宏,防止错误的编程实践,代码气味,恶意软件,计算机取证。有软件来测量VBA宏的度量和发现bug。如果没有对VBA宏的访问,所有这些功能都是不可能的。
我想提供一个JavaScript API来读取VBA宏不会太复杂,
我有一个带密码保护(防止未经授权访问宏)的VBA宏,它可以按预期运行。用户单击按钮,宏将运行。内容或多或少如下:
Sub sample()
ActiveSheet.Unprotect Password:="xyz"
...VBA code....etc
ActiveSheet.Protect Password:="xyz", DrawingObjects:=True, Contents:=True, cenarios:=True
End Sub
现在我已经添加了一个函数,因此代码如下所示:
Function
.....
我有一个vba按钮。如果我单击它,我想让VBA从下面的列表中询问我要运行哪个或哪些子程序。
VBA按钮被指定给runAllMacros宏,而"Output“等是其他宏。
Public Sub runAllMacros()
Output
Input
General
Bank
End Sub
这是可能的吗?如果是的话,我如何在Excel VBA中实现它。