标签: excel-2007

你能帮我把以下Excel VB代码改写成C#吗？

Range("C9:E11").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

我想得到PlotArea的宽度和高度,以便计算比例.我曾经ActiveChart.PlotArea.Width获得宽度,然后使用Photoshop测试宽度.

我发现返回的宽度ActiveChart.PlotArea.Width是错误的.

图像显示了我在说什么:

我不知道为什么...

请帮助我理解它为什么会发生以及如何解决它...

谢谢!

我想用这种方式格式化单元格值:

1234,980 - > 1.234,980

12237119867,761 - > 12.237.119.867,761

如何准备一个公共掩码,将点设置为千位分隔符和逗号为小数.掩码应该适用于任何提供的值.

我有来自O - > X列的公式,需要将它们拖到最后一行使用.以下是我正在使用的当前代码:

Dim wkb As Workbook
Dim wkbFrom As Workbook
Dim wks As Worksheet
Dim rng As Range
Dim path As String, FilePart As String
Dim TheFile
Dim loc As String
Dim Lastrow As Long

Set wkb = ThisWorkbook
loc = shPivot.Range("E11").Value
path = shPivot.Range("E12").Value
FilePart = Trim(shPivot.Range("E13").Value)
TheFile = Dir(path & "*" & FilePart & ".xls")
Set wkbFrom = Workbooks.Open(loc & path & TheFile & FilePart)
Set wks = wkbFrom.Sheets("SUPPLIER_01_00028257_KIK CUSTOM")
Set rng = wks.Range("A2:N500")

'Copies range …

我有一些运行良好的代码,但我知道它可以编写得比我的清晰得多.

Sub DeleteField()
Range("A6").Select

        Do
            If ActiveCell.Value = "Actual Conveyable Cases" Or _
            ActiveCell.Value = "Projected Non Con" Or _
            ActiveCell.Value = "Actual Non Con Cases" Or _
            ActiveCell.Value = "Projected CPT" Or _
            ActiveCell.Value = "Actual CPT" Or _
            ActiveCell.Value = "Projected Store Loads" Or _
            ActiveCell.Value = "Actual Store Loads" Or _
            ActiveCell.Value = "Projected Pull Ahead" Or _
            ActiveCell.Value = "Actual Pull Ahead" Or _
            ActiveCell.Value = "Projected Loads at 08:00" Or _
            ActiveCell.Value = "Actual Loads …

假设我有这个公式

=MATCH(16,{5;10;15;20;25},-1)

为什么它返回N/A？我希望它能回归4.

但更令我困惑的是,当我将它改为小于匹配(1)时,它按预期工作.

而且即使我知道它会匹配错误的事情,我仍然认为这将是很好,包括我尝试了所有值作为文本和它未返回N/A,虽然它也返回1不管我代替16用

我在Excel工作簿中有2个字段:

1. MED - 范围("J13:K13")

公式:= IF(D5 = 1,"X","")

2.非中等 - 范围("L13:M13")

公式:= IF(D5 = 2,"X","")

使用以下代码时,字段始终显示为非空,从而保存值"1":

    '1. Med
    If Not IsEmpty(range("J13:K13").value) Then
        Worksheets("FeedSamples").range("AK" & newRow).value = 1
    Else
        Worksheets("FeedSamples").range("AK" & newRow).value = 0
    End If
    '2. Non-Med
    If Not IsEmpty(range("L13:M13").value) Then
        Worksheets("FeedSamples").range("AL" & newRow).value = 1
    Else
        Worksheets("FeedSamples").range("AL" & newRow).value = 0
    End If

我尝试在我的IF语句中使用以下内容,但计数始终为'1':

    '1. Med
    If WorksheetFunction.CountA(range("J13:K13")) = 0 Then

有人有主意吗？如果字段的值为"X"(或长度为1),那么我需要在其他工作表中保存"1".如果该字段为空(或长度为0),则需要在我的其他工作表中保存"0".

我迷失了为什么我的IsEmpty()检查功能不正常.

每次我创建一个新的Excel工作表时,我都必须进入并将其单元格参考模式更改为熟悉的A1,B1等.我似乎无法找到将其永久设置为A1样式的方法.

有没有我可以编写的宏或使用模板或其他东西的方法,所以我不必继续更改R1C1设置？

这是我执行excel公式的问题.

这些是要求:

• 我在excel表中有几行.
• 在每行的末尾有一个名为"Month"的字段.
• 如果有人在此行中输入新值,则应插入当前月份.
• 如果修改了值,则不得更改月份.

要包括当前月份,我使用这样的公式(A10只是一个随机字段,将被填充):

=IF(A10<>0; MONTH(NOW()); "")

现在我需要一些条件来检查该字段是否已包含一个月,如果是,则不执行任何操作.我尝试了以下(A15应包含月份):

=IF(A15 <> ""; IF(A10<>0; MONTH(NOW()); "") ; )

要确定是否应该通过公式更改字段,我必须检查其当前值.问题是,这将最终成为对字段本身的循环引用.

有没有人为这类问题找到解决方案？我尽量不在那里使用任何VBA代码.

我有一个带有地址的单元格的excel文件.

3个不同的数据示例:

 123 Main Street/n Apartment2 /n New York, NY 10001
 123 Main Street/n New York, NY 10001
 123 Main Street

我想把它分成三个独立的领域.但是,如上面的数据所示,有些将出现0次/ n,有些将出现2次.有些人会有3次出现.

我可以处理一次,其中:= LEFT(E6,SEARCH("/ n",E6,1)-2)= RIGHT(导出!E6,LEN(导出!E6) - 搜索("/ n",导出! E6,1)-1)

但是,当有可变数量的/ n时,我的公式开始分解

有什么建议？