Tag: excel 2010

如果符合标准，则映射值 – Excel: 我有一个列（购物车），我正在寻找填充。我正在寻找填充此单元格的数据具有条件（购物清单），如果符合，应通过映射工具等于另一个条件。信息是也许一个例子会更好地解释，购物车 – Sheet1 Fruit Price Apples 0 Bananas 0 Oranges 0 购物清单 – 每天更改的 Sheet2 *Grocery List* *Price* Eggs 3.00 Granny Smith .50 Bread 1.00 Mandarin .65 Bacon 2.50 Clementine .60 Red Delicious .70 这是我感到困惑的地方。映射表。也就是说，不pipe苹果的types如何，我的购物车只能注册Apple – Sheet 3 *Food* *Type* Apple Macintosh Apple Granny Smith Apple […]

超链接单元格以在不同的工作表上显示结果: 我有两个工作表，Sheet1和Sheet2。 Sheet1有一个如下所示的列表： Col1 A1A A2A A2C A4A A4B 并且sheet2在单元格b2上有一个公式，它执行索引和匹配function。是相当新的excel，想知道我可以让Sheet1中的Col1变成超链接，这样，当我点击Col1上的一个项目（让我们说A1A），我需要Sheet2和Sheet2上的单元格B2填充单击的超链接？

从下面的活动文本中select30个单元格，以达到excel vba: 你好，我想复制我列B的最后30个单元格。下面的代码复制到右边，但我希望它只复制列b的最后30个单元格 Sub test() Range(ActiveCell, ActiveCell.Offset(0, 30)).Copy End Sub 请帮助。最好的祝福

根据列表对excel行进行sorting: 嗨，我有一个Excel电子表格（A），看起来像下面。这个名单继续上千： BAR CODE | SERIAL NO. | DEVICE NO.| CELL NO.| CLIENT DETAILS | STATUS xxxxxx | xxxxxxx | 0001 | xxxx | xxxxxxxxxx | xxxxxx xxxxxx | xxxxxxx | 0002 | xxxx | xxxxxxxxxx | xxxxxx xxxxxx | xxxxxxx | 0003 | xxxx | xxxxxxxxxx | xxxxxx xxxxxx | xxxxxxx | 0004 | […]

Excel VBA自己的function在工作表中改变工作表上的值: 我试图在一个Excel工作表中使用我自己的VBA函数，并使用相同的函数处理同一个或另一个工作表上的单元格，但结果是#VALUE! 一个最小的工作示例（Office Prof Plus 2010,32位）： Function abc() As Integer Dim i% i = 0 Sheet1.Cells(1, 2).Value = 2 abc = i End Function 当我执行Debug.Print abc它显然写了一个2到单元格B2 ，打印结果是0 。我现在要做的是在Sheet1上的Sheet1格A1 =abc() ，但是我只获得#VALUE! 。顺便说一句，它不工作，如果Application.EnableEvents和Application.Calculation被禁用，设置为手动。两个问题：为什么？而任何想法如何解决？谢谢。

与Excel中给定条件匹配的Sum列: 我将如何纵向列出符合给定标准的列？例如： ABCDEFG 1 2 3 4 5 6 7 1 2 3 4 5 6 7 1 2 3 4 5 6 7 1 2 3 4 5 6 7 如果标准= A，那么公式会给我4如果B，8如果C，12.我希望input的标准是一个可引用的单元格。谢谢你的帮助！

VBAbutton创build新工作簿到新的工作簿: 在下面的代码中，我在用户表单上有一个button，从模板中创build一个新工作表，将其重命名并在新工作簿以及当前工作簿中打开它。是否有自动化，所以它不会在当前的工作簿中创build新的工作表，只是新的工作簿？它也创build一个新的工作簿，无论如何，创build新的工作表创build时保存到一个工作簿？任何帮助，谢谢！ Private Sub btnSave_Click() Dim LastRow As Long, ws As Worksheet Set ws = Sheets("Employee Information") LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 If Me.cbStores.Value = "Northern / Northmart" Then Dim newWB as Workbook Dim thisWB as Workbook Set thisWB = ThisWorkbook set newWB = Application.Workbooks.Add thisWB.Sheets("TEMPLATE").Copy after:=newWB.Sheets("Sheet1") set sh = newWB.Sheets("TEMPLATE") […]

超链接到新的工作簿中断: 我是新来的Excel，所以我希望这是有道理的。下面的代码显示了在单击用户表单上的button时，在特定工作簿（与当前工作簿分开）上创build的新工作表。虽然，我在单独的工作簿上创build的工作表的超链接似乎已被打破。我究竟做错了什么？任何帮助，谢谢！ Dim LastRow As Long, ws As Worksheet Set ws = Sheets("Employee Information") LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 If Me.cbStores.Value = "Northern" Then Dim newWB As Workbook Dim thisWB As Workbook Set thisWB = ThisWorkbook Set newWB = GetOrCreateWB("EmployeeTemplates", "C:\Users\…\Folder") '<–| Opening EmployeeTemplates wb thisWB.Sheets("Template").Copy after:=newWB.Sheets(1) With ActiveSheet '<–| […]

RFM分割Excel采取中等价值: 我试图用RFM Segmentation对客户进行细分，对于每一列R，F和M，范围在1到5之间。组合了三列后，有很多可能性，如555或254等等。代码555是最好的客户， X5X是忠实的客户。 “X”定义任何数字，例如Code 454也是忠诚的客户分类。问题是我不能准确地在Excel中提供IF函数。这是我555审判 =IF(O14="555","Best Customer",IF(MID(O14,2,1)="5","Loyal Customer")) function重叠，因为它采取了最新的IF，所以555的结果是忠诚的客户应该是最好的客户。对于大牌球手来说， XX5有很多细分，比如XX5 ，但是由于公式变成了重叠，我无法继续其余部分。感谢您的帮助。

空的Excel文件具有巨大的大小: 我一直在写一些代码，使excel打开工作簿，从那里获取信息，将其临时粘贴在文件中，并使用该数据来发送电子邮件并发送。之后，他清除所有的东西，留下一个空的文件。虽然只有一个button（不是一个ActiveX控件），只有一个用户窗体，但文件是27MB。而之前是400kb。我不知道发生了什么事。任何想法如何解决这个问题，并再次减less它？因为这个文件是为了减less发送电子邮件的时间，但是如果打开这个文件需要很长的时间，因为这个时间太长了，所以它不再有效。我使用的程序是Excel 2010。提前致谢！码： Private Sub BtnGo_Click() Dim i As Integer, j As Integer, k As Integer, l As Integer, LastRow, wb As Workbook, TargetBook As Workbook, Doc(500), Revision(500), DocName(500), UpdateDate(500) Dim Tekst As String, DocType As String Dim NietGevonden Set TargetBook = ThisWorkbook 'Controleren of alles ingevuld […]