小编Gaf*_*ffi的帖子

我有一个循环,看起来像这样:

For Each article In artAll
Next

或者像这样:

For i = 0 To Ubound(artAll)
Next

当数组长度为0时,我收到一条错误消息.当数组为空时跳过循环的好方法是什么？我怀疑我应该使用

On Error Goto

但我需要帮助最终确定解决方案.

我有5个按钮,可以调用此弹出功能发送电子邮件.如何确定哪个单击按钮称为该功能？

   public void popup(object sender, EventArgs e)
    {

        if (MessageBox.Show("You may not Bind, Change, Or Alter Insurance Coverage through e-mail. Confirmation of this e-mail by us initiates any changes to your Insurance. If you need any immediate service please contact our office at 1-800-875-5720.", "IMPORTANT!", MessageBoxButtons.OKCancel) == DialogResult.OK)
        {

            {
                string email = "mailto:davidadfa.t@ifdafdadf.com";
                Process.Start(email);
            }
        }
    }

这是我的代码:

Dim CompanyName, _
    CompanyDomain, _
    CompanyEmail, _
    CompanySupportPhone

Call GetEmailList

Sub GetEmailList
    dim sql
    dim companydata

    sql = ""
    sql = sql & " DECLARE @CompanyName VARCHAR(100);"
    sql = sql & " DECLARE @CompanyDomain VARCHAR(100);"
    sql = sql & " DECLARE @CompanyActivityEmail VARCHAR(100);"
    sql = sql & " DECLARE @CompanySupportPhone VARCHAR(100);"

    sql = sql & " SELECT"
        sql = sql & " @CompanyName = CASE WHEN Setting = 'CompanyName'"
        sql = sql & " THEN StringValue ELSE @CompanyName END," …

这可能吗？我看到一些原生的php函数可以做到这一点.例如:strpos()可以返回0,这显然是真的.

这是我想在Microsoft Excel 2010中做的事情:

我有几个包含数据的电子表格,电子表格包含多张数据(底部的标签),但它们都是相同的列/格式.但是,列可能在其上方有一两行可能有文本或可能是空白的,所以我必须将其修剪掉.

我想将数据复制到主电子表格中.在主电子表格中,列以表格命名,因此,为了使其自动化,我必须将复制的表格的名称与列中的文本进行比较(它们将始终位于第一行中) .

甚至可以使用宏在不同的Excel文件之间移动数据吗？

Dim arrS(1000, 6) As String

Sub FromHere()
'(I've already filled the array and just want to pass it from here):

 Call ToThere(someArray)
End Sub

Sub ToThere(someArray)
 MsgBox "And I want to use it:  " & someArray(2, 2)
End Sub

我正在尝试的一切都是红线,不会让它脱离编辑器.

你能告诉我如何在顶部和每个语句中声明/标注它,以便它只运行吗？

我有一张有200行的纸张,其间有一些空白.

我不能使用End(xlDown)或End(xlUp)获取整个范围,因为有空行.

如何复制到列中包含数据的最后一个范围？

另外,我不想复制标题.

请建议我如何在Excel VBA中执行此操作.

我有一张Excel表格,其名称为一列,其工作时间为下一栏中的值.

我想将值大于40的名称复制到新工作表而列中没有任何空格.新表应具有名称和工作时间; 应忽略值列中的任何文本.

Sub CopyCells()
    Dim sh1 As Worksheet, sh2 As Worksheet 
    Dim j As Long, i As Long, lastrow1 As Long 

    Set sh1 = Worksheets("Sheet1") 
    Set sh2 = Worksheets("Sheet2") 
    lastrow1 = sh1.Cells(Rows.Count, "F").End(xlUp).Row 

    For i = 1 To lastrow1 
        If sh1.Cells(i, "F").Value > 20 Then 
            sh2.Range("A" & i).Value = sh1.Cells(i, "F").Value 
        End If 
    Next i 
End Sub

我一直在环顾四周,似乎无法找到明确的答案.

如何使字体粗细小于600以正确显示textarea字体？

小提琴:http://jsfiddle.net/bk53K/

码:

<textarea rows="7" class="randomText">Never gonna give you up Never gonna let you down Never gonna run around and desert you Never gonna make you cry Never gonna say goodbye Never gonna tell a lie and hurt you

textarea {
    border: none;
    resize: none;
    font-size: 30px;
    font-weight: 100;
}

我需要连接到服务器而不输入"http://".我只需要从用户那里获得服务器名称和端口号.有了这个,我应该能够连接到特定的服务器......

我是新手在Excel中创建宏.有人能帮我一个简单的例子吗？我想强制单元格只采用数字,但不是字母字符.

如何在用Perl打开的Excel文件中运行宏？

我已经实现了一个4 FIFO队列和一个搜索FIFO索引的块,当发现一个非空的FIFO将提取数据结束时,它将串行发送它.

这是代码:

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

entity Serialize is
       port
       (
           TX                                                                  : out std_logic_vector(1 downto 0);
           RESET, CLK, We1, We2, We3, We4                                      : in std_logic;
           --
           DATA_IN_A, DATA_IN_B, DATA_IN_C, DATA_IN_D                          : IN STD_LOGIC_VECTOR(31 DOWNTO 0);
           fifo_full1, fifo_full2, fifo_full3, fifo_full4                      : out std_logic;
           --
           SendPackage                                                         : out std_logic
       );
end Serialize;

architecture rtl of Serialize is
     signal step, nr : integer:=0;
     signal enl : std_logic := '0';
     signal temp : std_logic_vector(31 downto 0);
     --signal txx …