Tag: 取消select

没有使用macros得到活动单元格

我需要获取单元格A1中的活动单元格的地址 我可以用macros观来做 Sub Worksheet_selectionchange(target as range) Cells(1,1)=activecell.address End sub 这个解决scheme的问题是，用户失去了撤消… 有任何想法吗？

Excel函数和expression式仅用于计算发票上包含的某些项目

我想统计出售某一项目的“发票”的数量（如果在出售时没有“ABC”，那么可以说“ABC”我不想算发票，所以在下面的例子，发票3不会被计算，因为该发票上不包括“ABC”）; 那么如果它的发票上有一个“ABC”，我想要计算尺寸和颜色的变化（例如，我可能要计算黄色或12号尺寸的数量;或者尺寸为11和21的发票数量发票） 有人可以帮助我在Excel中使用的function？ 和expression？ 我正在考虑countifs？ 但我是新来excel，谢谢！ customer date invoice item size color ————-.——-.——-.——-.——-.——— me 1012014 1 abc 23 brown you 1012014 2 abc 11 black you 1012014 2 bqr 14 red you 1012014 2 rpg 12 red someoneelse 1022014 3 erp 12 yellow someoneelse 1022014 3 rky 21 blue them 1102014 4 abc 14 red

无法使颜色select器在Excel 2010 64位中工作

您好，我正在努力获取Excel 2010 64位更新的VBA代码。 我已经检查了所有，包括StackOverflow这里一个翔实的职位： StackOverflow问题我明白我必须声明PtrSafe并创buildLongPtr和LongLong适用，但我得到一个“编译错误。types不匹配”的“.rgbResult”部分私人职能代码。 任何任何和所有的帮助将不胜感激。 我的代码如下： Option Explicit #If VBA7 Then #If Win64 Then Private Declare PtrSafe Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As LongPtr Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Type ChooseColor lStructSize As LongPtr hwndOwner […]

使用“select”和“范围”时未设置VBA对象variables

我试图在Excel VBA中拆分包含一些值的行。 问题是不分裂和复制行（我还没有！），但在方法'Application.Intersect'。 我想我通过2范围但程序崩溃与错误“对象variables或块variables未设置”。 当我打印他们时，我看到像“$ A $ 2 $ C $ D false”取决于我select了什么…我做错了什么？ 我有这个代码， Sub SplitRows() Dim LastRow As Long, _ WS1 As Worksheet, WS2 As Worksheet, _ i As Long, j As Integer, ii As Long, X, Y, _ MySelection As Range Set WS1 = Sheets("Foglio1") Set WS2 = Sheets("Foglio2") LastRow = Range("A" & […]

在Excel ODBC SQL中select具有不同第一列的行

鉴于下面的表格，我怎样才能只select有独特的动物行？ animal age location ————————- zebra 4 africa –> return this row owl 50 america –> return this row owl 50 usa panda 9 china –> return this row 我的理解是，以下将不会工作，由于location具有独特的行： SELECT DISTINCT animal, age, location FROM table

VBA中的顺序行select

我是新的论坛和VBA（为Excel）。 我正在尝试做一件非常简单的事情： 我有一个1500行的数据集 – > 150个公司，每个年度观察10年。 我需要在每个子集的开始添加一行（即多一年）。 所以为了避免inputALT + H + I + R 150次（也是因为我将来可能遇到同样的问题），我尝试了VBA。 这是迄今为止的代码： Sub InsertRows() ' InsertRows Macro Dim Var As Integer Var = 5 Do While Var < 1700 Var = Var + 10 Range("F" & Var).Select Selection.EntireRow.Insert Loop End Sub 我遇到的问题是，对于每个循环添加一个新行，程序“落后”一行。 我将不胜感激您的意见！ 谢谢！ 艾丽赛欧

VBAselect性复制？

我正在寻找复制某些列单元格一次一行（即A2，C2，G2，然后到A3，C3，G2）粘贴到一个新的表。 我看过使用： Sheets("Sheet1").Range("A1:A10").Copy 但我需要从某些列复制数据。 一些伪代码： 遍历每一行 如果A列中的date限制为条件语句，则复制预定义的列值并复制到新工作表。 检查下一行。 我目前有一个for循环从1到50行迭代。 'Copy Titles Sheet2.Range("A1, E1, J1, K1, W1:X1, Y1, AA1").Copy Sheets.Add ActiveSheet.Range("A1").PasteSpecial 'Copy Data 'If today's date is later than a date in the Column A, copy the cell over. ? 'Fix Column Width Range("A1:H1").ColumnWidth = 20 'Align Columns Columns("A:H").HorizontalAlignment = xlCenter End Sub 我在思考每一个select，我会做同样的声明，但复制到新的工作表呢？ 先谢谢你！

使用`With`插入新行，而不是`.Select`

我在尝试使用代替插入新行时的.select代码时遇到了麻烦。 我已经多次被告知， .select不被使用，因为它是慢得多。 我的macros创build一个新的行，但删除下面的行中的内容，并复制当我使用.select时从未发生过的行的格式。 这也意味着单元格B11中增加的数字是不正确的，因为它从下面清除的内容再次从1开始。 Sub New_Entry() Application.ScreenUpdating = False Application.EnableEvents = False Dim rng As Range Set rng = Range("B11:AB11") With rng .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With Application.CutCopyMode = False With rng .ClearContents .Interior.ColorIndex = xlNone .Borders.LineStyle = xlContinuous End With With Range("B11") .Value = Range("B12") + 1 End With With rng .Font.Bold = […]

根据价值改变颜色

我正在制作一个带有三个button的表单和一个小数据表格。 每个button将与可接受结果的不同范围相对应。 当你按下第一个button时，如果它们在38和44.4之间，我希望它将表格中的结果高亮显示为绿色，并以红色突出显示结果。 对于第二个button，我想要的范围是33到39.4，第三个button是33到39.4（相同的结果范围，不同的testingtypes）。 基本上我需要不同的条件格式与每个button制定。 我目前正在使用： Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Range("C16") > 44.4 Then Target.Interior.Color = vbRed If Target.Range("C16") < 38 Then Target.Interior.Color = vbRed If Target.Range("C16") >= 38 And Target <= 44.4 Then Target.Interior.Color = vbGreen End Sub 我不熟悉select更改属性，而这是行不通的。 不知道从哪里去。 任何帮助，将不胜感激。 谢谢！

案例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 ∏ […]