小编shr*_*810的帖子

我开始学习Excel编程,并且已经在Excel Visual Basic编辑器中进行了开发.

我现在可以选择获取Visual Studio 6,因此我想知道使用Microsoft Script Editor有什么好处.

你的想法是什么？

我在MS word中写了一个宏.
我需要宏来解析文件名,页码和注释列表,并过滤掉文件名和页码.文档中的每个段落(行)引用不同的文件,因此我循环遍历For/Next语句.

对于每个新行,我将提取文件名和pagenumbers并将其放入字符串中.除此之外,我还在每个文件名的字符串中添加了一些注释.

在转到文档的下一行之前,我想将我构建的字符串输出到word文档中.

我目前使用此代码打开word文档:

Dim oWord as Object
Set oWord = CreateObject("Word.Application")
oWord.Documents.Open "C:\document.doc"
oWord.visible = true

这让我可以成功打开文档,但我需要一些帮助来确定如何输出到这个文档.

从概念上讲,我知道我需要首先使它成为活动文档,然后转到文档的末尾,然后附加到它.

任何帮助,将不胜感激.谢谢!

有人可以帮助我使用 MS Word 宏，它会在整个文档的每个段落中搜索特定符号并删除不包含该符号的段落。

我几乎对 VBA 一无所知，但刚刚收到了一个巨大而笨拙的文档，我需要快速编辑。

我有这样的xaml代码

<Grid>
    <... some grid row and column definitions .../>

    <ScrollViewer Grid.Column="1" VerticalScrollBarVisibility="Auto">
        <TextBlock "some attribute" />
    </ScrollViewer>

</Grid>

我不知道如何配合Textblock与Scrollviewer在C#.我想Textblock用Scrollviewer.如果您有其他想法,请告诉我.

非常感谢您的帮助.:d

我在网上找到了这个代码,显然它适用于其他人而不是我吗？我不知道哪里错了.我做了一个简单的例子,让我的Range1和Range 2成为excel中的某些单元格,

另外,我想知道是否有办法返回交叉路口,如果可以的话.提前致谢!

Function InRange(Range1 As Range, Range2 As Range) As Boolean
    Set intersectRange = Application.Intersect(Range1, Range2)
    If intersectRange Is Nothing Then
        InRange = False
    Else
        InRange = True
    End If
End Function

看图片： http: //s12.postimg.org/ov8djtuh9/Capture.jpg

上下文：尝试激活另一个工作簿中的工作表（变量：cSheet），并将从不同工作簿复制的数据粘贴到其中。每当我尝试直接使用变量（即 Worksheets(Name).Activate）激活或尝试使用变量定义工作表然后激活它时，我都会收到下标超出范围错误。我还尝试了其他编码风格，使用“With Worksheet”等，我的代码更长，但我重新开始，因为每次我修复某些东西时，其他东西就会出错。所以，坚持基础。任何帮助将不胜感激。

Sub GenSumRep()

Dim AutoSR As Workbook
Dim asrSheet As Worksheet
Dim tempWB As Workbook
Dim dataWB As Workbook
Dim SecName As String
Dim oldcell As String
Dim nsName As String
Dim cSheet As Worksheet

Set AutoSR = ActiveWorkbook
Set asrSheet = AutoSR.ActiveSheet

For a = 3 To 10

    SecName = asrSheet.Range("D" & a).Value

    If SecName <> "" Then

    Workbooks.Open Range("B" & a).Value
    Set tempWB = ActiveWorkbook
    'tempWB.Windows(1).Visible = False

    AutoSR.Activate

    Workbooks.Open Range("C" & …

我是SQL的新手,所以希望有人可以为我拼出这个.我尝试按照"在SQL查询中替换多个字符串"的帖子,但我被卡住了.

我正在尝试做与上述发布的发起人相同的事情,但使用不同的表和不同的字段.假设ShiptoPlant表" BTST" 中的以下字段" " 有三条记录(我的表实际上有数千条记录)......

表名:BTST

   ---------------
   | ShiptoPlant |
   | ----------- |
   | Plant #1    |
   | Plant - 2   |
   | Plant/3     |
   ---------------

这是我在SQL屏幕中输入的内容:

SELECT CASE WHEN ShipToPlant IN ("#", "-", "/") Then ""
ELSE ShipToPlant END FROM BTST;

我一直收到消息(错误3075)...

"Syntax error (missing operator) in query expression 
'CASE WHEN ShiptoPlant IN (";","/"," ") Then "" ELSE ShipToPlant END'."

我想对键盘上的每个字符执行此操作,但"*"由于它是通配符.

您将提供的任何帮助将不胜感激!

编辑:从评论中添加的背景信息

我收集了2008日历年度每个14家供应商的项目发票级数据.我正在尝试规范供应商提供给我们的工厂名称.

每个供应商可以通过不同的名称来呼叫工厂,例如

供应商可以调用我们的主列表上的Signode服务

Signode Service 
Signode - Service.
SignodeSvc …

我想从Excel创建一个CSV文件,其中字符串值应该是双引号,日期值应该是MM/dd/yyyy格式.所有数值和布尔值都应该没有引号.

我该怎么做？

我正在使用teechart和delphi XE4.我认为我的问题非常基本,但我找不到解决方案.

在一个简短的例子中,我有一个TChartSeries,其中包含OnCLick事件的事件处理程序.在我的事件处理代码中,我执行以下操作:

if Button=mbRight then
begin
  clkSerie:=Sender;
  clkValue:=ValueIndex;
  GetCursorPos(P);
  pm1.Popup(P.X,p.Y);
end;

然后,在pm1.MyAction.OnClick

st:=InputBox('Agregar nota','Ingrese texto','');
if st<>'' then
begin
  clkserie.Marks.Item[clkValue].Text.Clear;
  clkserie.Marks.Item[clkValue].Text.Add(st);
  clkserie.Marks.Item[clkValue].Visible:=True;
end;

它工作正常,唯一的问题是,当我退出这个程序时,回到我的图表没有弹出菜单或输入框,我正处于"平移"状态,似乎图表看不到我的MOUSE_UP事件.

我试图模拟鼠标点击,mouse_event()但没有奏效.唯一有效的是禁用图表平移,但我不想采取这种方式.我知道除此之外必须有一个解决方案.

我将继续尝试并阅读相关内容.

提前致谢.

只是一个简单的问题.

运算符在Visual Basic中做什么？

例如:

For dCtr = 2 To inVoer

还有人可以为我解释以下代码吗？

rCtr = 2
    For dCtr = 2 To inVoer
    If (dCtr - 1 <= 6) And (inVoer - dCtr + 1) <= 6 Then
    Range("A" & rCtr + 1) = dCtr - 1
    Range("B" & rCtr + 1) = inVoer - dCtr + 1
    rCtr = rCtr + 1


End If
    Next