Tag: case

select大小写错误输出

所以我试图让我的macros在一张纸上为我分析一些数据。 数据在单元格B2到B6上，数字在0和4之间（小数）。 我无法弄清楚我在做什么错误的代码，它可以很好地处理不同的单元格条件，如下所示 此代码工作： Sub Salmondepthoutlet() Dim score As Double, result As String Dim Rng As Range, i As Long i = 0 With Sheets("Vertical") For Each Rng In .Range("B7:B16") score = Rng.Value Select Case score Case Is >= 0.15 result = "1" Case 0.11 To 0.14 result = "0.6" Case 0.08 To 0.1 result […]

Excel VBA – select案例 – 多个testingexpression式

我正在尝试编写一个Select Case语句，查看整个A列中的一系列值，然后执行语句。 到目前为止，我可以让我的selectcase语句工作的A2行，但我不能让它与一个值的范围工作，而不给我一个'types不匹配错误'。 加工 Select Case range("A2").Value Case "01" range("G2").Value = "Admin" range("I2").Value = "None" range("J2").Value = "None" range("K2").Value = "None" range("H2").Value = "No Affiliation" range("T2").Value = "99999" 不工作（ types不匹配错误 ） Select Case Range ("A2:A1000").Value Case "01" range("G2").Value = "Admin" range("I2").Value = "None" range("J2").Value = "None" range("K2").Value = "None" range("H2").Value = "No Affiliation" range("T2").Value = […]

案例select语法创build一个循环我不想要的

我已经写了一个包括case select和一个msgbox的语法。 我希望语法find电子表格中的第一个活动单元格，并根据一些预定的问题和答案将其移动到A1或A2，但这些命令不能最佳地工作。 有人能帮我吗？ 我希望消息框可以根据前面提供的答案直观地popup，但是消息框在循环中看起来似乎是一个错误。 我附上了下面的代码。 Public Sub SurvAnalysis() Dim InpSh As Worksheet Dim fCell As Range Dim msg1 As String, msg2 As String Dim Ans1 As Variant, Ans2 As Variant Set InpSh = ThisWorkbook.Worksheets("Input") msg1 = "Are these headers included in the Data, and is the data in the correct format? { Dob ∏ […]

VBAselect案例运行时错误13

我试图运行一个select的情况下，当一个单元格被改变的范围内，当input特定的文本时运行一个macros。 我有一个工作单元（和后面的代码）为“F50”，但是当我尝试使用相同样式的代码几行后，它不起作用。 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F50")) Is Nothing Then Select Case Range("F50") Case "MPR-9A": Resize9 Case "MPR-8A": Resize8 Case "MPR-6A": Resize6 Case "MPR-3A": Resize3 End Select End If If Not Intersect(Target, Range("F4:F45")) Is Nothing Then Select Case Range("F4:F45") Case "M-20A": M20A Case "M-2X20A": M2X20A Case "M-20A-SP": M20ASP End 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 […]

具有多个列的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 […]