Tag: 案例
基于当前字体颜色在两种字体颜色（或个案）之间切换的VBA代码
我想写一个macros，这将允许我在字体颜色之间切换。 为了保持这个简单，只要说两种字体的颜色。 从黑到蓝或从蓝到黑。 但是，我想让excel告诉我的macros是否已经select了黑色或蓝色的字体（无论是在当前的单元格中，还是一般的）。 并从那里确定要更改的颜色。 因此，如果工具栏上的字体颜色select为黑色，则它将运行将字体更改为蓝色（通过运行下面的脚本的相应部分）。 如果工具栏上的字体颜色select为蓝色，则它将运行将字体更改为黑色（通过运行下面的脚本的相应部分）。 下面，我有用于将字体颜色更改为蓝色或黑色的代码。 这里的问题是我不知道正确的语法或代码，以确定工具栏（或单元格，如果这样做工具栏上是不可能的）当前选定的字体颜色。 确定字体颜色是macros的第一部分，这是我有麻烦。 感谢帮助！ Sub toggle() 'need code to determine font color, then to execute appropriate code below With Selection.font .ThemeColor = xlThemeColorAccent1 .TintAndShade = 0 End With Exit Sub blackpath: With Selection.font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With End Sub
vba案例不插入公式
我一直在这个代码上工作了一段时间，似乎无法得到它的工作。 我正在尝试在列AP中插入一个公式基于D列的同一行中的单元格的值。代码循环但不会将公式列AP列的单元格中。 Sub DTCNFScontract() Sheets("Cognos Data").Select Range("A2").Select Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows.Count Dim rCell As Range Dim Rng As Range Set Rng = Range("D2:D" & LastRow) 'Insert Hash Calculation Based On SO Type and VLOOKUP Sheets("Cognos Data").Select For Each rCell In Rng.Cells Select Case Rng.Select Case rCell = "Z006" Rng(, "AP").Formula = "=IF(AND(VLOOKUP('Cognos […]
使用图表系列上的滚动条更改select个案
第一次在这里发布。 我有一个简单的折线图，其中有一系列来自表格的值。 本系列可以根据导入到我的电子表格中的数据集而变化。 我需要一个dynamic图表来绘制一个滚动位置，这是在图表系列中select的数据。 我有三个单独的工作很好，但是我想把它们合并到一个滚动条，我可以点击上下调整图表的范围从完整的值，一半的价值观，四分之一的价值观范围。 Sub HalfChartDataRange() Dim Rng As Range Set Rng = Sheets("Raw Data").Range("Stats[RollPos]") ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 2) End Sub Sub QuarterChartDataRange() Dim Rng As Range Set Rng = Sheets("Raw Data").Range("Stats[RollPos]") ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 4) End Sub Sub FullChartDataRange() Dim Rng As Range Set Rng = Sheets("Raw Data").Range("Stats[RollPos]") ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 1) End […]
select具有多个条件的案例<>
我有一个case语句的代码如下，但它只适用于第一个参数（debug.prints sheet2和3，请有人协助 Sub test() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets Select Case ws.CodeName Case Is <> "Sheet1", "Sheet2" Debug.Print ws.CodeName End Select Next ws End Sub
使用CASE进行MySQL移动平均计算
我如何编辑我的查询下面的ON运算符部分，使我想当前的代码工作，其中id <4（这是t2.id <= t1.id如下所示），所以当t1 id = 3，t2是从id = 1到id = 3（如现在）的累积ID。 但是对于id> 3，我希望ON运算符是（t2.id = t1.id> = t1.id-2和<= t1.id），所以当t1 id = 4时，t2.id应该在2和4包括在内。 当t1 id = 5时，t2.id应该在3和5之间，依此类推。 我这样做是因为当我计算ID = 3后ID为col E，我只是感兴趣的移动平均C和D的前2行的平均值。 Iam将我的Excel公式转换成SQL，所以我知道col E的正确值是什么。 我的查询有2个子查询，它更新列E. EXCEL中的表和正确的数据如下所示： id ABCDE 1 NULL NULL NULL NULL NULL 2 4 6 1 1 1 3 6 9 1.2 1.2 1.2 4 8 […]
Case语句包含string
我想做一个select的case语句，其中基于一个string，我已经存储在一个variables包含某些单词。 从我所见过的每一个地方看，我都是对的，但是没有成功。 在case case.Contains（“GR CHER”）的case语句中，我一直在我的variables“Model”中收到“Compile Error：Invalid Qualifier”。 有没有人看到我在这里失踪的东西？ i = 2 Model = Sheets("Data").Cells(i, 8) While Not IsEmpty(Cells(i, 1)) Select Case True Case Model.Contains("GR CHER") Model = "Grand Cherokee" Case Model.Contains("CHRGR") Model = "Charger" Case Model.Contains("HLLCT") Model = "HellCat" Case Model.Contains("R1500") Model = "Ram 1500" Case Else Rows([i]).EntireRow.Delete i = i – 1 End Select […]
我无法在Excel中进行语言翻译VBA案例
我试图使VBA的情况下，自动语言翻译代码的文件列表填充房屋项目，但一些行有不止一个项目，我需要VBA在同一单元格中单独翻译他们中的每一个，我find的解决scheme写下所有的可能性（在翻译顺序并不重要）这里是使用的线： Sub Traduccione() Select Case activecell.Offset.Value Case "Cadeiras" Selection.Value = "Chairs" Case "Cadeira" Selection.Value = "Chair" Case "Criado mudo", "Criado-mudo" Selection.Value = "Night stand" Case "Mesa" Selection.Value = "Table" Case "Mesas", "mesas" Selection.Value = "Tables" Case "Mesa de canto" Selection.Value = "End table" Case "Mesinha" Selection.Value = "Small table" Case "Cabeceira", "cabeceira" Selection.Value = "Headboard" […]
