Tag: excel

在dataframe名称变化的循环中操作dataframe

我有六个dataframe,z1,z2,… z6。 (从一个excel文件的六张不同的表中读取)。 我需要对这些数据框进行子集化并build立一些模型。 每个过程都是相同的。 我希望能在循环中做到这一点,但无法find正确的语法。 (我试图使用粘贴和分配function,但它没有帮助)。 比如我想要 for (i in 1:6){ Z=subset(Zi,Zi$var1==1) } Zi应该是已经定义好的Z1,Z2,Z3。 我可以在每次迭代中通过粘贴function生成一个variablesZ1,Z2 temp = paste('Z',i,sep ='')但是我不能在上面的代码中使用'temp'代替Zi。 有关于类似问题的其他线程的讨论,但我无法find任何直接相关的问题。 如果我失去了一些东西,请将我指向正确的线索。

链接来自不同工作表的数据字段

我有报告说,我经常从两个不同的来源运行,这两个来源都有一个唯一的标识符,用于链接两个报告中的数据(我将调用字段ID“LINK ID”)。 该字段出现在两组输出中(但是输出来自2个填充不同数据点的不同系统)。 我通常将每个报告剪切并粘贴到新创build的工作簿中的单独工作表中,然后进行匹配。 有一次,我曾经在一个子例程中循环遍历包含“LINK ID”的列,然后在另一个工作表上包含相同的“LINK ID”的另一列循环,如果发现一个匹配它会复制链接到匹配的整个数据行并粘贴到第一个工作表上。 我所做的代码从来没有完全完成,但是我想看看能否一劳永逸地找出这个问题,因为如果我不必一次一个一个浏览这些代码,那真是太棒了。 。 这是我有什么: Private Sub Find_And_Link() Dim rw As Long Dim mr2 As Long Dim ws3 As Worksheet Set ws3 = Sheets("VM") With Sheets("AY") For rw = 2 To .Cells(Rows.Count, "F").End(xlUp).Row If CBool(Application.CountIf(ws3.Columns(1), .Cells(rw, "F").Value)) Then mrw = Application.Match(.Cells(rw, "F"), ws3.Columns(1), 0) ws3.Cells(mrw, "A").Resize(1, 12).Copy _ Destination:=.Cells(rw, "G") […]

试图创build代码,允许在一个页面中input数据excellogging在第二页创build一个报告

我正在创build一个跟踪表(Sheet1),在一个logging中跟踪信息,然后使用一个button,“更新”它将这个信息传递给“Sheet2”,这将是一个月度报告。 我有第2页8栏标题。 页面一是我在更新button所在的单元格中input数据的位置。 这是我的代码,我只使用了一列: Private Sub CommandButton1_Click() Dim SerialNumber As String Worksheets("Calibration Record").Select SerialNumber = Range("E5") Worksheets("Monthly Due Report").Select Worksheets("Monthly Due Report").Range("A2").Select If Worksheets("Monthly Due Report").Range("A2").Offset(1, 0) <> "" Then Worksheets("Monthly Due Report").Range("A2").End(x1down).Select End If ActiveCell.Offset(1, 0).Select ActiveCell.Value = SerialNumber Worksheets("Calibration Record").Select Worksheets("Calibration Record").Range("A2").Select End Sub 我也尝试了所有8列无济于事。 使用上面显示的代码,我能够使其工作一次。 当我input第二行信息的数据时,它给了我“运行时错误'1004'。应用程序定义或对象定义的错误。 我一直在这个工作了近一个月,我无法弄清楚我做错了什么。 我甚至在YouTube上观看了Dinesh Kumar Takya的video,无济于事。 我已经遵循了他做了很多次的所有事情,而且我仍然能够使其工作一次,但是之后我得到了运行时错误。

用C#testingEssbasemacros

我正在尝试自动化一些Excel报告。 目前我需要从Essbase服务器中检索一些数据,为了实现这个function,我创build了一个macros来检索和设置Excel工作表中的数据,我的VBA代码如下: Option Explicit Declare Function EssVRetrieve Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant, ByVal range As Variant, ByVal lockflag As Variant) As Long Declare Function EssVConnect Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant, ByVal userName As Variant, ByVal password As Variant, ByVal server As Variant, ByVal application As Variant, ByVal database As Variant) As Long Declare […]

从asp.net后面的代码调用jquery函数是行不通的

我有一个button点击事件 protected void btndwnReport_Click(object sender, EventArgs e) { try { save("Report1"); } catch (Exception ex) { Log.Errlog("Error Occured in btndwnReport_Clickof UI_Report Page : " + ex.Message.ToString()); } finally { Page.ClientScript.RegisterClientScriptBlock(typeof(Page), "HideLoading", "HideLoading2();", true);//this function is not triggering } } 使用这个我想使用reportviewer下载一个excel文件。 点击这个button,我显示一个加载图标(通过调用ShowLoading2()),它被定义为一个jQuery的function。 function ShowLoading2() { try { if (parent.document.getElementById('dvProgress')) $("#dvProgress", parent.document).hide(); } catch (e) { } […]

更好的方式从Excel文件中读取数据

我必须从一个大约有40列的Excel文件中读取数据,我正在使用列索引逐个读取它。 即: Cell cell = row.getCell(0); if (!(cell == null || cell.getCellType() == Cell.CELL_TYPE_BLANK)) { cell.setCellType(Cell.CELL_TYPE_STRING); // set in setter } 但是这种方法与Excel文件的结构紧密结合,因为如果在它们之间添加了新列,那么将需要主要代码(列的索引值)。 请build议我从Excel文件中读取数据的有效方法,这应该与Excel的结构松散地耦合,或者如果有任何其他方式可以提供与Java对象的字段的列绑定。

基于具有不同值的相同列名创build列

我有一张桌子: 如上图所示,还有许多其他的meta_appl_id。 现在我想运行一个SQL查询,以便根据“meta_value”的值创build列。 我试过了: SELECT * , if (`meta_value` = 'physically challenged' , 'yes', '') as PH, if (`meta_value` = 'kannada medium' , 'yes', '') as Kannada, if (`meta_value` = 'rural' , 'yes', '') as rural, if (`meta_value` = 'woman' , 'yes', '') as woman FROM `applicant_meta` WHERE `meta_value` = 'physically challenged' or `meta_value` = […]

使用VBA从谷歌检索信息,试图build立一个停止时,谷歌不能按预期工作

Sub test() Dim IE As New InternetExplorer Dim city$, state$ Dim i As Integer Dim dd As Variant Dim doc As HTMLDocument 'variable for document or data which need to be extracted out of webpage Set doc = IE.document i = 2 'start row 'Setting the variables city = Cells(i, 1).Value 'City variable for search […]

带文本variables的macros改变列

macros很好,直到文字的位置改变列。 我使用“查找”文本string,然后想要将光标向右和向下移动2,然后将数据复制到另一个工作表。 该macros很好地工作,直到文本string在后续的电子表格中移动。 如何根据find的文本string将选定范围变为可变的? 在下面的例子中,我如何获得Range("H7:H180").Selectvariables? Range("A1").Select Cells.Find(What:="reg", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Range("H7:H180").Select

按一列对多列进行sorting

我在Excel中制作了一个三列的电子邮件列表。 在工作表上,我有两个button,“按名称sorting”和“按添加datesorting”。 我想按所选button对所有三列进行sorting,这样我可以更快地find条目(以后我还会input一个单独的查找函数)。 基本上,我想要在工作表中已经在工具栏上的sortingfunction,你可以按它,它知道哪个列已经sorting。 我已经看到macros和VBA的东西,但所有这些都是由单独的参数sorting列,而我需要这些列链接。