Kram Kramer's questions

请运行以下代码。

Sub Macro1()

'Delete all shapes
For i = ActiveSheet.Shapes.Count To 1 Step -1
    ActiveSheet.Shapes(i).Delete
Next i

'Add rectangle
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left:=50, Width:=100, Top:=50, Height:=40)
    .TextFrame2.MarginLeft = 0
    .TextFrame2.MarginRight = 0
    .TextFrame2.MarginTop = 0
    .TextFrame2.MarginBottom = 0
    .TextFrame2.VerticalAnchor = msoAnchorMiddle
    .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
    .TextFrame2.TextRange.Font.Size = 30
    .TextFrame2.AutoSize = msoAutoSizeTextToFitShape
    .TextFrame2.TextRange.Characters.Text = "Stackoverflow"
End With

End Sub

下图显示了我的问题。

提前致谢

以下代码运行完美。

Public Sub Macro1()

'Enter Today's date into A1 and A2 cells.
ActiveSheet.Range("A1").Value = Now()
ActiveSheet.Range("A2").Value = Now()

'Delete all charts
For i = ActiveSheet.Shapes.Count To 1 Step -1
    If ActiveSheet.Shapes(i).Type = msoChart Then
        ActiveSheet.Shapes(i).Delete
    End If
Next i

'Add a chart.
With ActiveSheet.ChartObjects.Add(Left:=100, Top:=50, Width:=400, Height:=200)
    .Name = "myChart"
    .Chart.Axes(xlCategory).CategoryType = xlTimeScale
    .Chart.Axes(xlCategory).TickLabels.NumberFormat = "MMM/YY"
End With

'Add a xlLine serie.
With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
    .ChartType = xlLine
    .Name = "Example"
    .Values = Array(100, 200, 300, 400, 500, 600)
    .XValues = Array(45658, 45689, 45717, 45748, 45778, 45809)
End With

'Add a xlXYScatterLinesNoMarkers serie.
With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
    .ChartType = xlXYScatterLinesNoMarkers
    .Name = "My Birthday"
    .Values = Array(0, 800)
    .XValues = ActiveSheet.Range("A1:A2")
    'Points settings
    .Points(1).ApplyDataLabels
    .Points(1).DataLabel.ShowSeriesName = True
    .Points(1).DataLabel.ShowCategoryName = False
    .Points(1).DataLabel.ShowValue = False
    .Points(1).DataLabel.Position = xlLabelPositionAbove
    .Points(1).DataLabel.Orientation = xlUpward
    .Points(1).DataLabel.Width = 200
    .Points(1).DataLabel.Format.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
End With

End Sub

我不想从 Excel 单元格中提取图表数据。

所以我尝试用这个来代替

.XValues = ActiveSheet.Range("A1:A2")

有了这个

.XValues = Array(Now(), Now())

但这次图表的输出被损坏了。

我怎样才能解决这个问题？

请运行以下代码。

    Public Sub Macro1()
    
    'Delete all charts
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(i).Type = msoChart Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i
    
    'Add a chart.
    With ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=400, Height:=200)
        .Name = "myChart"
    End With
    
    'Add a serie.
    With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
        .ChartType = xlLine
        .XValues = Array(45658, 45689, 45717, 45748, 45778, 45809)
        .Values = Array(1, 2, 3, 4, 5, 6)
    End With
    
    'Format the xlCategory 
    With ActiveSheet.ChartObjects("myChart").Chart.Axes(xlCategory)
        .CategoryType = xlTimeScale
        .TickLabels.NumberFormat = "MMM/YY"
    End With
    
    End Sub

如何通过 vba在图表的 Y 轴上显示大写月份名称？

下图显示了所需的输出。

https://prnt.sc/g2dXINXpMV97

下面的视频展示了如何使图片透明。

https://www.youtube.com/watch?v=9RpIELN3lyI

我正在寻找使图片透明度达到 60% 的 vba 代码。

宏录制不起作用。

以下链接的第一个答案没有帮助，因为我不想添加额外的矩形（形状）以保持我的代码简单。

以下链接的第二个答案没有帮助，因为它只能使 %100 透明。我想要 %60 透明度。它仅适用于位图。

在 Excel 中使用 VBA 设置图像透明度

1）复制以下值并粘贴到Excel 表中的A1:E9单元格中。

2）请看下面的图片。

3）我的问题的解释如下：

D 列中的公式将B 列排在第一位，然后是C 列。

D 列中的公式对重复项进行排序。

D 列中不存在数字 4 ，因为Erin和Frank的值相等。

E 列中的公式仅对 B 列进行排名。

E 列中的公式不会对重复项进行排名。

E 列中存在数字 4 ，因为E 列中的公式 没有对重复项进行排名。

我更喜欢使用E 列中的公式，因为E 列中的公式不会对重复项进行排名。

4）我的问题是：

请改进E 列中的公式，该公式应该首先对B 列进行排序，然后再对C 列进行排序。

1）复制以下值并粘贴到Excel 表中的A1:C8单元格中。

2）下图显示Rank公式给出错误的结果

3） RANK 公式给出错误的结果，因为500在A 列中出现了两次。

4)您知道RANK公式的替代公式吗？

5) 更新：感谢Mayukh Bhattacharya找到所需的解决方案，如下所示。

SUMPRODUCT((A2<=$A$2:$A$8)/COUNTIF($A$2:$A$8;$A$2:$A$8))