小编Cam*_*Cam的帖子

我有一系列使用VBA创建的图表(下面的代码).

我无法将系列名称从系列1和系列2更改为当前状态和解决方案状态.

我一直在接受

未设置对象变量或块变量

错误.

但是没有srs1和srs2代码,图表工作得很好(只是错误的系列名称).

我查了解如何解决这个问题,但我收到的答案并不适用于我.
有谁知道另一种方法吗？

Sub MA()
    Dim Srs1 As Series
    Dim Srs2 As Series
    Dim i  As Integer
    Dim MAChart As Chart
    Dim f As Integer
    f = 2 * Cells(2, 14)
     For i = 1 To f Step 2
        Set MAChart = ActiveSheet.Shapes.AddChart(Left:=750, Width:=400, Top:=130 + 50 * (i - 1), Height:=100).Chart
         With MAChart
         .PlotBy = xlRows
         .ChartType = xlColumnClustered
         .SetSourceData Source:=ActiveSheet.Range("Q" & 1 + i & ":Z" & 2 + …

我正在尝试向Excel工作簿添加一个按钮,以便它显示在每个工作表中.我原来问题的一个很好的答案给了我一个宏来创建每张纸上的按钮:

Sub AddButtons()
    Dim ws As Excel.Worksheet
    Dim btn As Button

    For Each ws In ThisWorkbook.Worksheets
        Set btn = ws.Buttons.Add(X, Y, W, H)
        [set btn properties]
    Next ws
End Sub

我现在在设置按钮属性时遇到问题,以便按下按钮时按钮打印.这里是我的打印宏:

 Dim WS_Count As Integer
 Dim i As Integer

 ' Set WS_Count equal to the number of worksheets in the active workbook.
 WS_Count = ActiveWorkbook.Worksheets.Count
 'allows user to set printer they want to use
 Application.Dialogs(xlDialogPrinterSetup).Show
 ' Begin the loop.
 For i = 5 To WS_Count
   Worksheets(i).Activate
   With ActiveWorkbook.Worksheets(i).PageSetup
     .PrintArea = …

我是Julia的新手,我正在尝试用JuMP定义优化问题.我有很多变量(x1,x2,x3....),我试图用for循环来定义.我想要代码:

@variable(m, x1>=0)
@variable(m, x2>=0) ... 

但是我想使用一个for循环,所以我不必手动定义每个变量.
这是我到目前为止:

m = Model()
for i = 1:2
    @variable(m,string('x',i)>=0)
end 

我知道这string('x',i)部分不对,但我不知道如何使用Julia这样做.

我想知道是否有人知道使用sigma的julia等效函数。例如，如果我想要这种总和（不确定如何显示sigma表示法，那么这是我要寻找的图片）：

双方c并x就矩阵，我会确定在前面的代码。有谁知道如何用Julia编写代码，或者julia是否具有等效功能？
我已经使用sum了更简单的向量和，但是不确定是否会转化为更大的矩阵。有任何想法吗？

我正在研究线性优化问题.我循环遍历集来添加约束并定义我的变量.这是我到目前为止的工作代码:

using JuMP
m = Model()
si=[12 23 1 3309 5]
sj=[1,2,3]
c= [3 5 2;
    4 3 5;
    4 5 3;
    5 4 3;
    3 5 4]
b= [80;
    75;
    80;
    120;
    60]
# x_ij >= 0  ? i = 1,...,5, j = 1,...,3
n = length(si)
p = length(sj)

@defVar(m, x[i=1:n,j=1:p] >= 0)
@setObjective(m,Min,sum{c[i,j]*x[i,j],i=1:n,j=1:p})
for j=1:p
    @addConstraint(m, sum{x[i,j],i=1:n} <= 480)
end
for i=1:n
    @addConstraint(m, sum{x[i,j],j=1:p} >= b[i])
    end

endstatus=solve(m)

我需要添加另一个set来替换set,sj但是这个set包含字符串而不是整数值.

set_P = [ IMA_1ABC IMA_23 IMA_4AB …

我有一张10张以上的工作簿,我需要删除每张工作表中的第一列.
而不是手动执行此操作,我想知道是否有人知道可以为我执行此操作的短VBA宏？
谢谢!

我有一个按钮的vba脚本,它在我的工作簿中的每个工作表上放置一个按钮.我想对这些按钮进行编程,这样每次按下它们时,它们都会调用一个打印脚本来打印纸张上的信息.这是我对按钮的代码:

Sub AddButtons()
    Dim ws As Excel.Worksheet
    Dim btn As Button

    For Each ws In ThisWorkbook.Worksheets
        Set btn = ws.Buttons.Add(625, 0, 50, 25)
        Call pageprintTEST1(ws)
    Next ws
End Sub

这是我对打印脚本的代码:

Sub pageprintTEST1(ws As Excel.Worksheet)
 Application.Dialogs(xlDialogPrinterSetup).Show
         Worksheets(ws).Activate
   With ActiveWorkbook.Worksheets(ws).PageSetup
        .PrintArea = "A1:O48"
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
    End With
    ActiveWorkbook.Worksheets(ws).PrintOut

我一直遇到一些问题.首先,这个脚本为每个工作表添加了按钮,我只希望从工作表5向前添加到工作表上的按钮(因此前4页上没有按钮).其次,它不等我打开打印机对话框之前单击按钮,一旦你选择了打印机,它就会显示错误不匹配.

我研究了如何将变量传递给不同的subs和call方法,这似乎是正确的,但现在我不确定我哪里出错了.如果有人有任何建议或知道该怎么做,我将非常感激!