excel-2013

问题 I made a program in Excel 2010 VBA that contains letters like ć č š... Msgbox("Čiča gliša") works. Looks like Excel 2013 supports those letters in cells and formulas, but not in VBA. VBA replaces them with some symbols which aren't even on the keyboard. I get errors executing the code. I believe it's something to do with language settings. 回答1: As BambiLongGone stated, weird string are not likely to work. I would say your best shot is looking at this article. There 's a tool called Unicode to

问题 I am trying to refresh pivot tables using vba. I have code that modifies the underlying table query, and refreshes the query. Once that is done, it refreshes the pivot tables, which in turn will refresh a summary sheet. For some reason, the final pivot table is not being refreshed. It will refresh normally. Methods tried: 1. Dim PC As PivotCache For Each PC In ThisWorkbook.PivotCaches While DateDiff("s", PC.RefreshDate, Now) > 60 PC.Refresh Wend Next 2. Sheets("Pivots").PivotTables("Pivot1")

问题 The quick overview is I have an Excel AddIn targeting Excel 2013. The AddIn has a custom RibbonUI that contains a couple of read-only EditBoxes that contain workbook specific values. The same AddIn works fine in Excel 2007 & 2010, with the MDI interface, but with 2013 and its SDI interface. With a simple VSTO AddIn, I've added a simple RibbonUI with an EditBox. For testing purposes, I'm just trying to get the EditBox to reflect the Workbook.Fullname of the window in which it appears. Far as I

问题 I wonder whether someone can help me please. I wanting to use this solution in a script I'm trying to put together, but I'm a little unsure about how to make a change which needs to be made. You'll see in the solution that the file type which is opened is a Excel and indeed it's saved as such. But I the files I'd like to open and save are a mixture of .docx and .dat (Used by Dragon software) files. Could someone possible tell me please is there a way by which I can amend the code so it opens

问题 I am trying to utilize a UDF version of TextJoin since I am using Excel 2013 - but this function is not properly returning the accurate data. My data-set in Excel looks like this saleID Item 5 PRE2323 6 Pre2323223 6 OX12321 6 RI132 9 TN23 9 LSR12 And my desired output is saleID Items 5 Pre2323 6 Pre2323223, OX12321, RI132 9 TN23, LSR12 And this is the UDF I Have that is not functioning as it should Option Explicit Function TEXTJOIN(delimiter As String, ignore_empty As String, ParamArray textn

问题 I'm using excel 2013 and I am getting invalid procedure call or argument while calling PivotCaches.Add Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set ActiveWorkbook = objExcel.Workbooks.Open("C:\Users\srujan\Desktop\TIME REPORT\fresh\25_Report Time Booking_25.xls") ActiveWorkbook.Sheets("25_Report Time Booking_25").Select ' Set the range to be pivoted to be called PivotRange Set PivotTopLeft = ActiveWorkbook.Parent.Worksheets("25_Report Time Booking_25").Range(

问题 I am getting following error. Compile error: The code in this project must be updated for use on 64-bit systems. VBA CODE Option Explicit Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Dim Ret As Long '~~> This is where the images will be saved. Change as applicable Const FolderName As String = "C:\Temp\" It works fine in

问题 I'm looking to apply Conditional Formatting to a range of data I have in Excel that will display red if the most recent day of data is below what it was before, and green if it was higher. Eg Day,Value, Highlight cell colour Day 1 1000 Day 2 2000 Green - as it's higher than day 1 Day 3 500 Red - as it's lower than day 2 Day 4 6000 Green Day 5 4000 Red I want to replicate this for all my data and then ideally be able to count the number of 'runs there are' eg number of red cells together so

问题 This is a follow up question from a previous post. So the company I work for has recently updated their Excel from 2003 to 2013. I am now having issues with some pretty basic VBA code. The line Cells.AutoFilter(x, y) in particular is giving me issues. I wrote a very ugly program months ago which looks something like this: ... ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=11, Criteria1:= _ "0" If wf.CountA(r) > 0 Then ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8,

问题 Using Excel 2013. I have a long list of numbers in column A. I would like to conditionally highlight any cell that is in a range of +/- 5 with respect to the number above it OR the number below it. For example, if I have 1, 1, 10, 20, 21, 22, 50 (in this order) the cells highlighted should be the ones containing only 1, 1, 20, 21, 22. 回答1: Please try: =OR(ABS(A1-A2)<6,ABS(A2-A3)<6) The maximum difference allowed is +/-5 which is a little simpler to express in a formula as not as much as +/-6,