小编Dmi*_*liv的帖子

我有变量的条件.我试着检查条件是否正确.

在下面的示例中,我将条件"1 = 1"(这是真的)分配给变量MyCond.我正试图检查MyCond中的情况是否属实.你有帮助吗？

Sub Test()

    MyCond = "1=1"
    If MyCond = True Then
        MsgBox "That is true"
    Else
        MsgBox "That is false"
    End If
End Sub

我列出了我在Excel中的所有支出.每一天都需要一条线.

我想要的是根据另一个细胞的值比较2天之间的差异.配方示例.= A250 - A191.我想改变这个250和191,只需在任何另一个单元格中写入321和192,自动将公式更改为:= A321-A192.

有可能吗？

我可能过度思考这个问题了,但是我已经在这个问题上工作了好几个小时,并且无法想出任何有效的方法.

我有一个包含以下值的电子表格:

A       B
205.86  
 63.51  
 81.03  
 54.75  
 35.04  
 94.17  
 48.18  115
 35.04  
 56.94  
 41.61  
  3.99  
 91.77  200
  0.00  
 99.75  
 43.89  
247.38  
 89.82  
124.75  
 84.83  
219.56  
 65.61  
 80.19  
 54.24  206
 98.82  
 65.89  
108.99  210 

AND SO ON FOR APPROX. 5000 ROWS  

我需要B列中的下一个值出现在C列中:

A       B        C
205.86           115
 63.51           115             
 81.03           115  
 54.75           115  
 35.04           115
 94.17           115
 48.18  115      115
 35.04           200
 56.94           200
 41.61           200
  3.99           200
 91.77  200      200
  0.00           206
 99.75           206
 43.89           206
247.38           206
 89.82 …

我在命令按钮下编写了这段代码,工作表受到保护.命令按钮用作重置按钮,从许多单元格中删除数据并更改字体属性.以下是代码:我使用此按钮更改的范围已添加到例外

Range("C10:c18") = ""
Range("C20:c24") = ""
Range("c5:c6") = "_"
Range("c11:c12") = "Optional"
With Range("c11:c12")
    With .Font
         .Italic = True        '"Line 1"
         .ColorIndex = 48      '"Line 2" 
    End With
End With

它抛出VBA错误:无法为第1行和第1行设置字体类的斜体属性

第2行的应用程序定义或对象定义错误

在excel上使用一些VBA,我编写了一个用户定义的函数来根据行号进行一些算术运算.它似乎乍一看,然后我意识到无论它总是执行什么,好像第一个If声明是真的,并且从未考虑过ElseIf.我究竟做错了什么？

Function redProfit(ByVal myRange As Range) As Long
    Dim rangerow As Range, baseprofit As Long
    Application.Volatile
    baseprofit = 3500000
    With myRange
        If (.Row = 3 Or 11) Then
            redProfit = baseprofit * 0.1
        ElseIf (.Row = 4 Or 10) Then
            redProfit = baseprofit * 0.08
        ElseIf (.Row = 5 Or 9) Then
            redProfit = baseprofit * 0.07
        ElseIf (.Row = 6 Or 8) Then
            redProfit = baseprofit * 0.06
        ElseIf .Row = 7 Then
            redProfit = baseprofit * 0.05

        End …

我收到此代码的编译错误:

Public Sub CommandButton1_Click()
If TextBox1.Text = "log off" Then
Shell "cmd.exe /c shutdown -l", vbHide: TextBox2.Text = "Logging off"
If TextBox1.Text = "shutdown" Then
Shell "cmd.exe /c shutdown -s", vbHide: TextBox2.Text = "Shutting Down"
If TextBox1.Text = "restart" Then
Shell "cmd.exe /c shutdown -r", vbHide: TextBox2.Text = "Restarting"

Else
MsgBox "Command Not Defined",vbCritical
End Sub

现在它出现了"阻止如果没有结束如果"的错误消息.为什么？

假设我有一个名为List<string> parts3 Index [0,1,2]的List字符串现在我想删除每个索引的第一个字符我该怎么做呢？输入字符串:

Part[0]=".delhi"
Part[1]=".10.12.12"
Part[2]=".14.14.14"

输出字符串:Part[0]="delhi"像......

如何设置500的超时功能:

$('.menu ul li').on('click', function(){
   $(container).removeClass('menu-open');
});