小编R3u*_*3uK的帖子

我正在尝试编写一个可以在PowerPoint 2007-2010中以编辑模式调用的vba宏.

我可以轻松地将一个命令按钮添加到演示文稿中.但是,在幻灯片模式下,只能单击此按钮以触发vba宏.

但是,我想要做的是让这个按钮在编辑模式下触发相关的vba宏.在编辑模式下单击它允许我更改其大小等,但它不会调用宏.

另一方面,在Excel中,当我插入按钮时,我得到完全预期的行为 - >点击它调用vba动作.

那么如何在PowerPoint的编辑视图中创建一个调用vba宏的按钮(或其他相同方式的元素).我能想到的唯一方法是使用功能区动作,但是在这种情况下这是不实际的,因为宏将修改与按钮关联的形状,并且每个幻灯片可能有多个这些形状应该各自具有自己的形状按钮.

我的职位是全职编写 Visual Basic 宏来支持公司的多个部门。我做得很好，学到了很多东西，也很喜欢我的职位。

我们正在制定未来的计划，虽然我非常擅长搜索这些项目所需的信息（堆栈溢出是这方面的一个很好的资源），但我已经干了一些我已经做过的事情一直在尝试做一点。

这就是这片土地的情况。我们通过公司每个人都可以访问的网络驱动器分发附加到各种其他程序的宏。这些宏还与我们公司使用的专有系统交互并实现自动化。因此，当对该系统进行轻微更改时，我们必须对大量宏进行更改才能保持最新状态。

因此，我们想要尝试做的是制作一个 DLL 方法来与我们的专有系统进行交互。我们希望将该 DLL 放在网络驱动器上，并在那里设置所有宏的引用。不幸的是，我们至少目前无法访问 Visual Studio。就开发环境而言，我们只能使用 Office 附带的 Visual Basic 6.5。我们正在努力获得更多，但在大公司工作的人都知道这是怎么回事。

因此，我想知道是否可以使用 Visual Basic 编辑器创建 DLL，以及是否会出现数十个宏可能同时访问它的问题。

预先感谢您提供的任何帮助或建议。

我想知道是否有办法测试表格单元格中的第一个字母是否大写,而不是翻录字母并将其与充满CHR代码的数组进行比较或为每个单元格循环26个instr()函数.

基本上,我们有客户端向我们发送表格,其中存根单元格(最左边)的一部分句子在一行上,然后其余部分在下面的行上,缩进.

问题是我不能使用缩进来测试这些场景,因为其他单元格由于其他原因而缩进.我需要根据这些场景应用行着色,并且我很难找到一种有效的方法来测试它.

此代码返回1

MsgBox (StrComp("This sentence continues", UCase("This sentence continues"), vbBinaryCompare))

此代码也返回1

MsgBox (StrComp("this sentence continues", UCase("This sentence continues"), vbBinaryCompare))

我需要使用Twitter Bootstrap 3.0制作一个poppos show iframe,它popopver应该根据使用href的onmouseover事件在链接中提供的值显示iframe.

我得到第一个链接工作,但不是在3.0,但在2.0.2,但第二个链接应该改变变量的值,并显示一个不同的iframe,我似乎不知道如何做到这一点.

$(window).load(function(){
var img = '<iframe frameborder="0" scrolling="no" height="220" width="420"
                  src="http://dxlite.g7vjr.org/?dx=LU5DX&limit=10"></iframe>';
$("#blob").popover({title: 'Last 10 spots for the selected station', content: img});
})  

<a href="#" id="blob" class="btn large primary" rel="popover" style="margin-top:
100px">hover for popover</a>

<a href="#" id="blob" class="btn large primary" rel="popover" onmouseover=""var img =
'<iframe frameborder="0" scrolling="no" height="220" width="420"
src="http://google.com"></iframe>';"" style="margin-top: 100px">hover for popover</a>

我正在尝试将图片文件上传到OCR网站,但是,PDF文件不会上传到网站.

我使用以下代码来实现它,下面是HTML段:

Sub DownPDF()

    Dim FileName As String: FileName = "C:\Users\310217955\Documents\pdfdown\SGSSI001_HL1464_2011.pdf"
    Dim DestURL As String: DestURL = "https://www.newocr.com/"
    Dim FieldName As String: FieldName = "userfile"
    Call UploadFile(DestURL, FileName, FieldName)

End Sub


'******************* upload - begin
'Upload file using input type=file
Sub UploadFile(DestURL, FileName, FieldName)
  'Boundary of fields.
  'Be sure this string is Not In the source file
  Const Boundary = "---------------------------0123456789012"

  Dim FileContents, FormData
  'Get source file As a binary data.
  FileContents = GetFile(FileName)

  'Build multipart/form-data document
  FormData …

有没有办法全局安装在每张纸上触发的更改事件？

我有一个 52 张工作簿，我想触发相同的事件处理程序。带有代码的中央模块将有助于管理触发器代码，但我不想将代码添加到每个工作表中。

有没有办法做到这一点？在工作簿模块中实现它没有触发任何东西。

我有一个工作簿,主页用于输入,主表中的值根据主表中"类型"列的单元格值复制到2个子表.

子工作表中"注释"列中针对这些复制单元格的任何值都将作为注释添加到主工作表的相应行中.当子工作表中"注释"列中的值一次删除时,我想识别此操作之前的非空单元格并删除主工作表中的相应注释.

目前我已经编写了代码,如果在子表单的"注释"列中添加/删除了一个值,然后在主页的相应条目中添加/删除注释.

    Private Sub Worksheet_Change(ByVal Target As Range)

Dim temp As String
Dim tem As String
With Target
       If .Count = 1 And .Column = 8 And .Row < 600 Then
       tem = .Row
             If Sheets("Parts- input").Cells(tem, 8).Comment Is Nothing Then
                If Sheets("Pins").Cells(.Row, .Column).Value = "" Then
                   Sheets("Parts- input").Cells(tem, 8).Comment.Delete
              Else
               Sheets("Parts- input").Cells(tem, 8).AddComment "Lifts Sheet: " & Sheets("Pins").Cells(.Row, .Column).Value
               End If
             Else
              If Sheets("Pins").Cells(.Row, .Column).Value = "" Then
              Sheets("Parts- input").Cells(tem, 8).Comment.Delete
              Else
              Sheets("Parts- input").Cells(tem, 8).Comment.Text "Lifts Sheet: " …

我正在努力使用excel中的VBA方法.我有一个需要根据产品类别进行编辑的CSV.

csv看起来像这样:

我想要实现的结果是:

这是我写的方法; 我想我很接近,但它还没有按照预期工作.

Sub test()
    'c is a CELL or a range
    Dim c As Range

    'for each CELL in this range
    For Each c In Range("A2", Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 1))

        'Als de cel leeg is en de volgende niet dan
        If c = "" And c.Offset(1, 0) <> "" Then
            'verplaats inhoud lege cel naar 1 boven
            c.Offset(-1, 6) = c.Offset(0, 5)
            'Verwijder rij
            c.EntireRow.Delete       

        'Als de cel leeg is en de volgende ook dan
        ElseIf c = "" …

我有一个数据透视表汇总"coverage"上"part"仅接受部分。

然后，我想将其提取"sum of coverage"到另一张纸上。我写了以下宏：

Sub Pull_data()
'Update the pivot table
Sheets("Pivot").PivotTables("PivotTable2").PivotCache.Refresh
'clear all filters
Sheets("Pivot").PivotTables("PivotTable2").PivotFields("Accepted").ClearAllFilters
'filters only accepted items
Sheets("Pivot").PivotTables("PivotTable2").PivotFields("Accepted").CurrentPage = "YES"
'get the last row of the pivot table
Set PT = Sheets("Pivot").PivotTables("PivotTable2")
With PT.TableRange1
    lngLastRow = .rows(.rows.Count).Row
End With
For i = 4 To lngLastRow
    'copy the coverage to destination sheet
    NEWi = i + 10
    Sheets("Destination").Range("G" & NEWi) = PivotTable.GetPivotData(data_field, Range("I" & i), “Coverage”)
Next i
End Sub

我收到运行时错误“ 424”，对象为

Sheets("Destination").Range("G" …

如何使用VBA更改word文档中的页脚信息？

加载文档时,VBA代码将从数据库中获取必要的信息,我想将该信息附加到页脚.

我从DB中获取信息,但将其附加到页脚是另一个故事.

任何简单的相关例子都值得赞赏