Tag: 取消select

EXCEL VBA WorksheetFunction.CountIf()在一个SELECT CASE中

我知道有可能使用If语句,但出于好奇,正如标题中提到的那样,是否可以使用SELECT语句做如下的BOLDED ? 为了更好的理解,我已经提交了我的整个Sub : Sub addNewCust_Click() Dim response As String response = Application.InputBox(prompt:="", Title:="New customer name", Type:=2) Select Case response Case False Exit Sub 'Check if response is not an empty value AND record found in "CustomerList" (“CustomerList”)。范围(“B:B”),响应)> 0 MsgBox "'" & response & "' already exists on this sheet." Call addNewCust_Click 'Check if response […]

为什么列(“F:F”)。selectselect整个表?

我正在使用一个macros来对组织中的重复文档进行大量格式化。 当我运行macros,格式化完成,但内容被删除…这个macros代码写入使用logging选项。 使用步骤通过我确定问题来自这些命令: Columns("F:F").Select Selection.Delete Shift:=xlToLeft 确定的问题:在逐步通过我注意到命令: Columns("F:F").Select select工作表中的所有单元格。 下一个命令删除工作表内容。 任何想法可能会导致这一点?

在pandas数据框上使用操作符链接来读取数据,删除不需要的列,重命名列和读取几行

我有一个数据集用于在最终使用之前阅读和清理数据。 我知道如何按照以下独立的步骤来做到这一点: data = pd.read_excel('C:\Users\pappu.a.kumar\Documents\data\coursera\python\Energy Indicators.xls',skiprows=17, skip_footer=0) del data['Unnamed: 0'] del data['Unnamed: 1'] data.columns = ['Country', 'Energy Supply', 'Energy Supply per Capita', '% Renewable'] fdata = data.ix[:226] 现在我想用操作符链来完成所有这些步骤。 我的第一次尝试写下如下: data = (pd.read_excel('C:\Users\pappu.a.kumar\Documents\data\coursera\python\Energy Indicators.xls',skiprows=17, skip_footer=0) .(del data['Unnamed: 0']) .(del data['Unnamed: 1']) .(columns = ['Country', 'Energy Supply', 'Energy Supply per Capita', '% Renewable']) .(ix[:226])) 但是这个代码产生了下面的错误: 文件“”,第3行 。(del […]

如果文件基本名称的一部分是相同的,使用vb for excel几个文件select

我正面临一个典型的问题,我必须select包含相同的基本名称(部分)和不同的扩展名,如pdf,xls,idf等文件。我可以使用filedialog允许手动select,但我必须重复操作几次,这是非常繁琐的过程。 所以我期待着用vb excel来迭代。 目前,我向一些使用linux编程的同事求助,这是我不喜欢的。 我必须随后对它们进行一些操作,比如重命名,移动等。我可以成功执行这些任务。

select查询中的$符号

为什么我们在select查询中给$符号? (“select * from [Sheet1 $]”,连接); 我试图没有$符号的回收数据,但它显示错误。 所以有人澄清我在$ Sheet1 $需要什么

Java FX的多种select与鼠标像在Excel中

我是JavaFX的新手,我有一个GridPane与TextElements在其中。 我想在第一个元素上用MousePressedselect多个元素,比如在Excel中,然后将鼠标拖到另一个元素上,然后松开鼠标。 在这之后,鼠标被移动的所有元素应该被select并以某种方式被改变(在我下面的例子中,将textcolor改为蓝色)。 我在互联网上search了很多东西,但是我没有真正发现如何做到这一点,除了setOnDragDetected方法和startFullDrag()。 但是它只改变了鼠标被按下的第一个元素的textcolor。 有人可以告诉我我失踪了吗? public class Test extends Application { @Override public void start(Stage primaryStage) { primaryStage.setTitle("Test"); Group root = new Group(); Scene scene = new Scene(root, 600, 600); GridPane mainTable = new GridPane(); mainTable.setGridLinesVisible(true); mainTable.prefHeightProperty().bind(scene.heightProperty()); mainTable.prefWidthProperty().bind(scene.widthProperty()); for (int i = 0; i < 6; i++){ for (int j = 0; j < […]

VBA的Excelmacros使用太多的内存(select.insert似乎是原因)

我正在苦苦挣扎,因为内存使用量太大,无法完成。 我有一个具体的行似乎是负责这个: Selection.Insert Shift:= xlToRight 这是在一个while循环和一个if / else语句像这样: While SearchRow < lastRow If StrComp(…) = 0 Then … End If If StrComp(…) = 0 Then … End If If StrComp(…) = 0 _ Or StrComp(…) = 0 _ Or StrComp(…) = 0 Then ActiveSheet.Cells(SearchRow, 1).EntireRow.Delete Else ThisWorkbook.Sheets(…).Cells(SearchRow, 1).Select Selection.Insert Shift:=xlToRight End If Wend 我已经在debugging行中运行macros,所以当我进入If / […]

具有多个列的SQL SELECT / CASE查询返回系统错误:&H80040E14(-2147217900)

早上好, 我在SELECT语句中使用CASE时遇到问题。 没有它的代码工作正常,甚至testing了CHARINDEX工程。 我也替代了更简单的CASE语句的代码。 我想要做的是SELECT两列与一个额外的占位符列在不同的位置取决于如果a.AH_NAME1包含string“KGA”。 原因是因为我自动化了一个预先存在的Excel工作表,其中他们具有一列非内部订单的值。 这就是'' AS placeholder进来的地方。 我的错误信息是 系统错误:&H80040E14(-2147217900) strSQL = "SELECT a.ID, a.AH_NAME1, b.FI_PREIS_ME, CASE WHEN CHARINDEX('KGa', a.AH_NAME1) > 0 THEN (b.FI_NETTO, '' AS placeholder, a.DATUM_ERF) ELSE ('' AS placeholder, b.FI_NETTO, a.DATUM_ERF) END AS CHARGEA, CHARGEB, DATUM_ERF " strSQL = strSQL & "FROM SYSADM.BW_AUFTR_KOPF a JOIN SYSADM.BW_AUFTR_POS b ON a.ID = b.ID […]

引用具有多个条件的表格

我会尽可能准确地解释我的情况。 1 2 3 4 5 1 3352 3635 4458 4137 4690 2 3352 3635 4458 4137 4690 3 3352 3635 4458 4137 4690 4 3352 3635 4458 4137 4690 5 3352 3635 4458 4137 4690 所以上面的表格纯粹是为了说明我的问题。 我的实际表格将包含更改的值。 我有另一个函数提供了一些值,例如:2和5。 所以基本上我只想在编号为2和5的列中search。我想知道最小值。 现在对于棘手的部分,我希望它旁边的最小成本返回值相应的行号(左侧1-5)。 现在最重要的一切。 如果有两个值相同,则应select行号最高的值。 所以最小值将是相同的,但它会返回最高的行号。 我一直在试用这个定期的excel函数几个星期,没有得到我想要的。 这个想法是有一个function,可以拖动和计算多次不同的input(不同的列引用)。 虽然我可以find复制的所有function。 我希望有人有一个想法。 我目前正在看VBA,但在那里我还没有能够build立一些工作。 提前致谢!

在Excel中select范围,并将其作为进一步参考的表格

我相当新的VBA编码。 我正在为每个季度收到一次的特定数据集编写一段代码。 我想要代码select范围,然后使它成为一个表后面的列将被添加到表等 我写了下面的代码,但是,它似乎尽其所能,但仍然给我一个“types不匹配”的错误,但行动仍然执行,因为它应该。 请告知导致错误的原因(第20行错误 – select和创build表的最后一步) Sub QMRQOC() 'CREDIT MACRO 'Set Variables Dim CrData As Worksheet Set CrData = Worksheets("Credit Data") Dim LastRow As Long Dim LastColumn As Long Dim StartCell As Range Set StartCell = Range("A1") Dim CrRng As Range Dim CrTbl As ListObject 'Find last row and column LastRow = CrData.Cells(CrData.Rows.Count, StartCell.Column).End(xlUp).Row […]