小编K_B*_*K_B的帖子

我有一个带有2个工作表的excel工作簿:国家和公司.公司工作表部分通过VLOOKUP国家/地区工作表中的s 填写,如下所示:

国家:

     A       B
1 COUNTRY HOF_LTO
2 Belgium    4
3 Japan      5
4 Spain
5 Sweden     0

公司:

    A         B       C
1 COMPANY  COUNTRY HOF_LTO
2 Belgacom Belgium    4
3 Onkyo    Japan      5
4 Sony     Japan      5
5 ATTM     Spain      0
6 Nokia    Sweden     0

我正在C使用以下公式填充列:

=VLOOKUP($B2;countries!$A$1:$C$5;MATCH(companies!B$1;countries!$1:$1;0);FALSE)

出了什么问题:即使在国家/地区Spain没有 - HOF_LTO值,公式也会0在单元格中作为适当的值companies!C5.相反,它应该将单元格留空,并且只在国家选项卡中显示为零(0)0,就像瑞典的情况一样.

如何编辑公式,以便在没有匹配的国家/地区值时将单元格留空？

是否有任何JavaScript适用于几乎所有浏览器设置网页作为主页？

我正在使用下面的一个.但它只适用于ie和mozilla

    var flag = false;
    function setHomepage(web)
    {
        if (document.all)
        {
            document.body.style.behavior='url(#default#homepage)';
            document.body.setHomePage(web);

        }
        else if (window.sidebar)
        {
            if(window.netscape)
            {
                try
                {  
                    netscape.security.PrivilegeManager.enablePrivilege("UniversalXPConnect");
                    flag = true;  
                }  
                catch(e)  
                {  
                    alert("This action was aviod by your browser. If you want to enable please enter about:config in your address line,and change the value of signed.applets.codebase_principal_support to true");
                }
            } 
            if(flag)
            {
                var prefs = Components.classes['@mozilla.org/preferences-service;1'].getService(Components. interfaces.nsIPrefBranch);
                prefs.setCharPref('browser.startup.homepage',web);
            }      
        }
    }

我在下面的方法中编写测试用例时遇到问题: EvenNum(double)

public class OddEven {

/**
 * @param args
 */

public boolean evenNum(double num)
{
    if(num%2 == 0)
    {
        System.out.print(true);
        return true;
    }
    else
    {
        System.out.print(false);
        return false;
    }

}

这是我写的测试用例,但我认为在这个测试用例中我有一个继承问题或逻辑问题.应该是一个非常简单的,但无法弄清楚.这是我写的代码:

import static org.junit.Assert.*;
import org.junit.Test;

public class OddEvenTest {
    @Test
    public void testEvenNum() {
        boolean ans = true;
        boolean val;
        double num= 6;

        val = OddEven.EvenNum(num) // cant inherit the method dont know why???

        assertEquals(ans,val);
    }

}

我有一个Excel 2010工作簿。一个工作表从外部数据连接（SQL查询）导入数据。我还向工作表中添加了其他列，以对数据进行计算并对其进行调整。该工作表构成了其他工作表中使用的原始数据的基础。

我想保护工作表使其为只读（允许排序，过滤器，数据透视表使用）。我知道如何使用保护工作表功能来做到这一点。但是，当工作表受到保护时，我不能使用“刷新”按钮来刷新源中的数据，我希望用户能够执行此操作。我打算将连接属性配置为在打开时自动刷新并允许手动刷新。

有没有人找到一种优雅的方式来启用保护工作表功能并启用外部数据刷新，而又不允许用户自己更改单元格值？

我有以下代码，但我遇到了问题：

Sub getAccNos()

Dim oNameRange As Range
Dim oFindRng As Range

Dim sName As String
Dim sAccNo As String

Set oNameRange = Workbooks("New Name Work.xls").Worksheets("Manual").Range("B4")

Do While Not oNameRange.Text = ""
    sName = Trim(oNameRange.Text)
    Workbooks("New Name Work.xls").Worksheets("sheet1").Select
    Set oFindRng = Cells.Find(What:=sName, After:=activecell)

    Do While Not oFindRng Is Nothing
        oNameRange.Offset(0, -1).Value = oFindRng.Offset(0, 1).Text
        oFindRng.Offset(1, 0).Activate
        Set oFindRng = Cells.Find(What:=sName, After:=activecell)
    Loop
    Set oNameRange = oNameRange.Offset(1, 0)
Loop
End Sub

基本上，在工作表sheet1 上，我有一个带有帐号的名称列表，并且可以有多个具有相同名称的帐号。在我的名为Manual 的目标表上，我有姓名 .... 但帐号丢失了，我想得到它们。

我无法使用 VLOOKUP，因为有几个名称相同，我需要获取所有帐号的列表。我怎样才能做到这一点？ …

我的Excel表格包含手机号码.

我想将每个数字传递给URL并在我的服务器上执行某些代码.

我创建了一个按钮,并编写了以下代码:

Private Sub CommandButton1_Click()

    strURL = "http://xxxxxxx.com/myAPI.php?mobilenumber=" _
    & ActiveCell.Value
    Call Sheets("Sheet1").Navigate(strURL)

    End Sub

但不幸的是它没有用.

请注意,我不想重定向到http://xxxxxxx.com/myAPI.php只是调用它并传递mobilenumber给它.

谢谢

我需要一个excel公式来查找excel单元格中最后两个下划线之间的文本:

即

AAA_BBB_CCC_DDDD_E => DDDD
AAA_BBB_CCC_DDD_EEE_E => EEE
AAA_BBB_CCC_DDD_EEE_F_ => F
AAA_BBB_CCC_DDD_EE_GGGGGGGGGG => EE
AAA_BBB_CCC_DDD_EEE_FFF_GGGGGGGGGGGG_H => GGGGGGGGGGGG

我得到的公式是基于最后一个指数: EXCEL LAST INDEX OF

=RIGHT(LEFT(A2,SEARCH("@",SUBSTITUTE(A2,"_","@",LEN(A2)-LEN(SUBSTITUTE(A2,"_",""))))-1),LEN(LEFT(A2,SEARCH("@",SUBSTITUTE(A2,"_","@",LEN(A2)-LEN(SUBSTITUTE(A2,"_",""))))-1))-SEARCH("@",SUBSTITUTE(LEFT(A2,SEARCH("@",SUBSTITUTE(A2,"_","@",LEN(A2)-LEN(SUBSTITUTE(A2,"_",""))))-1),"_","@",LEN(LEFT(A2,SEARCH("@",SUBSTITUTE(A2,"_","@",LEN(A2)-LEN(SUBSTITUTE(A2,"_",""))))-1))-LEN(SUBSTITUTE(LEFT(A2,SEARCH("@",SUBSTITUTE(A2,"_","@",LEN(A2)-LEN(SUBSTITUTE(A2,"_",""))))-1),"_","")))))

我需要让这个不那么复杂,任何想法？

我在VBA代码中有一些Sql查询,这是一行代码的示例:

strQry = strQry & Worksheets("Data").Cells(9, 7) & """, " & _ 

我需要在此行的末尾添加注释.像这样:

strQry = strQry & Worksheets("Data").Cells(9, 7) & """, " & _ 'comment hjjkk

我通常使用撇号进行评论,但该行不接受该字符.请指教.另外,如果可能的话,我需要在该行的末尾对该确切行进行评论.谢谢!